&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI ADM1 &ANALYZE-RESUME /* Connected Databases */ &Scoped-define WINDOW-NAME W-Win &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS W-Win /*------------------------------------------------------------------------ File: Description: from cntnrwin.w - ADM SmartWindow Template Input Parameters: Output Parameters: History: ------------------------------------------------------------------------*/ /* This .W file was created with the Progress UIB. */ /*----------------------------------------------------------------------*/ /* 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 Aktive AS LOG NO-UNDO. DEF VAR ASeite AS INT NO-UNDO. DEF VAR AlteSeite AS INT NO-UNDO. DEF VAR PSeite AS INT NO-UNDO. DEF VAR SSeite AS INT NO-UNDO. DEF VAR VUpdate AS LOG NO-UNDO. /* ---------- Globale Variablen ---------------------------------- */ { v8/globvar.i" " " " "SHARED" } { v8/debivar.i " " " " "SHARED" } { v8/artivar.i " " " " "SHARED" } { v8/contvar.i " " " " "SHARED" } /* _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 /* 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-OBJECTS Btn_Prev Btn_Next /* Custom List Definitions */ /* List-1,List-2,List-3,List-4,List-5,List-6 */ /* _UIB-PREPROCESSOR-BLOCK-END */ &ANALYZE-RESUME /* *********************** Control Definitions ********************** */ /* Define the widget handle for the window */ DEFINE VAR W-Win AS WIDGET-HANDLE NO-UNDO. /* Definitions of handles for SmartObjects */ DEFINE VARIABLE h_b-debhi AS HANDLE NO-UNDO. DEFINE VARIABLE h_b-debop-deb AS HANDLE NO-UNDO. DEFINE VARIABLE h_b-debop-fak AS HANDLE NO-UNDO. DEFINE VARIABLE h_b-kundensuche-deb AS HANDLE NO-UNDO. DEFINE VARIABLE h_b-offenposten AS HANDLE NO-UNDO. DEFINE VARIABLE h_b-p_vesr_1 AS HANDLE NO-UNDO. DEFINE VARIABLE h_b-zahlung AS HANDLE NO-UNDO. DEFINE VARIABLE h_f-mahnung AS HANDLE NO-UNDO. DEFINE VARIABLE h_folder AS HANDLE NO-UNDO. DEFINE VARIABLE h_v-debjour AS HANDLE NO-UNDO. DEFINE VARIABLE h_v-reorgdebjou AS HANDLE NO-UNDO. DEFINE VARIABLE h_v-zahlung AS HANDLE NO-UNDO. /* Definitions of the field level widgets */ DEFINE BUTTON Btn_Next IMAGE-UP FILE "Grafik\nextkartei":U LABEL "&+" SIZE 5.6 BY 1.05. DEFINE BUTTON Btn_Prev IMAGE-UP FILE "Grafik\prevkartei":U LABEL "&-" SIZE 5.6 BY 1.05. /* ************************ Frame Definitions *********************** */ DEFINE FRAME F-Main Btn_Prev AT ROW 2.67 COL 143.8 Btn_Next AT ROW 2.67 COL 149.4 WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY SIDE-LABELS NO-UNDERLINE THREE-D AT COL 1 ROW 1 SIZE 157.6 BY 26.43. /* *********************** Procedure Settings ************************ */ &ANALYZE-SUSPEND _PROCEDURE-SETTINGS /* Settings for THIS-PROCEDURE Type: SmartWindow Allow: Basic,Browse,DB-Fields,Query,Smart,Window Design Page: 5 Other Settings: COMPILE */ &ANALYZE-RESUME _END-PROCEDURE-SETTINGS /* ************************* Create Window ************************** */ &ANALYZE-SUSPEND _CREATE-WINDOW IF SESSION:DISPLAY-TYPE = "GUI":U THEN CREATE WINDOW W-Win ASSIGN HIDDEN = YES TITLE = "Debitorverwaltung" HEIGHT = 24.24 WIDTH = 135.2 MAX-HEIGHT = 46.52 MAX-WIDTH = 256 VIRTUAL-HEIGHT = 46.52 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. /* END WINDOW DEFINITION */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB W-Win /* ************************* Included-Libraries *********************** */ {src/adm/method/containr.i} /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* *********** Runtime Attributes and AppBuilder Settings *********** */ &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES /* SETTINGS FOR WINDOW W-Win VISIBLE,,RUN-PERSISTENT */ /* SETTINGS FOR FRAME F-Main FRAME-NAME */ IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(W-Win) THEN W-Win:HIDDEN = yes. /* _RUN-TIME-ATTRIBUTES-END */ &ANALYZE-RESUME /* ************************ Control Triggers ************************ */ &Scoped-define SELF-NAME W-Win &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL W-Win W-Win ON END-ERROR OF W-Win /* Debitorverwaltung */ OR ENDKEY OF {&WINDOW-NAME} ANYWHERE DO: RUN WINDOWCLOSE. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL W-Win W-Win ON ENTRY OF W-Win /* Debitorverwaltung */ DO: Aktive = TRUE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL W-Win W-Win ON LEAVE OF W-Win /* Debitorverwaltung */ DO: Aktive = FALSE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL W-Win W-Win ON WINDOW-CLOSE OF W-Win /* Debitorverwaltung */ DO: RUN WINDOWCLOSE. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME Btn_Next &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Next W-Win ON CHOOSE OF Btn_Next IN FRAME F-Main /* + */ DO: IF VUpdate THEN RETURN NO-APPLY. IF NOT Aktive THEN RETURN NO-APPLY. RUN state-changed ( INPUT THIS-PROCEDURE, INPUT 'Next_Page':U ). RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME Btn_Prev &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Prev W-Win ON CHOOSE OF Btn_Prev IN FRAME F-Main /* - */ DO: IF VUpdate THEN RETURN NO-APPLY. IF NOT Aktive THEN RETURN NO-APPLY. RUN state-changed ( INPUT THIS-PROCEDURE, INPUT 'Prev_Page':U ). RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &UNDEFINE SELF-NAME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK W-Win /* *************************** Main Block *************************** */ ON 'ALT-+':U OF {&WINDOW-NAME} ANYWHERE DO: APPLY 'CHOOSE' TO Btn_Next IN FRAME {&FRAME-NAME}. RETURN NO-APPLY. END. ON 'ALT-CURSOR-RIGHT':U OF {&WINDOW-NAME} ANYWHERE DO: APPLY 'CHOOSE' TO Btn_Next IN FRAME {&FRAME-NAME}. RETURN NO-APPLY. END. ON 'ALT--':U OF {&WINDOW-NAME} ANYWHERE DO: APPLY 'CHOOSE' TO Btn_Prev IN FRAME {&FRAME-NAME}. RETURN NO-APPLY. END. ON 'ALT-CURSOR-LEFT':U OF {&WINDOW-NAME} ANYWHERE DO: APPLY 'CHOOSE' TO Btn_Prev IN FRAME {&FRAME-NAME}. RETURN NO-APPLY. END. ON 'END-ERROR':U OF {&WINDOW-NAME} ANYWHERE DO: RUN WINDOWCLOSE. RETURN NO-APPLY. END. /* Include custom Main Block code for SmartWindows. */ {src/adm/template/windowmn.i} VUpdate = FALSE. Aktive = FALSE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* ********************** Internal Procedures *********************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects W-Win _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: ------------------------------------------------------------------------------*/ DEFINE VARIABLE adm-current-page AS INTEGER NO-UNDO. RUN get-attribute IN THIS-PROCEDURE ('Current-Page':U). ASSIGN adm-current-page = INTEGER(RETURN-VALUE). CASE adm-current-page: WHEN 0 THEN DO: RUN init-object IN THIS-PROCEDURE ( INPUT 'src_dlcv91c/template/folder.w':U , INPUT FRAME F-Main:HANDLE , INPUT 'FOLDER-LABELS = ':U + 'Zahlung|OP|Kontoblatt|Suchen|Auswert|VESR|Mahnung|Man/Fakt|Reorg|Alle OP' + ', FOLDER-TAB-TYPE = 2':U , OUTPUT h_folder ). RUN set-position IN h_folder ( 1.00 , 1.00 ) NO-ERROR. RUN set-size IN h_folder ( 26.43 , 157.60 ) NO-ERROR. RUN init-object IN THIS-PROCEDURE ( INPUT 'v8/v-zahlung.w':U , INPUT FRAME F-Main:HANDLE , INPUT 'Layout = ':U , OUTPUT h_v-zahlung ). RUN set-position IN h_v-zahlung ( 3.67 , 3.00 ) NO-ERROR. /* Size in UIB: ( 9.76 , 132.00 ) */ /* Links to SmartFolder h_folder. */ RUN add-link IN adm-broker-hdl ( h_folder , 'Page':U , THIS-PROCEDURE ). /* Links to SmartViewer h_v-zahlung. */ RUN add-link IN adm-broker-hdl ( THIS-PROCEDURE , 'MAIN':U , h_v-zahlung ). /* Adjust the tab order of the smart objects. */ RUN adjust-tab-order IN adm-broker-hdl ( h_folder , Btn_Prev:HANDLE IN FRAME F-Main , 'BEFORE':U ). RUN adjust-tab-order IN adm-broker-hdl ( h_v-zahlung , Btn_Next:HANDLE IN FRAME F-Main , 'AFTER':U ). END. /* Page 0 */ WHEN 1 THEN DO: RUN init-object IN THIS-PROCEDURE ( INPUT 'v8/b-zahlung.w':U , INPUT FRAME F-Main:HANDLE , INPUT 'Initial-Lock = NO-LOCK, Hide-on-Init = no, Disable-on-Init = no, Layout = , Create-On-Add = ?':U , OUTPUT h_b-zahlung ). RUN set-position IN h_b-zahlung ( 15.29 , 9.00 ) NO-ERROR. RUN set-size IN h_b-zahlung ( 9.29 , 111.00 ) NO-ERROR. /* Links to SmartBrowser h_b-zahlung. */ RUN add-link IN adm-broker-hdl ( h_v-zahlung , 'State':U , h_b-zahlung ). RUN add-link IN adm-broker-hdl ( THIS-PROCEDURE , 'MAIN':U , h_b-zahlung ). /* Adjust the tab order of the smart objects. */ RUN adjust-tab-order IN adm-broker-hdl ( h_b-zahlung , h_v-zahlung , 'AFTER':U ). END. /* Page 1 */ WHEN 2 THEN DO: RUN init-object IN THIS-PROCEDURE ( INPUT 'v8/b-debop-deb.w':U , INPUT FRAME F-Main:HANDLE , INPUT 'Initial-Lock = NO-LOCK, Hide-on-Init = no, Disable-on-Init = no, Layout = , Create-On-Add = ?':U , OUTPUT h_b-debop-deb ). RUN set-position IN h_b-debop-deb ( 13.95 , 8.20 ) NO-ERROR. RUN set-size IN h_b-debop-deb ( 11.05 , 105.40 ) NO-ERROR. /* Links to SmartBrowser h_b-debop-deb. */ RUN add-link IN adm-broker-hdl ( THIS-PROCEDURE , 'MAIN':U , h_b-debop-deb ). /* Adjust the tab order of the smart objects. */ RUN adjust-tab-order IN adm-broker-hdl ( h_b-debop-deb , h_v-zahlung , 'AFTER':U ). END. /* Page 2 */ WHEN 3 THEN DO: RUN init-object IN THIS-PROCEDURE ( INPUT 'v8/b-debhi.w':U , INPUT FRAME F-Main:HANDLE , INPUT 'Layout = ':U , OUTPUT h_b-debhi ). RUN set-position IN h_b-debhi ( 13.86 , 5.80 ) NO-ERROR. RUN set-size IN h_b-debhi ( 11.05 , 118.40 ) NO-ERROR. /* Links to SmartBrowser h_b-debhi. */ RUN add-link IN adm-broker-hdl ( THIS-PROCEDURE , 'MAIN':U , h_b-debhi ). /* Adjust the tab order of the smart objects. */ RUN adjust-tab-order IN adm-broker-hdl ( h_b-debhi , h_v-zahlung , 'AFTER':U ). END. /* Page 3 */ WHEN 4 THEN DO: RUN init-object IN THIS-PROCEDURE ( INPUT 'v8/b-kundensuche-deb.w':U , INPUT FRAME F-Main:HANDLE , INPUT 'Layout = ':U , OUTPUT h_b-kundensuche-deb ). RUN set-position IN h_b-kundensuche-deb ( 15.24 , 3.00 ) NO-ERROR. RUN set-size IN h_b-kundensuche-deb ( 9.29 , 120.40 ) NO-ERROR. /* Links to SmartBrowser h_b-kundensuche-deb. */ RUN add-link IN adm-broker-hdl ( THIS-PROCEDURE , 'MAIN':U , h_b-kundensuche-deb ). /* Adjust the tab order of the smart objects. */ RUN adjust-tab-order IN adm-broker-hdl ( h_b-kundensuche-deb , h_v-zahlung , 'AFTER':U ). END. /* Page 4 */ WHEN 5 THEN DO: RUN init-object IN THIS-PROCEDURE ( INPUT 'v8/v-debjour.w':U , INPUT FRAME F-Main:HANDLE , INPUT 'Initial-Lock = NO-LOCK, Hide-on-Init = no, Disable-on-Init = no, Layout = , Create-On-Add = ?':U , OUTPUT h_v-debjour ). RUN set-position IN h_v-debjour ( 15.38 , 23.40 ) NO-ERROR. /* Size in UIB: ( 7.38 , 91.00 ) */ /* Links to SmartViewer h_v-debjour. */ RUN add-link IN adm-broker-hdl ( THIS-PROCEDURE , 'MAIN':U , h_v-debjour ). /* Adjust the tab order of the smart objects. */ RUN adjust-tab-order IN adm-broker-hdl ( h_v-debjour , h_v-zahlung , 'AFTER':U ). END. /* Page 5 */ WHEN 6 THEN DO: RUN init-object IN THIS-PROCEDURE ( INPUT 'v8/b-p_vesr_1.w':U , INPUT {&WINDOW-NAME} , INPUT 'Layout = ':U , OUTPUT h_b-p_vesr_1 ). RUN set-position IN h_b-p_vesr_1 ( 3.43 , 2.60 ) NO-ERROR. RUN set-size IN h_b-p_vesr_1 ( 19.57 , 132.60 ) NO-ERROR. /* Links to SmartBrowser h_b-p_vesr_1. */ RUN add-link IN adm-broker-hdl ( THIS-PROCEDURE , 'MAIN':U , h_b-p_vesr_1 ). END. /* Page 6 */ WHEN 7 THEN DO: RUN init-object IN THIS-PROCEDURE ( INPUT 'v8/f-mahnung.w':U , INPUT FRAME F-Main:HANDLE , INPUT 'Layout = ':U , OUTPUT h_f-mahnung ). RUN set-position IN h_f-mahnung ( 13.76 , 4.20 ) NO-ERROR. /* Size in UIB: ( 11.14 , 128.80 ) */ /* Adjust the tab order of the smart objects. */ RUN adjust-tab-order IN adm-broker-hdl ( h_f-mahnung , h_v-zahlung , 'AFTER':U ). END. /* Page 7 */ WHEN 8 THEN DO: RUN init-object IN THIS-PROCEDURE ( INPUT 'v8/b-debop-fak.w':U , INPUT {&WINDOW-NAME} , INPUT 'Layout = ':U , OUTPUT h_b-debop-fak ). RUN set-position IN h_b-debop-fak ( 2.71 , 2.60 ) NO-ERROR. RUN set-size IN h_b-debop-fak ( 21.71 , 131.60 ) NO-ERROR. /* Links to SmartBrowser h_b-debop-fak. */ RUN add-link IN adm-broker-hdl ( THIS-PROCEDURE , 'MAIN':U , h_b-debop-fak ). END. /* Page 8 */ WHEN 9 THEN DO: RUN init-object IN THIS-PROCEDURE ( INPUT 'v8/v-reorgdebjou.w':U , INPUT {&WINDOW-NAME} , INPUT 'Layout = ':U , OUTPUT h_v-reorgdebjou ). RUN set-position IN h_v-reorgdebjou ( 14.57 , 22.40 ) NO-ERROR. /* Size in UIB: ( 8.00 , 91.20 ) */ /* Links to SmartViewer h_v-reorgdebjou. */ RUN add-link IN adm-broker-hdl ( THIS-PROCEDURE , 'MAIN':U , h_v-reorgdebjou ). END. /* Page 9 */ WHEN 10 THEN DO: RUN init-object IN THIS-PROCEDURE ( INPUT 'v8/b-offenposten.w':U , INPUT FRAME F-Main:HANDLE , INPUT 'Layout = ':U , OUTPUT h_b-offenposten ). RUN set-position IN h_b-offenposten ( 13.86 , 7.80 ) NO-ERROR. RUN set-size IN h_b-offenposten ( 11.05 , 118.00 ) NO-ERROR. /* Links to SmartBrowser h_b-offenposten. */ RUN add-link IN adm-broker-hdl ( THIS-PROCEDURE , 'MAIN':U , h_b-offenposten ). /* Adjust the tab order of the smart objects. */ RUN adjust-tab-order IN adm-broker-hdl ( h_b-offenposten , h_v-zahlung , 'AFTER':U ). END. /* Page 10 */ END CASE. /* Select a Startup page. */ IF adm-current-page eq 0 THEN RUN select-page IN THIS-PROCEDURE ( 1 ). END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-row-available W-Win _ADM-ROW-AVAILABLE PROCEDURE adm-row-available : /*------------------------------------------------------------------------------ Purpose: Dispatched to this procedure when the Record- Source has a new row available. This procedure tries to get the new row (or foriegn keys) from the Record-Source and process it. Parameters: ------------------------------------------------------------------------------*/ /* Define variables needed by this internal procedure. */ {src/adm/template/row-head.i} /* Process the newly available records (i.e. display fields, open queries, and/or pass records on to any RECORD-TARGETS). */ {src/adm/template/row-end.i} END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI W-Win _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(W-Win) THEN DELETE WIDGET W-Win. IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI W-Win _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. ------------------------------------------------------------------------------*/ ENABLE Btn_Prev Btn_Next WITH FRAME F-Main IN WINDOW W-Win. {&OPEN-BROWSERS-IN-QUERY-F-Main} VIEW W-Win. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE InitializeObject W-Win PROCEDURE InitializeObject : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ RUN adm-initialize. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-change-page W-Win PROCEDURE local-change-page : /*------------------------------------------------------------------------------ Purpose: Override standard ADM method Notes: ------------------------------------------------------------------------------*/ AlteSeite = ASeite. RUN dispatch IN THIS-PROCEDURE ( INPUT 'change-page':U ) . RUN get-attribute ('current-page':U). ASeite = INTEGER(RETURN-VALUE). IF ASeite = 1 THEN RUN state-changed IN h_v-zahlung (INPUT THIS-PROCEDURE, INPUT 'Aktivieren':U). ELSE RUN state-changed IN h_v-zahlung (INPUT THIS-PROCEDURE, INPUT 'Deaktivieren':U). IF ASeite = 6 THEN DO: RUN ABLOESCHEN IN h_v-zahlung. END. ELSE DO: RUN ANZUENDEN IN h_v-zahlung. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-exit W-Win PROCEDURE local-exit : /* ----------------------------------------------------------- Purpose: Starts an "exit" by APPLYing CLOSE event, which starts "destroy". Parameters: Notes: If activated, should APPLY CLOSE, *not* dispatch adm-exit. -------------------------------------------------------------*/ APPLY "CLOSE":U TO THIS-PROCEDURE. RETURN. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records W-Win _ADM-SEND-RECORDS PROCEDURE send-records : /*------------------------------------------------------------------------------ Purpose: Send record ROWID's for all tables used by this file. Parameters: see template/snd-head.i ------------------------------------------------------------------------------*/ /* SEND-RECORDS does nothing because there are no External Tables specified for this SmartWindow, and there are no tables specified in any contained Browse, Query, or Frame. */ END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed W-Win PROCEDURE state-changed : /* ----------------------------------------------------------- Purpose: Parameters: Notes: -------------------------------------------------------------*/ DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE NO-UNDO. DEFINE INPUT PARAMETER p-state AS CHARACTER NO-UNDO. DEF VAR MaxPages AS INT INIT 10 NO-UNDO. DEF VAR XSeite AS INT NO-UNDO. CASE p-state: WHEN 'Next_Page' THEN DO: IF NOT Aktive THEN RETURN NO-APPLY. RUN get-attribute ('current-page':U). ASeite = INTEGER(RETURN-VALUE) + 1. IF ASeite > MaxPages THEN ASeite = 1. RUN select-page(ASeite). RUN view-page (ASeite). RETURN NO-APPLY. END. WHEN 'Prev_Page' THEN DO: IF NOT Aktive THEN RETURN NO-APPLY. RUN get-attribute ('current-page':U). ASeite = INTEGER(RETURN-VALUE) - 1. IF ASeite < 1 THEN ASeite = MaxPages. RUN select-page(ASeite). RUN view-page (ASeite). RETURN NO-APPLY. END. WHEN 'Vorherige_Seite' THEN DO: RUN select-page ( PSeite ). RUN view-page ( PSeite ). RETURN NO-APPLY. END. WHEN 'kundensuche' THEN DO: RUN get-attribute ('current-page':U). SSeite = INTEGER(RETURN-VALUE). RUN select-page ( 10 ). RUN view-page ( 10 ). END. WHEN 'kunde_ok' THEN DO: RUN select-page ( 2 ). RUN view-page ( 2 ). RUN KUNDE_FUELLEN IN h_v-zahlung. END. WHEN 'Seite_1_Faknr' THEN DO: RUN select-page(1). RUN view-page (1). RUN FAKNR_FUELLEN IN h_v-zahlung. END. WHEN 'kunde_nok' THEN DO: RUN select-page ( 2 ). RUN view-page ( 2 ). RUN ENTRY_KONTO IN h_v-zahlung. END. WHEN 'Seite_2' THEN DO: RUN select-page(2). RUN view-page (2). END. WHEN 'Seite_4' THEN DO: RUN select-page(4). RUN view-page (4). END. WHEN 'kunde_wechseln' THEN DO: RUN select-page(2). RUN view-page (2). RUN KUNDE_FUELLEN IN h_v-zahlung. END. WHEN 'anschrift' THEN DO: RUN DEBWECHSEL IN h_v-zahlung. RETURN NO-APPLY. END. WHEN 'Alte_Seite' THEN DO: XSeite = AlteSeite. RUN select-page(XSeite). RUN view-page (XSeite). END. WHEN 'Entry_Konto' THEN DO: RUN ENTRY_KONTO IN h_v-zahlung. RETURN NO-APPLY. END. WHEN 'ENDE' THEN DO: RUN WINDOWCLOSE. RETURN NO-APPLY. END. END CASE. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE WINDOWCLOSE W-Win PROCEDURE WINDOWCLOSE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR AktSeite AS INT NO-UNDO. RUN get-attribute ('current-page':U). AktSeite = INTEGER(RETURN-VALUE). IF AktSeite <> 1 THEN DO: RUN select-page(1). RUN view-page (1). RUN ENTRY_KONTO IN h_v-zahlung. RETURN NO-APPLY. END. RUN ENDE_PROGRAMM ( INPUT THIS-PROCEDURE:FILE-NAME ). APPLY "CLOSE":U TO THIS-PROCEDURE. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME