GeMIS_WEB/GUI/w-besrschein.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v9r12 GUI ADM2
&ANALYZE-RESUME
&Scoped-define WINDOW-NAME wBESRSchein
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS wBESRSchein 
/*------------------------------------------------------------------------

  File: 

  Description: from cntnrwin.w - ADM SmartWindow Template

  Input Parameters:
      <none>

  Output Parameters:
      <none>

  History: New V9 Version - January 15, 1998
          
------------------------------------------------------------------------*/
/*          This .W file was created with the Progress AB.              */
/*----------------------------------------------------------------------*/

/* Create an unnamed pool to store all the widgets created 
     by this procedure. This is a good default which assures
     that this procedure's triggers and internal procedures 
     will execute in this procedure's storage, and that proper
     cleanup will occur on deletion of the procedure. */

CREATE WIDGET-POOL.

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

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */

DEF VAR MaxPage         AS INT                      NO-UNDO.
DEF VAR AktSeite        AS INT                      NO-UNDO.
DEF VAR Fenster         AS HANDLE                   NO-UNDO.
DEF VAR hToolbar        AS HANDLE                   NO-UNDO.
DEF VAR FMutFlag        AS LOG                      NO-UNDO INIT FALSE.
DEF VAR SAktiv          AS LOG                      NO-UNDO INIT FALSE.
DEF VAR Firma           AS CHAR                     NO-UNDO.

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

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

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

&Scoped-define ADM-CONTAINER WINDOW

&Scoped-define ADM-SUPPORTED-LINKS Data-Target,Data-Source,Page-Target,Update-Source,Update-Target,Filter-target,Filter-Source

/* Name of first Frame and/or Browse and/or first Query                 */
&Scoped-define FRAME-NAME fMain

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS Btn_Mutieren CB_BESRART F_Zeile-1 F_Zeile-2 ~
F_Zeile-3 F_Zeile-4 F_Zeile-5 F_Zeile-6 F_Zeile-7 F_Zeile-8 F_Konto-1 ~
F_Bankkto F_Zeile-9 F_Zeile-10 F_Zeile-11 F_Zeile-12 F_Zeile-13 F_Zeile-14 ~
F_Zeile-15 F_Zeile-16 F_Konto-2 IMAGE-3 
&Scoped-Define DISPLAYED-OBJECTS CB_BESRART F_Zeile-1 F_Zeile-2 F_Zeile-3 ~
F_Zeile-4 F_Zeile-5 F_Zeile-6 F_Zeile-7 F_Zeile-8 F_Konto-1 F_Bankkto ~
F_Zeile-9 F_Zeile-10 F_Zeile-11 F_Zeile-12 F_Zeile-13 F_Zeile-14 F_Zeile-15 ~
F_Zeile-16 F_Konto-2 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-6 F_Zeile-1 F_Zeile-2 F_Zeile-3 F_Zeile-4 F_Zeile-5 ~
F_Zeile-6 F_Zeile-7 F_Zeile-8 F_Konto-1 F_Bankkto F_Zeile-9 F_Zeile-10 ~
F_Zeile-11 F_Zeile-12 F_Zeile-13 F_Zeile-14 F_Zeile-15 F_Zeile-16 F_Konto-2 

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



/* ***********************  Control Definitions  ********************** */

/* Define the widget handle for the window                              */
DEFINE VAR wBESRSchein AS WIDGET-HANDLE NO-UNDO.

/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Mutieren 
     LABEL "Mutieren" 
     SIZE 12 BY 1.

