&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12 GUI &ANALYZE-RESUME &Scoped-define WINDOW-NAME CURRENT-WINDOW &Scoped-define FRAME-NAME Dialog-Frame &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Dialog-Frame /*------------------------------------------------------------------------ File: Description: Input Parameters: Output Parameters: Author: Created: ------------------------------------------------------------------------*/ /* This .W file was created with the Progress AppBuilder. */ /*----------------------------------------------------------------------*/ /* *************************** Definitions ************************** */ /* Parameters Definitions --- */ /* Local Variable Definitions --- */ DEF INPUT-OUTPUT PARAMETER ipAdresse AS CHAR NO-UNDO. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK /* ******************** Preprocessor Definitions ******************** */ &Scoped-define PROCEDURE-TYPE Dialog-Box &Scoped-define DB-AWARE no /* Name of designated FRAME-NAME and/or first browse and/or first query */ &Scoped-define FRAME-NAME Dialog-Frame /* Standard List Definitions */ &Scoped-Define ENABLED-OBJECTS RECT-14 F_Adr01 F_Adr02 F_Adr03 F_Adr04 ~ F_Adr05 Btn_OK Btn_Cancel &Scoped-Define DISPLAYED-OBJECTS F_Adr01 F_Adr02 F_Adr03 F_Adr04 F_Adr05 /* Custom List Definitions */ /* List-1,List-2,List-3,List-4,List-5,List-6 */ &Scoped-define List-6 F_Adr01 F_Adr02 F_Adr03 F_Adr04 F_Adr05 /* _UIB-PREPROCESSOR-BLOCK-END */ &ANALYZE-RESUME /* *********************** Control Definitions ********************** */ /* Define a dialog box */ /* Definitions of the field level widgets */ DEFINE BUTTON Btn_Cancel AUTO-END-KEY LABEL "&Abbrechen" SIZE 15 BY 1 BGCOLOR 8 . DEFINE BUTTON Btn_OK AUTO-GO LABEL "OK" SIZE 15 BY 1 BGCOLOR 8 . DEFINE VARIABLE F_Adr01 AS CHARACTER FORMAT "x(40)":U LABEL "Adresse 1" VIEW-AS FILL-IN NATIVE SIZE 40 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Adr02 AS CHARACTER FORMAT "x(40)":U LABEL "Adresse 2" VIEW-AS FILL-IN NATIVE SIZE 40 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Adr03 AS CHARACTER FORMAT "x(40)":U LABEL "Adresse 3" VIEW-AS FILL-IN NATIVE SIZE 40 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Adr04 AS CHARACTER FORMAT "x(40)":U LABEL "Adresse 4" VIEW-AS FILL-IN NATIVE SIZE 40 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Adr05 AS CHARACTER FORMAT "x(40)":U LABEL "Adresse 5" VIEW-AS FILL-IN NATIVE SIZE 40 BY 1 BGCOLOR 15 NO-UNDO. DEFINE RECTANGLE RECT-14 EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL SIZE 60 BY 7.62. /* ************************ Frame Definitions *********************** */ DEFINE FRAME Dialog-Frame F_Adr01 AT ROW 1.52 COL 16.6 COLON-ALIGNED F_Adr02 AT ROW 2.52 COL 16.6 COLON-ALIGNED F_Adr03 AT ROW 3.52 COL 16.6 COLON-ALIGNED F_Adr04 AT ROW 4.52 COL 16.6 COLON-ALIGNED F_Adr05 AT ROW 5.52 COL 16.6 COLON-ALIGNED WIDGET-ID 2 Btn_OK AT ROW 7.52 COL 19 Btn_Cancel AT ROW 7.52 COL 37.8 RECT-14 AT ROW 1.24 COL 2 SPACE(0.99) SKIP(0.23) WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER SIDE-LABELS NO-UNDERLINE THREE-D SCROLLABLE TITLE "Adresseingabe" CANCEL-BUTTON Btn_Cancel. /* *********************** Procedure Settings ************************ */ &ANALYZE-SUSPEND _PROCEDURE-SETTINGS /* Settings for THIS-PROCEDURE Type: Dialog-Box Allow: Basic,Browse,DB-Fields,Query Other Settings: COMPILE */ &ANALYZE-RESUME _END-PROCEDURE-SETTINGS /* *********** Runtime Attributes and AppBuilder Settings *********** */ &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES /* SETTINGS FOR DIALOG-BOX Dialog-Frame FRAME-NAME */ ASSIGN FRAME Dialog-Frame:SCROLLABLE = FALSE FRAME Dialog-Frame:HIDDEN = TRUE. /* SETTINGS FOR FILL-IN F_Adr01 IN FRAME Dialog-Frame 6 */ /* SETTINGS FOR FILL-IN F_Adr02 IN FRAME Dialog-Frame 6 */ /* SETTINGS FOR FILL-IN F_Adr03 IN FRAME Dialog-Frame 6 */ /* SETTINGS FOR FILL-IN F_Adr04 IN FRAME Dialog-Frame 6 */ /* SETTINGS FOR FILL-IN F_Adr05 IN FRAME Dialog-Frame 6 */ /* _RUN-TIME-ATTRIBUTES-END */ &ANALYZE-RESUME /* ************************ Control Triggers ************************ */ &Scoped-define SELF-NAME Dialog-Frame &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Dialog-Frame Dialog-Frame ON WINDOW-CLOSE OF FRAME Dialog-Frame /* Adresseingabe */ DO: APPLY "END-ERROR":U TO SELF. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME Btn_OK &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_OK Dialog-Frame ON CHOOSE OF Btn_OK IN FRAME Dialog-Frame /* OK */ DO: DO WITH FRAME {&FRAME-NAME}: ASSIGN {&List-6}. IF F_Adr01 = '' AND F_Adr02 = '' AND F_Adr03 = '' AND F_Adr04 = '' AND F_Adr05 = '' THEN DO: MESSAGE 'Adresseingabe ist obligatorisch!' VIEW-AS ALERT-BOX ERROR. APPLY 'ENTRY' TO F_Adr01. RETURN NO-APPLY. END. DO WHILE F_Adr05 = '': ASSIGN F_Adr05 = F_Adr04 F_Adr04 = F_Adr03 F_Adr03 = F_Adr02 F_Adr02 = F_Adr01 F_Adr01 = ''. END. ipAdresse = F_Adr01 + CHR(01) + F_Adr02 + CHR(01) + F_Adr03 + CHR(01) + F_Adr04 + CHR(01) + F_Adr05. END. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &UNDEFINE SELF-NAME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Dialog-Frame /* *************************** Main Block *************************** */ /* Parent the dialog-box to the ACTIVE-WINDOW, if there is no parent. */ IF VALID-HANDLE(ACTIVE-WINDOW) AND FRAME {&FRAME-NAME}:PARENT eq ? THEN FRAME {&FRAME-NAME}:PARENT = ACTIVE-WINDOW. F_Adr01 = ENTRY(1, ipAdresse, CHR(01)) NO-ERROR. F_Adr02 = ENTRY(2, ipAdresse, CHR(01)) NO-ERROR. F_Adr03 = ENTRY(3, ipAdresse, CHR(01)) NO-ERROR. F_Adr04 = ENTRY(4, ipAdresse, CHR(01)) NO-ERROR. F_Adr05 = ENTRY(5, ipAdresse, CHR(01)) NO-ERROR. ipAdresse = ?. /* Now enable the interface and wait for the exit condition. */ /* (NOTE: handle ERROR and END-KEY so cleanup code will always fire. */ MAIN-BLOCK: DO ON ERROR UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK ON END-KEY UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK: RUN enable_UI. WAIT-FOR GO OF FRAME {&FRAME-NAME}. END. RUN disable_UI. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* ********************** Internal Procedures *********************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI Dialog-Frame _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 Dialog-Frame. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI Dialog-Frame _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 F_Adr01 F_Adr02 F_Adr03 F_Adr04 F_Adr05 WITH FRAME Dialog-Frame. ENABLE RECT-14 F_Adr01 F_Adr02 F_Adr03 F_Adr04 F_Adr05 Btn_OK Btn_Cancel WITH FRAME Dialog-Frame. VIEW FRAME Dialog-Frame. {&OPEN-BROWSERS-IN-QUERY-Dialog-Frame} END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME