GeMIS_WEB/GUI/v-drucker.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2
&ANALYZE-RESUME
/* Connected Databases 
          anadat           PROGRESS
*/
&Scoped-define WINDOW-NAME CURRENT-WINDOW


/* Temp-Table and Buffer definitions                                    */
DEFINE TEMP-TABLE RowObject
       {"d-drucker.i"}.



&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS vTableWin 
/*------------------------------------------------------------------------

  File:

  Description: from viewer.w - Template for SmartDataViewer objects

  Input Parameters:
      <none>

  Output Parameters:
      <none>

------------------------------------------------------------------------*/
/*          This .W file was created with the Progress AppBuilder.      */
/*----------------------------------------------------------------------*/

/* 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  ************************** */

/*  Komma-Trennzeichen                                                  */
/*  Keyfelder werden beim Mutieren nicht "Enabled"                      */

&Scoped-define ERSTES_FELD  Drucker
&Scoped-define LETZTES_FELD 
&Scoped-define KEY_FELDER   Drucker
&Scoped-define NUR_LESEN 

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */

DEF VAR SAktiv          AS LOG                      NO-UNDO INIT FALSE.
DEF VAR FNeu            AS LOG                      NO-UNDO INIT FALSE.
DEF VAR FMut            AS LOG                      NO-UNDO INIT FALSE.
DEF VAR FCopy           AS LOG                      NO-UNDO INIT FALSE.
DEF VAR FDisp           AS LOG                      NO-UNDO INIT TRUE .
DEF VAR Fenster         AS HANDLE                   NO-UNDO.
DEF VAR oldColValues    AS CHAR                     NO-UNDO.
DEF VAR oldColList      AS CHAR                     NO-UNDO.
DEF VAR Firma           AS CHAR                     NO-UNDO.
DEF VAR iArt1           AS INT                      NO-UNDO.
DEF VAR iArt2           AS INT                      NO-UNDO.
DEF VAR iArt3           AS INT                      NO-UNDO.
DEF VAR iArt4           AS INT                      NO-UNDO.

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

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

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

&Scoped-define ADM-CONTAINER FRAME

&Scoped-define ADM-SUPPORTED-LINKS Data-Target,Update-Source,TableIO-Target,GroupAssign-Source,GroupAssign-Target

/* Include file with RowObject temp-table definition */
&Scoped-define DATA-FIELD-DEFS "d-drucker.i"

/* Name of designated FRAME-NAME and/or first browse and/or first query */
&Scoped-define FRAME-NAME F-Main

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-FIELDS RowObject.Drucker RowObject.Emul 
&Scoped-define ENABLED-TABLES RowObject
&Scoped-define FIRST-ENABLED-TABLE RowObject
&Scoped-Define ENABLED-OBJECTS RECT-11 R_Set1 R_Set2 R_Set3 R_Set4 ~
F_Eingabe 
&Scoped-Define DISPLAYED-FIELDS RowObject.Drucker RowObject.Emul ~
RowObject.Druinvb RowObject.Dru12cpi RowObject.Drufont8 RowObject.Drufont10 ~
RowObject.DruSchacht1 RowObject.Drufont7 RowObject.Drudoppb RowObject.Dru48 ~
RowObject.Dru10cpi RowObject.Drufont1 RowObject.Drulqb RowObject.Druinve ~
RowObject.Drufont9 RowObject.Drufont4 RowObject.Drufont5 RowObject.Drufont6 ~
RowObject.Dru17cpi RowObject.Druuntere RowObject.Druhoch RowObject.Druquer ~
RowObject.Drufont2 RowObject.Dru72 RowObject.Drufont3 RowObject.Drufette ~
RowObject.Drufettb RowObject.DruSchacht7 RowObject.DruSchacht8 ~
RowObject.DruSchacht9 RowObject.DruSchacht6 RowObject.Dru96 ~
RowObject.Drulqe RowObject.DruSchacht2 RowObject.Druunterb ~
RowObject.DruSchacht3 RowObject.DruSchacht5 RowObject.Dru15cpi ~
RowObject.DruSchacht4 RowObject.Dru20cpi RowObject.Drudoppe 
&Scoped-define DISPLAYED-TABLES RowObject
&Scoped-define FIRST-DISPLAYED-TABLE RowObject
&Scoped-Define DISPLAYED-OBJECTS R_Set1 R_Set2 R_Set3 R_Set4 

/* Custom List Definitions                                              */
/* ADM-ASSIGN-FIELDS,List-2,List-3,List-4,List-5,List-6                 */

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



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


/* Definitions of the field level widgets                               */
DEFINE VARIABLE F_Eingabe AS CHARACTER FORMAT "X(256)":U 
     LABEL "Fill 1" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 101.6 BY 1
     BGCOLOR 15 FONT 6 NO-UNDO.

DEFINE VARIABLE R_Set1 AS INTEGER INITIAL 1 
     VIEW-AS RADIO-SET VERTICAL
     RADIO-BUTTONS 
          "Initialisieren", 1,
"10 Zeichen/Zoll", 2,
"12 Zeichen/Zoll", 3,
"15 Zeichen/Zoll", 4,
"17 Zeichen/Zoll", 5,
"20 Zeichen/Zoll", 6,
"48 Zeilen/Seite", 7,
"72 Zeilen/Seite", 8,
"96 Zeilen/Seite", 9
     SIZE 25 BY 8.1 NO-UNDO.

DEFINE VARIABLE R_Set2 AS INTEGER 
     VIEW-AS RADIO-SET VERTICAL
     RADIO-BUTTONS 
          "Portrait (Hoch)", 1,
"Landscape (Quer)", 2,
"Fett ein", 3,
"Fett aus", 4,
"Unterstreichen ein", 5,
"Unterstreichen aus", 6,
"Invers ein", 7,
"Invers aus", 8,
"Schönschrift ein", 9,
"Schönschrift aus", 10
     SIZE 25 BY 9 NO-UNDO.

DEFINE VARIABLE R_Set3 AS INTEGER INITIAL 1 
     VIEW-AS RADIO-SET VERTICAL
     RADIO-BUTTONS 
          "Standardfont", 1,
