Download XML!

[Márcio Antônio]

Bom dia, eu criei um serviço para ficar baixando as notas destinadas ao cnpj do cliente, testei aqui na minha máquina e funcionou direitinho, mas quando coloquei no servidor, não funcionou, não entendi o por que, coloquei o log e o mesmo me retornou assim:

          logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - Erro: ', IntToStr(dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.cStat));
          logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - Motivo: ', dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.xMotivo);
          logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - Mensagem: ', dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.Msg);
          logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - Observação: ', dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.xObs);
          logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - RetornoWS: ', dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.RetornoWS);
          logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - RetWS: ', dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.RetWS);
 

[04/10/2023 08:49:58.658]Consulta Notas Destinadas - Erro: 0
[04/10/2023 08:49:58.658]Consulta Notas Destinadas - Motivo: 

[04/10/2023 08:49:58.658]Consulta Notas Destinadas - Mensagem: 

[04/10/2023 08:49:58.658]Consulta Notas Destinadas - Observação: 

[04/10/2023 08:49:58.658]Consulta Notas Destinadas - RetornoWS: 

[04/10/2023 08:49:58.658]Consulta Notas Destinadas - RetWS: 

 

O erro ocorre, quando eu mando conectar na sefaz;

A instalação do certificado, está igual em ambos os cenários.

 

Editado 4 Outubro, 2023 por Márcio Antônio
faltou informar uma informação

[Diego Foliene]

Bom dia.

Algumas observações.

• A distribuição DFe é feita pelo ambiente nacional, enquanto que a consulta de status vai buscar na Sefaz da UF, ou seja, são ambientes diferentes.
• Você está lendo a informação considerando que está dando certo o processo. Você precisa ler a Exception também.

try
  logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - Erro: ', IntToStr(dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.cStat));
  logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - Motivo: ', dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.xMotivo);
  logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - Mensagem: ', dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.Msg);
  logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - Observação: ', dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.xObs);
  logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - RetornoWS: ', dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.RetornoWS);
  logConsultaNFeDestinadas.Log('Consulta Notas Destinadas - RetWS: ', dtmCompra.ACBRNFeTriviaDownload.WebServices.StatusServico.RetWS);
except
  on E:Exception do
    logConsultaNFeDestinadas.Log('ERRO: ' + E.Message);
end;

 

[Márcio Antônio]

Obrigado pelo retorno!