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

[Mc Sistemas]

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;

 

 

 

IPM.Provider.pas

Editado 18 Maio, 2023 por Mc Sistemas
especificar o local exato modificado

[Alexandre de Paula]

Obrigado pela contribuição. Foi aberta a TK-3958 para avaliação.

[Italo Giurizzato Junior]

Boa tarde,

Já esta no SVN.