&ANALYZE-SUSPEND _VERSION-NUMBER AB_v9r12 GUI ADM2 &ANALYZE-RESUME &Scoped-define WINDOW-NAME wBESRSchein &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS wBESRSchein /*------------------------------------------------------------------------ File: Description: from cntnrwin.w - ADM SmartWindow Template Input Parameters: Output Parameters: History: New V9 Version - January 15, 1998 ------------------------------------------------------------------------*/ /* This .W file was created with the Progress AB. */ /*----------------------------------------------------------------------*/ /* Create an unnamed pool to store all the widgets created by this procedure. This is a good default which assures that this procedure's triggers and internal procedures will execute in this procedure's storage, and that proper cleanup will occur on deletion of the procedure. */ CREATE WIDGET-POOL. /* *************************** Definitions ************************** */ /* Parameters Definitions --- */ /* Local Variable Definitions --- */ DEF VAR MaxPage AS INT NO-UNDO. DEF VAR AktSeite AS INT NO-UNDO. DEF VAR Fenster AS HANDLE NO-UNDO. DEF VAR hToolbar AS HANDLE NO-UNDO. DEF VAR FMutFlag AS LOG NO-UNDO INIT FALSE. DEF VAR SAktiv AS LOG NO-UNDO INIT FALSE. DEF VAR Firma AS CHAR NO-UNDO. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK /* ******************** Preprocessor Definitions ******************** */ &Scoped-define PROCEDURE-TYPE SmartWindow &Scoped-define DB-AWARE no &Scoped-define ADM-CONTAINER WINDOW &Scoped-define ADM-SUPPORTED-LINKS Data-Target,Data-Source,Page-Target,Update-Source,Update-Target,Filter-target,Filter-Source /* Name of first Frame and/or Browse and/or first Query */ &Scoped-define FRAME-NAME fMain /* Standard List Definitions */ &Scoped-Define ENABLED-OBJECTS Btn_Mutieren CB_BESRART F_Zeile-1 F_Zeile-2 ~ F_Zeile-3 F_Zeile-4 F_Zeile-5 F_Zeile-6 F_Zeile-7 F_Zeile-8 F_Konto-1 ~ F_Bankkto F_Zeile-9 F_Zeile-10 F_Zeile-11 F_Zeile-12 F_Zeile-13 F_Zeile-14 ~ F_Zeile-15 F_Zeile-16 F_Konto-2 IMAGE-3 &Scoped-Define DISPLAYED-OBJECTS CB_BESRART F_Zeile-1 F_Zeile-2 F_Zeile-3 ~ F_Zeile-4 F_Zeile-5 F_Zeile-6 F_Zeile-7 F_Zeile-8 F_Konto-1 F_Bankkto ~ F_Zeile-9 F_Zeile-10 F_Zeile-11 F_Zeile-12 F_Zeile-13 F_Zeile-14 F_Zeile-15 ~ F_Zeile-16 F_Konto-2 /* Custom List Definitions */ /* List-1,List-2,List-3,List-4,List-5,List-6 */ &Scoped-define List-6 F_Zeile-1 F_Zeile-2 F_Zeile-3 F_Zeile-4 F_Zeile-5 ~ F_Zeile-6 F_Zeile-7 F_Zeile-8 F_Konto-1 F_Bankkto F_Zeile-9 F_Zeile-10 ~ F_Zeile-11 F_Zeile-12 F_Zeile-13 F_Zeile-14 F_Zeile-15 F_Zeile-16 F_Konto-2 /* _UIB-PREPROCESSOR-BLOCK-END */ &ANALYZE-RESUME /* *********************** Control Definitions ********************** */ /* Define the widget handle for the window */ DEFINE VAR wBESRSchein AS WIDGET-HANDLE NO-UNDO. /* Definitions of the field level widgets */ DEFINE BUTTON Btn_Mutieren LABEL "Mutieren" SIZE 12 BY 1. DEFINE VARIABLE CB_BESRART AS CHARACTER FORMAT "X(256)":U LABEL "BESR-Bank/-Post" VIEW-AS COMBO-BOX INNER-LINES 5 LIST-ITEM-PAIRS "Item 1","Item 1" DROP-DOWN-LIST SIZE 40 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Bankkto AS CHARACTER FORMAT "99999999999999":U INITIAL "00000000000000" VIEW-AS FILL-IN NATIVE SIZE 24 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Konto-1 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 20 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Konto-2 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 20 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Zeile-1 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 43.8 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Zeile-10 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 43.8 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Zeile-11 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 43.8 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Zeile-12 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 43.8 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Zeile-13 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 43.8 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Zeile-14 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 43.8 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Zeile-15 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 43.8 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Zeile-16 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 43.8 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Zeile-2 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 43.8 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Zeile-3 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 43.8 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Zeile-4 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 43.8 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Zeile-5 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 43.8 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Zeile-6 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 43.8 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Zeile-7 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 43.8 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Zeile-8 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 43.8 BY .81 BGCOLOR 8 NO-UNDO. DEFINE VARIABLE F_Zeile-9 AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN NATIVE SIZE 43.8 BY .81 BGCOLOR 8 NO-UNDO. DEFINE IMAGE IMAGE-3 FILENAME "grafik\besr.jpg":U STRETCH-TO-FIT SIZE 138.8 BY 17.33. /* ************************ Frame Definitions *********************** */ DEFINE FRAME fMain Btn_Mutieren AT ROW 1.1 COL 80 CB_BESRART AT ROW 1.1 COL 18.8 COLON-ALIGNED F_Zeile-1 AT ROW 3.76 COL 1.6 NO-LABEL F_Zeile-2 AT ROW 4.52 COL 1.6 NO-LABEL F_Zeile-3 AT ROW 5.33 COL 1.6 NO-LABEL F_Zeile-4 AT ROW 6.14 COL 1.6 NO-LABEL F_Zeile-5 AT ROW 6.95 COL 1.6 NO-LABEL F_Zeile-6 AT ROW 7.76 COL 1.6 NO-LABEL F_Zeile-7 AT ROW 8.57 COL 1.6 NO-LABEL F_Zeile-8 AT ROW 9.33 COL 1.6 NO-LABEL F_Konto-1 AT ROW 10.14 COL 25 NO-LABEL F_Bankkto AT ROW 8.52 COL 98.2 NO-LABEL F_Zeile-9 AT ROW 3.76 COL 49 NO-LABEL F_Zeile-10 AT ROW 4.52 COL 49 NO-LABEL F_Zeile-11 AT ROW 5.33 COL 49 NO-LABEL F_Zeile-12 AT ROW 6.14 COL 49 NO-LABEL F_Zeile-13 AT ROW 6.95 COL 49 NO-LABEL F_Zeile-14 AT ROW 7.76 COL 49 NO-LABEL F_Zeile-15 AT ROW 8.57 COL 49 NO-LABEL F_Zeile-16 AT ROW 9.33 COL 49 NO-LABEL F_Konto-2 AT ROW 10.14 COL 73 NO-LABEL IMAGE-3 AT ROW 2.24 COL 1 WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY SIDE-LABELS NO-UNDERLINE THREE-D AT COL 1 ROW 1 SIZE 138.8 BY 18.57. /* *********************** Procedure Settings ************************ */ &ANALYZE-SUSPEND _PROCEDURE-SETTINGS /* Settings for THIS-PROCEDURE Type: SmartWindow Allow: Basic,Browse,DB-Fields,Query,Smart,Window Container Links: Data-Target,Data-Source,Page-Target,Update-Source,Update-Target,Filter-target,Filter-Source Design Page: 1 Other Settings: COMPILE */ &ANALYZE-RESUME _END-PROCEDURE-SETTINGS /* ************************* Create Window ************************** */ &ANALYZE-SUSPEND _CREATE-WINDOW IF SESSION:DISPLAY-TYPE = "GUI":U THEN CREATE WINDOW wBESRSchein ASSIGN HIDDEN = YES TITLE = "Einzahlungsscheine" HEIGHT = 18.57 WIDTH = 138.8 MAX-HEIGHT = 48.76 MAX-WIDTH = 256 VIRTUAL-HEIGHT = 48.76 VIRTUAL-WIDTH = 256 RESIZE = no SCROLL-BARS = no STATUS-AREA = no BGCOLOR = ? FGCOLOR = ? THREE-D = yes MESSAGE-AREA = no SENSITIVE = yes. ELSE {&WINDOW-NAME} = CURRENT-WINDOW. &IF '{&WINDOW-SYSTEM}' NE 'TTY' &THEN IF NOT wBESRSchein:LOAD-ICON("grafik/appl.ico":U) THEN MESSAGE "Unable to load icon: grafik/appl.ico" VIEW-AS ALERT-BOX WARNING BUTTONS OK. &ENDIF /* END WINDOW DEFINITION */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB wBESRSchein /* ************************* Included-Libraries *********************** */ {src/adm2/containr.i} /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* *********** Runtime Attributes and AppBuilder Settings *********** */ &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES /* SETTINGS FOR WINDOW wBESRSchein VISIBLE,,RUN-PERSISTENT */ /* SETTINGS FOR FRAME fMain Custom */ /* SETTINGS FOR FILL-IN F_Bankkto IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Konto-1 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Konto-2 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Zeile-1 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Zeile-10 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Zeile-11 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Zeile-12 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Zeile-13 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Zeile-14 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Zeile-15 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Zeile-16 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Zeile-2 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Zeile-3 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Zeile-4 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Zeile-5 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Zeile-6 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Zeile-7 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Zeile-8 IN FRAME fMain ALIGN-L 6 */ /* SETTINGS FOR FILL-IN F_Zeile-9 IN FRAME fMain ALIGN-L 6 */ IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wBESRSchein) THEN wBESRSchein:HIDDEN = yes. /* _RUN-TIME-ATTRIBUTES-END */ &ANALYZE-RESUME /* ************************ Control Triggers ************************ */ &Scoped-define SELF-NAME wBESRSchein &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wBESRSchein wBESRSchein ON END-ERROR OF wBESRSchein /* Einzahlungsscheine */ OR ENDKEY OF {&WINDOW-NAME} ANYWHERE DO: IF THIS-PROCEDURE:PERSISTENT THEN RETURN NO-APPLY. RUN ENDE. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wBESRSchein wBESRSchein ON WINDOW-CLOSE OF wBESRSchein /* Einzahlungsscheine */ DO: RUN ENDE. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME Btn_Mutieren &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Mutieren wBESRSchein ON CHOOSE OF Btn_Mutieren IN FRAME fMain /* Mutieren */ DO: RUN SCHREIBEN_DATEN ( INPUT CB_BESRART:SCREEN-VALUE ). APPLY 'ENTRY' TO F_Zeile-1. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME CB_BESRART &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_BESRART wBESRSchein ON VALUE-CHANGED OF CB_BESRART IN FRAME fMain /* BESR-Bank/-Post */ DO: RUN LESEN_DATEN ( INPUT SELF:SCREEN-VALUE ). APPLY 'ENTRY' TO F_Zeile-1. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Bankkto &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Bankkto wBESRSchein ON LEAVE OF F_Bankkto IN FRAME fMain DO: DEF VAR i1 AS INT NO-UNDO. i1 = LENGTH(SELF:SCREEN-VALUE). IF i1 > 14 THEN SELF:SCREEN-VALUE = SUBSTRING(SELF:SCREEN-VALUE,01,14). ELSE DO: SELF:SCREEN-VALUE = SELF:SCREEN-VALUE + FILL('0',14 - i1). END. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Konto-1 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Konto-1 wBESRSchein ON LEAVE OF F_Konto-1 IN FRAME fMain DO: F_Konto-2:SCREEN-VALUE = SELF:SCREEN-VALUE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Zeile-1 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zeile-1 wBESRSchein ON VALUE-CHANGED OF F_Zeile-1 IN FRAME fMain DO: F_Zeile-9:SCREEN-VALUE = SELF:SCREEN-VALUE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Zeile-2 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zeile-2 wBESRSchein ON VALUE-CHANGED OF F_Zeile-2 IN FRAME fMain DO: F_Zeile-10:SCREEN-VALUE = SELF:SCREEN-VALUE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Zeile-3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zeile-3 wBESRSchein ON VALUE-CHANGED OF F_Zeile-3 IN FRAME fMain DO: F_Zeile-11:SCREEN-VALUE = SELF:SCREEN-VALUE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Zeile-4 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zeile-4 wBESRSchein ON VALUE-CHANGED OF F_Zeile-4 IN FRAME fMain DO: F_Zeile-12:SCREEN-VALUE = SELF:SCREEN-VALUE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Zeile-5 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zeile-5 wBESRSchein ON VALUE-CHANGED OF F_Zeile-5 IN FRAME fMain DO: F_Zeile-13:SCREEN-VALUE = SELF:SCREEN-VALUE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Zeile-6 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zeile-6 wBESRSchein ON VALUE-CHANGED OF F_Zeile-6 IN FRAME fMain DO: F_Zeile-14:SCREEN-VALUE = SELF:SCREEN-VALUE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Zeile-7 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zeile-7 wBESRSchein ON VALUE-CHANGED OF F_Zeile-7 IN FRAME fMain DO: F_Zeile-15:SCREEN-VALUE = SELF:SCREEN-VALUE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Zeile-8 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zeile-8 wBESRSchein ON VALUE-CHANGED OF F_Zeile-8 IN FRAME fMain DO: F_Zeile-16:SCREEN-VALUE = SELF:SCREEN-VALUE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &UNDEFINE SELF-NAME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK wBESRSchein /* *************************** Main Block *************************** */ MaxPage = 1. AktSeite = 1. SAktiv = DYNAMIC-FUNCTION('getSuperAktiv':U) NO-ERROR. IF SAktiv THEN DO: Firma = DYNAMIC-FUNCTION('GETMANDANT':U) NO-ERROR. END. SESSION:DATA-ENTRY-RETURN = TRUE. /* TRIGGERS ------------------------------------------------------ */ ON 'END-ERROR':U OF {&WINDOW-NAME} ANYWHERE DO: RUN ENDE. RETURN NO-APPLY. END. /* Include custom Main Block code for SmartWindows. */ {src/adm2/windowmn.i} /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* ********************** Internal Procedures *********************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects wBESRSchein _ADM-CREATE-OBJECTS PROCEDURE adm-create-objects : /*------------------------------------------------------------------------------ Purpose: Create handles for all SmartObjects used in this procedure. After SmartObjects are initialized, then SmartLinks are added. Parameters: ------------------------------------------------------------------------------*/ END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE changePage wBESRSchein PROCEDURE changePage : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ RUN SUPER. AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U). CASE AktSeite: WHEN 1 THEN DO: /* RUN addLink ( hToolbar , 'TableIO':U , h_v-auftr ). RUN addLink ( hToolbar , 'Navigation':U , h_d-auftr ). */ END. END CASE. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI wBESRSchein _DEFAULT-DISABLE PROCEDURE disable_UI : /*------------------------------------------------------------------------------ Purpose: DISABLE the User Interface Parameters: Notes: Here we clean-up the user-interface by deleting dynamic widgets we have created and/or hide frames. This procedure is usually called when we are ready to "clean-up" after running. ------------------------------------------------------------------------------*/ /* Delete the WINDOW we created */ IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wBESRSchein) THEN DELETE WIDGET wBESRSchein. IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject wBESRSchein PROCEDURE enableObject : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR wx AS INT NO-UNDO. DEF VAR wy AS INT NO-UNDO. DEF VAR xString AS CHAR NO-UNDO. GET-KEY-VALUE SECTION 'FensterPositionen' KEY 'BESRSchein' VALUE xString. IF xString = ? THEN xString = '30;30'. IF xString = '' THEN xString = '30;30'. wx = INTEGER(ENTRY(1, xString, ';')). wy = INTEGER(ENTRY(2, xString, ';')). IF wx < 0 THEN wx = 1. IF wy < 0 THEN wy = 1. {&WINDOW-NAME}:X = wx. {&WINDOW-NAME}:Y = wy. RUN SUPER. IF SAktiv THEN RUN FENSTER_TITEL ( INPUT {&WINDOW-NAME}:HANDLE ) NO-ERROR. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI wBESRSchein _DEFAULT-ENABLE PROCEDURE enable_UI : /*------------------------------------------------------------------------------ Purpose: ENABLE the User Interface Parameters: Notes: Here we display/view/enable the widgets in the user-interface. In addition, OPEN all queries associated with each FRAME and BROWSE. These statements here are based on the "Other Settings" section of the widget Property Sheets. ------------------------------------------------------------------------------*/ DISPLAY CB_BESRART F_Zeile-1 F_Zeile-2 F_Zeile-3 F_Zeile-4 F_Zeile-5 F_Zeile-6 F_Zeile-7 F_Zeile-8 F_Konto-1 F_Bankkto F_Zeile-9 F_Zeile-10 F_Zeile-11 F_Zeile-12 F_Zeile-13 F_Zeile-14 F_Zeile-15 F_Zeile-16 F_Konto-2 WITH FRAME fMain IN WINDOW wBESRSchein. ENABLE Btn_Mutieren CB_BESRART F_Zeile-1 F_Zeile-2 F_Zeile-3 F_Zeile-4 F_Zeile-5 F_Zeile-6 F_Zeile-7 F_Zeile-8 F_Konto-1 F_Bankkto F_Zeile-9 F_Zeile-10 F_Zeile-11 F_Zeile-12 F_Zeile-13 F_Zeile-14 F_Zeile-15 F_Zeile-16 F_Konto-2 IMAGE-3 WITH FRAME fMain IN WINDOW wBESRSchein. {&OPEN-BROWSERS-IN-QUERY-fMain} VIEW wBESRSchein. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENDE wBESRSchein PROCEDURE ENDE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR wx AS INT NO-UNDO. DEF VAR wy AS INT NO-UNDO. DEF VAR xString AS CHAR NO-UNDO. AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR. IF AktSeite > 1 THEN DO: RUN selectPage ( INPUT 1 ). RETURN NO-APPLY. END. IF Saktiv THEN RUN ENDE_PROGRAMM ( INPUT THIS-PROCEDURE:FILE-NAME ). wx = {&WINDOW-NAME}:X NO-ERROR. wy = {&WINDOW-NAME}:Y NO-ERROR. xString = STRING(wx) + ';' + STRING(wy). PUT-KEY-VALUE SECTION 'FensterPositionen' KEY 'BESRSchein' VALUE xString. APPLY "CLOSE":U TO THIS-PROCEDURE. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE exitObject wBESRSchein PROCEDURE exitObject : /*------------------------------------------------------------------------------ Purpose: Window-specific override of this procedure which destroys its contents and itself. Notes: ------------------------------------------------------------------------------*/ RUN ENDE. RETURN NO-APPLY. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initializeObject wBESRSchein PROCEDURE initializeObject : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ DO WITH FRAME {&FRAME-NAME}: RUN COMBO_BESRART ( INPUT CB_BESRART:HANDLE ). END. RUN SUPER. /* hToolbar = h_dyntoolbar. */ IF VALID-HANDLE(hToolbar) THEN DO: RUN SETPROGNAME IN hToolbar ( INPUT THIS-PROCEDURE ). RUN setButtons IN hToolbar ( INPUT 'Initial-TableIo':U ). END. RUN selectPage ( INPUT 1 ). END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LESEN_DATEN wBESRSchein PROCEDURE LESEN_DATEN : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF INPUT PARAMETER ipArt AS CHAR NO-UNDO. DEF VAR Art AS INT NO-UNDO. FOR EACH Tabel USE-INDEX Tabel-k1 WHERE Tabel.Firma = Firma AND Tabel.RecArt = 'EZ' AND Tabel.CodeC = ipArt NO-LOCK: CASE Tabel.CodeI: WHEN 0 THEN DO: F_Bankkto = STRING(Tabel.Dec_1,'99999999999999'). F_Konto-1 = Tabel.Bez1. F_Konto-2 = Tabel.Bez2. END. WHEN 1 THEN DO: F_Zeile-1 = Tabel.Bez1. F_Zeile-9 = Tabel.Bez2. END. WHEN 2 THEN DO: F_Zeile-2 = Tabel.Bez1. F_Zeile-10 = Tabel.Bez2. END. WHEN 3 THEN DO: F_Zeile-3 = Tabel.Bez1. F_Zeile-11 = Tabel.Bez2. END. WHEN 4 THEN DO: F_Zeile-4 = Tabel.Bez1. F_Zeile-12 = Tabel.Bez2. END. WHEN 5 THEN DO: F_Zeile-5 = Tabel.Bez1. F_Zeile-13 = Tabel.Bez2. END. WHEN 6 THEN DO: F_Zeile-6 = Tabel.Bez1. F_Zeile-14 = Tabel.Bez2. END. WHEN 7 THEN DO: F_Zeile-7 = Tabel.Bez1. F_Zeile-15 = Tabel.Bez2. END. WHEN 8 THEN DO: F_Zeile-8 = Tabel.Bez1. F_Zeile-16 = Tabel.Bez2. END. END CASE. END. DO WITH FRAME {&FRAME-NAME}: DISPLAY {&List-6}. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE PRUEFZIFFER wBESRSchein PROCEDURE PRUEFZIFFER : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ /* ------------------------------------------------------------------------- */ /* Prufziffer MODULO 10, Rekursiv (27 Stellig Ref.-Nr.) */ /* ------------------------------------------------------------------------- */ /* */ /* Uebergabe Variable: 1. String Teilnehmernummer ( 9-stellig) */ /* */ /*---------------------------------------------------------------------------*/ DEF INPUT-OUTPUT PARAMETER PZTNummer AS CHAR FORMAT "x(09)". DEF VAR l1 AS INT. DEF VAR PZ AS INT. DEF VAR x1 AS INT. DEF VAR x2 AS INT. DEF VAR x3 AS INT. DEF VAR VMOD10 AS CHAR FORMAT "x(11)" EXTENT 11. VMOD10[01] = "09468271350". VMOD10[02] = "94682713509". VMOD10[03] = "46827135098". VMOD10[04] = "68271350947". VMOD10[05] = "82713509466". VMOD10[06] = "27135094685". VMOD10[07] = "71350946824". VMOD10[08] = "13509468273". VMOD10[09] = "35094682712". VMOD10[10] = "50946827131". l1 = 08. DO WHILE l1 = 08: x2 = 1. x1 = INT(SUBSTRING(PZTNummer ,01 ,01)). x2 = INT(SUBSTRING(VMOD10[x2],x1 + 1,01)). DO x3 = 2 TO 08: x1 = INT(SUBSTRING(PZTNummer ,x3 ,01)). x2 = INT(SUBSTRING(VMOD10[x2 + 1],x1 + 1,01)). END. PZ = INT(SUBSTRING(VMOD10[x2 + 1],11,1)). SUBSTRING(PZTNummer,09) = STRING(PZ,"9"). LEAVE. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SCHREIBEN_DATEN wBESRSchein PROCEDURE SCHREIBEN_DATEN : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF INPUT PARAMETER ipArt AS CHAR NO-UNDO. DEF VAR Art AS INT NO-UNDO. DEF VAR ii AS INT NO-UNDO. DEF VAR i1 AS INT NO-UNDO. DEF VAR i2 AS INT NO-UNDO. DEF VAR i3 AS INT NO-UNDO. DEF VAR cString AS CHAR NO-UNDO. DEF VAR cInhalt AS CHAR NO-UNDO. DEF VAR cF1 AS CHAR NO-UNDO. DEF VAR cF2 AS CHAR NO-UNDO. DEF VAR cF3 AS CHAR NO-UNDO. DO WITH FRAME {&FRAME-NAME}: ASSIGN {&List-6}. END. DO ii = 0 TO 8 TRANSACTION: FIND Tabel USE-INDEX Tabel-k1 WHERE Tabel.Firma = Firma AND Tabel.RecArt = 'EZ' AND Tabel.CodeC = ipArt AND Tabel.CodeI = ii AND Tabel.Sprcd = 1 NO-ERROR. IF NOT AVAILABLE Tabel THEN DO: CREATE Tabel. ASSIGN Tabel.Firma = Firma Tabel.RecArt = 'EZ' Tabel.CodeC = ipArt Tabel.CodeI = ii Tabel.Sprcd = 1. END. CASE ii: WHEN 0 THEN DO: Tabel.Dec_1 = DECIMAL(F_Bankkto). cString = TRIM(F_Konto-1). IF NUM-ENTRIES(cString, '-') = 0 THEN DO: Tabel.Int_2 = INTEGER(cString) NO-ERROR. END. ELSE DO: cF1 = ''. cF2 = ''. cF3 = ''. i1 = NUM-ENTRIES(cString, '-'). DO i2 = 1 TO i1: CASE i2: WHEN 1 THEN cF1 = ENTRY(i2, cString, '-'). WHEN 2 THEN cF2 = ENTRY(i2, cString, '-'). WHEN 3 THEN cF3 = ENTRY(i2, cString, '-'). END CASE. END. i1 = INTEGER(cF1) NO-ERROR. i2 = INTEGER(cF2) NO-ERROR. i3 = INTEGER(cF3) NO-ERROR. cString = STRING(i1,'99') + STRING(i2,'999999') + '0'. RUN PRUEFZIFFER ( INPUT-OUTPUT cString ). i3 = INTEGER(SUBSTRING(cString,09,01)). Tabel.BezL = cString. cString = STRING(i1,'99') + '-' + TRIM(STRING(i2,'zzzzz9')) + '-' + STRING(i3,'9'). cInhalt = TRIM(F_Konto-1). F_Konto-1 = REPLACE(F_Konto-1, cInhalt, cString). cInhalt = TRIM(F_Konto-2). F_Konto-2 = REPLACE(F_Konto-2, cInhalt, cString). Tabel.Bez1 = F_Konto-1. Tabel.Bez2 = F_Konto-2. END. END. WHEN 1 THEN DO: Tabel.Bez1 = F_Zeile-1. Tabel.Bez2 = F_Zeile-9. END. WHEN 2 THEN DO: Tabel.Bez1 = F_Zeile-2 . Tabel.Bez2 = F_Zeile-10. END. WHEN 3 THEN DO: Tabel.Bez1 = F_Zeile-3 . Tabel.Bez2 = F_Zeile-11. END. WHEN 4 THEN DO: Tabel.Bez1 = F_Zeile-4 . Tabel.Bez2 = F_Zeile-12. END. WHEN 5 THEN DO: Tabel.Bez1 = F_Zeile-5 . Tabel.Bez2 = F_Zeile-13. END. WHEN 6 THEN DO: Tabel.Bez1 = F_Zeile-6 . Tabel.Bez2 = F_Zeile-14. END. WHEN 7 THEN DO: Tabel.Bez1 = F_Zeile-7 . Tabel.Bez2 = F_Zeile-15. END. WHEN 8 THEN DO: Tabel.Bez1 = F_Zeile-8 . Tabel.Bez2 = F_Zeile-16. END. END CASE. END. RELEASE Tabel. DO WITH FRAME {&FRAME-NAME}: DISPLAY {&List-6}. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE selectPage wBESRSchein PROCEDURE selectPage : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ DEF INPUT PARAMETER piPageNum AS INT NO-UNDO. DEF VAR FMutFlag AS LOG NO-UNDO. DEF VAR MutProg AS CHAR NO-UNDO. FMutFlag = DYNAMIC-FUNCTION('getMutflagAlt':U) NO-ERROR. DO WHILE TRUE: IF NOT FMutFlag THEN LEAVE. MutProg = DYNAMIC-FUNCTION('GETMUTPROG':U). IF MutProg <> THIS-PROCEDURE:FILE-NAME THEN LEAVE. RETURN NO-APPLY. END. CASE piPageNum: END CASE. AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U). CASE AktSeite: WHEN 1 THEN DO: /* RUN removeLink ( hToolbar , 'TableIO':U , h_v-auftr ). */ /* RUN removeLink ( hToolbar , 'Navigation':U , h_d-auftr ). */ END. END CASE. RUN SUPER( INPUT piPageNum). END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE viewObject wBESRSchein PROCEDURE viewObject : /*------------------------------------------------------------------------------ Purpose: Super Override Parameters: Notes: ------------------------------------------------------------------------------*/ RUN SUPER. APPLY 'VALUE-CHANGED' TO CB_BESRART IN FRAME {&FRAME-NAME}. APPLY 'ENTRY' TO F_Zeile-1. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME