function TNFSeGerarLoteRPS.Executar: Boolean; begin SalvarEnvio; end;

[Antonio Gomes]

Ao tentar assinar um lote de RPS, o erro de exceção está sendo levantada..

Quando a função GerarLote é chamada:

 

function TWebServices.GeraLote(ALote: String): Boolean;
begin
  FGerarLoteRPS.FNumeroLote := ALote;

  Result := GerarLoteRPS.Executar;

  if not (Result) then
    GerarLoteRPS.GerarException( GerarLoteRPS.Msg );
end;
 

Ela espera um result, que na função GerarLoteRPS.Executar não existe, pois a função está desse formato no trunk2 revisão 12298.

Como está:

function TNFSeGerarLoteRPS.Executar: Boolean;
begin
  SalvarEnvio;
end;

Como penso que deveria estar:

function TNFSeGerarLoteRPS.Executar: Boolean;
begin
  SalvarEnvio;

  Result:= True;
end;

 

Agora vem uma coisa que alguns vão ser incrédulos, o motivo de o rad studio não ter avisado que a function estava sem retorno. Algumas versões isso é mostrado, como warning

Se algum mantenedor puder corrigir isso, adicionado o Result:= True no fonte...

[Italo Giurizzato Junior]

Boa noite,

Muito obrigado pela colaboração, já esta no repositório.