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.