[RESOLVIDO] UPC

Galera coloquei essa upc no programa CD0301D1, na criação de Ordem de Produção, isso para que na hora que incluir uma ordem já colocar um numero de lote para o produto, mas em todos eventos do v05in271.w que eu tento colocar esse codigo o campo do lote aparece zerado... alguem sabe o que estou fazendo de errado, ou se estou esquecendo de alguma coisa????????

Código:

def input param p-ind-event        as char          no-undo.
def input param p-ind-object       as char          no-undo.
def input param p-wgh-object       as handle        no-undo.
def input param p-wgh-frame        as widget-handle no-undo.
def input param p-cod-table        as char          no-undo.
def input param p-row-table        as rowid         no-undo.
def var c-objeto as char no-undo.

DEF VAR p-lote       as widget-handle        no-undo.

assign c-objeto = entry(num-entries(p-wgh-object:private-data, "~/"), p-wgh-object:private-data, "~/").

 IF p-ind-event = 'add' AND c-objeto = 'v05in271.w' THEN
 DO:
         RUN pi-busca-widget(input 'fi-lote-serie',
                        input  p-wgh-frame,
                        output p-lote).

         IF VALID-HANDLE(p-lote) THEN
         DO:
                assign p-lote:screen-value = string(random(1,9999),"9999").
         END.

 END.



procedure pi-busca-widget:

    def input  param p-nome     as char.
    def input  param p-frame    as widget-handle.
    def output param p-object   as widget-handle.
    
    def var h-frame             as widget-handle.
    def var wh-objeto           as widget-handle.
    
    assign h-frame = p-frame:first-child.

    do while valid-handle(h-frame):
        
        if h-frame:type <> 'field-group' then do:
            
            if h-frame:type = 'frame' then do:
                
                run pi-busca-widget(input  p-nome,
                                    input  h-frame,
                                    output wh-objeto).

                if wh-objeto <> ? then do:
                    
                    assign p-object = wh-objeto.
                    leave.

                end.

            end.

            if h-frame:name = p-nome then do:

                assign p-object = h-frame.

                leave.

            end.

            assign h-frame = h-frame:next-sibling.

        end.
        else
            assign h-frame = h-frame:first-child.

    end.

end procedure.

Alguem pode me ajudar com isso!!!!