Pesquisar na Comunidade
Showing results for tags 'function tnfsegerarloterps.executar: boolean; begin salvarenvio; end;'.
Encontrado 1 registro
-
function TNFSeGerarLoteRPS.Executar: Boolean; begin SalvarEnvio; end;
um tópico no fórum postou Antonio Gomes ACBrNFSe
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...