Tratativa de funções sem gerar Error Log (similar ao Try Catch)
Exemplo da Rotina:
1 2 3 | Begin Sequence//ComandosEnd Sequence |
Exemplo 1- Executando uma soma e vendo se irá mostrar erro:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | cError := ""bError := ErrorBlock({ |oError| cError := oError:Description})//Inicio a utilização da tentativaBegin Sequence nVariavel := 1 + "A"End Sequence//Restaurando bloco de erro do sistemaErrorBlock(bError)//Se houve erro, será mostrado ao usuárioIf ! 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