Obrigado pela instrução.

A base de dados não é de Portugal, mas sim PHC África.

Na opção Instalação e Manutenção, selecionei a FT3 e executei a opção Reindexar.

Após a conclusão do processo, ao tentar desfragmentar a tabela, o sistema continua a apresentar o mesmo erro.

Tentei outras combinações como criar index, reconstruir primary key e indexes, verificar/corrigir tamanhos dos campos sem sucesso.

Cpts,

Alguém me pode ajudar sobre este assunto?

A liquidação de IVA nos serviços de construção civil cabe ao sujeito passivo prestador quando o adquirente é um sujeito passivo isento nos termos do art.º 9.º ou art.º 53.º do CIVA. Para regularizar a situação, deve:

aceder ao Portal das Finanças e entregar declaração(ões) periódica(s) de IVA de substituição para o(s) período(s) que pretende substituir, devendo relevar o valor tributável da operação nos campos 1, 5 ou 3 do quadro 06, e o imposto liquidado nos campos 2, 6 ou 4.

emitir nota de débito, com data atual, devendo aí constar apenas o valor do imposto por liquidar, no campo "valor do imposto", sem valor no campo "base tributável", nos termos do n.º 3 do artigo 78.º do CIVA, devendo fazer referência à fatura a que respeita, indicando a respetiva taxa de IVA, não sendo aplicável a utilização de motivo de isenção/não liquidação de IVA.

Caso a AT necessite de esclarecimentos adicionais será contactado posteriormente.

Ou seja:

 

De acordo com o n.º 3 do Artigo 78.º do CIVA, a sua nota de débito deve ser emitida assim:

Valor Base (Base Tributável): Deve ficar a 0,00€ (ou vazio). O valor do serviço já foi declarado na fatura original.

Taxa de IVA: Selecione a taxa correspondente ao serviço (ex: 23%).

Valor do Imposto: Aqui deve colocar o valor exato do IVA que faltou liquidar na fatura original.

Referência Obrigatória: No campo de descrição ou observações, deve escrever algo como:

"Nota de débito emitida para liquidação de IVA nos termos do n.º 3 do Art.º 78.º do CIVA, referente à Fatura [Número da Fatura] de [Data da Fatura]. Motivo: Adquirente sujeito passivo isento (Art.º 9.º/53.º)."

Isto é possível? Quebra muitas regras....

boa noite 

tens colocar tdsquery com propriedade  Fetch := ftall

cps

 

Olá, 

Tenho uma API que faz integração com o PHC, portanto para gerar a assinatura nos dossiers internos, tipo Guias de transporte, preencher a coluna assinatura na tabela bo2, tenho mesmo que assinar com a chave RSA ou posso enviar a 0 e depois o PHC lida com isso automático, assina e integra com a AT  ou envia mesmo com a assinatura a 0 e a nível legal não haverá problemas? Visto que li, embora que antigo, a lei diz que caso o software não seja certificado posso enviar a assinatura com o valor 0.

Até porque não sei bem onde está a chave para assinar no PHC, só tenho mesmo acesso ao certificado.pfx, que serve para comunicar com a AT.

obrigado.

Era para lá de 'giro' se as faturas processadas via portal das finanças não fossem consideradas certificadas...

Imagina os problemas legais que isso criava...

Obrigado!

Quem está a trabalhar no WS para ir buscar documentos ao e-fatura, já reparou que nos documento obtidos por Adquirente (SFA) não tem o campo DocumentStatus, pelo que não se consegue distiguir os que foram anulados pelo Fornecedor.

 

Um bem Aja a todos

Tenho uma rotina aplicada num projecto pessoal para ir buscar o "Ultimo Resultado" do EUROMIHHÕES ao site da Santa casa que tem funcionado bem.

De ontem para hoje deixou de funcionar e aparece uma mensagem

“System.Net.WebException: Pedido abortado:Não foi possível criar um canal seguro SSL/TLS

em System.Net.HttpWebRequest.GetResponse() em TotoMilhoesNovo.frmSorteioNumerosEuromilhoes.butObterChaveEuromilhoes_Click(Object sender, EventArgs e) em D:\Copia_TotoMilhoesNovo\TotoMilhoesNovo\ frmSorteioNumerosEuromilhoes.vb:line 934”

Nota Junto código da rotina

