[RESOLVIDO] Iniciação em UPCs

Ó, re-escrevi o seu codigo pra vc entender melhor, outra coisa, o persistent run tem que ser pra um programa, não pra uma procedure, já tentei e o programa se perde todo, faz um run nomedaUPC_Evt.p passando o handle como parametro, ou no caso, como sugeri fazer um global shared, só define ela no outro programa e pronto.

Código:

    define new global shared variable wh-qo0310-u01-fi-it-codigo as handle no-undo.
   
    if not valid-handle(wh-qo0310-u01-fi-it-codigo) then do:
        run utils/findWidget('it-codigo', 'fill-in', p-wgh-frame, output wh-qo0310-u01-fi-it-codigo).
        if valid-handle(wh-qo0310-u01-fi-it-codigo) then do:
            on 'leave':u of wh-qo0310-u01-fi-it-codigo persistent run pi-validacao-item in h-qo0310-u01-upc.
        end.
    end.

    if p-ind-event = 'AfterDisplayItem' then do:
        if valid-handle(wh-qo0310-u01-fi-it-codigo) then do:
            find first item no-lock
                 where item.it-codigo = wh-qo0310-u01-fi-it-codigo:screen-value
                       no-error.

            if avail item THEN DO:
                IF ITEM.cd-trib-icm = 4 THEN DO:
                    return 'OK'.
                END.
                IF wh-qo0310-u01-fi-observacao:screen-value = "" then assign wh-qo0310-u01-fi-observacao:screen-value = item.narrativa.
            END.
            run pi-label-text.
            RUN pi-busca-ult-cot.
   
            ASSIGN wh-qo0310-u01-rect-37:HEIGHT = 4. /* 3,75 */
   
        end.
    end.

não entendi a sua pergunta