Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado

Bom dia aos amigos.

Estou mudando minha aplicação de Nota Eletronica para o Acbr, pelo sinal parabéns a equipe.

Estou com o seguinte problema.

Abaixo minha rotina de envio:

Tenho um For que adiciona várias notas no lote.....

Dados.Nfe.NotasFiscais.LoadFromFile(ExtractFilePath(application.ExeName)+'xml\preXML.xml');

Finalizo o for....

Envio as notas assim:

Dados.Nfe.NotasFiscais.GerarNFe;

Dados.NFe.NotasFiscais.Assinar;

Dados.NFe.NotasFiscais.Valida;

Dados.Nfe.WebServices.Enviar.Lote :=IntToStr(v_Lote);

Dados.Nfe.WebServices.Enviar.Executar;

Depois gravo o Recibo em uma tabela para cosultar depois.

Em uma rotina de consulta executo a seguinte rotina.

Abro a tab. de lote com os recibos, atraves de um loop.

executando o comando abaixo:

Dados.NFe.WebServices.Recibo.Recibo := cds_Lote.FieldByName('LOTE_RECIBO').AsString;

Dados.NFe.WebServices.Recibo.Executar;

Dados.NFe.NotasFiscais.SaveToFile();

for i:= 0 to Dados.NFE.WebServices.Recibo.NFeRetorno.ProtNFe.Count - 1 do

begin

Façop todos os tratamentos..

e quando o CStat = 100

Gravo as informações necessárias no banco.

Mas ai esta o problema, não consigo pegar o xml com o prot.

ja tentei de tudo so consigo pegar o xml original do envio.

....

End;

Alguém poderia me dar uma luz.

Att.

Adauto

Postado

Bom . se puder vamos dividir o problema ..

Teria com fazer alguns testes antes .

* Tipo tente enviar apenas uma NF-e em um lote pra ver se tá retornando a Protnfe ?

* Verifique as propriedades de Path onde serão gravadas suas NF-e no componente ACBR .

.Pois após recebidos podem estar sendo gravados em outro caminho .

Adilson .

  • 4 semanas depois ...
Postado

Pessoal Problema resolvido, Me desculpem mas era um erro meu..

Ao inves de mandar consultar desa forma:

Dados.NFe.WebServices.Retorno.Executar;

Estava utilizando

Dados.NFe.WebServices.Recibo.Executar;

Resolvido.

Obrigado.

  • Este tópico foi criado há 4758 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.

The popup will be closed in 10 segundos...