"OCRB", 2,
"Zusatzfont 1", 3,
"Zusatzfont 2", 4,
"Zusatzfont 3", 5,
"Zusatzfont 4", 6,
"Randbegrenzung aufheben", 7,
"Linker Rand (# ersetzen)", 8,
"LF -> LF/CR", 9
     SIZE 31.4 BY 8.1 NO-UNDO.

DEFINE VARIABLE R_Set4 AS INTEGER INITIAL 1 
     VIEW-AS RADIO-SET VERTICAL
     RADIO-BUTTONS 
          "Schacht 1", 1,
"Schacht 2", 2,
"Schacht 3", 3,
"Schacht 4", 4,
"Schacht 5", 5,
"Schacht 6", 6,
"Schacht 7", 7,
"Schacht 8", 8,
"Schacht 9", 9
     SIZE 25 BY 8.1 NO-UNDO.

DEFINE RECTANGLE RECT-11
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 132 BY 14.76.


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

DEFINE FRAME F-Main
     RowObject.Drucker AT ROW 2 COL 16.6 COLON-ALIGNED
          LABEL "Druckername" FORMAT "x(30)"
          VIEW-AS FILL-IN NATIVE 
          SIZE 32 BY 1
          BGCOLOR 15 
     RowObject.Emul AT ROW 2 COL 71.8 COLON-ALIGNED
          VIEW-AS FILL-IN NATIVE 
          SIZE 22 BY 1
          BGCOLOR 15 
     R_Set1 AT ROW 4 COL 6 NO-LABEL
     R_Set2 AT ROW 4 COL 36 NO-LABEL
     R_Set3 AT ROW 4 COL 66 NO-LABEL
     R_Set4 AT ROW 4 COL 100 NO-LABEL
     F_Eingabe AT ROW 14.43 COL 23 COLON-ALIGNED
     RowObject.Druinvb AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Dru12cpi AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Drufont8 AT ROW 15 COL 118 COLON-ALIGNED
          LABEL "Randbegrenzung aufheben" FORMAT "x(38)"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Drufont10 AT ROW 15 COL 118 COLON-ALIGNED
          LABEL "LF -> CR/LF" FORMAT "x(38)"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.DruSchacht1 AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Drufont7 AT ROW 15 COL 118 COLON-ALIGNED
          LABEL "Zusatzfont 4" FORMAT "x(38)"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Drudoppb AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Dru48 AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Dru10cpi AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Drufont1 AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Drulqb AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Druinve AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Drufont9 AT ROW 15 COL 118 COLON-ALIGNED
          LABEL "Linker Rand" FORMAT "x(38)"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Drufont4 AT ROW 15 COL 118 COLON-ALIGNED
          LABEL "Zusatzfont 1" FORMAT "x(38)"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Drufont5 AT ROW 15 COL 118 COLON-ALIGNED
          LABEL "Zusatzfont 2" FORMAT "x(38)"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Drufont6 AT ROW 15 COL 118 COLON-ALIGNED
          LABEL "Zusatzfont 3" FORMAT "x(38)"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Dru17cpi AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Druuntere AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Druhoch AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Druquer AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Drufont2 AT ROW 15 COL 118 COLON-ALIGNED
          LABEL "Standardfont" FORMAT "x(38)"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY USE-DICT-EXPS 
         SIDE-LABELS NO-UNDERLINE THREE-D NO-AUTO-VALIDATE 
         AT COL 1 ROW 1 SCROLLABLE .

/* DEFINE FRAME statement is approaching 4K Bytes.  Breaking it up   */
DEFINE FRAME F-Main
     RowObject.Dru72 AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Drufont3 AT ROW 15 COL 118 COLON-ALIGNED
          LABEL "OCRB" FORMAT "x(38)"
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Drufette AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Drufettb AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.DruSchacht7 AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.DruSchacht8 AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.DruSchacht9 AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.DruSchacht6 AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Dru96 AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Drulqe AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.DruSchacht2 AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Druunterb AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.DruSchacht3 AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.DruSchacht5 AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Dru15cpi AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.DruSchacht4 AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Dru20cpi AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RowObject.Drudoppe AT ROW 15 COL 118 COLON-ALIGNED
          VIEW-AS FILL-IN 
          SIZE 4 BY 1 NO-TAB-STOP 
     RECT-11 AT ROW 1.24 COL 2
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY USE-DICT-EXPS 
         SIDE-LABELS NO-UNDERLINE THREE-D NO-AUTO-VALIDATE 
         AT COL 1 ROW 1 SCROLLABLE .


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

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartDataViewer
   Data Source: "d-drucker.w"
   Allow: Basic,DB-Fields,Smart
   Container Links: Data-Target,Update-Source,TableIO-Target,GroupAssign-Source,GroupAssign-Target
   Frames: 1
   Add Fields to: Neither
   Other Settings: PERSISTENT-ONLY COMPILE
   Temp-Tables and Buffers:
      TABLE: RowObject D "?" ?  
      ADDITIONAL-FIELDS:
          {d-drucker.i}
      END-FIELDS.
   END-TABLES.
 */

/* This procedure should always be RUN PERSISTENT.  Report the error,  */
/* then cleanup and return.                                            */
IF NOT THIS-PROCEDURE:PERSISTENT THEN DO:
  MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT.":U
          VIEW-AS ALERT-BOX ERROR BUTTONS OK.
  RETURN.
END.

&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

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

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

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

{src/adm2/viewer.i}

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




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

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW vTableWin
  VISIBLE,,RUN-PERSISTENT                                               */
/* SETTINGS FOR FRAME F-Main
   NOT-VISIBLE FRAME-NAME Size-to-Fit                                   */
