Tratativa de funções sem gerar Error Log (similar ao Try Catch)

Exemplo da Rotina:

Begin Sequence
//Comandos
End Sequence

Exemplo 1- Executando uma soma e vendo se irá mostrar erro:

cError   := ""
bError   := ErrorBlock({ |oError| cError := oError:Description})

//Inicio a utilização da tentativa
Begin Sequence
	nVariavel := 1 + "A"
End Sequence

//Restaurando bloco de erro do sistema
ErrorBlock(bError)

//Se houve erro, será mostrado ao usuário
If ! Empty(cError)
	MsgStop("Houve um erro na fórmula digitada: "+CRLF+CRLF+cError, "Atenção")
EndIf

 

Exemplo em Vídeo:

Clique nesse link para ver um exemplo em Vídeo da nossa Maratona de Exemplos.

 

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;

– Se tiver sugestões de rotinas, pode entrar em contato;

Referências:

– TDN

– BlackTDN