Sugestão De Mudança

[Leandro Miler Santana]

Olá Amigos.

 

Tenho uma certa necessidade de exibir ou não o retorno da mensagem de erro da função Envia, do componente Webservices.

 

Em determinadas situações, preciso deste recurso.

 

//

function TWebServices.Envia(ALote: String): Boolean;

//

 

sugestão de mudança ------------------------------------------------------------------------------------------------------

function TWebServices.Envia(ALote: String, RetornaExcecao : boolean): Boolean;

begin

  FEnviar.FLote := ALote;

 

  if not Enviar.Executar then

    Enviar.GerarException(Enviar.Msg);

 

  FRetorno.Recibo := FEnviar.Recibo;

 

  if not FRetorno.Executar then

  begin

    if RetornaExcecao then

        FRetorno.GerarException(FRetorno.Msg); 

  end;

 

  Result := True;

end;

----------------------------------------------------------------------------------------------------------------------------------

 

O padrão sempre seria True, mas com esta mudança poderiamos escolher false

 

È possivel fazer esta mudança ?

 

Obrigado.

[windsoft]

Não seria mais fácil você fazer algo do tipo:

 

try

  Envia;

except

end;

[Isaque Pinheiro]

Ou crie uma função function "MeuEnvia(ALote: String): Boolean;" nela faça o código sugerido acima, caso haja um except, retorno Result := False;

[Leandro Miler Santana]

 Haa sim, mas eu não gostaria de mudar o fonte do componente Acbr, pois as vezes tem atualização e toda vez temos que fazer a mudança, isto quando a gente acaba esquecendo.

 

Poderia colocar no código assim pra manter a compatibilidade. Caso o usuário nao passar o parametro, o sistema assume coo padrão aparecer.

 

O que voce acha ?

[windsoft]

Mas da forma que eu te sugeri acima, você não precisa alterar o fonte do ACBr e sim o seu fonte.

[Leandro Miler Santana]

Perfeito funcionou meu amigo.

 

Não sabia que dava certo, sou um aprendiz ainda.

 

Muito obrigado por me ajudar.

 

Abraços.

[windsoft]

Que bom. Abraço.