Do transaction (erro)

Bom dia Maciel,

Eu partiria do principio que se foi tudo executado e minha transação foi desenvolvida corrente, foi executado, talvez um código assim, mas sempre garantir que em caso de erro será executado um LEAVE ou RETURN, para sair do bloco:

Código:

DEFINE VARIABLE lerro AS LOGICAL    NO-UNDO.

ASSIGN lerro = YES.
Bloco_Transacao: DO TRANSACTION
          ON ERROR  UNDO Bloco_Transacao, LEAVE Bloco_Transacao
          ON QUIT  UNDO Bloco_Transacao, LEAVE Bloco_Transacao
          ON ENDKEY UNDO Bloco_Transacao, LEAVE Bloco_Transacao
          ON STOP  UNDO Bloco_Transacao, LEAVE Bloco_Transacao:
    /* Aqui vc coloca a regra do erro */
    IF a > b THEN
        UNDO Bloco_Transacao, LEAVE Bloco_Transacao.
    /*Continua o código*/

    IF X = Y THEN
        UNDO Bloco_Transacao, LEAVE Bloco_Transacao.


    /*Final de tudo */
    ASSIGN lerro = NO.
END. /* Bloco_Transacao */


/* Executou tudo corretamente */
IF NOT lerro THEN
    MESSAGE "Transação OK"
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
/* Apresentou algum erro */
ELSE
    MESSAGE ERROR-STATUS:GET-MESSAGE(1)
        VIEW-AS ALERT-BOX INFO BUTTONS OK.

Também já fiz códigos bem mais complexos, mas não no sentido de garantir a transação, e sim detectar possíveis erros que não foram bem tratados em outras instâncias, como triggers.

Espero que seja um início para seu entendimento, e espero ter ajudado.

Abs.