ConsultaLoteRps | ISSJoinville

[vand3rson]

Boa tarde, estou usando o método "ConsultaLoteRps" mas ele não está retornando a mensagem de falha.

Fiz algumas modificações para conseguir obter a mensagem, mas acredito não ser a melhor abordagem. Vou passar o que alterei para se possível apontarem uma melhor solução, obrigado.

Arquivo [ ISSJoinville.ini ]

[GrupoMsgRet]
Recepcionar=
ConsSit=
ConsLote=MensagemRetornoLote
ConsNFSeRPS=
ConsNFSe=
Cancelar=
Substituir=

 

Fonte: ACBrNFSeWebServices

 

function TWebServices.ConsultaLoteRps(ANumLote, AProtocolo: String): Boolean;
begin
  FConsLote.FNumeroLote := ANumLote;
  FConsLote.FProtocolo  := AProtocolo;

  Result := FConsLote.Executar;

  if not (Result) then
    if TACBrNFSe(FACBrNFSe).Configuracoes.Geral.Provedor = proISSJoinville then
      FConsLote.GerarException( FConsLote.RetWS )    
    else
      FConsLote.GerarException( FConsLote.Msg );
end;

FConsLote.Msg retorna sempre uma string vazia, por isso alterei para RetWS.

Em anexo XML que retorna a falha.

 

00000000062019329461100821995000151-sit.xml

[Italo Giurizzato Junior]

Bom dia Vanderson,

Fiz uma alteração em outra unit que acredito que vai resolver o problema se alterar o arquivo INI e a unit que você alterou.

Ainda hoje estarei enviando para o repositório.

[vand3rson]

@Italo Jurisato Junior Boa tarde, baixei os fontes e funcionou. 
 

Muito obrigado.

[Juliana Tamizou]

Obrigado por reportar.

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