DEFINE VARIABLE CB_BESRART AS CHARACTER FORMAT "X(256)":U 
     LABEL "BESR-Bank/-Post" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEM-PAIRS "Item 1","Item 1"
     DROP-DOWN-LIST
     SIZE 40 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Bankkto AS CHARACTER FORMAT "99999999999999":U INITIAL "00000000000000" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 24 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Konto-1 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 20 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Konto-2 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 20 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Zeile-1 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 43.8 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Zeile-10 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 43.8 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Zeile-11 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 43.8 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Zeile-12 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 43.8 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Zeile-13 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 43.8 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Zeile-14 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 43.8 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Zeile-15 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 43.8 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Zeile-16 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 43.8 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Zeile-2 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 43.8 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Zeile-3 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 43.8 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Zeile-4 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 43.8 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Zeile-5 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 43.8 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Zeile-6 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 43.8 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Zeile-7 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 43.8 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Zeile-8 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 43.8 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE VARIABLE F_Zeile-9 AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 43.8 BY .81
     BGCOLOR 8  NO-UNDO.

DEFINE IMAGE IMAGE-3
     FILENAME "grafik\besr.jpg":U
     STRETCH-TO-FIT
     SIZE 138.8 BY 17.33.


/* ************************  Frame Definitions  *********************** */

DEFINE FRAME fMain
     Btn_Mutieren AT ROW 1.1 COL 80
     CB_BESRART AT ROW 1.1 COL 18.8 COLON-ALIGNED
     F_Zeile-1 AT ROW 3.76 COL 1.6 NO-LABEL
     F_Zeile-2 AT ROW 4.52 COL 1.6 NO-LABEL
     F_Zeile-3 AT ROW 5.33 COL 1.6 NO-LABEL
     F_Zeile-4 AT ROW 6.14 COL 1.6 NO-LABEL
     F_Zeile-5 AT ROW 6.95 COL 1.6 NO-LABEL
     F_Zeile-6 AT ROW 7.76 COL 1.6 NO-LABEL
     F_Zeile-7 AT ROW 8.57 COL 1.6 NO-LABEL
     F_Zeile-8 AT ROW 9.33 COL 1.6 NO-LABEL
     F_Konto-1 AT ROW 10.14 COL 25 NO-LABEL
     F_Bankkto AT ROW 8.52 COL 98.2 NO-LABEL
     F_Zeile-9 AT ROW 3.76 COL 49 NO-LABEL
     F_Zeile-10 AT ROW 4.52 COL 49 NO-LABEL
     F_Zeile-11 AT ROW 5.33 COL 49 NO-LABEL
     F_Zeile-12 AT ROW 6.14 COL 49 NO-LABEL
     F_Zeile-13 AT ROW 6.95 COL 49 NO-LABEL
     F_Zeile-14 AT ROW 7.76 COL 49 NO-LABEL
     F_Zeile-15 AT ROW 8.57 COL 49 NO-LABEL
     F_Zeile-16 AT ROW 9.33 COL 49 NO-LABEL
     F_Konto-2 AT ROW 10.14 COL 73 NO-LABEL
     IMAGE-3 AT ROW 2.24 COL 1
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY 
         SIDE-LABELS NO-UNDERLINE THREE-D 
         AT COL 1 ROW 1
         SIZE 138.8 BY 18.57.


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

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartWindow
   Allow: Basic,Browse,DB-Fields,Query,Smart,Window
   Container Links: Data-Target,Data-Source,Page-Target,Update-Source,Update-Target,Filter-target,Filter-Source
   Design Page: 1
   Other Settings: COMPILE
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

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

&ANALYZE-SUSPEND _CREATE-WINDOW
IF SESSION:DISPLAY-TYPE = "GUI":U THEN
  CREATE WINDOW wBESRSchein ASSIGN
         HIDDEN             = YES
         TITLE              = "Einzahlungsscheine"
         HEIGHT             = 18.57
         WIDTH              = 138.8
         MAX-HEIGHT         = 48.76
         MAX-WIDTH          = 256
         VIRTUAL-HEIGHT     = 48.76
         VIRTUAL-WIDTH      = 256
         RESIZE             = no
         SCROLL-BARS        = no
         STATUS-AREA        = no
         BGCOLOR            = ?
         FGCOLOR            = ?
         THREE-D            = yes
         MESSAGE-AREA       = no
         SENSITIVE          = yes.