ASSIGN 
       FRAME F-Main:SCROLLABLE       = FALSE
       FRAME F-Main:HIDDEN           = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Dru10cpi IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Dru10cpi:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Dru10cpi:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Dru12cpi IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Dru12cpi:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Dru12cpi:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Dru15cpi IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Dru15cpi:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Dru15cpi:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Dru17cpi IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Dru17cpi:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Dru17cpi:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Dru20cpi IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Dru20cpi:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Dru20cpi:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Dru48 IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Dru48:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Dru48:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Dru72 IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Dru72:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Dru72:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Dru96 IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Dru96:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Dru96:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Drucker IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.Drudoppb IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Drudoppb:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Drudoppb:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Drudoppe IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Drudoppe:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Drudoppe:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Drufettb IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Drufettb:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Drufettb:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Drufette IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Drufette:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Drufette:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Drufont1 IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Drufont1:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Drufont1:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Drufont10 IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.Drufont10:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Drufont10:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Drufont2 IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.Drufont2:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Drufont2:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Drufont3 IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.Drufont3:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Drufont3:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Drufont4 IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.Drufont4:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Drufont4:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Drufont5 IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.Drufont5:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Drufont5:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Drufont6 IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.Drufont6:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Drufont6:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Drufont7 IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.Drufont7:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Drufont7:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Drufont8 IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.Drufont8:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Drufont8:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Drufont9 IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
       RowObject.Drufont9:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Drufont9:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Druhoch IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Druhoch:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Druhoch:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Druinvb IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Druinvb:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Druinvb:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Druinve IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Druinve:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Druinve:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Drulqb IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Drulqb:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Drulqb:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Drulqe IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Drulqe:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Drulqe:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Druquer IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Druquer:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Druquer:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.DruSchacht1 IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.DruSchacht1:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.DruSchacht1:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.DruSchacht2 IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.DruSchacht2:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.DruSchacht2:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.DruSchacht3 IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.DruSchacht3:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.DruSchacht3:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.DruSchacht4 IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.DruSchacht4:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.DruSchacht4:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.DruSchacht5 IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.DruSchacht5:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.DruSchacht5:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.DruSchacht6 IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.DruSchacht6:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.DruSchacht6:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.DruSchacht7 IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.DruSchacht7:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.DruSchacht7:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.DruSchacht8 IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.DruSchacht8:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.DruSchacht8:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.DruSchacht9 IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.DruSchacht9:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.DruSchacht9:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Druunterb IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Druunterb:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Druunterb:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Druuntere IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
       RowObject.Druuntere:HIDDEN IN FRAME F-Main           = TRUE
       RowObject.Druuntere:READ-ONLY IN FRAME F-Main        = TRUE.

/* SETTINGS FOR FILL-IN F_Eingabe IN FRAME F-Main
   NO-DISPLAY                                                           */
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


/* Setting information for Queries and Browse Widgets fields            */

&ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main
/* Query rebuild information for FRAME F-Main
     _Options          = "NO-LOCK"
     _Query            is NOT OPENED
*/  /* FRAME F-Main */
&ANALYZE-RESUME

 



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

&Scoped-define SELF-NAME F_Eingabe
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Eingabe vTableWin
ON ALT-E OF F_Eingabe IN FRAME F-Main /* Fill 1 */
DO:
    DEF VAR iOff    AS INT                      NO-UNDO.
    iOff = SELF:CURSOR-OFFSET.
    SELF:SCREEN-VALUE = SUBSTRING(SELF:SCREEN-VALUE,01,iOff - 1)
                      + '\E'
                      + SUBSTRING(SELF:SCREEN-VALUE,iOff).
    SELF:CURSOR-OFFSET = iOff + 2.
END.

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


&Scoped-define SELF-NAME R_Set1
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL R_Set1 vTableWin
ON ENTRY OF R_Set1 IN FRAME F-Main
DO:
    R_Set1 = INTEGER(SELF:SCREEN-VALUE).
    iArt1  = R_Set1.
    RUN EINLESEN01.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL R_Set1 vTableWin
ON RETURN OF R_Set1 IN FRAME F-Main
DO:
    APPLY 'ENTRY' TO F_Eingabe IN FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL R_Set1 vTableWin
ON VALUE-CHANGED OF R_Set1 IN FRAME F-Main
DO:
    R_Set1 = INTEGER(SELF:SCREEN-VALUE).
    iArt1  = R_Set1.
    RUN EINLESEN01.
END.

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


&Scoped-define SELF-NAME R_Set2
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL R_Set2 vTableWin
ON ENTRY OF R_Set2 IN FRAME F-Main
DO:
    R_Set2 = INTEGER(SELF:SCREEN-VALUE).
    iArt2  = R_Set2.
    RUN EINLESEN02.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL R_Set2 vTableWin
ON RETURN OF R_Set2 IN FRAME F-Main
DO:
    APPLY 'ENTRY' TO F_Eingabe IN FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL R_Set2 vTableWin
ON VALUE-CHANGED OF R_Set2 IN FRAME F-Main
DO:
    R_Set2 = INTEGER(SELF:SCREEN-VALUE).
    iArt2  = R_Set2.
    RUN EINLESEN02.
END.

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


&Scoped-define SELF-NAME R_Set3
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL R_Set3 vTableWin
ON ENTRY OF R_Set3 IN FRAME F-Main
DO:
    R_Set3 = INTEGER(SELF:SCREEN-VALUE).
    iArt3  = R_Set3.
    RUN EINLESEN03.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL R_Set3 vTableWin
ON RETURN OF R_Set3 IN FRAME F-Main
DO:
    APPLY 'ENTRY' TO F_Eingabe IN FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL R_Set3 vTableWin
ON VALUE-CHANGED OF R_Set3 IN FRAME F-Main
DO:
    R_Set3 = INTEGER(SELF:SCREEN-VALUE).
    iArt3  = R_Set3.
    RUN EINLESEN03.
END.

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


&Scoped-define SELF-NAME R_Set4
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL R_Set4 vTableWin
ON ENTRY OF R_Set4 IN FRAME F-Main
DO:
    R_Set4 = INTEGER(SELF:SCREEN-VALUE).
    iArt4  = R_Set4.
    RUN EINLESEN04.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL R_Set4 vTableWin
ON RETURN OF R_Set4 IN FRAME F-Main
DO:
    APPLY 'ENTRY' TO F_Eingabe IN FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL R_Set4 vTableWin
ON VALUE-CHANGED OF R_Set4 IN FRAME F-Main
DO:
    R_Set4 = INTEGER(SELF:SCREEN-VALUE).
    iArt4  = R_Set4.
    RUN EINLESEN04.
END.

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


&UNDEFINE SELF-NAME

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


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

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

/*  Triggers    ------------------------------------------------------  */

ON 'RETURN':U OF FRAME {&FRAME-NAME} ANYWHERE
DO:
    RUN RETURN_FELD ( INPUT SELF:HANDLE ).
    IF RETURN-VALUE = 'TAB' THEN DO:
        APPLY 'TAB' TO SELF.
        RETURN NO-APPLY.
    END.
END.

ON 'ENTRY':U OF FRAME {&FRAME-NAME} ANYWHERE
DO:
    RUN ENTRY_FELD_TEST ( INPUT SELF:HANDLE ).
    IF RETURN-VALUE = 'ERROR' THEN DO:
        APPLY 'ENTRY' TO SELF.
        RETURN NO-APPLY.
    END.
    IF RETURN-VALUE = 'APPLY' THEN DO:
        RETURN NO-APPLY.
    END.
END.
    
ON 'LEAVE':U OF FRAME {&FRAME-NAME} ANYWHERE
DO:
    RUN LEAVE_FELD_TEST ( INPUT SELF:HANDLE ).
    IF RETURN-VALUE = 'ERROR' THEN DO:
        APPLY 'ENTRY' TO SELF.
        RETURN NO-APPLY.
    END.
    IF RETURN-VALUE = 'APPLY' THEN DO:
        RETURN NO-APPLY.
    END.
END.
    
&IF DEFINED(UIB_IS_RUNNING) <> 0 &THEN          
    RUN initializeObject.
&ENDIF         
  
  /************************ INTERNAL PROCEDURES ********************/

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


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

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

    FNeu  = TRUE.
    FMut  = TRUE.
    FDisp = FALSE.
    RUN SUPER.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects vTableWin  _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 cancelRecord vTableWin 
PROCEDURE cancelRecord :
/*------------------------------------------------------------------------------
  Purpose:     Super Override
  Parameters:  
  Notes:       
------------------------------------------------------------------------------*/

    /* Code placed here will execute PRIOR to standard behavior. */

    RUN SUPER.

    /* Code placed here will execute AFTER standard behavior.    */

END PROCEDURE.

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

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

    FNeu  = TRUE.
    FMut  = TRUE.
    FCopy = TRUE.
    FDisp = FALSE.
    RUN SUPER.

END PROCEDURE.

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

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

    DEF VAR Ja          AS LOG                      NO-UNDO.

    Ja = DYNAMIC-FUNCTION( 'ANTWORT_JA':U, INPUT 1000 ).
    IF NOT Ja THEN DO:
        PUBLISH 'TOOLBAR' ( INPUT 'CANCEL':U ).
        RETURN NO-APPLY.
    END.

    RUN SUPER.

    /* Code placed here will execute AFTER standard behavior.    */

END PROCEDURE.

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

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

    DEFINE INPUT PARAMETER pcFieldType AS CHARACTER NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
    END.

    RUN SUPER( INPUT pcFieldType).

    IF NOT VALID-HANDLE(Fenster) THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION.
    RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&ENABLED-FIELDS}', INPUT TRUE ).

    IF NUM-ENTRIES('{&KEY_FELDER}', ',') > 0 THEN DO:
        RUN FARBE_FELDER ( INPUT Fenster, INPUT '{&KEY_FELDER}', INPUT 15 ).
    END.

    DO WITH FRAME {&FRAME-NAME}:
        F_Eingabe:READ-ONLY = TRUE.
        R_Set1:SENSITIVE    = FALSE.
        R_Set2:SENSITIVE    = FALSE.
        R_Set3:SENSITIVE    = FALSE.
        R_Set4:SENSITIVE    = FALSE.
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI vTableWin  _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.
------------------------------------------------------------------------------*/
  /* Hide all frames. */
  HIDE FRAME F-Main.
  IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

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

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

    DEFINE INPUT PARAMETER pcColValues AS CHARACTER NO-UNDO.

    IF NOT FDisp THEN DO:
        FDisp = TRUE.
        RETURN.
    END.

    OldColValues = pcColValues.
    OldColList   = DYNAMIC-FUNCTION('getDisplayedFields':U).

    IF FNeu THEN RUN FEHLWERTE ( INPUT-OUTPUT pcColValues ).

    DO WITH FRAME {&FRAME-NAME}:
    END.
    
    RUN SUPER( INPUT pcColValues).

    DO WITH FRAME {&FRAME-NAME}:
        RUN EINLESEN01.
    END.

END PROCEDURE.

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

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

    DEF VAR cDaten      AS CHAR                     NO-UNDO.

DO WITH FRAME {&FRAME-NAME}:
    CASE iArt1:
        WHEN 1 THEN cDaten = rowObject.Drufont1:SCREEN-VALUE.
        WHEN 2 THEN cDaten = rowObject.Dru10cpi:SCREEN-VALUE.
        WHEN 3 THEN cDaten = rowObject.Dru12cpi:SCREEN-VALUE.
        WHEN 4 THEN cDaten = rowObject.Dru15cpi:SCREEN-VALUE.
        WHEN 5 THEN cDaten = rowObject.Dru17cpi:SCREEN-VALUE.
        WHEN 6 THEN cDaten = rowObject.Dru20cpi:SCREEN-VALUE.
        WHEN 7 THEN cDaten = rowObject.Dru48   :SCREEN-VALUE.
        WHEN 8 THEN cDaten = rowObject.Dru72   :SCREEN-VALUE.
        WHEN 9 THEN cDaten = rowObject.Dru96   :SCREEN-VALUE.
    END CASE.
END.

    RUN UMWANDELN_ASCI_SPEZ ( INPUT-OUTPUT cDaten ).

    F_Eingabe:PRIVATE-DATA = 'Gruppe1'.
    F_Eingabe:SCREEN-VALUE = cDaten.

