UPC pd4050b 2014-04-25

/*
autor: jaison antoniazzi
skype: jaison.antoniazzi
email: jaison.antoniazzi@gmail.com
data.: 23/04/2014
obs..: criar campo na frame FPAGE1 ao lado do campo qt-un-fat

*/
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.

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

DEFINE NEW GLOBAL SHARED VARIABLE hcampoupcpd4050b AS HANDLE NO-UNDO.
DEFINE VARIABLE hobjeto AS HANDLE NO-UNDO.
DEFINE VARIABLE hqt-un-fat AS HANDLE NO-UNDO.
DEFINE VARIABLE hobjeto2 AS HANDLE NO-UNDO.

&SCOPED-DEFINE COR_VERMELHO 12
&SCOPED-DEFINE COR_BRANCO 15

IF p-ind-object = 'container' THEN DO:

IF p-ind-event = 'BEFORE-INITIALIZE ' THEN DO:

hobjeto = p-wgh-frame:FIRST-CHILD.
hobjeto = hobjeto:FIRST-CHILD.

DO WHILE VALID-HANDLE(hobjeto):

IF hobjeto:NAME = 'fpage1' THEN DO:

hobjeto2 = hobjeto:FIRST-CHILD.
hobjeto2 = hobjeto2:FIRST-CHILD.

DO WHILE VALID-HANDLE(hobjeto2):

IF hobjeto2:NAME = 'qt-un-fat' THEN
hqt-un-fat = hobjeto2.

hobjeto2 = hobjeto2:NEXT-SIBLING.
END.

END.

hobjeto = hobjeto:NEXT-SIBLING.
END.

IF VALID-HANDLE(hqt-un-fat) THEN DO:
CREATE FILL-IN hcampoupcpd4050b
ASSIGN
FRAME = hqt-un-fat:FRAME
HEIGHT-PIX = hqt-un-fat:HEIGHT-PIX
WIDTH-PIX = 50
BGCOLOR = {&COR_VERMELHO}
FGCOLOR = {&COR_BRANCO}
SCREEN-VALUE= ''
X = hqt-un-fat:X + hqt-un-fat:WIDTH-PIX + 40
Y = hqt-un-fat:Y
SENSITIVE = FALSE
VISIBLE = TRUE.
END.

END.
ELSE
IF p-ind-event = 'AFTER-ENABLE' THEN DO:
IF VALID-HANDLE(hcampoupcpd4050b) THEN
hcampoupcpd4050b:SENSITIVE = TRUE.
END.
ELSE
IF p-ind-event = 'AFTER-DISABLE' THEN DO:
IF VALID-HANDLE(hcampoupcpd4050b) THEN
hcampoupcpd4050b:SENSITIVE = FALSE.
END.
ELSE
IF p-ind-event = 'AFTER-DESTROY-INTERFACE' THEN DO:
IF VALID-HANDLE(hcampoupcpd4050b) THEN
DELETE OBJECT hcampoupcpd4050b.
END.

END.