Boa Noite !
De uns 60 dias para cá, não estou conseguindo baixar os xmls das notas fiscais de compra emitidas para duas empresas clientes. Alguns PCs baixam, mas as vezes. Até então estava funcionando perfeitamente. Todos os dias baixava normalmente as nfs emitidas contra a empresa. Sou do RJ.
Desde já agradeço !
Alexandre Fernandes.
Código que uso para fazer a manifestação ou baixar os xmls já disponiveis
ACBrNFe1.DistribuicaoDFePorUltNSU(vUF,dtmCadastro.FDQEmpAtivaCNPJ.Value,vNSU);
if ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138 then
begin
PB.Text := 'Baixando Notas Fiscais...';
t := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1;
Pb.Position := 0;
Pb.Max := t;
Panel1.Visible := true;
for i := 0 to t do
begin
if ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].Schema = schresNFe then
begin
Manifestacao(ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resDFe.chDFe,'',1)
end
else
if ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].Schema = schprocNFe then
begin
GravarXML;
end;
Pb.Position := Pb.Position + 1;
vNSU := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].NSU;
end;