[RESOLVIDO] Criação de UPC / CC0300b

caro, valdir fantin, segue:


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

/************************* Definição das Variaveis Globais ********************/

DEFINE NEW GLOBAL SHARED VARIABLE wh-objeto AS WIDGET-HANDLE NO-UNDO.
DEFINE NEW GLOBAL SHARED VARIABLE wh-gera-item-fornec AS WIDGET-HANDLE NO-UNDO.


/*Definição de variaveis locais*/
DEFINE VARIABLE c-objeto AS CHARACTER NO-UNDO.
DEFINE VARIABLE h-objeto AS HANDLE NO-UNDO.
DEFINE VARIABLE h-frame4 AS HANDLE NO-UNDO.
DEFINE VARIABLE c-programa AS CHAR NO-UNDO.
DEFINE VARIABLE c-canal AS CHAR NO-UNDO.


DEF VAR num-pedido AS CHAR.



ASSIGN c-objeto = ENTRY(NUM-ENTRIES(p-wgh-objectRIVATE-DATA, "~/"),
p-wgh-objectRIVATE-DATA, "~/").

IF p-ind-event = "after-INITIALIZE"
THEN DO:

ASSIGN wh-objeto = p-wgh-frame:first-child.

DO WHILE VALID-HANDLE(wh-objeto):

IF wh-objeto:TYPE <> "field-group" THEN DO:


IF wh-objeto:NAME = "fpage1" THEN DO:

ASSIGN h-frame4 = wh-objeto:FIRST-CHILD.

DO WHILE h-frame4 <> ?:
IF h-frame4:TYPE <> "field-group" THEN DO:



IF h-frame4:NAME = "l-gera-item-fornec" THEN DO:

ASSIGN wh-gera-item-fornec = h-frame4:HANDLE.
wh-gera-item-fornec:CHECKED = YES.


END.

ASSIGN h-frame4 = h-frame4:NEXT-SIBLING.
END.
ELSE
ASSIGN h-frame4 = h-frame4:FIRST-CHILD.
END.
END.

ASSIGN wh-objeto = wh-objeto:NEXT-SIBLING.

END.
ELSE DO:

ASSIGN wh-objeto = wh-objeto:FIRST-CHILD.
END.
END.

END.

Espero ter ajudado

Obrigado, Fernando funcionou aproveitei coloquei tambem wh-gera-item-fornec:SENSITIVE = NO. , para que o Usuário não tenha o acesso

Valeu

Apenas gostaria de agradecer pelo trabalho!! Me ajudou muito!!