Download De Xml Da Nfe

[Eloi Filho]

Boa noite a todos,

 

Gostaria se possivel que alguém pudesse ver o código abaixo e me desse alguma ideia do que possa está errado, não consigo fazer o download do XML da NFe, moro em Manaus/AM e não sei se o problema é no código ou nos servidores da Sefaz daqui, desde ja agradeço aquem puder me ajudar.

procedure TfrmCadENTRADA_PRODUTO.pgcntrlcadastroChange(Sender: TObject);
begin
  inherited;
  if pgcntrlcadastro.ActivePage = tbshtDownloadXML then
  begin
    dmENTRADA_PRODUTO.qryParamNFCe.close;
    dmENTRADA_PRODUTO.qryParamNFCe.params[0].asinteger := 1;
    dmENTRADA_PRODUTO.qryParamNFCe.open;

    pgcntrlcadastro.ActivePage := tbshtDownloadXML;
    try
      ACBrNFe2.Configuracoes.Certificados.NumeroSerie := dmENTRADA_PRODUTO.qryParamNFCeSERIE_CERTIFICADO.AsString;
      ACBrNFe2.Configuracoes.WebServices.UF           := dmENTRADA_PRODUTO.qryParamNFCeUF_WEBSERVICE.AsString;  // 'AM';

      case dmENTRADA_PRODUTO.qryParamNFCeID_AMBIENTE.AsInteger of
        1: ACBrNFe2.Configuracoes.WebServices.Ambiente := taProducao;
        2: ACBrNFe2.Configuracoes.WebServices.Ambiente := taHomologacao;
      end;
    finally
    end;
  end;
end;




procedure TfrmCadENTRADA_PRODUTO.btnSalvarXMLClick(Sender: TObject);
var
  aNOMEARQ: string;
  aChave, idLote, aCNPJ: string;
  lMsg: string;
begin
  inherited;
  try
    dmENTRADA_PRODUTO.qryEmpresa.close;
    dmENTRADA_PRODUTO.qryEmpresa.open;

    aChave := dbedtCHAVENFe.Text;
    aChave := Trim(OnlyNumber(aChave));
    idLote := '1';
    aCNPJ  := dmENTRADA_PRODUTO.qryEmpresaCNPJ.AsString;

    ACBrNFe2.Configuracoes.Geral.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\vm40';

    ACBrNFe2.EventoNFe.Evento.Clear;
    with ACBrNFe2.EventoNFe.Evento.Add do
    begin
      InfEvento.cOrgao   := StrToInt(Copy(aChave,1,2));
      infEvento.chNFe    := aChave;
      infEvento.CNPJ     := aCNPJ;
      infEvento.dhEvento := now;
      infEvento.tpEvento := teManifDestConfirmacao;
    end;

    if ACBrNFe2.EnviarEventoNFe(StrToInt(idLote)) then
    begin
      if ACBrNFe2.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 657 then
      begin
//        ACBrNFe2.EventoNFe.Evento.Items[0].InfEvento.cOrgao := ACBrNFe2.WebServices.EnvEvento.EventoRetorno.cOrgao;
        with AcbrNFe2.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do
        begin
          lMsg:=
          'Id: '+Id+#13+
          'tpAmb: '+TpAmbToStr(tpAmb)+#13+
          'verAplic: '+verAplic+#13+
          'cOrgao: '+IntToStr(cOrgao)+#13+
          'cStat: '+IntToStr(cStat)+#13+
          'xMotivo: '+xMotivo+#13+
          'chNFe: '+chNFe+#13+
          'tpEvento: '+TpEventoToStr(tpEvento)+#13+
          'xEvento: '+xEvento+#13+
          'nSeqEvento: '+IntToStr(nSeqEvento)+#13+
          'CNPJDest: '+CNPJDest+#13+
          'emailDest: '+emailDest+#13+
          'dhRegEvento: '+DateTimeToStr(dhRegEvento)+#13+
          'nProt: '+nProt;
        end;
      end;
    end;
    MemoResp.Lines.Text := lMsg+#13#13;
//    ShowMessage(lMsg);

    MemoResp.Lines.Text := MemoResp.Lines.Text + UTF8Encode(ACBrNFe2.WebServices.EnvEvento.RetWS);
    memoRespWS.Lines.Text := UTF8Encode(ACBrNFe2.WebServices.EnvEvento.RetornoWS);
    LoadXML(MemoResp, WBResposta);

    ACBrNFe2.Configuracoes.Certificados.Senha       := dbedtSENHA.Text;
    ACBrNFe2.Configuracoes.Geral.FormaEmissao       := teNormal;
    ACBrNFe2.Configuracoes.Geral.PathSalvar         := ExtractFilePath(Application.ExeName);
    ACBrNFe2.Configuracoes.Geral.PathSchemas        := 'C:\LSI Sistemas\CLICK\Esquemas\vm40';  //'local onde está os Schemas';  //'C:\acbr\Exemplos\ACBrNFe2\Delphi\Schemas';
    ACBrNFe2.Configuracoes.Geral.Salvar             := true;

    MemoResp.Clear;
    MemoRespWS.Clear;
    with ACBrNFe2.DownloadNFe do
    begin
      Download.CNPJ := dmENTRADA_PRODUTO.qryEmpresaCNPJ.AsString;  // ACBrNFe2.Configuracoes.Certificados. '84.522.994/0001-04';  //Edit2.Text;
      with Download.Chaves.Add do
      begin
        chNFe := dbedtCHAVENFe.Text;
      end;
    end;
    try
      aNOMEARQ := ACBrNFe2.Configuracoes.Arquivos.PathNFe+'C:\LSI Sistemas\ClickLite\DownNFe\'+dbedtCHAVENFe.Text+'-down-nfe.xml';

      ACBrNFe2.Download;

      ACBrNFe2.Configuracoes.Geral.Save(aNOMEARQ,ACBrNFe2.WebServices.DownloadNFe.retDownloadNFe.XML);

      MemoResp.Lines.Text := ACBrNFe2.WebServices.DownloadNFe.RetornoWS;
      MemoRespWS.Lines.Text := ACBrNFe2.WebServices.DownloadNFe.RetWS;
    except
      on e:Exception do MemoResp.Lines.Text := e.Message;
    end;
  finally
    begin
      ShowMessage('Processo Concluído com sucesso !!!');
      pgcntrlcadastro.ActivePage := tbshtDados;
      dmENTRADA_PRODUTO.qryParamNFCe.close;
      dmENTRADA_PRODUTO.qryEmpresa.close;
    end;
  end;
end;

os arquivos q ele me retorna são:

 

 

 

 

 

Obrigado

 

abraçs!!!

20130815202405-ped-down-nfe.xml

20130815202406-down-nfe.xml

35130873076408000110550010000435821000435827-down-nfe.xml