[RESOLVIDO] ICMS da despesa do documento - RE1001D

Estou fazendo a UPC em questão acima, porém não consegui jogar valor no campo que preciso no momento do leave do campo que faço a checagem, somente nos eventos ( p-ind-event ). Peguei as handles dos campos, consigo jogar o valor no campo que tenho que jogar, porém somente nos eventos, no leave não consegui. Pesquisei aqui no forum e estou tentando dar on leave, porém não passa por lá.
De uma olhada na UPC, deixei somente a parte que estou testando a passagem pelo leave e não passa :

/* --------------------------------
variaveis para o controle da upc
-------------------------------- */
define input parameter p-ind-event as character no-undo.
define input parameter p-ind-object as character no-undo.
define input parameter p-wgh-object as handle no-undo.
define input parameter p-wgh-frame as widget-handle no-undo.
define input parameter p-cod-table as character no-undo.
define input parameter p-row-table as rowid no-undo.

define variable h-nat-oper-ac as handle no-undo.
define variable h-de-aliquota-icm as handle no-undo.

IF p-ind-event = "before-display" AND p-ind-object = "CONTAINER" Then Do:

RUN zep\busca-handle.p(input 'nat-oper-ac', 'fill-in', p-wgh-frame, output h-nat-oper-ac).

RUN zep\busca-handle.p(input 'de-aliquota-icm', 'fill-in', p-wgh-frame, output h-de-aliquota-icm).

if valid-handle(h-nat-oper-ac) then do:
ON 'leave':U OF h-nat-oper-ac
DO:
MESSAGE "passei" VIEW-AS ALERT-BOX. /* aqui é onde vou fazer o find e as tratativas que tenho que fazer para jogar valor no campo que preciso alterar */
RETURN.
END.

END.

END.

Boa tarde Richard, vc poderia me ajudar na utilização da chamda do programa re1001e, pois estou fazendo um especifico para importação de XML e estou precizando chamar esse programa para informar a nota de devolução.