hi,
With next code i want to make entry to the first widget of a frame/
DEF VAR vh AS WIDGET-HANDLE NO-UNDO.
DEF VAR cWidget AS CHAR NO-UNDO.
vh = FRAME {&FRAME-NAME}:HANDLE.
vh = vh:FIRST-CHILD. /* field-group */
vh = vh:FIRST-CHILD. /* first widget in field-group*/
ok-lus:
REPEAT:
IF LOOKUP(vh:TYPE,"{&WIDGET-TYPES}") > 0 THEN DO:
APPLY "ENTRY":U TO vh:NAME IN FRAME {&FRAME-NAME}.
LEAVE ok-lus.
END.
vh=vh:NEXT-SIBLING. /* volgend widget */
IF NOT VALID-HANDLE(vh) THEN LEAVE ok-lus.
END.
So, i walk the widget tree, if valid widget (fill-in, editor ...)
then i want to apply entry to this widget, using the NAME
attribute on the WIDGET-HANDLE;
But an error occurs "Can not understand after ... "
Any clue ?
Thanx.
Emmanuel Nuyttens
C&C NV
Oudenaarde BELGIUM
With next code i want to make entry to the first widget of a frame/
DEF VAR vh AS WIDGET-HANDLE NO-UNDO.
DEF VAR cWidget AS CHAR NO-UNDO.
vh = FRAME {&FRAME-NAME}:HANDLE.
vh = vh:FIRST-CHILD. /* field-group */
vh = vh:FIRST-CHILD. /* first widget in field-group*/
ok-lus:
REPEAT:
IF LOOKUP(vh:TYPE,"{&WIDGET-TYPES}") > 0 THEN DO:
APPLY "ENTRY":U TO vh:NAME IN FRAME {&FRAME-NAME}.
LEAVE ok-lus.
END.
vh=vh:NEXT-SIBLING. /* volgend widget */
IF NOT VALID-HANDLE(vh) THEN LEAVE ok-lus.
END.
So, i walk the widget tree, if valid widget (fill-in, editor ...)
then i want to apply entry to this widget, using the NAME
attribute on the WIDGET-HANDLE;
But an error occurs "Can not understand after ... "
Any clue ?
Thanx.
Emmanuel Nuyttens
C&C NV
Oudenaarde BELGIUM