ELSE {&WINDOW-NAME} = CURRENT-WINDOW.

&IF '{&WINDOW-SYSTEM}' NE 'TTY' &THEN
IF NOT wBESRSchein:LOAD-ICON("grafik/appl.ico":U) THEN
    MESSAGE "Unable to load icon: grafik/appl.ico"
            VIEW-AS ALERT-BOX WARNING BUTTONS OK.
&ENDIF
/* END WINDOW DEFINITION                                                */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB wBESRSchein 
/* ************************* Included-Libraries *********************** */

{src/adm2/containr.i}

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




/* ***********  Runtime Attributes and AppBuilder Settings  *********** */

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW wBESRSchein
  VISIBLE,,RUN-PERSISTENT                                               */
/* SETTINGS FOR FRAME fMain
   Custom                                                               */
/* SETTINGS FOR FILL-IN F_Bankkto IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Konto-1 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Konto-2 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Zeile-1 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Zeile-10 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Zeile-11 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Zeile-12 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Zeile-13 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Zeile-14 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Zeile-15 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Zeile-16 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Zeile-2 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Zeile-3 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Zeile-4 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Zeile-5 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Zeile-6 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Zeile-7 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Zeile-8 IN FRAME fMain
   ALIGN-L 6                                                            */
/* SETTINGS FOR FILL-IN F_Zeile-9 IN FRAME fMain
   ALIGN-L 6                                                            */
IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wBESRSchein)
THEN wBESRSchein:HIDDEN = yes.

/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME

 



/* ************************  Control Triggers  ************************ */

&Scoped-define SELF-NAME wBESRSchein
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wBESRSchein wBESRSchein
ON END-ERROR OF wBESRSchein /* Einzahlungsscheine */
OR ENDKEY OF {&WINDOW-NAME} ANYWHERE DO:
    IF THIS-PROCEDURE:PERSISTENT THEN RETURN NO-APPLY.
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wBESRSchein wBESRSchein
ON WINDOW-CLOSE OF wBESRSchein /* Einzahlungsscheine */
DO:
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME Btn_Mutieren
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Mutieren wBESRSchein
ON CHOOSE OF Btn_Mutieren IN FRAME fMain /* Mutieren */
DO:
    RUN SCHREIBEN_DATEN ( INPUT CB_BESRART:SCREEN-VALUE ).
    APPLY 'ENTRY' TO F_Zeile-1.
END.

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


&Scoped-define SELF-NAME CB_BESRART
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_BESRART wBESRSchein
ON VALUE-CHANGED OF CB_BESRART IN FRAME fMain /* BESR-Bank/-Post */
DO:
    RUN LESEN_DATEN ( INPUT SELF:SCREEN-VALUE ).
    APPLY 'ENTRY' TO F_Zeile-1.
END.

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


&Scoped-define SELF-NAME F_Bankkto
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Bankkto wBESRSchein
ON LEAVE OF F_Bankkto IN FRAME fMain
DO:
    DEF VAR i1      AS INT                      NO-UNDO.

    i1 = LENGTH(SELF:SCREEN-VALUE).
    IF i1 > 14 THEN SELF:SCREEN-VALUE = SUBSTRING(SELF:SCREEN-VALUE,01,14).
    ELSE DO:
        SELF:SCREEN-VALUE = SELF:SCREEN-VALUE + FILL('0',14 - i1).
    END.
END.

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


&Scoped-define SELF-NAME F_Konto-1
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Konto-1 wBESRSchein
ON LEAVE OF F_Konto-1 IN FRAME fMain
DO:
    F_Konto-2:SCREEN-VALUE = SELF:SCREEN-VALUE.
END.

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


&Scoped-define SELF-NAME F_Zeile-1
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zeile-1 wBESRSchein
ON VALUE-CHANGED OF F_Zeile-1 IN FRAME fMain
DO:
    F_Zeile-9:SCREEN-VALUE = SELF:SCREEN-VALUE.
