&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. /* *************************** Definitions ************************** */ /* Parameters Definitions --- */ /* Local Variable Definitions --- */ DEF VAR VAdresse AS CHAR FORMAT "x(60)" NO-UNDO. DEF VAR SortierArt AS INT INIT 2. DEF VAR VSuchbe AS CHAR. DEF VAR QOpen AS LOG INIT FALSE NO-UNDO. DEF VAR VSuText AS CHAR FORMAT "x(20)" NO-UNDO. DEF VAR Vorhanden AS LOG INIT FALSE NO-UNDO. DEF VAR VKnr AS INT NO-UNDO. DEF VAR VROW_ID AS ROWID. DEF VAR XROW_ID AS ROWID. DEF VAR RROW_ID AS ROWID. DEF BUFFER BAdresse FOR Adresse. /* ---------- 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 first Frame and/or 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 Adresse /* 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 Adresse.Knr VSuText @ VSuText ~ VAdresse @ VAdresse &Scoped-define ENABLED-FIELDS-IN-QUERY-br_table &Scoped-define OPEN-QUERY-br_table OPEN QUERY br_table FOR EACH Adresse WHERE ~{&KEY-PHRASE} NO-LOCK ~ ~{&SORTBY-PHRASE}. &Scoped-define TABLES-IN-QUERY-br_table Adresse &Scoped-define FIRST-TABLE-IN-QUERY-br_table Adresse /* Definitions for FRAME F-Main */ /* Standard List Definitions */ &Scoped-Define ENABLED-OBJECTS br_table F_SortierArt F_Suchbe RECT-23 &Scoped-Define DISPLAYED-OBJECTS F_SortierArt F_Suchbe /* Custom List Definitions */ /* List-1,List-2,List-3,List-4,List-5,List-6 */ &Scoped-define List-1 F_SortierArt F_Suchbe /* _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 Adrart||y|AnaDat.Adresse.Adrart Lkz||y|AnaDat.Adresse.Lkz Name||y|AnaDat.Adresse.Name Sprcd||y|AnaDat.Adresse.Sprcd Firma||y|AnaDat.Adresse.Firma ************************** * Set attributes related to FOREIGN KEYS */ RUN set-attribute-list ( 'Keys-Accepted = , Keys-Supplied = "Adrart,Lkz,Name,Sprcd,Firma"':U). /* Tell the ADM to use the OPEN-QUERY-CASES. */ &Scoped-define OPEN-QUERY-CASES RUN dispatch ('open-query-cases':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 VARIABLE F_Suchbe AS CHARACTER FORMAT "X(20)":U VIEW-AS FILL-IN NATIVE SIZE 29.6 BY 1.05 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_SortierArt AS INTEGER INITIAL 1 VIEW-AS RADIO-SET VERTICAL RADIO-BUTTONS "Kundennummer", 1, "Suchbegriff", 2, "Firma", 3, "Name", 4, "Ort", 5, "Match", 6 SIZE 29.4 BY 4.76 NO-UNDO. DEFINE RECTANGLE RECT-23 EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL SIZE 119.4 BY 9.05. /* Query definitions */ &ANALYZE-SUSPEND DEFINE QUERY br_table FOR Adresse 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 Adresse.Knr FORMAT "z999999":U VSuText @ VSuText COLUMN-LABEL "Subegriff" FORMAT "x(15)":U VAdresse @ VAdresse COLUMN-LABEL "Adresse" FORMAT "x(55)":U /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME WITH NO-ASSIGN NO-ROW-MARKERS SEPARATORS SIZE 85 BY 8.57 BGCOLOR 15 . /* ************************ Frame Definitions *********************** */ DEFINE FRAME F-Main br_table AT ROW 1.48 COL 3 F_SortierArt AT ROW 2.24 COL 90 NO-LABEL F_Suchbe AT ROW 7.33 COL 88 COLON-ALIGNED NO-LABEL RECT-23 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 SCROLLABLE . /* *********************** 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 = 9.57 WIDTH = 122.8. /* 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 Size-to-Fit */ /* BROWSE-TAB br_table 1 F-Main */ ASSIGN FRAME F-Main:SCROLLABLE = FALSE FRAME F-Main:HIDDEN = TRUE. /* SETTINGS FOR RADIO-SET F_SortierArt IN FRAME F-Main 1 */ /* SETTINGS FOR FILL-IN F_Suchbe IN FRAME F-Main 1 */ /* _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.Adresse" _Options = "NO-LOCK KEY-PHRASE SORTBY-PHRASE" _FldNameList[1] > AnaDat.Adresse.Knr "Adresse.Knr" ? "z999999" "integer" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" _FldNameList[2] > "_" "VSuText @ VSuText" "Subegriff" "x(15)" ? ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" _FldNameList[3] > "_" "VAdresse @ VAdresse" "Adresse" "x(55)" ? ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" _Query is NOT OPENED */ /* BROWSE br_table */ &ANALYZE-RESUME &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-Main &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F-Main B-table-Win ON END-ERROR OF FRAME F-Main DO: RUN new-state ( INPUT 'kunde_nok, MAIN':U ). RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define BROWSE-NAME br_table &Scoped-define SELF-NAME br_table &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win ON ANY-PRINTABLE OF br_table IN FRAME F-Main DO: RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win ON END-ERROR OF br_table IN FRAME F-Main DO: RUN new-state ( INPUT 'kunde_nok, MAIN':U ). RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win ON ROW-DISPLAY OF br_table IN FRAME F-Main DO: RUN ANZEIGE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win ON ROW-ENTRY OF br_table IN FRAME F-Main DO: {src/adm/template/brsentry.i} END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win ON ROW-LEAVE OF br_table IN FRAME F-Main DO: {src/adm/template/brsleave.i} END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL br_table B-table-Win ON VALUE-CHANGED OF br_table IN FRAME F-Main DO: {src/adm/template/brschnge.i} RUN ANZEIGE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_SortierArt &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_SortierArt B-table-Win ON END-ERROR OF F_SortierArt IN FRAME F-Main DO: RUN new-state ( INPUT 'kunde_nok, MAIN':U ). RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_SortierArt B-table-Win ON VALUE-CHANGED OF F_SortierArt IN FRAME F-Main DO: {&BROWSE-NAME}:REFRESH(). APPLY 'ENTRY' TO F_Suchbe IN FRAME {&FRAME-NAME}. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME F_Suchbe &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Suchbe B-table-Win ON END-ERROR OF F_Suchbe IN FRAME F-Main DO: RUN new-state ( INPUT 'kunde_nok, MAIN':U ). RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Suchbe B-table-Win ON RETURN OF F_Suchbe IN FRAME F-Main DO: RUN dispatch IN THIS-PROCEDURE ('assign-statement':U). RUN dispatch IN THIS-PROCEDURE ('open-query':U). APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &UNDEFINE SELF-NAME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK B-table-Win /* *************************** Main Block *************************** */ &IF DEFINED(UIB_IS_RUNNING) <> 0 &THEN RUN dispatch IN THIS-PROCEDURE ('initialize':U). &ENDIF ON RETURN OF BROWSE {&BROWSE-NAME} OR LEFT-MOUSE-DBLCLICK OF BROWSE {&BROWSE-NAME} DO: DO WITH FRAME {&FRAME-NAME}: IF NUM-RESULTS("{&BROWSE-NAME}":U) = ? THEN RETURN. IF NUM-RESULTS("{&BROWSE-NAME}":U) = 0 THEN RETURN. {&BROWSE-NAME}:SELECT-FOCUSED-ROW(). {&BROWSE-NAME}:FETCH-SELECTED-ROW(1). Linknr = Adresse.Knr. DVKnr = Adresse.Knr. RUN new-state ( 'kunde_ok, MAIN':U ). RETURN NO-APPLY. END. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* ********************** Internal Procedures *********************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-open-query-cases B-table-Win adm/support/_adm-opn.p PROCEDURE adm-open-query-cases : /*------------------------------------------------------------------------------ Purpose: Opens different cases of the query based on attributes such as the 'Key-Name', or 'SortBy-Case' Parameters: ------------------------------------------------------------------------------*/ /* No Foreign keys are accepted by this SmartObject. */ {&OPEN-QUERY-{&BROWSE-NAME}} END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-row-available B-table-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 ANZEIGE B-table-Win PROCEDURE ANZEIGE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ VAdresse = ''. VSuText = ''. IF NOT AVAILABLE Adresse THEN RETURN. CASE F_SortierArt: WHEN 2 THEN VSuText = Adresse.Suchbe. WHEN 3 THEN VSuText = Adresse.Firma1. WHEN 4 THEN VSuText = Adresse.Name. WHEN 5 THEN VSuText = Adresse.Ort. END CASE. IF Adresse.Firma1 <> '' THEN DO: IF VAdresse <> '' THEN VAdresse = VAdresse + ', '. VAdresse = VAdresse + Adresse.Firma1. END. IF Adresse.Firma2 <> '' THEN DO: IF VAdresse <> '' THEN VAdresse = VAdresse + ', '. VAdresse = VAdresse + Adresse.Firma2. END. IF Adresse.Name <> '' THEN DO: IF VAdresse <> '' THEN VAdresse = VAdresse + ', '. VAdresse = VAdresse + Adresse.Name . END. IF Adresse.Vorname <> '' THEN DO: IF VAdresse <> '' THEN VAdresse = VAdresse + ' '. VAdresse = VAdresse + Adresse.Vorname. END. IF Adresse.Strasse <> '' THEN DO: IF VAdresse <> '' THEN VAdresse = VAdresse + ', '. VAdresse = VAdresse + Adresse.Strasse. END. IF VAdresse <> '' THEN VAdresse = VAdresse + ', '. VAdresse = VAdresse + Adresse.Plz + ' ' + Adresse.Ort. IF NOT Adresse.Aktiv THEN DO: Adresse.Knr:BGCOLOR IN BROWSE {&BROWSE-NAME} = 12. VSuText:BGCOLOR IN BROWSE {&BROWSE-NAME} = 12. VAdresse:BGCOLOR IN BROWSE {&BROWSE-NAME} = 12. END. DVKnr = Adresse.Knr. RUN new-state ( INPUT 'anschrift, MAIN':U ). END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI B-table-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. ------------------------------------------------------------------------------*/ /* 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 local-assign-statement B-table-Win PROCEDURE local-assign-statement : /*------------------------------------------------------------------------------ Purpose: Override standard ADM method Notes: ------------------------------------------------------------------------------*/ RUN dispatch IN THIS-PROCEDURE ( INPUT 'assign-statement':U ) . DO WITH FRAME {&FRAME-NAME}: F_SortierArt = INTEGER(F_SortierArt:SCREEN-VALUE). F_Suchbe = TRIM (F_Suchbe:SCREEN-VALUE). SortierArt = F_SortierArt. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-display-fields B-table-Win PROCEDURE local-display-fields : /*------------------------------------------------------------------------------ Purpose: Override standard ADM method Notes: ------------------------------------------------------------------------------*/ RUN ANZEIGE. RUN dispatch IN THIS-PROCEDURE ( INPUT 'display-fields':U ) . Vorhanden = TRUE. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-hide B-table-Win PROCEDURE local-hide : /*------------------------------------------------------------------------------ Purpose: Override standard ADM method Notes: ------------------------------------------------------------------------------*/ RUN dispatch IN THIS-PROCEDURE ( INPUT 'hide':U ) . END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-initialize B-table-Win PROCEDURE local-initialize : /*------------------------------------------------------------------------------ Purpose: Override standard ADM method Notes: ------------------------------------------------------------------------------*/ RUN SUCHEN. RUN dispatch IN THIS-PROCEDURE ( INPUT 'initialize':U ) . END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-open-query B-table-Win PROCEDURE local-open-query : /*------------------------------------------------------------------------------ Purpose: Override standard ADM method Notes: ------------------------------------------------------------------------------*/ IF QOpen THEN CLOSE QUERY {&BROWSE-NAME}. Vorhanden = FALSE. CASE SortierArt: WHEN 1 THEN DO: VKnr = INTEGER(F_Suchbe). OPEN QUERY {&BROWSE-NAME} FOR EACH Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr >= VKnr NO-LOCK. END. WHEN 2 THEN DO: VSuchbe = TRIM(F_Suchbe). OPEN QUERY {&BROWSE-NAME} FOR EACH Adresse USE-INDEX Adresse-k2 WHERE Adresse.Firma = AdFirma AND Adresse.Suchbe >= VSuchbe NO-LOCK. END. WHEN 3 THEN DO: VSuchbe = TRIM(F_Suchbe). OPEN QUERY {&BROWSE-NAME} FOR EACH Adresse USE-INDEX Adresse-k3 WHERE Adresse.Firma = AdFirma AND Adresse.Firma1 >= VSuchbe NO-LOCK. END. WHEN 4 THEN DO: VSuchbe = TRIM(F_Suchbe). OPEN QUERY {&BROWSE-NAME} FOR EACH Adresse USE-INDEX Adresse-k4 WHERE Adresse.Firma = AdFirma AND Adresse.Name >= VSuchbe NO-LOCK. END. WHEN 5 THEN DO: VSuchbe = TRIM(F_Suchbe). OPEN QUERY {&BROWSE-NAME} FOR EACH Adresse USE-INDEX Adresse-k5 WHERE Adresse.Firma = AdFirma AND Adresse.Ort >= VSuchbe NO-LOCK. END. WHEN 6 THEN DO: VSuchbe = TRIM(F_Suchbe). OPEN QUERY {&BROWSE-NAME} FOR EACH Adresse USE-INDEX Adresse-k2 WHERE Adresse.Firma = AdFirma AND ((Adresse.Firma1 MATCHES VSuchbe) OR (Adresse.Firma2 MATCHES VSuchbe) OR (Adresse.Name MATCHES VSuchbe) OR (Adresse.Vorname MATCHES VSuchbe) OR (Adresse.Zusatz1 MATCHES VSuchbe) OR (Adresse.Zusatz2 MATCHES VSuchbe)) NO-LOCK. END. END. /* CASE */ APPLY 'VALUE-CHANGED' TO BROWSE {&BROWSE-NAME}. QOpen = TRUE. RETURN NO-APPLY. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-view B-table-Win PROCEDURE local-view : /*------------------------------------------------------------------------------ Purpose: Override standard ADM method Notes: ------------------------------------------------------------------------------*/ RUN dispatch IN THIS-PROCEDURE ( INPUT 'view':U ) . DISPLAY F_SortierArt WITH FRAME {&FRAME-NAME}. APPLY 'VALUE-CHANGED' TO BROWSE {&BROWSE-NAME}. APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-key B-table-Win adm/support/_key-snd.p PROCEDURE send-key : /*------------------------------------------------------------------------------ Purpose: Sends a requested KEY value back to the calling SmartObject. Parameters: ------------------------------------------------------------------------------*/ /* Define variables needed by this internal procedure. */ {src/adm/template/sndkytop.i} /* Return the key value associated with each key case. */ {src/adm/template/sndkycas.i "Adrart" "Adresse" "Adrart"} {src/adm/template/sndkycas.i "Lkz" "Adresse" "Lkz"} {src/adm/template/sndkycas.i "Name" "Adresse" "Name"} {src/adm/template/sndkycas.i "Sprcd" "Adresse" "Sprcd"} {src/adm/template/sndkycas.i "Firma" "Adresse" "Firma"} /* Close the CASE statement and end the procedure. */ {src/adm/template/sndkyend.i} END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records B-table-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 ------------------------------------------------------------------------------*/ /* Define variables needed by this internal procedure. */ {src/adm/template/snd-head.i} /* For each requested table, put it's ROWID in the output list. */ {src/adm/template/snd-list.i "Adresse"} /* Deal with any unexpected table requests before closing. */ {src/adm/template/snd-end.i} END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed B-table-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. DO WITH FRAME {&FRAME-NAME}: CASE p-state: WHEN 'entry_browse' THEN DO: APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}. RETURN NO-APPLY. END. {src/adm/template/bstates.i} END CASE. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SUCHEN B-table-Win PROCEDURE SUCHEN : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ SortierArt = 2. F_SortierArt = 2. F_Suchbe = Linktext. VSuchbe = Linktext. RUN local-open-query. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME