&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI ADM1 &ANALYZE-RESUME /* Connected Databases anadat PROGRESS */ &Scoped-define WINDOW-NAME CURRENT-WINDOW &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS B-table-Win /*------------------------------------------------------------------------ File: Description: from BROWSER.W - Basic SmartBrowser Object Template Input Parameters: Output Parameters: ------------------------------------------------------------------------*/ /* 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. &Scoped-define ZWEITES-FELD Bez &Scoped-define LETZTES-FELD Bez &Scoped-define INPUT-FELDER Sprache.Sprcd, Bez &Scoped-define DATEI-NAME Sprache /* *************************** Definitions ************************** */ /* Parameters Definitions --- */ /* Local Variable Definitions --- */ { src_dlcv91c/template/browserupd1.i "{&DATEI-NAME}" } /* ---------- 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 SmartBrowser &Scoped-define DB-AWARE no &Scoped-define ADM-SUPPORTED-LINKS Record-Source,Record-Target,TableIO-Target /* Name of designated FRAME-NAME and/or first browse and/or first query */ &Scoped-define FRAME-NAME F-Main &Scoped-define BROWSE-NAME br_table /* Internal Tables (found by Frame, Query & Browse Queries) */ &Scoped-define INTERNAL-TABLES Sprache /* Define KEY-PHRASE in case it is used by any query. */ &Scoped-define KEY-PHRASE TRUE /* Definitions for BROWSE br_table */ &Scoped-define FIELDS-IN-QUERY-br_table Sprache.Sprcd Sprache.Bez &Scoped-define ENABLED-FIELDS-IN-QUERY-br_table &Scoped-define QUERY-STRING-br_table FOR EACH Sprache WHERE ~{&KEY-PHRASE} NO-LOCK ~ ~{&SORTBY-PHRASE} &Scoped-define OPEN-QUERY-br_table OPEN QUERY br_table FOR EACH Sprache WHERE ~{&KEY-PHRASE} NO-LOCK ~ ~{&SORTBY-PHRASE}. &Scoped-define TABLES-IN-QUERY-br_table Sprache &Scoped-define FIRST-TABLE-IN-QUERY-br_table Sprache /* Definitions for FRAME F-Main */ &Scoped-define OPEN-BROWSERS-IN-QUERY-F-Main ~ ~{&OPEN-QUERY-br_table} /* Standard List Definitions */ &Scoped-Define ENABLED-OBJECTS RECT-7 br_table /* Custom List Definitions */ /* List-1,List-2,List-3,List-4,List-5,List-6 */ /* _UIB-PREPROCESSOR-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "Foreign Keys" B-table-Win _INLINE /* Actions: ? adm/support/keyedit.w ? ? ? */ /* STRUCTURED-DATA &BROWSE-NAME ************************** * Set attributes related to FOREIGN KEYS */ RUN set-attribute-list ( 'Keys-Accepted = "", Keys-Supplied = ""':U). /************************** */ /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _XFTR "Advanced Query Options" B-table-Win _INLINE /* Actions: ? adm/support/advqedit.w ? ? ? */ /* STRUCTURED-DATA &BROWSE-NAME ************************ * Set attributes related to SORTBY-OPTIONS */ RUN set-attribute-list ( 'SortBy-Options = ""':U). /************************ */ /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* *********************** Control Definitions ********************** */ /* Definitions of the field level widgets */ DEFINE BUTTON Btn_Abbrechen LABEL "Ab&brechen" SIZE 19.6 BY .62. DEFINE BUTTON Btn_Erfassen LABEL "&Neuer Eintrag" SIZE 19.6 BY .62. DEFINE BUTTON Btn_Loeschen LABEL "&Löschen" SIZE 19.6 BY .62. DEFINE BUTTON Btn_Mutieren LABEL "&Aendern" SIZE 19.6 BY .62. DEFINE BUTTON Btn_Speichern LABEL "&Speichern" SIZE 19.6 BY .62. DEFINE RECTANGLE RECT-7 EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL SIZE 46 BY 4.29. /* Query definitions */ &ANALYZE-SUSPEND DEFINE QUERY br_table FOR Sprache SCROLLING. &ANALYZE-RESUME /* Browse definitions */ DEFINE BROWSE br_table &ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS br_table B-table-Win _STRUCTURED QUERY br_table NO-LOCK DISPLAY Sprache.Sprcd FORMAT "99":U Sprache.Bez FORMAT "x(30)":U /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME WITH NO-BOX NO-ASSIGN NO-ROW-MARKERS SEPARATORS SIZE 44 BY 3.81 BGCOLOR 15 . /* ************************ Frame Definitions *********************** */ DEFINE FRAME F-Main br_table AT ROW 1.48 COL 3 Btn_Loeschen AT ROW 2.14 COL 17.8 NO-TAB-STOP Btn_Speichern AT ROW 2.14 COL 17.8 NO-TAB-STOP Btn_Abbrechen AT ROW 2.14 COL 17.8 NO-TAB-STOP Btn_Erfassen AT ROW 2.14 COL 17.8 NO-TAB-STOP Btn_Mutieren AT ROW 2.14 COL 17.8 NO-TAB-STOP RECT-7 AT ROW 1.24 COL 2 WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY SIDE-LABELS NO-UNDERLINE THREE-D AT COL 1 ROW 1 SIZE 48 BY 4.81. /* *********************** Procedure Settings ************************ */ &ANALYZE-SUSPEND _PROCEDURE-SETTINGS /* Settings for THIS-PROCEDURE Type: SmartBrowser Allow: Basic,Browse Frames: 1 Add Fields to: EXTERNAL-TABLES Other Settings: PERSISTENT-ONLY COMPILE */ /* 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 B-table-Win ASSIGN HEIGHT = 4.81 WIDTH = 48. /* END WINDOW DEFINITION */ */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB B-table-Win /* ************************* Included-Libraries *********************** */ {src/adm/method/browser.i} /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* *********** Runtime Attributes and AppBuilder Settings *********** */ &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES /* SETTINGS FOR WINDOW B-table-Win NOT-VISIBLE,,RUN-PERSISTENT */ /* SETTINGS FOR FRAME F-Main NOT-VISIBLE FRAME-NAME */ /* BROWSE-TAB br_table RECT-7 F-Main */ ASSIGN FRAME F-Main:HIDDEN = TRUE. /* SETTINGS FOR BUTTON Btn_Abbrechen IN FRAME F-Main NO-ENABLE */ ASSIGN Btn_Abbrechen:HIDDEN IN FRAME F-Main = TRUE Btn_Abbrechen:PRIVATE-DATA IN FRAME F-Main = "Abbrechen". /* SETTINGS FOR BUTTON Btn_Erfassen IN FRAME F-Main NO-ENABLE */ ASSIGN Btn_Erfassen:HIDDEN IN FRAME F-Main = TRUE. /* SETTINGS FOR BUTTON Btn_Loeschen IN FRAME F-Main NO-ENABLE */ ASSIGN Btn_Loeschen:HIDDEN IN FRAME F-Main = TRUE. /* SETTINGS FOR BUTTON Btn_Mutieren IN FRAME F-Main NO-ENABLE */ ASSIGN Btn_Mutieren:HIDDEN IN FRAME F-Main = TRUE. /* SETTINGS FOR BUTTON Btn_Speichern IN FRAME F-Main NO-ENABLE */ ASSIGN Btn_Speichern:HIDDEN IN FRAME F-Main = TRUE Btn_Speichern:PRIVATE-DATA IN FRAME F-Main = "Speichern". /* _RUN-TIME-ATTRIBUTES-END */ &ANALYZE-RESUME /* Setting information for Queries and Browse Widgets fields */ &ANALYZE-SUSPEND _QUERY-BLOCK BROWSE br_table /* Query rebuild information for BROWSE br_table _TblList = "AnaDat.Sprache" _Options = "NO-LOCK KEY-PHRASE SORTBY-PHRASE" _FldNameList[1] = AnaDat.Sprache.Sprcd _FldNameList[2] = AnaDat.Sprache.Bez _Query is OPENED */ /* BROWSE br_table */ &ANALYZE-RESUME &Scoped-define BROWSE-NAME br_table &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK B-table-Win /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME