Bom dia, estou tentar baixar o xml de nfe, porém só estou conseguindo baixar uma versão resumida. Eu encontrei no fórum outras pessoas passando por isso, porém não achei uma solução. O ACBr não está mais fazendo essa operação de baixar o xml das notas ou tem algo de errado com o meu código?
Tentei me basear no exemplo do trunk2.
Só queria uma luz mesmo, por que senão estiver mais baixando por aqui, preciso ir atrás de outra solução. Segue o meu código abaixo e segue em anexo também o xml que baixa.
Obrigado
ACBrNFe1.Configuracoes.Geral.SSLLib := libCapicom;
ACBrNFe1.Configuracoes.Certificados.NumeroSerie := ACBrNFe1.SSL.SelecionarCertificado;
ACBrNFe1.Configuracoes.Certificados.Senha := '';
with ACBrNFe1.Configuracoes.WebServices do
begin
UF := 'SC';
Ambiente := taProducao;
end;
ACBrNFe1.Configuracoes.Arquivos.DownloadDFe.PathDownload := 'C:\Users\ITM-Lucas\Desktop\DownloadNFeXML\Chave';
ACBrNFe1.Configuracoes.Arquivos.PathNFe := 'C:\Users\ITM-Lucas\Desktop\DownloadNFeXML\Nfe';
ACBrNFe1.Configuracoes.Arquivos.SalvarEvento := true;
ACBrNFe1.Configuracoes.Arquivos.Salvar := true;
ACBrNFe1.Configuracoes.Arquivos.PathSchemas := 'C:\Users\ITM-Lucas\Desktop\DownloadNFeXML\NfeSchemas';
ACBrNFe1.Configuracoes.Arquivos.PathSalvar := 'C:\Users\ITM-Lucas\Desktop\DownloadNFeXML\Download';
ConfigurarACBrNFe;
mCNPJ := EdtCNPJ.Text;
mUltNSU := '0';
ACBrNFe1.DistribuicaoDFePorUltNSU(42,
mCNPJ,
mUltNSU);
MemoResp.Lines.Text := ACBrNFe1.WebServices.DistribuicaoDFe.RetWS;
memoRespWS.Lines.Text := ACBrNFe1.WebServices.DistribuicaoDFe.RetornoWS;
LoadXML(ACBrNFe1.WebServices.DistribuicaoDFe.RetWS, WBResposta);
412005212617000124550010000046521000-resNFe.xml