Bom Dia Pessoal. Estou criando uma upc para o programa cd0606, e estou precisando aumentar o tamanho da janela e da frame para posicionar os novos campos. Tem como fazer isso?
Meu caro, essa é mais complicada, te aconselho a criar uma ABA nova no objeto folder e colar uma smart viewer com seus campos lá.
Tente isto: /* --------------------------------------------------------- * Nome: upc/cd0606-upc.p * * * --------------------------------------------------------- */ 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. IF p-ind-event = "BEFORE-INITIALIZE" AND p-ind-object = "CONTAINER" THEN DO: /* JCS */ RUN pi-ExpandirTela. /* JCS */ END. PROCEDURE pi-ExpandirTela : DEF VAR hWindow AS HANDLE NO-UNDO. ASSIGN hWindow = p-wgh-frameARENT. IF NOT VALID-HANDLE(hWindow) THEN ASSIGN hWindow = CURRENT-WINDOW. ASSIGN hWindow:HEIGHT = hWindow:HEIGHT + 8 p-wgh-frame:HEIGHT = p-wgh-frame:HEIGHT + 8. END PROCEDURE.