DO WITH FRAME {&FRAME-NAME}:
    CASE iArt1:
        WHEN 1 THEN F_Eingabe:LABEL = 'Initialisierung'.
        WHEN 2 THEN F_Eingabe:LABEL = '10 Zeichen/Zoll'.
        WHEN 3 THEN F_Eingabe:LABEL = '12 Zeichen/Zoll'.
        WHEN 4 THEN F_Eingabe:LABEL = '15 Zeichen/Zoll'.
        WHEN 5 THEN F_Eingabe:LABEL = '17 Zeichen/Zoll'.
        WHEN 6 THEN F_Eingabe:LABEL = '20 Zeichen/Zoll'.
        WHEN 7 THEN F_Eingabe:LABEL = '48 Zeilen/Seite'.
        WHEN 8 THEN F_Eingabe:LABEL = '72 Zeilen/Seite'.
        WHEN 9 THEN F_Eingabe:LABEL = '96 Zeilen/Seite'.
    END CASE.
END.

END PROCEDURE.

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

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

    DEF VAR cDaten      AS CHAR                     NO-UNDO.

DO WITH FRAME {&FRAME-NAME}:
    CASE iArt2:
        WHEN  1 THEN cDaten = rowObject.DruHoch     :SCREEN-VALUE.
        WHEN  2 THEN cDaten = rowObject.DruQuer     :SCREEN-VALUE.
        WHEN  3 THEN cDaten = rowObject.DruFettB    :SCREEN-VALUE.
        WHEN  4 THEN cDaten = rowObject.DruFettE    :SCREEN-VALUE.
        WHEN  5 THEN cDaten = rowObject.DruUnterB   :SCREEN-VALUE.
        WHEN  6 THEN cDaten = rowObject.DruUnterE   :SCREEN-VALUE.
        WHEN  7 THEN cDaten = rowObject.DruInvB     :SCREEN-VALUE.
        WHEN  8 THEN cDaten = rowObject.DruInvE     :SCREEN-VALUE.
        WHEN  9 THEN cDaten = rowObject.DruLqB      :SCREEN-VALUE.
        WHEN 10 THEN cDaten = rowObject.DruLqE      :SCREEN-VALUE.
    END CASE.
END.

    RUN UMWANDELN_ASCI_SPEZ ( INPUT-OUTPUT cDaten ).

    F_Eingabe:PRIVATE-DATA = 'Gruppe2'.
    F_Eingabe:SCREEN-VALUE = cDaten.

DO WITH FRAME {&FRAME-NAME}:
    CASE iArt2:
        WHEN  1 THEN F_Eingabe:LABEL = 'Landscape(Hoch)'.
        WHEN  2 THEN F_Eingabe:LABEL = 'Portrait (Quer)'.
        WHEN  3 THEN F_Eingabe:LABEL = 'Fett ein'.
        WHEN  4 THEN F_Eingabe:LABEL = 'Fett aus'.
        WHEN  5 THEN F_Eingabe:LABEL = 'Unterstreichen ein'.
        WHEN  6 THEN F_Eingabe:LABEL = 'Unterstreichen aus'.
        WHEN  7 THEN F_Eingabe:LABEL = 'Invers ein'.
        WHEN  8 THEN F_Eingabe:LABEL = 'Invers aus'.
        WHEN  9 THEN F_Eingabe:LABEL = 'Letter Qualität ein'.
        WHEN 10 THEN F_Eingabe:LABEL = 'Letter Qualität aus'.
    END CASE.
END.

END PROCEDURE.

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

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

    DEF VAR cDaten      AS CHAR                     NO-UNDO.

DO WITH FRAME {&FRAME-NAME}:
    CASE iArt3:
        WHEN 1 THEN cDaten = rowObject.Drufont2 :SCREEN-VALUE.
        WHEN 2 THEN cDaten = rowObject.Drufont3 :SCREEN-VALUE.
        WHEN 3 THEN cDaten = rowObject.Drufont4 :SCREEN-VALUE.
        WHEN 4 THEN cDaten = rowObject.Drufont5 :SCREEN-VALUE.
        WHEN 5 THEN cDaten = rowObject.Drufont6 :SCREEN-VALUE.
        WHEN 6 THEN cDaten = rowObject.Drufont7 :SCREEN-VALUE.
        WHEN 7 THEN cDaten = rowObject.Drufont8 :SCREEN-VALUE.
        WHEN 8 THEN cDaten = rowObject.Drufont9 :SCREEN-VALUE.
        WHEN 9 THEN cDaten = rowObject.Drufont10:SCREEN-VALUE.
    END CASE.
END.

    RUN UMWANDELN_ASCI_SPEZ ( INPUT-OUTPUT cDaten ).

    F_Eingabe:PRIVATE-DATA = 'Gruppe3'.
    F_Eingabe:SCREEN-VALUE = cDaten.

DO WITH FRAME {&FRAME-NAME}:
    CASE iArt3:
        WHEN 1 THEN F_Eingabe:LABEL = 'Standardfont'.
        WHEN 2 THEN F_Eingabe:LABEL = 'OCR-B'.
        WHEN 3 THEN F_Eingabe:LABEL = 'Zusatzfont 1'.
        WHEN 4 THEN F_Eingabe:LABEL = 'Zusatzfont 2'.
        WHEN 5 THEN F_Eingabe:LABEL = 'Zusatzfont 3'.
        WHEN 6 THEN F_Eingabe:LABEL = 'Zusatzfont 4'.
        WHEN 7 THEN F_Eingabe:LABEL = 'Randbegr. aufheben'.
        WHEN 8 THEN F_Eingabe:LABEL = 'Linker Rand'.
        WHEN 9 THEN F_Eingabe:LABEL = 'LF -> CR/LF'.
    END CASE.
END.

END PROCEDURE.

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

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

    DEF VAR cDaten      AS CHAR                     NO-UNDO.

