Duvidas em criação de UPC

Bom dia a todos,

Tenho uma UPC que fiz em meu ambiente que cria um botão para abrir uma determinada tela. Esta funcionando perfeitamente.

Gostaria de saber como faço pra chamar uma procedure ao clicar no botão pela UPC. Dentro do programa coloque a procedure desta maneira abaixo :


procedure RodarOriginal:
Message ('Error').
end procedure.

e abaixo coloquei a seguinte instrução ?

TRIGGERS:
ON 'MOUSE-SELECT-CLICK' PERSISTENT RUN RodarOriginal.
END TRIGGERS.

Só que da uma mensagem de erro.. dizendo que não achou RodarOriginal. Tambem gostaria de saber como executo um botão direto da triggers, como consigo executar desta maneira :

APPLY 'CHOOSE':U TO wh-botao-altera.

dentro da triggers , como faço ??

TRIGGERS:
ON 'MOUSE-SELECT-CLICK' PERSISTENT RUN ????????.
END TRIGGERS.

Obrigado.

Desculpa,

Não entendi Rafael.. ficaria assim dentro da Triggers


TRIGGERS:
ON 'MOUSE-SELECT-CLICK' OF wh-botao-original DO:
RUN RodarOriginal.
END.
END TRIGGERS.
?????

/* Criando BotÆo */

Create button bt-original
Assign Row = wh-botao-original:ROW
Column = wh-botao-original:COLUMN
Height = wh-botao-original:HEIGHT
Width = wh-botao-original:WIDTH
Label = "Erro"
Frame = wh-botao-original:Frame
/* ToolTip = "Ler Arquivo Gerado" */
Visible = Yes
Sensitive = Yes

TRIGGERS:
ON 'MOUSE-SELECT-CLICK' OF wh-botao-original DO:
Run RodarOriginal.
end.
END TRIGGERS.


10:44:29 Looking for \\recdatasul\ERP1216\Especificos\ems206b\upc\upc-PL0502.p
Compiling \\recdatasul\ERP1216\Especificos\ems206b\upc\upc-PL0502.p
** Nao entendi apos: "MOUSE-SELECT-CLICK". (247)
** Comando invalido. (254)
** \\recdatasul\ERP1216\Especificos\ems206b\upc\upc-PL0502.p Nao entendi a linha 154. (196)

Compilation Finished.