erro ao baixar xml

[reij]

Bom dia a todos alguem poderia me dizer o que posso estar fazendo errado nesta sintaxe pois o sistema diz que o download foi feito equando vou procurar ele não fez download nenhum

 

procedure TF_Importador.SpeedButton2Click(Sender: TObject);
var
i: Integer;
 begin //inicio
 dm.ACBrNFe1.NotasFiscais.Clear;
 configuracoes;
 dm.XmlNfe.DisableControls;
 Try   //inicio do try
  begin
   dm.ACBrNFe1.DownloadNFe.Download.CNPJ := Dm.empresa2CNPJ.AsString;
   dm.XmlNfe.First;
   while not dm.XmlNfe.Eof do
    begin//begin while
      if dm.XmlNfeFLAG.AsString = 'M' then
        begin
        dm.ACBrNFe1.DownloadNFe.Download.Chaves.Add.chNFe := dm.xmlnfe.FieldByName('chave').AsString;
        Dm.XmlNfe.Edit;
        DM.XmlNfeIMPORTADA.AsString := 'S';
        dm.XmlNfeFLAG.AsString := 'S';
        dm.XmlNfeCAMINHO_XML.AsString := Trim(DM.empresa2CAMINHOXML.AsString);
        DM.XmlNfe.Post;
       end;
        dm.XmlNfe.Next;
    end;
    dm.ACBrNFe1.Download;
   // dm.ACBrNFe1.WebServices.DownloadNFe.Executar;
    DM.XmlNfe.ApplyUpdates(0);
    showmessage('Download concluido com sucesso em ' + DM.empresa2CAMINHOXML.AsString +'\'+dm.ACBrNFe1.DownloadNFe.Download.Chaves.Add.chNFe);
  end;
  except
  on e: exception do
  begin
    showmessage('Erro ao baixar nfe(s) '+#13+e.Message);
  end;
   end;  //end while
     xmlempresa;
     dm.XmlNfe.EnableControls;
 end; //fim

 

desde ja grato pela ajuda
 

[JoaoPauloRicardo]

provavelmente (finalmente) o webservice relacionado com a funcionalidade DownloadNfe foi descontinuado pelo SEFAZ, uma vez que já faz um tempo que este foi substituído pela Manifestação de Distribuição.

independentemente do motivo e para de futuro não ter esse problema deverias passar a usar a Manifestação

[reij]

por favor seja mais explicito o que é manifestação de distribuição conheço manifestação de destinatário!

[JoaoPauloRicardo]

tens razao pah...erro meu..... confundo sempre os nomes

[reij]

essa rotina é usada num manifestador