DO WITH FRAME {&FRAME-NAME}:
    CASE iArt4:
        WHEN 1 THEN cDaten = rowObject.DruSchacht1:SCREEN-VALUE.
        WHEN 2 THEN cDaten = rowObject.DruSchacht2:SCREEN-VALUE.
        WHEN 3 THEN cDaten = rowObject.DruSchacht3:SCREEN-VALUE.
        WHEN 4 THEN cDaten = rowObject.DruSchacht4:SCREEN-VALUE.
        WHEN 5 THEN cDaten = rowObject.DruSchacht5:SCREEN-VALUE.
        WHEN 6 THEN cDaten = rowObject.DruSchacht6:SCREEN-VALUE.
        WHEN 7 THEN cDaten = rowObject.DruSchacht7:SCREEN-VALUE.
        WHEN 8 THEN cDaten = rowObject.DruSchacht8:SCREEN-VALUE.
        WHEN 9 THEN cDaten = rowObject.DruSchacht9:SCREEN-VALUE.
    END CASE.
END.

    RUN UMWANDELN_ASCI_SPEZ ( INPUT-OUTPUT cDaten ).

    F_Eingabe:PRIVATE-DATA = 'Gruppe4'.
    F_Eingabe:SCREEN-VALUE = cDaten.

DO WITH FRAME {&FRAME-NAME}:
    CASE iArt4:
        WHEN 1 THEN F_Eingabe:LABEL = 'Schacht 1'.
        WHEN 2 THEN F_Eingabe:LABEL = 'Schacht 2'.
        WHEN 3 THEN F_Eingabe:LABEL = 'Schacht 3'.
        WHEN 4 THEN F_Eingabe:LABEL = 'Schacht 4'.
        WHEN 5 THEN F_Eingabe:LABEL = 'Schacht 5'.
        WHEN 6 THEN F_Eingabe:LABEL = 'Schacht 6'.
        WHEN 7 THEN F_Eingabe:LABEL = 'Schacht 7'.
        WHEN 8 THEN F_Eingabe:LABEL = 'Schacht 8'.
        WHEN 9 THEN F_Eingabe:LABEL = 'Schacht 9'.
    END CASE.
END.

END PROCEDURE.

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

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

  /* Code placed here will execute PRIOR to standard behavior. */
/*
    RUN SUPER.
*/
    IF NOT VALID-HANDLE(Fenster) THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION.
    RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&ENABLED-FIELDS}', INPUT FALSE ).

    IF NUM-ENTRIES('{&NUR_LESEN}', ',') > 0 THEN DO:
        RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&NUR_LESEN}', INPUT TRUE ).
    END.
    
    DO WITH FRAME {&FRAME-NAME}:
        F_Eingabe:READ-ONLY = FALSE.
        R_Set1:SENSITIVE    = TRUE.
        R_Set2:SENSITIVE    = TRUE.
        R_Set3:SENSITIVE    = TRUE.
        R_Set4:SENSITIVE    = TRUE.
    END.
    
    IF FNeu THEN RETURN.

    IF NUM-ENTRIES('{&KEY_FELDER}', ',') > 0 THEN DO:
        RUN SCHUETZE_FELDER ( INPUT Fenster, INPUT '{&KEY_FELDER}', INPUT TRUE ).
    END.

END PROCEDURE.

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

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

    RUN SUPER.

    IF NOT VALID-HANDLE(Fenster) THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION.

    IF SAktiv THEN DO:
        RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&ENABLED-FIELDS}', INPUT TRUE ).
    END.

    DO WITH FRAME {&FRAME-NAME}:
        F_Eingabe:READ-ONLY = TRUE.
        R_Set1:SENSITIVE    = FALSE.
        R_Set2:SENSITIVE    = FALSE.
        R_Set3:SENSITIVE    = FALSE.
        R_Set4:SENSITIVE    = FALSE.
    END.

END PROCEDURE.

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

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

    DEF INPUT PARAMETER ipHandle        AS HANDLE           NO-UNDO.

    DEF VAR FeldName        AS CHAR                 NO-UNDO.
    DEF VAR FeldInhalt      AS CHAR                 NO-UNDO.

    FeldName   = ''.
    FeldInhalt = ''.
    IF NOT VALID-HANDLE(ipHandle)   THEN RETURN ''.
    IF ipHandle:TYPE = 'FRAME'      THEN RETURN ''.
    IF ipHandle:TYPE = 'WINDOW'     THEN RETURN ''.
    
    FeldName = ipHandle:NAME.
    IF ipHandle:TYPE = 'FILL-IN'    OR
       ipHandle:TYPE = 'COMBO-BOX'  OR
       ipHandle:TYPE = 'TOGGLE-BOX' THEN FeldInhalt = ipHandle:SCREEN-VALUE.

    IF NOT FMut THEN RETURN ''.

DO WITH FRAME {&FRAME-NAME}:
    CASE FeldName:
    END CASE.
END.

    RETURN ''.

END PROCEDURE.

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

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

    DEF INPUT-OUTPUT PARAMETER pcColValues  AS CHAR          NO-UNDO.

    DEF VAR FwFelder    AS CHAR                     NO-UNDO.
    DEF VAR FwFeld      AS CHAR                     NO-UNDO.
    DEF VAR FwValue     AS CHAR                     NO-UNDO.
    DEF VAR ix          AS INT                      NO-UNDO.    
    DEF VAR i1          AS INT                      NO-UNDO.    

    GET-KEY-VALUE SECTION 'Fw???????' KEY ? VALUE FwFelder.

    IF NOT FCopy THEN DO:
        DO ix = 1 TO NUM-ENTRIES(FwFelder, ','):
            FwFeld = ENTRY (ix    , FwFelder  , ',').
            i1     = LOOKUP(FwFeld, oldColList, ',') + 1.
            IF i1 < 2 THEN NEXT.
            GET-KEY-VALUE SECTION 'Fw???????' KEY FwFeld VALUE FwValue.
            ENTRY(i1, pcColValues, CHR(1)) = FwValue NO-ERROR.
        END.
    END.

    IF FCopy THEN DO:
    END.

    OldColValues = pcColValues.

