GeMIS_WEB/GUI/start.p

&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure 
/*------------------------------------------------------------------------
    File        : 
    Purpose     :

    Syntax      :

    Description :

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

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

{ v8/globvar.i "NEW" "GLOBAL" "SHARED" }
{ v8/debivar.i "NEW" "GLOBAL" "SHARED" }
{ v8/artivar.i "NEW" "GLOBAL" "SHARED" }
{ v8/contvar.i "NEW" "GLOBAL" "SHARED" }

DEF VAR cBenutzer   AS CHAR                         NO-UNDO.
DEF VAR cPasswort   AS CHAR                         NO-UNDO.
DEF VAR cMandant    AS CHAR                         NO-UNDO.
DEF VAR cProgramm   AS CHAR                         NO-UNDO.
DEF VAR lBatch      AS LOG  INIT FALSE              NO-UNDO.

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

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

&Scoped-define PROCEDURE-TYPE Procedure
&Scoped-define DB-AWARE no



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



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

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

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

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

 


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


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

{ super/funktionen.i }

Ja = FALSE.
RUN w-start.w ( OUTPUT Ja ).
IF NOT Ja THEN QUIT.

GVFirma = DYNAMIC-FUNCTION('getMandant':U)   NO-ERROR.
AdFirma = DYNAMIC-FUNCTION('getADMandant':U) NO-ERROR.
StFirma = '9999'.

Linkcd   = 0.
Ja       = FALSE.
LVPanel  = 0.
Passwort = DYNAMIC-FUNCTION('GETBENUTZER':U) NO-ERROR.
StFirma  = "9999".
GVSprcd  = 1.
LVSprcd  = 1.
GVLkz    = 'CH'.
LVLkz    = 'CH'.

RUN AUFTRAGFUNKTIONENINIT.

DYNAMIC-FUNCTION('setBatch':U, lBatch) NO-ERROR.

RUN w-haupt.w.

DYNAMIC-FUNCTION('unloadOCRB':U).

QUIT.

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