Resolvendo Inconsistências no Engine Code

Para solucionar problemas referente a erros de execução dos Engine Codes, a tratativa deve ser executada conforme é mostra o exemplo abaixo:

private sub Main        dim erroNumber        ' abre transação        conn.BeginTrans        msgbox "BeginTrans"        On Error resume Next        ' executa método        ' deve conter toda a instrução do processamento        Executar        ' guarda número do erro        erroNumber = Err.Number        If erroNumber <> 0 Then            ' trata o erro            conn.RollbackTrans            msgbox "RollbackTrans"            prm.ExecutionResult = prm.Constants.EXECUTION_RESULT_FALSE            ' força o erro ser apresentado na tela do sistema            On Error GoTo 0            Err.Raise erroNumber            exit sub        else            ' finaliza o processo            conn.CommitTrans            msgbox "CommitTrans"            prm.ExecutionResult = prm.Constants.EXECUTION_RESULT_TRUE            exit sub        End If    end sub    private sub Executar            dim resultado, valor, div            valor = 100            div   = 0            ' trava tabela            conn.Execute("update ddempresa set cdempresa = cdempresa")            msgbox "Execute"            ' forçando erro            resultado = valor / div    end sub

Este documento foi útil para você?