GeMIS_WEB/GUI/super/funktionen.i

&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12
&ANALYZE-RESUME
{adecomm/appserv.i}
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include 
/*------------------------------------------------------------------------
    File        : 
    Purpose     :

    Syntax      :

    Description :

    Author(s)   :
    Created     :
    Notes       :
  ----------------------------------------------------------------------*/
/*          This .W file was created with the Progress AppBuilder.      */
/*----------------------------------------------------------------------*/

/* ***************************  Definitions  ************************** */

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

/* ********************  Preprocessor Definitions  ******************** */



/* _UIB-PREPROCESSOR-BLOCK-END */
&ANALYZE-RESUME



/* *********************** Procedure Settings ************************ */

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: Include
   Allow: 
   Frames: 0
   Add Fields to: Neither
   Other Settings: INCLUDE-ONLY APPSERVER
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

/* *************************  Create Window  ************************** */

&ANALYZE-SUSPEND _CREATE-WINDOW
/* DESIGN Window definition (used by the UIB) 
  CREATE WINDOW Include ASSIGN
         HEIGHT             = 15
         WIDTH              = 60.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

 


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 


/* ***************************  Main Block  *************************** */

/*  ----------------------------------------------------------------------
    Programm starten
    ----------------------------------------------------------------------  */

DEF VAR xHandle         AS HANDLE                       NO-UNDO.

xHandle = SESSION:FIRST-PROCEDURE.
DO WHILE VALID-HANDLE(xHandle):
    IF xHandle:FILE-NAME = 'super/funktionen.p':U THEN LEAVE.
    xHandle = xHandle:NEXT-SIBLING.
END.
IF NOT VALID-HANDLE(xHandle) THEN DO:
    RUN 'super/funktionen.p' PERSISTENT SET xHandle.
    SESSION:ADD-SUPER-PROCEDURE ( xHandle ).
END.

xHandle = SESSION:FIRST-PROCEDURE.
DO WHILE VALID-HANDLE(xHandle):
    IF xHandle:FILE-NAME = 'super/auftragfunkt.p':U THEN LEAVE.
    xHandle = xHandle:NEXT-SIBLING.
END.
IF NOT VALID-HANDLE(xHandle) THEN DO:
    RUN 'super/auftragfunkt.p' PERSISTENT SET xHandle.
    SESSION:ADD-SUPER-PROCEDURE ( xHandle ).
END.

xHandle = SESSION:FIRST-PROCEDURE.
DO WHILE VALID-HANDLE(xHandle):
    IF xHandle:FILE-NAME = 'super/officefunkt.p':U THEN LEAVE.
    xHandle = xHandle:NEXT-SIBLING.
END.
IF NOT VALID-HANDLE(xHandle) THEN DO:
    RUN 'super/officefunkt.p' PERSISTENT SET xHandle.
    SESSION:ADD-SUPER-PROCEDURE ( xHandle ).
END.

xHandle = SESSION:FIRST-PROCEDURE.
DO WHILE VALID-HANDLE(xHandle):
    IF xHandle:FILE-NAME = 'super/benutzerfunkt.p':U THEN LEAVE.
    xHandle = xHandle:NEXT-SIBLING.
END.
IF NOT VALID-HANDLE(xHandle) THEN DO:
    RUN 'super/benutzerfunkt.p' PERSISTENT SET xHandle.
    SESSION:ADD-SUPER-PROCEDURE ( xHandle ).
END.

xHandle = SESSION:FIRST-PROCEDURE.
DO WHILE VALID-HANDLE(xHandle):
    IF xHandle:FILE-NAME = 'super/debitorfunkt.p':U THEN LEAVE.
    xHandle = xHandle:NEXT-SIBLING.
END.
IF NOT VALID-HANDLE(xHandle) THEN DO:
    RUN 'super/debitorfunkt.p' PERSISTENT SET xHandle.
    SESSION:ADD-SUPER-PROCEDURE ( xHandle ).
END.

xHandle = SESSION:FIRST-PROCEDURE.
DO WHILE VALID-HANDLE(xHandle):
    IF xHandle:FILE-NAME = 'super/lotnrfunktion.p':U THEN LEAVE.
    xHandle = xHandle:NEXT-SIBLING.
END.
IF NOT VALID-HANDLE(xHandle) THEN DO:
    RUN 'super/lotnrfunktion.p' PERSISTENT SET xHandle.
    SESSION:ADD-SUPER-PROCEDURE ( xHandle ).
END.

xHandle = SESSION:FIRST-PROCEDURE.
DO WHILE VALID-HANDLE(xHandle):
    IF xHandle:FILE-NAME = 'super/bestellfunktion.p':U THEN LEAVE.
    xHandle = xHandle:NEXT-SIBLING.
END.
IF NOT VALID-HANDLE(xHandle) THEN DO:
    RUN 'super/bestellfunktion.p' PERSISTENT SET xHandle.
    SESSION:ADD-SUPER-PROCEDURE ( xHandle ).
END.


/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME