sair programa

Cria um botão OK fake em cima do botão OK, coloca o label dele como "OK*" pra você saber que está clicando corretamente no botão fake, e no evento CHOOSE desse botão
tu faz a validação, se estiver OK, força o evento CHOOSE no botão real o usando o comando APPLY "CHOOSE" ....

Aqui ensina como criar um botão, lembrando que precisa setar NAME pra conseguir achar o objeto via BuscaWidget que mandei neste tópico (clique aqui):
https://docs.progress.com/pt-BR/bundle/abl-reference/page/CREATE-widget-statement.html

Exemplo:

Código:

CREATE BUTTON  btnOK
      ASSIGN FRAME              = hFrame
             WIDTH              = bt_ok:WIDTH
             HEIGHT             = bt_ok:HEIGHT
             Y                  = bt_ok:Y
             X                  = bt_ok:X
             NAME               = "btnOK"
             TOOLTIP            = bt_ok:TOOLTIP
             LABEL              = bt_ok:LABEL + "*"
             NO-FOCUS           = bt_ok:NO-FOCUS
             FLAT-BUTTON        = bt_ok:FLAT-BUTTON
             SENSITIVE          = TRUE
      TRIGGERS:
         //Evento chama esta própria UPC com novo evento de clique no botão
         ON 'CHOOSE':U PERSISTENT RUN pasta\estaMesmaUPC.p(INPUT "CHOOSE",
                                                           INPUT "btnOK",
                                                           INPUT p-wgh-object,
                                                           INPUT p-wgh-frame,
                                                           INPUT p-cod-table,
                                                           INPUT p-row-table).
      END TRIGGERS.