Ler Xml Nfs-E

[leufmt]

Bom dia pessoa.

Estou implementando a nota fiscal de serviço e como não estou conseguindo de nenhuma forma instalar os componentes de danfe da NFS-e em meu delphi e também o layout esta muito diferente daqui, quero saber como faço para pegar os dados do xml para jogar no danfe que vou criar?

Estou tentando fazer isto para ler o xml mas dá erro:

ACBrNFSe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

ShowMessage(FNFSe.CodigoVerificacao);

 

E também como faço para pegar o Código de Verificação de Autenticidade assim que é aprovado?

 

Obrigado.

Editado 11 Outubro, 2013 por leufmt

[Juliomar Marchetti]

Bom dia pessoa.

Estou implementando a nota fiscal de serviço e como não estou conseguindo de nenhuma forma instalar os componentes de danfe da NFS-e em meu delphi e também o layout esta muito diferente daqui, quero saber como faço para pegar os dados do xml para jogar no danfe que vou criar?

Estou tentando fazer isto para ler o xml mas dá erro:

ACBrNFSe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

ShowMessage(FNFSe.CodigoVerificacao);

 

E também como faço para pegar o Código de Verificação de Autenticidade assim que é aprovado?

 

Obrigado.

Mensagem de erro que é gerado? tá utilizando o ACBrInstall?

 

 

O que seria o FNSe.CodigoVerificacao?

variavel que você criou?pois pra acessar eu acredito por ser uma coleção de objetos tenha que 

acessar primeiro o componente ACBrNFSe1 segundo a coleção NotasFiscais e terceiro o objeto Itens

ACBrNFSe1.NotasFiscais.Itens[0].CodigoVerificacao

[leufmt]

é isso mesmo deu certo.

 

Mas agora como faço para pegar o ACBrNFSe1.NotasFiscais.Itens[0].CodigoVerificacao no momento que é aprovado? Pois no momento que foi aprovado quero pegar o CodigoVerificacao e gerar algumas informações para o sistema.

[Italo Giurizzato Junior]

Boa tarde leufmt,

 

Isso resolve?

 

       sNotaFiscal := ACBrNFSe.NotasFiscais.Items.NFSe.Numero;
       sDataHora   := DateTimeToStr(ACBrNFSe.NotasFiscais.Items.NFSe.DataEmissao);
       sProtocolo  := ACBrNFSe.NotasFiscais.Items.NFSe.CodigoVerificacao;
 

[leufmt]

Isto ai eu já sei. O que quero saber agora qual é o momento que sei que o componente consegui emitir e validar a nota?, para que assim eu executo estas linhas (ai vou pegar sNotaFiscal, sDataHora e sProtocolo ) que tu colocou ai em cima.

 

Conseguiu me entender?

[leufmt]

Assim: Depois do comando ACBrNFSe1.Enviar(vNumLote) eu tenho alguma flag que me informe que teve sucesso no envio e validação da nota?

[Italo Giurizzato Junior]

Boa noite leufmt,

 

As linhas que postei acima você deve executalas após a execução do comando Enviar.

 

Se foi retornado o numero da nota, o código de verificação significa que o lote contendo o RPS foi processado com sucesso.

[leufmt]

Bom dia Italo, muito obrigado.

Mais uma coisa, percebi que o comando Enviar é uma função que recebe boolean, posso deduzir que se ele receber true é que o RPS foi processado com sucesso?

[Italo Giurizzato Junior]

Boa noite leufmt,

 

Sim, se o retorno for True podemos dizer que o lote foi processado com sucesso.

[Masoro79]

Ítalo, bom dia.

Tenho uma dúvida também sobre o retorno do comando enviar. Por exemplo, se eu envio um lote com 10 NF, existe a possibilidade de apenas 9 NF serem autorizadas. Ou seja, o lote ser processado parcialmente de forma que terei que que identificar apenas estas 9 NF. Se isso for possível, poderia me dar uma dica de como tratar este caso?

Obrigado

[Italo Giurizzato Junior]

Bom dia Masoro79,

 

Simples:

  

       // Após o envio

 

       for i := 0 to (ACBrNFe.NotasFiscais.Count - 1) do

        begin

         if ACBrNFe.NotasFiscais.Items.NFe.procNFe.cStat = 100

           then // Nota foi autorizada

           else // Nota não foi autorizada

        end; 

[Masoro79]

Obrigado e me desculpe por não ter sido claro. Me refiro à NFS-e.