&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: Output Parameters: ------------------------------------------------------------------------*/ /* 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: ------------------------------------------------------------------------------*/ 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: 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: 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: 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: 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: 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: 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: 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: 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: 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: 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: 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