END.

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


&Scoped-define SELF-NAME F_Zeile-2
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zeile-2 wBESRSchein
ON VALUE-CHANGED OF F_Zeile-2 IN FRAME fMain
DO:
    F_Zeile-10:SCREEN-VALUE = SELF:SCREEN-VALUE.
END.

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


&Scoped-define SELF-NAME F_Zeile-3
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zeile-3 wBESRSchein
ON VALUE-CHANGED OF F_Zeile-3 IN FRAME fMain
DO:
    F_Zeile-11:SCREEN-VALUE = SELF:SCREEN-VALUE.
END.

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


&Scoped-define SELF-NAME F_Zeile-4
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zeile-4 wBESRSchein
ON VALUE-CHANGED OF F_Zeile-4 IN FRAME fMain
DO:
    F_Zeile-12:SCREEN-VALUE = SELF:SCREEN-VALUE.
END.

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


&Scoped-define SELF-NAME F_Zeile-5
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zeile-5 wBESRSchein
ON VALUE-CHANGED OF F_Zeile-5 IN FRAME fMain
DO:
    F_Zeile-13:SCREEN-VALUE = SELF:SCREEN-VALUE.
END.

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


&Scoped-define SELF-NAME F_Zeile-6
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zeile-6 wBESRSchein
ON VALUE-CHANGED OF F_Zeile-6 IN FRAME fMain
DO:
    F_Zeile-14:SCREEN-VALUE = SELF:SCREEN-VALUE.
END.

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


&Scoped-define SELF-NAME F_Zeile-7
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zeile-7 wBESRSchein
ON VALUE-CHANGED OF F_Zeile-7 IN FRAME fMain
DO:
    F_Zeile-15:SCREEN-VALUE = SELF:SCREEN-VALUE.
END.

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


&Scoped-define SELF-NAME F_Zeile-8
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zeile-8 wBESRSchein
ON VALUE-CHANGED OF F_Zeile-8 IN FRAME fMain
DO:
    F_Zeile-16:SCREEN-VALUE = SELF:SCREEN-VALUE.
END.

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


&UNDEFINE SELF-NAME

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


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

    MaxPage  = 1.
    AktSeite = 1.

    SAktiv = DYNAMIC-FUNCTION('getSuperAktiv':U) NO-ERROR.
    IF SAktiv THEN DO:
        Firma = DYNAMIC-FUNCTION('GETMANDANT':U) NO-ERROR.
    END.

    SESSION:DATA-ENTRY-RETURN = TRUE.

/*  TRIGGERS    ------------------------------------------------------  */

    ON 'END-ERROR':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN ENDE.
        RETURN NO-APPLY.
    END.
    
    /* Include custom  Main Block code for SmartWindows. */

    {src/adm2/windowmn.i}

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


/* **********************  Internal Procedures  *********************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects wBESRSchein  _ADM-CREATE-OBJECTS
PROCEDURE adm-create-objects :
/*------------------------------------------------------------------------------
  Purpose:     Create handles for all SmartObjects used in this procedure.
               After SmartObjects are initialized, then SmartLinks are added.
  Parameters:  <none>
------------------------------------------------------------------------------*/

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE changePage wBESRSchein 
PROCEDURE changePage :
/*------------------------------------------------------------------------------
  Purpose:     Super Override
  Parameters:  
  Notes:       
------------------------------------------------------------------------------*/

    RUN SUPER.

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U).

    CASE AktSeite:

        WHEN 1 THEN DO:
            /*
            RUN addLink ( hToolbar , 'TableIO':U    , h_v-auftr        ).
            RUN addLink ( hToolbar , 'Navigation':U , h_d-auftr        ).
            */
        END.

    END CASE.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI wBESRSchein  _DEFAULT-DISABLE
