Notas que não efetuam Confirmação e nem Download

[Arnaldo Cruz]

Estive observando o comportamento do componente NF-e.

Executo a consulta

FDataModule.ACBrNFe1.DistribuicaoDFe( StrToInt(vsEdtIBGEUF),CnpjEmpresa,edtNSU.Text,'');

 

Retorna 10 notas a maior data de 3 dias anterior a data atual todas dentro de 15 dias.

Quando executo a manifestação

while not cdsManifesto.Eof do
begin
    FDataModule.ACBrNFe1.EventoNFe.Evento.Clear;
    with FDataModule.ACBrNFe1.EventoNFe.Evento.Add do
    begin
        infEvento.cOrgao   := 91;
        infEvento.chNFe    := edtChave.Text;
        infEvento.CNPJ     := CnpjEmpresa ;
        infEvento.dhEvento := Date;
        infEvento.tpEvento := teManifDestConfirmacao;
    end;
    FDataModule.ACBrNFe1.EnviarEvento(1);
    with FDataModule.AcbrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do
    begin
      lMsg:= IntToStr(cStat);
    end;
    if (lMsg ='135') or (lMsg ='136') or (lMsg ='573') then
    begin
        Manisfestada;
    end;
end;

Algumas notas não manifestam nem a pau

No Download das manifestadas

while not cdsManifesto.Eof  do
begin
    if cdsManifestoSITUACAO.AsString = 'Confirmada' then
    begin
        with FDataModule.ACBrNFe1.DownloadNFe.Download.Chaves.Add do
        begin
          chNFe := cdsManifestoCHAVE.AsString ;
        end;
        try
         FDataModule.ACBrNFe1.DownloadNFe.Download.CNPJ := CnpjEmpresa;
         MesNome :=  FormatDateTime('MMMM', cdsManifestoEMISSAO.AsDateTime);
         AnoAr   := FormatDateTime('yyyy', cdsManifestoEMISSAO.AsDateTime) ;
         Caminho :=  gsAppPath + 'XMLRecebido\' + MesNome + AnoAr ;
         if not DirectoryExists(Caminho)  then
         begin
            ForceDirectories(Caminho);
         end;
         Caminho := Caminho + '\' ;
         FDataModule.ACBrNFe1.Configuracoes.Arquivos.PathSalvar := Caminho;
         FDataModule.ACBrNFe1.Configuracoes.Arquivos.DownloadNFe.PathDownload := Caminho;
         FDataModule.ACBrNFe1.Download;
         stat := FDataModule.ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.cStat;
         if (stat = 139 ) or (stat = 140 ) then
         begin
            Efetuou download
         end;
        end;
end;
 
 Algumas notas não faz o download nem a pau
 
 Alguem já passou por isso
 
 Obrigado