Private Sub butObterChaveEuromilhoes_Click(sender As Object, e As EventArgs) Handles butObterChaveEuromilhoes.Click

        Dim oWebRequest As WebRequest
        Dim oWebResponse As WebResponse = Nothing
        Dim strBuffer As String = ""
        Dim objSR As StreamReader = Nothing
        Dim leitor As Object
        Dim ler As Boolean = False
        Dim valores As String = String.Empty
        Dim i As Integer = 0

        Dim num_final As String = String.Empty
        Dim estrela_final As String = String.Empty


        'conecta com o website
        Try
            oWebRequest = HttpWebRequest.Create("https://www.jogossantacasa.pt/web/SCCartazResult/euroMilhoes")

            oWebResponse = oWebRequest.GetResponse()
            'Le a resposta do web site e armazena em uma stream
            objSR = New StreamReader(oWebResponse.GetResponseStream)
            strBuffer = objSR.ReadToEnd
            leitor = Split(strBuffer, vbNewLine)

            For Each linha In leitor
                If ler = True Then
                    valores += linha.ToString + vbNewLine
                    i += 1
                End If

                'If linha.Contains("Ordem Saída:") Then
                '    ler = True
                'End If

                If linha.Contains("Chave") Then
                    ler = True
                End If

                'Altera o formato da data do sorteio para verificar se corresponde a data do sorteio que o Site apresenta 
                Dim TestString As String = String.Format("{0:dd/MM/yyyy}", DataDateTimePicker.Value)
                ' Returns "Shipping List".
                aString = Replace(TestString, "-", "/")


                'If linha.Contains("Data do Sorteio") And linha.Contains(aString) Then

                '    'Obtem o valor da linha Retira caracteres a string
                '    Label17.Text = Trim(linha.ToString.Remove(34, 7))

                '    ' Label15.Text = linha.ToString
                'Else
                '    MsgBox("DATA NÃO CORRESPONDE AO SORTEIO", MsgBoxStyle.Information, "Data do Sorteio Incorreta")
                '    Exit Sub

                'End If


                If linha.Contains("Data do Sorteio") Then
                    If Not linha.Contains(aString) Then
                        MsgBox("DATA NÃO CORRESPONDE AO SORTEIO", MsgBoxStyle.Information, "Data do Sorteio Incorreta")
                        Exit Sub
                    End If
                    'Obtem o valor da linha Retira caracteres a string
                    Label17.Text = (linha.ToString) 'ove(34, 7))
                End If


                If i > 8 Then
                    ler = False
                End If



                'If linha.Contains("Data do Sorteio") Then
                '    'Obtem o valor da linha Retira caracteres a string
                '    Label17.Text = (linha.ToString.Remove(34, 7))
                'End If


                If i > 8 Then
                    ler = False
                End If
            Next

        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally

            objSR.Close()

            oWebResponse.Close()
        End Try

        'Retira caracteres a string
        Label18.Text = Label17.Text.Remove(0, 6)

        Dim WC As New Net.WebClient

        Dim Rsp As String = WC.DownloadString("https://www.jogossantacasa.pt/web/SCCartazResult/euroMilhoes")

        Dim m As Match = Regex.Match(Rsp, "<li>(?<resultado>(?<num1>\d+) (?<num2>\d+) (?<num3>\d+) (?<num4>\d+) (?<num5>\d+) \+ (?<est1>\d+) (?<est2>\d+))</li>", RegexOptions.IgnoreCase)


        MsgBox("Data do Sorteio: " & aString & vbNewLine & vbNewLine & "Chave: " & m.Groups("resultado").ToString(), MsgBoxStyle.Information, "Obter Chave EuroMilhões da Santa Casa")

        ' MsgBox(vbNewLine & "Chave: " & m.Groups("resultado").ToString(), MsgBoxStyle.Information, "Obter Chave EuroMilhões da Santa Casa")



        'Transfere on numeros para as caixas de texto
        NS1TextBox.Text = m.Groups("num1").ToString()
        NS2TextBox.Text = m.Groups("num2").ToString()
        NS3TextBox.Text = m.Groups("num3").ToString()
        NS4TextBox.Text = m.Groups("num4").ToString()
        NS5TextBox.Text = m.Groups("num5").ToString()
        ES1TextBox.Text = m.Groups("est1").ToString()
        ES2TextBox.Text = m.Groups("est2").ToString()

    End Sub

 

Após clicar para obter os dados bloqueia na linha com o código  "Finally             objSR.Close()" e mensagem  "A referência de objecto não foi definida como uma instância de um objecto."

 

Agrdeço ajuda desde já