PROCEDURE disable_UI :
/*------------------------------------------------------------------------------
  Purpose:     DISABLE the User Interface
  Parameters:  <none>
  Notes:       Here we clean-up the user-interface by deleting
               dynamic widgets we have created and/or hide 
               frames.  This procedure is usually called when
               we are ready to "clean-up" after running.
------------------------------------------------------------------------------*/
  /* Delete the WINDOW we created */
  IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wBESRSchein)
  THEN DELETE WIDGET wBESRSchein.
  IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject wBESRSchein 
PROCEDURE enableObject :
/*------------------------------------------------------------------------------
  Purpose:     Super Override
  Parameters:  
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR wx          AS INT                      NO-UNDO.
    DEF VAR wy          AS INT                      NO-UNDO.
    DEF VAR xString     AS CHAR                     NO-UNDO.

    GET-KEY-VALUE SECTION 'FensterPositionen'
                  KEY     'BESRSchein'
                  VALUE   xString.
    IF xString = ?  THEN xString = '30;30'.
    IF xString = '' THEN xString = '30;30'.
    wx = INTEGER(ENTRY(1, xString, ';')).
    wy = INTEGER(ENTRY(2, xString, ';')).
    IF wx < 0 THEN wx = 1.
    IF wy < 0 THEN wy = 1.
    
    {&WINDOW-NAME}:X = wx.
    {&WINDOW-NAME}:Y = wy.

    RUN SUPER.

    IF SAktiv THEN RUN FENSTER_TITEL ( INPUT {&WINDOW-NAME}:HANDLE ) NO-ERROR.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI wBESRSchein  _DEFAULT-ENABLE
PROCEDURE enable_UI :
/*------------------------------------------------------------------------------
  Purpose:     ENABLE the User Interface
  Parameters:  <none>
  Notes:       Here we display/view/enable the widgets in the
               user-interface.  In addition, OPEN all queries
               associated with each FRAME and BROWSE.
               These statements here are based on the "Other 
               Settings" section of the widget Property Sheets.
------------------------------------------------------------------------------*/
  DISPLAY CB_BESRART F_Zeile-1 F_Zeile-2 F_Zeile-3 F_Zeile-4 F_Zeile-5 F_Zeile-6 
          F_Zeile-7 F_Zeile-8 F_Konto-1 F_Bankkto F_Zeile-9 F_Zeile-10 
          F_Zeile-11 F_Zeile-12 F_Zeile-13 F_Zeile-14 F_Zeile-15 F_Zeile-16 
          F_Konto-2 
      WITH FRAME fMain IN WINDOW wBESRSchein.
  ENABLE Btn_Mutieren CB_BESRART F_Zeile-1 F_Zeile-2 F_Zeile-3 F_Zeile-4 
         F_Zeile-5 F_Zeile-6 F_Zeile-7 F_Zeile-8 F_Konto-1 F_Bankkto F_Zeile-9 
         F_Zeile-10 F_Zeile-11 F_Zeile-12 F_Zeile-13 F_Zeile-14 F_Zeile-15 
         F_Zeile-16 F_Konto-2 IMAGE-3 
      WITH FRAME fMain IN WINDOW wBESRSchein.
  {&OPEN-BROWSERS-IN-QUERY-fMain}
  VIEW wBESRSchein.
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENDE wBESRSchein 
PROCEDURE ENDE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR wx          AS INT                      NO-UNDO.
    DEF VAR wy          AS INT                      NO-UNDO.
    DEF VAR xString     AS CHAR                     NO-UNDO.

    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 THIS-PROCEDURE:FILE-NAME ).

    wx = {&WINDOW-NAME}:X NO-ERROR.
    wy = {&WINDOW-NAME}:Y NO-ERROR.
    xString = STRING(wx) + ';' + STRING(wy).
    PUT-KEY-VALUE SECTION 'FensterPositionen'
                  KEY     'BESRSchein'
                  VALUE   xString.

    APPLY "CLOSE":U TO THIS-PROCEDURE.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE exitObject wBESRSchein 
