Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado

Estou com um problema para usar o ACBrNFe1.DistribuicaoDFe,

caso não retorne nada na primeira consulta e eu fique insistindo

retorna uso idevido status 656.

 

 

try

  ACBrNFe1.DistribuicaoDFe(iEstado, CNPJ, ultNSU, '');
  ultNSU  := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU;
  iStatus := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat;
except
end;
 
  if iStatus <> 138 then
     begin
       Application.CreateForm(Tfrm_consultaLote, frm_consultaLote);
       frm_consultaLote.Memo1.Clear;
 
       frm_consultaLote.Panel1.Caption := 'Retorno da Consulta';
       frm_consultaLote.Memo1.Lines.Add('Status .: ' + IntToStr(iStatus));
       frm_consultaLote.Memo1.Lines.Add('Motivo .: ' + ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo);
       frm_consultaLote.Memo1.Lines.Add('UltNSU .: ' + ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU);
 
       GravaUltNSU(ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU);
 
       frm_consultaLote.ShowModal;
       frm_consultaLote.Free;
 
     end;
 
  • Consultores
Postado

Bom dia Murilo,

 

Ao usar pela primeira vez deve-se atribuir o valor zero a ultNSU, ou seja, ultNSU := '0';

 

Dai para frente deve-se atribuir a ultNSU o valor retornado em:  ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU;

 

Essa informação sugiro guardar em uma tabela no banco de dados, uma vez que no dia seguinte você não deve iniciar do zero novamente.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Postado

bom dia Italo,

 

mais uma vez obrigado pela atenção, estou sim armazenando em uma variavel e salvando em uma tabela,

para na proxima pesquisa eu ultilizala, só que so esta vindo o retorno da ultima ultNSU sempre '0',

 

ex.: ACBrNFe1.DistribuicaoDFe(iEstado, CNPJ, ultNSU, '');

       ultNSU  := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU;

 

agora Italo, ontem logo eu estava trabalhando nas rotinas de e teve algum momento que veio algum numero,

mais como eu ainda esta ajustando não salvei a configuração da ultima NSU ai hoje como não sei mais a que veio

no registro estou passando zero e esperendo guando retorna algum valor começar a salvar e procequir. 

Postado

Boa tarde Italo,

 

Acabei de observar que estava em ambiente de homologação por isto que não veio nada,

coloquei para produção e deu certo.

 

o código para confirmação manifesto já esta implementado, vi em outros tópicos

que ainda não tinha sido liberado o ambiente, mais como é tópico já fazia um tempo,

não sei se já esta disponivel no momento.

  • Consultores
Postado

Bom dia Murilo,

 

No que diz respeito a NFeDistribuicaoDFe já esta implementado no componente e funcionando 100%, ou seja a consulta a notas destinadas.

 

Com relação a Manifestação do Destinatário já esta implementado no componente e funcionando 100%.

 

Lembre-se que a Manifestação nada mais é do que eventos, e a rotina de envio de eventos, foi implementada a um bom tempo e esta funcionando sem nenhum problema.

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

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