Ir para conteúdo
  • Cadastre-se

dev botao

Envio e Retorno da NFE


  • Este tópico foi criado há 2782 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa tarde Pessoal,

estou desenvolvendo uma aplicação para Validação, assinatura, envio e pegar o retorno da nfe.

Alguém teria um exemplo de Envio e Pegar o retorno da nfe e Poderia me ajudar ?

Estou tentando me basear no modelo do acbr, porem no meu delphi, ele não roda e como não consigo roda-lo, estou apanhando um pouco.

Alguem poderia me ajudar ?

Link para o comentário
Compartilhar em outros sites

  • Moderadores
6 horas atrás, Isael Faria Junior disse:

Boa noite,

Fiz a reinstalação e agora parou de dar aquele erro.

Porem ao compilar, está dando o seguinte erro.

Poderiam me ajudar com isso ?

Tem arquivos pedidos em seu micro!

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Ops errei tu por acaso removeu os path inválidos do seu delphi em tools library?

pois isso dai é por não conseguir achar os arquivos do próprio delphi!

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

Salve Isael, então eu apanhei para poder usar os componentes Acbr, enfim como fazer funcionar esse projeto exige um pouco de tempo e conhecimento  das estrutura de pastas dos arquivos, vc precisa baixar alguns fontes que ao meu entender não esta na atualização do SVN usado pelo instalador, enfim como sua primaria vontade era um exemplo, segue... porem é so status de serviço, mas a ideia é a mesma, deste ponto eu consegui chegar longe, mas  vc não vai se livrar de mastigar a NT da NFE ou qualquer outra NT para arquivos fiscais enfim... 

simples como adorar a graça de Deus nas nossas vidas... 

              LerConfiguracao; 
              ACBrNFe1.WebServices.StatusServico.Executar;
             Mtxt1request.Lines.Text := ACBrNFe1.WebServices.StatusServico.RetWS;    
             Mtxtvalida.Lines.Text := ACBrNFe1.WebServices.StatusServico.RetornoWS;
             LoadXML(ACBrNFe1.WebServices.StatusServico.RetornoWS, WBResposta);

             MemoDados.Lines.Add('');
             MemoDados.Lines.Add('Status Serviço');
             //MemoDados.Lines.Add('tpAmb: '    +TpAmbToStr(ACBrNFe1.WebServices.StatusServico.tpAmb));
             MemoDados.Lines.Add('verAplic: ' +ACBrNFe1.WebServices.StatusServico.verAplic);
             MemoDados.Lines.Add('cStat: '    +IntToStr(ACBrNFe1.WebServices.StatusServico.cStat));
             MemoDados.Lines.Add('xMotivo: '  +ACBrNFe1.WebServices.StatusServico.xMotivo);
             MemoDados.Lines.Add('cUF: '      +IntToStr(ACBrNFe1.WebServices.StatusServico.cUF));
             MemoDados.Lines.Add('dhRecbto: ' +DateTimeToStr(ACBrNFe1.WebServices.StatusServico.dhRecbto));
             MemoDados.Lines.Add('tMed: '     +IntToStr(ACBrNFe1.WebServices.StatusServico.TMed));
             MemoDados.Lines.Add('dhRetorno: '+DateTimeToStr(ACBrNFe1.WebServices.StatusServico.dhRetorno));
             MemoDados.Lines.Add('xObs: '     +ACBrNFe1.WebServices.StatusServico.xObs);

       esse á um trecho do código exemplo funcionando, porem vc vai ter que ajustar conforme suas configurações. pois se olhar as procedures da(unit1.pas) do exemplo  vai reconhecer essas linhas

blz? enfim espero ter ajudado, qualquer coisa tamos na área ! :)

 

Link para o comentário
Compartilhar em outros sites

Obrigado Jether,

Graças a sua ajuda, consegui realizar o envio e o retorno.

Se puder ajudar mais uma vez, estou com problema para Imprimir e Imprimir em PDF.

Estou utilizando a seguinte sintaxe

 ACBrNFe1.NotasFiscais.Clear;
  ACBrNFe1.NotasFiscais.LoadFromFile(pPathEnviado+'\'+vNumNF+'.xml',true);
  ACBrNFe1.NotasFiscais.ImprimirPDF;

  ACBrNFe1.NotasFiscais.Clear;
  ACBrNFe1.NotasFiscais.LoadFromFile(pPathEnviado+'\'+vNumNF+'.xml',true);
  ACBrNFe1.NotasFiscais.Imprimir;

Porem, está dando o seguinte erro.

 

Sem título.png

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Olhe o demo que está na pasta de exemplos!

veja todo ele com calma e dai vai entender!

também tem os fontes, chegou a debugar onde levanta essa exceção!?

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2782 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.