PROCEDURE exitObject :
/*------------------------------------------------------------------------------
  Purpose:  Window-specific override of this procedure which destroys 
            its contents and itself.
    Notes:  
------------------------------------------------------------------------------*/

    RUN ENDE.
    RETURN NO-APPLY.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initializeObject wBESRSchein 
PROCEDURE initializeObject :
/*------------------------------------------------------------------------------
  Purpose:     Super Override
  Parameters:  
  Notes:       
------------------------------------------------------------------------------*/

    DO WITH FRAME {&FRAME-NAME}:
        RUN COMBO_BESRART ( INPUT CB_BESRART:HANDLE ).
    END.

    RUN SUPER.
/*
    hToolbar = h_dyntoolbar.
*/
    IF VALID-HANDLE(hToolbar) THEN DO:
        RUN SETPROGNAME IN hToolbar ( INPUT  THIS-PROCEDURE     ).
        RUN setButtons  IN hToolbar ( INPUT 'Initial-TableIo':U ).
    END.

    RUN selectPage ( INPUT 1 ).

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LESEN_DATEN wBESRSchein 
PROCEDURE LESEN_DATEN :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF INPUT PARAMETER ipArt   AS CHAR         NO-UNDO.

    DEF VAR Art     AS INT                      NO-UNDO.
    
    FOR EACH Tabel USE-INDEX Tabel-k1
                   WHERE Tabel.Firma  = Firma
                   AND   Tabel.RecArt = 'EZ'
                   AND   Tabel.CodeC  = ipArt NO-LOCK:
        CASE Tabel.CodeI:
            WHEN 0 THEN DO:
                F_Bankkto  = STRING(Tabel.Dec_1,'99999999999999').
                F_Konto-1  = Tabel.Bez1.
                F_Konto-2  = Tabel.Bez2.
            END.
            WHEN 1 THEN DO:
                F_Zeile-1  = Tabel.Bez1.
                F_Zeile-9  = Tabel.Bez2.
            END.
            WHEN 2 THEN DO:
                F_Zeile-2  = Tabel.Bez1.
                F_Zeile-10 = Tabel.Bez2.
            END.
            WHEN 3 THEN DO:
                F_Zeile-3  = Tabel.Bez1.
                F_Zeile-11 = Tabel.Bez2.
            END.
            WHEN 4 THEN DO:
                F_Zeile-4  = Tabel.Bez1.
                F_Zeile-12 = Tabel.Bez2.
            END.
            WHEN 5 THEN DO:
                F_Zeile-5  = Tabel.Bez1.
                F_Zeile-13 = Tabel.Bez2.
            END.
            WHEN 6 THEN DO:
                F_Zeile-6  = Tabel.Bez1.
                F_Zeile-14 = Tabel.Bez2.
            END.
            WHEN 7 THEN DO:
                F_Zeile-7  = Tabel.Bez1.
                F_Zeile-15 = Tabel.Bez2.
            END.
            WHEN 8 THEN DO:
                F_Zeile-8  = Tabel.Bez1.
                F_Zeile-16 = Tabel.Bez2.
            END.
        END CASE.
    END.

    DO WITH FRAME {&FRAME-NAME}:
        DISPLAY {&List-6}.
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE PRUEFZIFFER wBESRSchein 
PROCEDURE PRUEFZIFFER :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