END PROCEDURE.

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

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

    DEF INPUT PARAMETER ipHandle        AS HANDLE           NO-UNDO.

    DEF VAR FeldName        AS CHAR                 NO-UNDO.
    DEF VAR FeldInhalt      AS CHAR                 NO-UNDO.
    DEF VAR ix              AS INT                  NO-UNDO.
    DEF VAR LKY             AS INT                  NO-UNDO.
    DEF VAR hLEAVE          AS HANDLE               NO-UNDO.
    DEF VAR hENTER          AS HANDLE               NO-UNDO.
    DEF VAR Daten           AS CHAR                 NO-UNDO.

    IF FMut = FALSE THEN RETURN ''.

    LKY        = LASTKEY.
    hENTER     = LAST-EVENT:WIDGET-ENTER.
    hLEAVE     = LAST-EVENT:WIDGET-LEAVE.
    FeldName   = ''.
    FeldInhalt = ''.
    IF NOT VALID-HANDLE(ipHandle)   THEN RETURN ''.
    IF ipHandle:TYPE = 'FRAME'      THEN RETURN ''.
    IF ipHandle:TYPE = 'WINDOW'     THEN RETURN ''.
    
    FeldName = ipHandle:NAME.
    IF ipHandle:TYPE = 'FILL-IN'    OR
       ipHandle:TYPE = 'COMBO-BOX'  OR
       ipHandle:TYPE = 'TOGGLE-BOX' THEN FeldInhalt = ipHandle:SCREEN-VALUE.

    DO WHILE FNeu:
        CASE FeldName:
        END CASE.
        LEAVE.
    END.
    DO WITH FRAME {&FRAME-NAME}:
        CASE FeldName:
            WHEN 'F_Eingabe' THEN DO:
                RUN UMWANDELN_SPEZ_ASCI ( INPUT FeldInhalt ).
                RETURN RETURN-VALUE.
            END.
        END CASE.
    END.

    IF LOOKUP(FeldName, '{&LETZTES_FELD}', ',') > 0 THEN DO:
        DO WHILE TRUE:
            IF KEYFUNCTION(LKY) = 'TAB'     THEN LEAVE.
            IF KEYFUNCTION(LKY) = 'RETURN'  THEN LEAVE.
            IF KEYFUNCTION(LKY) = 'F9'      THEN LEAVE.
            RETURN ''.
        END.
        APPLY 'ALT-S'.
        RETURN 'APPLY'.
    END.

    RETURN ''.

END PROCEDURE.

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

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

    DEF INPUT PARAMETER ipHandle        AS HANDLE           NO-UNDO.

    DEF VAR FeldName        AS CHAR                 NO-UNDO.
    
    IF FMut = FALSE THEN RETURN ''.

    IF NOT VALID-HANDLE(ipHandle)   THEN RETURN ''.
    IF ipHandle:TYPE = 'FRAME'      THEN RETURN ''.
    IF ipHandle:TYPE = 'WINDOW'     THEN RETURN ''.
    
    FeldName = ipHandle:NAME.
    IF LOOKUP(FeldName, '{&ENABLED-FIELDS}', ' ') > 0 THEN DO:
        RETURN 'TAB'.
    END.
    IF LOOKUP(FeldName, '{&ENABLED-OBJECTS}', ' ') > 0 THEN DO:
        RETURN 'TAB'.
    END.
    FeldName = 'rowObject.' + FeldName.
    IF LOOKUP(FeldName, '{&ENABLED-FIELDS}', ' ') > 0 THEN DO:
        RETURN 'TAB'.
    END.
    IF LOOKUP(FeldName, '{&ENABLED-OBJECTS}', ' ') > 0 THEN DO:
        RETURN 'TAB'.
    END.

    RETURN ''.

END PROCEDURE.

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

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

    DEF INPUT-OUTPUT PARAMETER ipDaten  AS CHAR         NO-UNDO.

    DEF VAR cDaten      AS CHAR                     NO-UNDO.
    DEF VAR ii          AS INT                      NO-UNDO.
    DEF VAR jj          AS INT                      NO-UNDO.

    cDaten = ''.
    DO ii = 1 TO LENGTH(ipDaten):
        IF SUBSTRING(ipDaten,ii,01) >= CHR(32) THEN DO:
            cDaten = cDaten + SUBSTRING(ipDaten,ii,01).
            NEXT.
        END.
        IF SUBSTRING(ipDaten,ii,01) = CHR(27) THEN DO:
            cDaten = cDaten + '\E'.
            NEXT.
        END.
        cDaten = cDaten + '\' + STRING(ASC(SUBSTRING(ipDaten,ii,01)),'999').
    END.
    ipDaten = cDaten.

