| 12345678910111213141516171819202122232425 |
-
- DEF VAR wx AS INT NO-UNDO.
- DEF VAR wy AS INT NO-UNDO.
- FMutFlag = DYNAMIC-FUNCTION('getMutflag':U, Progname) NO-ERROR.
- IF FMutFlag THEN RETURN NO-APPLY.
- AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR.
- IF AktSeite > 1 THEN DO:
- RUN selectPage ( INPUT 1 ).
- RETURN NO-APPLY.
- END.
- IF sAktiv THEN RUN ENDE_PROGRAMM ( INPUT Progname ) NO-ERROR.
- wx = {&WINDOW-NAME}:X NO-ERROR.
- wy = {&WINDOW-NAME}:Y NO-ERROR.
- DYNAMIC-FUNCTION('setFensterposition':U, INPUT 'Fensterposition',
- INPUT Progname,
- INPUT wx,
- INPUT wy) NO-ERROR.
- APPLY "CLOSE":U TO THIS-PROCEDURE.
|
