Implementação do método de Consulta NFSe por RPS (ConsultarNFSePorRps) - Provedor IPM

Mc Sistemas · 18 Maio, 2023

Modificado na unit IPM.Provider dentro de TACBrNFSeXWebserviceIPM204 em Fontes\ACBrDFe\ACBrNFSeX\Provedores as linhas 131 e 132

//    Não foi implementado no ambiente de homologação
//    function ConsultarNFSePorRps(ACabecalho, AMSG: String): string; override;

para

//    Implementado e testado em produção usando como referencia a cidade de Camaquã-RS (4303509)
    function ConsultarNFSePorRps(ACabecalho, AMSG: String): string; override;

e implementado nas linhas 1477 a 1493

function TACBrNFSeXWebserviceIPM204.ConsultarNFSePorRps(ACabecalho,
  AMSG: String): string;
var
  Request: string;
begin
  FPMsgOrig := AMSG;

  AMSG := SeparaDados(AMSG, 'ConsultarNfseRpsEnvio');

  Request := '<net:ConsultarNfseRpsEnvio>';
  Request := Request + AMSG;
  Request := Request + '</net:ConsultarNfseRpsEnvio>';

  Result := Executar('net.atende#ConsultarNfseRpsEnvio', Request,
              ['return', 'ConsultarNFSePorRpsResposta'], ['xmlns:net="net.atende"']);

end;