/* ------------------------------------------------------------------------- */
/*  Prufziffer MODULO 10, Rekursiv (27 Stellig Ref.-Nr.)                     */
/* ------------------------------------------------------------------------- */
/*                                                                           */
/*  Uebergabe Variable:  1.  String Teilnehmernummer    ( 9-stellig)         */
/*                                                                           */
/*---------------------------------------------------------------------------*/

    DEF INPUT-OUTPUT PARAMETER PZTNummer    AS CHAR FORMAT "x(09)".
    
    DEF VAR l1          AS INT.
    DEF VAR PZ          AS INT.
    DEF VAR x1          AS INT.
    DEF VAR x2          AS INT.
    DEF VAR x3          AS INT.
    DEF VAR VMOD10      AS CHAR FORMAT "x(11)"  EXTENT 11.

    VMOD10[01] = "09468271350".
    VMOD10[02] = "94682713509".
    VMOD10[03] = "46827135098".
    VMOD10[04] = "68271350947".
    VMOD10[05] = "82713509466".
    VMOD10[06] = "27135094685".
    VMOD10[07] = "71350946824".
    VMOD10[08] = "13509468273".
    VMOD10[09] = "35094682712".
    VMOD10[10] = "50946827131".

    l1 = 08.

    DO WHILE l1 = 08:
        x2 = 1.
        x1 = INT(SUBSTRING(PZTNummer ,01    ,01)).
        x2 = INT(SUBSTRING(VMOD10[x2],x1 + 1,01)).

        DO x3 = 2 TO 08:
            x1 = INT(SUBSTRING(PZTNummer     ,x3    ,01)).
            x2 = INT(SUBSTRING(VMOD10[x2 + 1],x1 + 1,01)).
        END.

        PZ = INT(SUBSTRING(VMOD10[x2 + 1],11,1)).
        SUBSTRING(PZTNummer,09) = STRING(PZ,"9").
        LEAVE.
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SCHREIBEN_DATEN wBESRSchein 
PROCEDURE SCHREIBEN_DATEN :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF INPUT PARAMETER ipArt   AS CHAR         NO-UNDO.

    DEF VAR Art     AS INT                      NO-UNDO.
    DEF VAR ii      AS INT                      NO-UNDO.
    DEF VAR i1      AS INT                      NO-UNDO.
    DEF VAR i2      AS INT                      NO-UNDO.
    DEF VAR i3      AS INT                      NO-UNDO.
    DEF VAR cString AS CHAR                     NO-UNDO.
    DEF VAR cInhalt AS CHAR                     NO-UNDO.
    DEF VAR cF1     AS CHAR                     NO-UNDO.
    DEF VAR cF2     AS CHAR                     NO-UNDO.
    DEF VAR cF3     AS CHAR                     NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
        ASSIGN  {&List-6}.
    END.

    DO ii = 0 TO 8 TRANSACTION:
        FIND Tabel USE-INDEX Tabel-k1
                   WHERE Tabel.Firma  = Firma
                   AND   Tabel.RecArt = 'EZ'
                   AND   Tabel.CodeC  = ipArt
                   AND   Tabel.CodeI  = ii
                   AND   Tabel.Sprcd  = 1 NO-ERROR.
        IF NOT AVAILABLE Tabel THEN DO:
            CREATE  Tabel.
            ASSIGN  Tabel.Firma  = Firma
                    Tabel.RecArt = 'EZ'
                    Tabel.CodeC  = ipArt
                    Tabel.CodeI  = ii
                    Tabel.Sprcd  = 1.
        END.

        CASE ii:
            WHEN 0 THEN DO:
                Tabel.Dec_1 = DECIMAL(F_Bankkto).
                cString     = TRIM(F_Konto-1).
                IF NUM-ENTRIES(cString, '-') = 0 THEN DO:
                    Tabel.Int_2 = INTEGER(cString) NO-ERROR.
                END.
                ELSE DO:
                    cF1 = ''.
                    cF2 = ''.
                    cF3 = ''.
                    i1 = NUM-ENTRIES(cString, '-').
                    DO i2 = 1 TO i1:
                        CASE i2:
                            WHEN 1 THEN cF1 = ENTRY(i2, cString, '-').
                            WHEN 2 THEN cF2 = ENTRY(i2, cString, '-').
                            WHEN 3 THEN cF3 = ENTRY(i2, cString, '-').
                        END CASE.
                    END.
                    i1 = INTEGER(cF1) NO-ERROR.
                    i2 = INTEGER(cF2) NO-ERROR.
                    i3 = INTEGER(cF3) NO-ERROR.
                    cString = STRING(i1,'99') + STRING(i2,'999999') + '0'.
                    RUN PRUEFZIFFER ( INPUT-OUTPUT cString ).
                    i3 = INTEGER(SUBSTRING(cString,09,01)).
                    Tabel.BezL = cString.
                    cString = STRING(i1,'99')
                            + '-'
                            + TRIM(STRING(i2,'zzzzz9'))
                            + '-'
                            + STRING(i3,'9').
                    cInhalt    = TRIM(F_Konto-1).
                    F_Konto-1  = REPLACE(F_Konto-1, cInhalt, cString).
                    cInhalt    = TRIM(F_Konto-2).
                    F_Konto-2  = REPLACE(F_Konto-2, cInhalt, cString).
                    Tabel.Bez1 = F_Konto-1.
                    Tabel.Bez2 = F_Konto-2.
                END.
            END.
            WHEN 1 THEN DO:
                Tabel.Bez1 = F_Zeile-1.
                Tabel.Bez2 = F_Zeile-9.
            END.
            WHEN 2 THEN DO:
                Tabel.Bez1 = F_Zeile-2 .
                Tabel.Bez2 = F_Zeile-10.
            END.
            WHEN 3 THEN DO:
                Tabel.Bez1 = F_Zeile-3 .
                Tabel.Bez2 = F_Zeile-11.
            END.
            WHEN 4 THEN DO:
                Tabel.Bez1 = F_Zeile-4 .
                Tabel.Bez2 = F_Zeile-12.
            END.
            WHEN 5 THEN DO:
                Tabel.Bez1 = F_Zeile-5 .
                Tabel.Bez2 = F_Zeile-13.
            END.
            WHEN 6 THEN DO:
                Tabel.Bez1 = F_Zeile-6 .
                Tabel.Bez2 = F_Zeile-14.
            END.
            WHEN 7 THEN DO:
                Tabel.Bez1 = F_Zeile-7 .
                Tabel.Bez2 = F_Zeile-15.
            END.
            WHEN 8 THEN DO:
                Tabel.Bez1 = F_Zeile-8 .
                Tabel.Bez2 = F_Zeile-16.
            END.
        END CASE.
    END.
    RELEASE Tabel.

    DO WITH FRAME {&FRAME-NAME}:
        DISPLAY {&List-6}.
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE selectPage wBESRSchein 
PROCEDURE selectPage :
/*------------------------------------------------------------------------------
  Purpose:     Super Override
  Parameters:  
  Notes:       
------------------------------------------------------------------------------*/

    DEF INPUT PARAMETER piPageNum   AS INT                      NO-UNDO.

    DEF VAR FMutFlag        AS LOG                      NO-UNDO.
    DEF VAR MutProg         AS CHAR                     NO-UNDO.

    FMutFlag = DYNAMIC-FUNCTION('getMutflagAlt':U) NO-ERROR.
    DO WHILE TRUE:
        IF NOT FMutFlag THEN LEAVE.
        MutProg = DYNAMIC-FUNCTION('GETMUTPROG':U).
        IF MutProg <> THIS-PROCEDURE:FILE-NAME THEN LEAVE.
        RETURN NO-APPLY.
    END.

    CASE piPageNum:

    END CASE.

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U).

    CASE AktSeite:

        WHEN 1 THEN DO:
/*             RUN removeLink ( hToolbar , 'TableIO':U    , h_v-auftr       ). */
/*             RUN removeLink ( hToolbar , 'Navigation':U , h_d-auftr       ). */
        END.

    END CASE.

    RUN SUPER( INPUT piPageNum).

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE viewObject wBESRSchein 
PROCEDURE viewObject :
/*------------------------------------------------------------------------------
  Purpose:     Super Override
  Parameters:  
  Notes:       
------------------------------------------------------------------------------*/

    RUN SUPER.

    APPLY 'VALUE-CHANGED' TO CB_BESRART IN FRAME {&FRAME-NAME}.
    APPLY 'ENTRY' TO F_Zeile-1.

END PROCEDURE.

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