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