END PROCEDURE.

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

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

    DEF INPUT PARAMETER ipDaten     AS CHAR                 NO-UNDO.

    DEF VAR cDaten      AS CHAR                     NO-UNDO.
    DEF VAR ii          AS INT                      NO-UNDO.
    DEF VAR jj          AS INT                      NO-UNDO.

    ii = INDEX(ipDaten, '\E').
    DO WHILE ii > 0:
        DO WHILE TRUE:
            IF ii = 1 THEN DO:
                ipDaten = CHR(27) + SUBSTRING(ipDaten,03).
                LEAVE.
            END.
            ipDaten = SUBSTRING(ipDaten,01,ii - 1) + CHR(27)
                    + SUBSTRING(ipDaten,ii + 2).
            LEAVE.
        END.
        ii = INDEX(ipDaten, '\E').
    END.

    ii = INDEX(ipDaten, '\').
    DO WHILE ii > 0:
        cDaten = ''.
        DO jj = ii + 1 TO ii + 3:
            IF SUBSTRING(ipDaten,jj,01) < '0' THEN LEAVE.
            IF SUBSTRING(ipDaten,jj,01) > '9' THEN LEAVE.
            cDaten = cDaten + SUBSTRING(ipDaten,jj,01).
        END.
        DO WHILE TRUE:
            IF ii = 1 THEN DO:
                ipDaten = CHR(INTEGER(cDaten)) + SUBSTRING(ipDaten,jj).
                LEAVE.
            END.
            ipDaten = SUBSTRING(ipDaten,01,ii - 1) + CHR(INTEGER(cDaten))
                    + SUBSTRING(ipDaten,jj).
            LEAVE.
        END.
        ii = INDEX(ipDaten, '\').
    END.

    CASE F_Eingabe:PRIVATE-DATA IN FRAME {&FRAME-NAME}:
        WHEN 'Gruppe1' THEN DO:
            CASE iArt1:
                WHEN 1 THEN rowObject.Drufont1:SCREEN-VALUE = ipDaten.
                WHEN 2 THEN rowObject.Dru10cpi:SCREEN-VALUE = ipDaten.
                WHEN 3 THEN rowObject.Dru12cpi:SCREEN-VALUE = ipDaten.
                WHEN 4 THEN rowObject.Dru15cpi:SCREEN-VALUE = ipDaten.
                WHEN 5 THEN rowObject.Dru17cpi:SCREEN-VALUE = ipDaten.
                WHEN 6 THEN rowObject.Dru20cpi:SCREEN-VALUE = ipDaten.
                WHEN 7 THEN rowObject.Dru48   :SCREEN-VALUE = ipDaten.
                WHEN 8 THEN rowObject.Dru72   :SCREEN-VALUE = ipDaten.
                WHEN 9 THEN rowObject.Dru96   :SCREEN-VALUE = ipDaten.
            END CASE.
        END.
        WHEN 'Gruppe2' THEN DO:
            CASE iArt2:
                WHEN  1 THEN rowObject.DruHoch  :SCREEN-VALUE = ipDaten.
                WHEN  2 THEN rowObject.DruQuer  :SCREEN-VALUE = ipDaten.
                WHEN  3 THEN rowObject.DruFettB :SCREEN-VALUE = ipDaten.
                WHEN  4 THEN rowObject.DruFettE :SCREEN-VALUE = ipDaten.
                WHEN  5 THEN rowObject.DruUnterB:SCREEN-VALUE = ipDaten.
                WHEN  6 THEN rowObject.DruUnterE:SCREEN-VALUE = ipDaten.
                WHEN  7 THEN rowObject.DruInvB  :SCREEN-VALUE = ipDaten.
                WHEN  8 THEN rowObject.DruInvE  :SCREEN-VALUE = ipDaten.
                WHEN  9 THEN rowObject.DruLqB   :SCREEN-VALUE = ipDaten.
                WHEN 10 THEN rowObject.DruLqE   :SCREEN-VALUE = ipDaten.
            END CASE.
        END.
        WHEN 'Gruppe3' THEN DO:
            CASE iArt3:
                WHEN 1 THEN rowObject.Drufont2 :SCREEN-VALUE = ipDaten.
                WHEN 2 THEN rowObject.Drufont3 :SCREEN-VALUE = ipDaten.
                WHEN 3 THEN rowObject.Drufont4 :SCREEN-VALUE = ipDaten.
                WHEN 4 THEN rowObject.Drufont5 :SCREEN-VALUE = ipDaten.
                WHEN 5 THEN rowObject.Drufont6 :SCREEN-VALUE = ipDaten.
                WHEN 6 THEN rowObject.Drufont7 :SCREEN-VALUE = ipDaten.
                WHEN 7 THEN rowObject.Drufont8 :SCREEN-VALUE = ipDaten.
                WHEN 8 THEN rowObject.Drufont9 :SCREEN-VALUE = ipDaten.
                WHEN 9 THEN rowObject.Drufont10:SCREEN-VALUE = ipDaten.
            END CASE.
        END.
        WHEN 'Gruppe4' THEN DO:
            CASE iArt4:
                WHEN 1 THEN rowObject.DruSchacht1:SCREEN-VALUE = ipDaten.
                WHEN 2 THEN rowObject.DruSchacht2:SCREEN-VALUE = ipDaten.
                WHEN 3 THEN rowObject.DruSchacht3:SCREEN-VALUE = ipDaten.
                WHEN 4 THEN rowObject.DruSchacht4:SCREEN-VALUE = ipDaten.
                WHEN 5 THEN rowObject.DruSchacht5:SCREEN-VALUE = ipDaten.
                WHEN 6 THEN rowObject.DruSchacht6:SCREEN-VALUE = ipDaten.
                WHEN 7 THEN rowObject.DruSchacht7:SCREEN-VALUE = ipDaten.
                WHEN 8 THEN rowObject.DruSchacht8:SCREEN-VALUE = ipDaten.
                WHEN 9 THEN rowObject.DruSchacht9:SCREEN-VALUE = ipDaten.
            END CASE.
        END.
    END CASE.

    CASE F_Eingabe:PRIVATE-DATA IN FRAME {&FRAME-NAME}:
        WHEN 'Gruppe1' THEN DO:
            APPLY 'ENTRY' TO R_Set1.
            RETURN 'APPLY'.
        END.
        WHEN 'Gruppe2' THEN DO:
            APPLY 'ENTRY' TO R_Set2.
            RETURN 'APPLY'.
        END.
        WHEN 'Gruppe3' THEN DO:
            APPLY 'ENTRY' TO R_Set3.
            RETURN 'APPLY'.
        END.
        WHEN 'Gruppe4' THEN DO:
            APPLY 'ENTRY' TO R_Set4.
            RETURN 'APPLY'.
        END.
    END CASE.

END PROCEDURE.

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

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

    DEFINE INPUT PARAMETER pcMode AS CHARACTER NO-UNDO.
  
    CASE pcMode:
        WHEN 'updateBegin' THEN DO:
        END.
        WHEN 'updateEnd' THEN DO:
        END.
    END.

    RUN SUPER( INPUT pcMode).

    CASE pcMode:
        WHEN 'updateBegin' THEN DO:
            FMut = TRUE.
        END.
        WHEN 'updateEnd' THEN DO:
            FNeu  = FALSE.
            FMut  = FALSE.
            FCopy = FALSE.
        END.
    END.

END PROCEDURE.

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

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

    DO WITH FRAME {&FRAME-NAME}:
        IF NOT VALID-HANDLE(Fenster)
            THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION.
        DYNAMIC-FUNCTION('SETMODIFIEDFLAG':U, INPUT Fenster, INPUT TRUE ) NO-ERROR.
    END.

    FNeu  = FALSE.
    FCopy = FALSE.
    RUN SUPER.

    /* Code placed here will execute AFTER standard behavior.    */

END PROCEDURE.

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