Ir para conteúdo
  • Cadastre-se

dev botao

consultar xml mdfe


Ver Solução Respondido por Élviro Cavalcanti,
  • Este tópico foi criado há 195 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado (editado)

Boa noite!

Site, serviço não estam funcionando.

Precisava usar ambiente de homologação e o validador de XML MDFe... Ambos fora de operação.

Estou tentando em produção agora à noite, está retornando HTTP Error 503 - Service Unavailable, tanto para emissão síncrona quanto assíncrona!

Acho q vou tentar amanhã!

Editado por tiago.rizzon
  • Solution
Postado

Bom dia, você pode usar consultando o arquivo xml que foi montado pra o envio, eu uso dessa forma e ele baixa o xml completo, acredito que esse código abaixo poderá ajudar você.

 

Var VPasta:string;
begin
  ACBrMDFe1.Manifestos.Clear;

  //Configura onde vai ser salvo o PDF
  VPasta := Copy(EdDataDia.Text, 7,4) + Copy(EdDataDia.Text, 4,2);
  ACBrMDFeDAMDFeRL1.PathPDF := FrmLogin.EdPathPDFMDFe.Text + '\' + VPasta;
  //Configura onde vai ser salvo o PDF

  ACBrMDFe1.DAMDFE.MargemDireita  := 7;
  ACBrMDFe1.DAMDFE.MargemEsquerda := 7;
  ACBrMDFe1.DAMDFE.MargemSuperior := 5;
  ACBrMDFe1.DAMDFE.MargemInferior := 5;

  ACBrMDFe1.Manifestos.Clear;
  ACBrMDFe1.Manifestos.LoadFromFile(ExtractFilePath(Application.ExeName) + '\Log\' + DM.IBManifestoNUMERO.AsString + '-env-lot.xml');
  ACBrMDFe1.Consultar;

  MemoResp.Lines.Text := ACBrMDFe1.WebServices.Consulta.RetWS;
  memoRespWS.Lines.Text := ACBrMDFe1.WebServices.Consulta.RetornoWS;


  ACBrMDFe1.Configuracoes.Geral.Salvar := True;
  ACBrMDFe1.Configuracoes.Arquivos.Salvar := True;

  DM.IBManifesto.Edit;
  DM.IBManifestoPROTOCOLOMDFE.AsString := ACBrMDFe1.WebServices.Consulta.Protocolo;
  DM.IBManifestoRECIBONDFE.AsString := ACBrMDFe1.WebServices.Consulta.Protocolo;
  DM.IBManifestoCHAVEMDFE.AsString := ACBrMDFe1.WebServices.Consulta.MDFeChave;
  DM.IBManifestoSITUACAO.AsString := 'ENVIADO';
  DM.IBManifesto.Post;

  DM.IBTransaction1.CommitRetaining;

  ACBrMDFe1.DAMDFE.PathPDF := FrmLogin.EdPathPDFMDFe.Text + '\' + VPasta;
  ACBrMDFe1.DAMDFE.ImprimirDAMDFePDF();
  ACBrMDFe1.Manifestos.Imprimir;
 

  • Curtir 1
  • Este tópico foi criado há 195 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.