Bom dia,
Alguém tem alguma documentação dessa função TrataErro(cErro) que existe nos exemplos de ws no TDN ?
Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!
Bom dia,
Alguém tem alguma documentação dessa função TrataErro(cErro) que existe nos exemplos de ws no TDN ?
/*/
Verifica se a sintaxe do campo esta correta
@author TSC679 CHARLES REITZ
@since 21/07/2020
/*/
User Function A086ChekSi(cFilExpr)
Local bBlock := ErrorBlock()
Local lRet := .T.
Private cError := ""
aab()
ErrorBlock( { |e| cError := e:Description } )
BEGIN SEQUENCE
dbSelectArea("SA1")
dbSelectArea("SA3")
dbSelectArea("SF4")
dbSelectArea("SC5")
dbSelectArea("SC6")
dbSelectArea("SB1")
xResult := &cFilExpr
END SEQUENCE
If !Empty(cError)
Alert(cError,"Erro na Fórmula!")
cError := ""
lRet := .F.
EndIf
ErrorBlock(bBlock)
Return lRet