UPC - Basica

Código:

/********************************************************************************* 
** Programa...: upc_basica.p
** Author.....: Desconhecido
** Descricao..: Mostrar os pontos de chamada de uma UPC.
** Data.......: 22/02/2002 
** 
** Conheça www.4each.com.br 
** 
*********************************************************************************/
define input parameter p-ind-event as character no-undo. /* Evendo do programa Datasul */ 
define input parameter p-ind-object as character no-undo. /* Objeto */ 
define input parameter p-wgh-object as handle no-undo. /* Widget do Objeto */ 
define input parameter p-wgh-frame as widget-handle no-undo. /* Frame do Objeto */ 
define input parameter p-cod-table as character no-undo. /* Nome da Tabela */ 
define input parameter p-row-table as rowid no-undo. /* Rowid da Tabela */ 

def new global shared var wh-objeto as widget-handle no-undo. 
def new global shared var wh-objeto-desejado as widget-handle no-undo. 

Message 
    "Evento............: " p-ind-event Skip 
    "Objeto............: " p-ind-object Skip 
    "Handel do Obejto..: " p-wgh-object Skip 
    "Frame.............: " p-wgh-frame Skip 
    "Nome da tabela....: " p-cod-table Skip 
    "Rowid da tabela...: " p-row-table 
View-as Alert-box. 

/************************************************************************ 
** Rotina para mapear os campos da tela do programa datasul 
** Descri‡Æo: 
** Neta rotina vocˆ pode ler as propriedades de qualquer 
** objeto do programa datasul, basta saber o nome dele 
** *-* Para saber o nome do objeto, entre no programa da 
** datasul desejado, entre em modificar ou incluir o novo registro 
** caso seja um programa de cadastro, coloque o foco no objeto desejado 
** e pressione CRTL + ALT + H, vai aparecer o nome do campo. 
************************************************************************ 
** Caso nÆo seja um programa de cadastro, insira o seguinte c¢digo no 
** while abaixo. 

message wh-objeto:NAME view-as alert-box. 

************************/ 

assign wh-objeto = p-wgh-frame:FIRST-CHILD. 
do while valid-handle(wh-objeto): 

    IF wh-objeto:NAME = "it-codigo" THEN do: 
        assign wh-it-codigo = wh-objeto. 
        ON 'leave':U OF wh-fi-lote-serie-acabado 
        Persistent run esupc/Trigger_leave.p. 
    
    end. 
    
    if wh-objeto:TYPE = 'field-group' then do: 
        assign wh-objeto = wh-objeto:FIRST-CHILD. 
    end. 
    else do: 
        assign wh-objeto = wh-objeto:NEXT-SIBLING. 
    end. 
end.