consultar xml mdfe

[manoel santos]

https://dfe-portal.svrs.rs.gov.br/Mdfe

Não esta disponível , alguem esta conseguindo acessar ? 

[tiago.rizzon]

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 11 Maio, 2024 por tiago.rizzon

[Élviro Cavalcanti]

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;
 

[juliomar.marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.