GeMIS_WEB/GUI/g-such-liefst.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v9r12 GUI ADM2
&ANALYZE-RESUME
/* Connected Databases 
          anadat           PROGRESS
*/
&Scoped-define WINDOW-NAME CURRENT-WINDOW
&Scoped-define FRAME-NAME gLieferantensuchen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS gLieferantensuchen 
/*------------------------------------------------------------------------

  File: 

  Description: from cntnrdlg.w - ADM2 SmartDialog Template

  Input Parameters:
      <none>

  Output Parameters:
      <none>

  Author: 

  Created: 
------------------------------------------------------------------------*/
/*          This .W file was created with the Progress AppBuilder.      */
/*----------------------------------------------------------------------*/

/* 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 ---                                           */

DEF OUTPUT PARAMETER opAdresse      AS CHAR                     NO-UNDO.

/* Local Variable Definitions ---                                       */

DEF VAR MaxPage         AS INT                      NO-UNDO.
DEF VAR AktSeite        AS INT                      NO-UNDO.
DEF VAR FMutFlag        AS LOG                      NO-UNDO.

DEF VAR Firma           AS CHAR                     NO-UNDO INIT ''.
DEF VAR VSort           AS INT                      NO-UNDO INIT 1.
DEF VAR VSuch1          AS CHAR                     NO-UNDO INIT ''.
DEF VAR VSuch2          AS CHAR                     NO-UNDO INIT ''.
DEF VAR VSuch3          AS CHAR                     NO-UNDO INIT ''.
DEF VAR VSuch4          AS CHAR                     NO-UNDO INIT ''.
DEF VAR VSuch5          AS CHAR                     NO-UNDO INIT ''.
DEF VAR VSuch6          AS CHAR                     NO-UNDO INIT ''.
DEF VAR VSuch7          AS CHAR                     NO-UNDO INIT ''.
DEF VAR Inhalt          AS CHAR                     NO-UNDO INIT ''.
DEF VAR Telefon         AS CHAR                     NO-UNDO INIT ''.
DEF VAR Match           AS CHAR                     NO-UNDO INIT ''.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

/* ********************  Preprocessor Definitions  ******************** */

&Scoped-define PROCEDURE-TYPE SmartDialog
&Scoped-define DB-AWARE no

&Scoped-define ADM-CONTAINER DIALOG-BOX

&Scoped-define ADM-SUPPORTED-LINKS Data-Target,Data-Source,Page-Target,Update-Source,Update-Target

/* Name of first Frame and/or Browse and/or first Query                 */
&Scoped-define FRAME-NAME gLieferantensuchen
&Scoped-define BROWSE-NAME Br_Adressen

/* Internal Tables (found by Frame, Query & Browse Queries)             */
&Scoped-define INTERNAL-TABLES Adresse Liefst

/* Definitions for BROWSE Br_Adressen                                   */
&Scoped-define FIELDS-IN-QUERY-Br_Adressen Adresse.Knr Adresse.Suchbe ~
Adresse.Firma1 Adresse.Name Adresse.Vorname Adresse.Strasse Adresse.Plz ~
Adresse.Ort 
&Scoped-define ENABLED-FIELDS-IN-QUERY-Br_Adressen 
&Scoped-define OPEN-QUERY-Br_Adressen OPEN QUERY Br_Adressen FOR EACH Adresse NO-LOCK, ~
      EACH Liefst OF Adresse NO-LOCK INDEXED-REPOSITION.
&Scoped-define TABLES-IN-QUERY-Br_Adressen Adresse Liefst
&Scoped-define FIRST-TABLE-IN-QUERY-Br_Adressen Adresse
&Scoped-define SECOND-TABLE-IN-QUERY-Br_Adressen Liefst


/* Definitions for DIALOG-BOX gLieferantensuchen                        */

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS F_Suchbe F_Knr F_Firma F_Name F_Strasse ~
F_Lkz F_Plz F_Ort F_Telefon F_Match Br_Adressen 
&Scoped-Define DISPLAYED-OBJECTS F_Suchbe F_Knr F_Firma F_Name F_Strasse ~
F_Lkz F_Plz F_Ort F_Telefon F_Match 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-6 F_Suchbe F_Knr F_Firma F_Name F_Strasse F_Lkz F_Plz ~
F_Ort F_Telefon F_Match 

/* _UIB-PREPROCESSOR-BLOCK-END */
&ANALYZE-RESUME



/* ***********************  Control Definitions  ********************** */

/* Define a dialog box                                                  */

/* Definitions of the field level widgets                               */
DEFINE VARIABLE F_Firma AS CHARACTER FORMAT "x(30)":U 
     LABEL "Firma" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 34 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Knr AS INTEGER FORMAT "999999":U INITIAL 0 
     LABEL "Kundennummer" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 11 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Lkz AS CHARACTER FORMAT "x(30)":U INITIAL "CH" 
     LABEL "Land/Plz/Ort" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 8 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Match AS CHARACTER FORMAT "x(30)":U 
     LABEL "Match" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 30 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Name AS CHARACTER FORMAT "x(30)":U 
     LABEL "Name" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 34 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Ort AS CHARACTER FORMAT "x(30)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 30 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Plz AS CHARACTER FORMAT "x(30)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 10 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Strasse AS CHARACTER FORMAT "x(30)":U 
     LABEL "Strasse" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 34 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Suchbe AS CHARACTER FORMAT "x(30)":U 
     LABEL "Suchbegriff" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 34 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Telefon AS CHARACTER FORMAT "x(30)":U 
     LABEL "Telefonnummer" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 30 BY 1
     BGCOLOR 15  NO-UNDO.

/* Query definitions                                                    */
&ANALYZE-SUSPEND
DEFINE QUERY Br_Adressen FOR 
      Adresse, 
      Liefst SCROLLING.
&ANALYZE-RESUME

/* Browse definitions                                                   */
DEFINE BROWSE Br_Adressen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS Br_Adressen gLieferantensuchen _STRUCTURED
  QUERY Br_Adressen NO-LOCK DISPLAY
      Adresse.Knr FORMAT "zzzzz9":U WIDTH 8
      Adresse.Suchbe FORMAT "x(15)":U
      Adresse.Firma1 COLUMN-LABEL "Firma" FORMAT "x(18)":U
      Adresse.Name FORMAT "x(18)":U
      Adresse.Vorname FORMAT "x(13)":U
      Adresse.Strasse FORMAT "x(18)":U
      Adresse.Plz FORMAT "X(8)":U
      Adresse.Ort FORMAT "x(18)":U WIDTH 43.2
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
    WITH NO-ROW-MARKERS SEPARATORS SIZE 129.6 BY 9.24 EXPANDABLE.


/* ************************  Frame Definitions  *********************** */

DEFINE FRAME gLieferantensuchen
     F_Suchbe AT ROW 1.52 COL 20 COLON-ALIGNED
     F_Knr AT ROW 1.52 COL 78 COLON-ALIGNED
     F_Firma AT ROW 2.52 COL 20 COLON-ALIGNED
     F_Name AT ROW 2.52 COL 78 COLON-ALIGNED
     F_Strasse AT ROW 3.52 COL 20 COLON-ALIGNED
     F_Lkz AT ROW 4.52 COL 20 COLON-ALIGNED
     F_Plz AT ROW 4.52 COL 28 COLON-ALIGNED NO-LABEL
     F_Ort AT ROW 4.52 COL 38 COLON-ALIGNED NO-LABEL
     F_Telefon AT ROW 5 COL 98 COLON-ALIGNED
     F_Match AT ROW 6 COL 98 COLON-ALIGNED
     Br_Adressen AT ROW 8 COL 3.4
     SPACE(1.39) SKIP(0.51)
    WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER 
         SIDE-LABELS NO-UNDERLINE THREE-D  SCROLLABLE 
         TITLE "Suche nach Lieferanten".


/* *********************** Procedure Settings ************************ */

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartDialog
   Allow: Basic,Browse,DB-Fields,Query,Smart
   Container Links: Data-Target,Data-Source,Page-Target,Update-Source,Update-Target
   Design Page: 1
   Other Settings: COMPILE
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB gLieferantensuchen 
/* ************************* Included-Libraries *********************** */

{src/adm2/containr.i}

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME




/* ***********  Runtime Attributes and AppBuilder Settings  *********** */

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR DIALOG-BOX gLieferantensuchen
   Custom                                                               */
/* BROWSE-TAB Br_Adressen gLieferantensuchen gLieferantensuchen */
ASSIGN 
       FRAME gLieferantensuchen:SCROLLABLE       = FALSE
       FRAME gLieferantensuchen:HIDDEN           = TRUE.

ASSIGN 
       Br_Adressen:ALLOW-COLUMN-SEARCHING IN FRAME gLieferantensuchen = TRUE
       Br_Adressen:COLUMN-RESIZABLE IN FRAME gLieferantensuchen       = TRUE.

/* SETTINGS FOR FILL-IN F_Firma IN FRAME gLieferantensuchen
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Knr IN FRAME gLieferantensuchen
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Lkz IN FRAME gLieferantensuchen
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Match IN FRAME gLieferantensuchen
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Name IN FRAME gLieferantensuchen
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Ort IN FRAME gLieferantensuchen
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Plz IN FRAME gLieferantensuchen
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Strasse IN FRAME gLieferantensuchen
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Suchbe IN FRAME gLieferantensuchen
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Telefon IN FRAME gLieferantensuchen
   6                                                                    */
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


/* Setting information for Queries and Browse Widgets fields            */

&ANALYZE-SUSPEND _QUERY-BLOCK BROWSE Br_Adressen
/* Query rebuild information for BROWSE Br_Adressen
     _TblList          = "AnaDat.Adresse,AnaDat.Liefst OF AnaDat.Adresse"
     _Options          = "NO-LOCK INDEXED-REPOSITION"
     _FldNameList[1]   > AnaDat.Adresse.Knr
"Adresse.Knr" ? "zzzzz9" "integer" ? ? ? ? ? ? no ? no no "8" yes no no "U" "" ""
     _FldNameList[2]   > AnaDat.Adresse.Suchbe
"Adresse.Suchbe" ? "x(15)" "character" ? ? ? ? ? ? no ? no no ? yes no no "U" "" ""
     _FldNameList[3]   > AnaDat.Adresse.Firma1
"Adresse.Firma1" "Firma" "x(18)" "character" ? ? ? ? ? ? no ? no no ? yes no no "U" "" ""
     _FldNameList[4]   > AnaDat.Adresse.Name
"Adresse.Name" ? "x(18)" "character" ? ? ? ? ? ? no ? no no ? yes no no "U" "" ""
     _FldNameList[5]   > AnaDat.Adresse.Vorname
"Adresse.Vorname" ? "x(13)" "character" ? ? ? ? ? ? no ? no no ? yes no no "U" "" ""
     _FldNameList[6]   > AnaDat.Adresse.Strasse
"Adresse.Strasse" ? "x(18)" "character" ? ? ? ? ? ? no ? no no ? yes no no "U" "" ""
     _FldNameList[7]   = AnaDat.Adresse.Plz
     _FldNameList[8]   > AnaDat.Adresse.Ort
"Adresse.Ort" ? "x(18)" "character" ? ? ? ? ? ? no ? no no "43.2" yes no no "U" "" ""
     _Query            is NOT OPENED
*/  /* BROWSE Br_Adressen */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _QUERY-BLOCK DIALOG-BOX gLieferantensuchen
/* Query rebuild information for DIALOG-BOX gLieferantensuchen
     _Options          = "SHARE-LOCK"
     _Query            is NOT OPENED
*/  /* DIALOG-BOX gLieferantensuchen */
&ANALYZE-RESUME

 



/* ************************  Control Triggers  ************************ */

&Scoped-define SELF-NAME gLieferantensuchen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gLieferantensuchen gLieferantensuchen
ON END-ERROR OF FRAME gLieferantensuchen /* Suche nach Lieferanten */
DO:
    RUN ENDE.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gLieferantensuchen gLieferantensuchen
ON GO OF FRAME gLieferantensuchen /* Suche nach Lieferanten */
DO:
    RUN ENDE_PROGRAMM ( INPUT THIS-PROCEDURE:FILE-NAME ) NO-ERROR.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gLieferantensuchen gLieferantensuchen
ON WINDOW-CLOSE OF FRAME gLieferantensuchen /* Suche nach Lieferanten */
DO:  
    RUN ENDE.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define BROWSE-NAME Br_Adressen
&Scoped-define SELF-NAME Br_Adressen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Br_Adressen gLieferantensuchen
ON END-ERROR OF Br_Adressen IN FRAME gLieferantensuchen
DO:
    RUN INITFELDER.
    APPLY 'ENTRY' TO F_Suchbe IN FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Br_Adressen gLieferantensuchen
ON RETURN OF Br_Adressen IN FRAME gLieferantensuchen
DO:
DO WITH FRAME {&FRAME-NAME}:
    IF NUM-RESULTS('{&BROWSE-NAME}') = ?    THEN RETURN NO-APPLY.
    IF NUM-RESULTS('{&BROWSE-NAME}') = 0    THEN RETURN NO-APPLY.
    IF {&BROWSE-NAME}:NUM-SELECTED-ROWS = 0 THEN RETURN NO-APPLY.

    ASSIGN  {&List-6}.
    F_Knr  = Adresse.Knr.
    VSuch1 = TRIM(STRING(F_Knr,'zzzzzzzz')).
    VSuch2 = F_Suchbe.
    VSuch3 = F_Firma.
    VSuch4 = F_Name.
    VSuch5 = F_Strasse.
    VSuch6 = F_Plz.
    VSuch7 = F_Ort.

    {&BROWSE-NAME}:FETCH-SELECTED-ROW(1).

    opAdresse = STRING(RECID(Adresse))  + CHR(01)
              + Adresse.Firma           + CHR(01)
              + STRING(Adresse.Knr)     + CHR(01)
              + STRING(VSort)           + CHR(01).
    IF VSort <> 1 THEN VSuch1 = ''.
    IF VSort <> 2 THEN VSuch2 = ''.
    IF VSort <> 3 THEN VSuch3 = ''.
    IF VSort <> 4 THEN VSuch4 = ''.
    IF VSort <> 5 THEN VSuch5 = ''.
    IF VSort <> 6 THEN VSuch6 = ''.
    IF VSort <> 7 THEN VSuch7 = ''.

    opAdresse = opAdresse + VSuch1  + CHR(01)
                          + VSuch2  + CHR(01)
                          + VSuch3  + CHR(01)
                          + VSuch4  + CHR(01)
                          + VSuch5  + CHR(01)
                          + VSuch6  + CHR(01)
                          + VSuch7  + CHR(01).
END.

    RUN ENDE.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME F_Firma
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Firma gLieferantensuchen
ON END-ERROR OF F_Firma IN FRAME gLieferantensuchen /* Firma */
DO:
    RUN INITFELDER.
    APPLY 'ENTRY' TO F_Suchbe IN FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Firma gLieferantensuchen
ON LEAVE OF F_Firma IN FRAME gLieferantensuchen /* Firma */
DO:
    Inhalt = SELF:SCREEN-VALUE.
    IF Inhalt <> '' THEN VSuch3 = ENTRY(1, Inhalt, ' ').
    ELSE                 VSuch3 = ''.
    IF VSuch3 <> '' THEN RUN OPENQUERY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Firma gLieferantensuchen
ON VALUE-CHANGED OF F_Firma IN FRAME gLieferantensuchen /* Firma */
DO:
    Inhalt = SELF:SCREEN-VALUE.
    IF Inhalt <> '' THEN VSuch3 = ENTRY(1, Inhalt, ' ').
    ELSE                 VSuch3 = ''.
    IF VSuch3 <> '' THEN RUN OPENQUERY.
    APPLY 'END' TO SELF.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME F_Knr
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Knr gLieferantensuchen
ON END-ERROR OF F_Knr IN FRAME gLieferantensuchen /* Kundennummer */
DO:
    RUN INITFELDER.
    APPLY 'ENTRY' TO F_Suchbe IN FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Knr gLieferantensuchen
ON LEAVE OF F_Knr IN FRAME gLieferantensuchen /* Kundennummer */
DO:
    Inhalt = SELF:SCREEN-VALUE.
    Inhalt = TRIM(STRING(INTEGER(Inhalt),'zzzzzz')).
    IF Inhalt <> '' THEN VSuch1 = ENTRY(1, Inhalt, ' ').
    ELSE                 VSuch1 = ''.
    IF VSuch1 <> '' THEN RUN OPENQUERY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME F_Lkz
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Lkz gLieferantensuchen
ON END-ERROR OF F_Lkz IN FRAME gLieferantensuchen /* Land/Plz/Ort */
DO:
    RUN INITFELDER.
    APPLY 'ENTRY' TO F_Suchbe IN FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME F_Match
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Match gLieferantensuchen
ON END-ERROR OF F_Match IN FRAME gLieferantensuchen /* Match */
DO:
    RUN INITFELDER.
    APPLY 'ENTRY' TO F_Suchbe IN FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Match gLieferantensuchen
ON LEAVE OF F_Match IN FRAME gLieferantensuchen /* Match */
DO:
    Match = SELF:SCREEN-VALUE.
    IF Match <> '' THEN DO:
        RUN OPENQUERY.
        APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}.
        RETURN NO-APPLY.
    END.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME F_Name
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Name gLieferantensuchen
ON END-ERROR OF F_Name IN FRAME gLieferantensuchen /* Name */
DO:
    RUN INITFELDER.
    APPLY 'ENTRY' TO F_Suchbe IN FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Name gLieferantensuchen
ON LEAVE OF F_Name IN FRAME gLieferantensuchen /* Name */
DO:
    Inhalt = SELF:SCREEN-VALUE.
    IF Inhalt <> '' THEN VSuch4 = ENTRY(1, Inhalt, ' ').
    ELSE                 VSuch4 = ''.
    IF VSuch4 <> '' THEN RUN OPENQUERY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Name gLieferantensuchen
ON VALUE-CHANGED OF F_Name IN FRAME gLieferantensuchen /* Name */
DO:
    Inhalt = SELF:SCREEN-VALUE.
    IF Inhalt <> '' THEN VSuch4 = ENTRY(1, Inhalt, ' ').
    ELSE                 VSuch4 = ''.
    IF VSuch4 <> '' THEN RUN OPENQUERY.
    APPLY 'END' TO SELF.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME F_Ort
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Ort gLieferantensuchen
ON END-ERROR OF F_Ort IN FRAME gLieferantensuchen
DO:
    RUN INITFELDER.
    APPLY 'ENTRY' TO F_Suchbe IN FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Ort gLieferantensuchen
ON LEAVE OF F_Ort IN FRAME gLieferantensuchen
DO:
    Inhalt = SELF:SCREEN-VALUE.
    IF Inhalt <> '' THEN VSuch7 = ENTRY(1, Inhalt, ' ').
    ELSE                 VSuch7 = ''.
    IF VSuch7 <> '' THEN RUN OPENQUERY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Ort gLieferantensuchen
ON VALUE-CHANGED OF F_Ort IN FRAME gLieferantensuchen
DO:
    Inhalt = SELF:SCREEN-VALUE.
    IF Inhalt <> '' THEN VSuch7 = ENTRY(1, Inhalt, ' ').
    ELSE                 VSuch7 = ''.
    IF VSuch7 <> '' THEN RUN OPENQUERY.
    APPLY 'END' TO SELF.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME F_Plz
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Plz gLieferantensuchen
ON END-ERROR OF F_Plz IN FRAME gLieferantensuchen
DO:
    RUN INITFELDER.
    APPLY 'ENTRY' TO F_Suchbe IN FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Plz gLieferantensuchen
ON LEAVE OF F_Plz IN FRAME gLieferantensuchen
DO:
    Inhalt = SELF:SCREEN-VALUE.
    IF Inhalt <> '' THEN VSuch6 = ENTRY(1, Inhalt, ' ').
    ELSE                 VSuch6 = ''.
    IF VSuch6 <> '' THEN RUN OPENQUERY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Plz gLieferantensuchen
ON VALUE-CHANGED OF F_Plz IN FRAME gLieferantensuchen
DO:
    Inhalt = SELF:SCREEN-VALUE.
    IF Inhalt <> '' THEN VSuch6 = ENTRY(1, Inhalt, ' ').
    ELSE                 VSuch6 = ''.
    IF VSuch6 <> '' THEN RUN OPENQUERY.
    APPLY 'END' TO SELF.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME F_Strasse
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Strasse gLieferantensuchen
ON END-ERROR OF F_Strasse IN FRAME gLieferantensuchen /* Strasse */
DO:
    RUN INITFELDER.
    APPLY 'ENTRY' TO F_Suchbe IN FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Strasse gLieferantensuchen
ON LEAVE OF F_Strasse IN FRAME gLieferantensuchen /* Strasse */
DO:
    Inhalt = SELF:SCREEN-VALUE.
    IF Inhalt <> '' THEN VSuch5 = ENTRY(1, Inhalt, ' ').
    ELSE                 VSuch5 = ''.
    IF VSuch5 <> '' THEN RUN OPENQUERY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Strasse gLieferantensuchen
ON VALUE-CHANGED OF F_Strasse IN FRAME gLieferantensuchen /* Strasse */
DO:
    Inhalt = SELF:SCREEN-VALUE.
    IF Inhalt <> '' THEN VSuch5 = ENTRY(1, Inhalt, ' ').
    ELSE                 VSuch5 = ''.
    IF VSuch5 <> '' THEN RUN OPENQUERY.
    APPLY 'END' TO SELF.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME F_Suchbe
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Suchbe gLieferantensuchen
ON LEAVE OF F_Suchbe IN FRAME gLieferantensuchen /* Suchbegriff */
DO:
    Inhalt = SELF:SCREEN-VALUE.
    IF Inhalt <> '' THEN VSuch2 = ENTRY(1, Inhalt, ' ').
    ELSE                 VSuch2 = ''.
    IF VSuch2 <> '' THEN RUN OPENQUERY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Suchbe gLieferantensuchen
ON VALUE-CHANGED OF F_Suchbe IN FRAME gLieferantensuchen /* Suchbegriff */
DO:
    Inhalt = SELF:SCREEN-VALUE.
    IF Inhalt <> '' THEN VSuch2 = ENTRY(1, Inhalt, ' ').
    ELSE                 VSuch2 = ''.
    IF VSuch2 <> '' THEN RUN OPENQUERY.
    APPLY 'END' TO SELF.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME F_Telefon
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Telefon gLieferantensuchen
ON END-ERROR OF F_Telefon IN FRAME gLieferantensuchen /* Telefonnummer */
DO:
    RUN INITFELDER.
    APPLY 'ENTRY' TO F_Knr IN FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Telefon gLieferantensuchen
ON LEAVE OF F_Telefon IN FRAME gLieferantensuchen /* Telefonnummer */
DO:
    Telefon = SELF:SCREEN-VALUE.
    IF Telefon <> '' THEN DO:
        RUN OPENQUERY.
        APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}.
        RETURN NO-APPLY.
    END.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&UNDEFINE SELF-NAME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK gLieferantensuchen 


/* ***************************  Main Block  *************************** */

    opAdresse = ''.
    MaxPage   = 1.
    AktSeite  = 1.
    Firma     = DYNAMIC-FUNCTION('GETADMANDANT':U).

    SESSION:DATA-ENTRY-RETURN = TRUE.

/*  TRIGGERS    ------------------------------------------------------  */

    ON 'CURSOR-DOWN':U OF F_Knr    , F_Suchbe, F_Firma, F_Name,
                          F_Strasse, F_Lkz   , F_Plz  , F_Ort ,
                          F_Telefon, F_Match
                       IN FRAME {&FRAME-NAME}
    DO:
        APPLY 'ENTRY' TO BROWSE {&BROWSE-NAME}.
        RETURN NO-APPLY.
    END.

/*  ------------------------------------------------------------------  */

    {src/adm2/dialogmn.i}

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


/* **********************  Internal Procedures  *********************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects gLieferantensuchen  _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:  <none>
------------------------------------------------------------------------------*/

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE changePage gLieferantensuchen 
PROCEDURE changePage :
/*------------------------------------------------------------------------------
  Purpose:     Super Override
  Parameters:  
  Notes:       
------------------------------------------------------------------------------*/

  /* Code placed here will execute PRIOR to standard behavior. */

    RUN SUPER.

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U).

    CASE AktSeite:

        WHEN 1 THEN DO:
/*           RUN addLink ( h_dyntoolbar , 'TableIO':U    , h_v-auftr        ). */
/*           RUN addLink ( h_dyntoolbar , 'Navigation':U , h_d-auftr        ). */
/*           RUN ToolbarInit ( INPUT h_d-auftr ).                              */
            RUN ENTRY_CURSOR.
        END.
        WHEN 2 THEN DO:
            RUN ENTRY_CURSOR.
        END.

    END CASE.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI gLieferantensuchen  _DEFAULT-DISABLE
PROCEDURE disable_UI :
/*------------------------------------------------------------------------------
  Purpose:     DISABLE the User Interface
  Parameters:  <none>
  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 gLieferantensuchen.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject gLieferantensuchen 
PROCEDURE enableObject :
/*------------------------------------------------------------------------------
  Purpose:     Super Override
  Parameters:  
  Notes:       
------------------------------------------------------------------------------*/

    /* Code placed here will execute PRIOR to standard behavior. */

    RUN SUPER.

    RUN FENSTER_TITEL ( INPUT FRAME {&FRAME-NAME}:HANDLE ) NO-ERROR.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI gLieferantensuchen  _DEFAULT-ENABLE
PROCEDURE enable_UI :
/*------------------------------------------------------------------------------
  Purpose:     ENABLE the User Interface
  Parameters:  <none>
  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_Suchbe F_Knr F_Firma F_Name F_Strasse F_Lkz F_Plz F_Ort F_Telefon 
          F_Match 
      WITH FRAME gLieferantensuchen.
  ENABLE F_Suchbe F_Knr F_Firma F_Name F_Strasse F_Lkz F_Plz F_Ort F_Telefon 
         F_Match Br_Adressen 
      WITH FRAME gLieferantensuchen.
  VIEW FRAME gLieferantensuchen.
  {&OPEN-BROWSERS-IN-QUERY-gLieferantensuchen}
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENDE gLieferantensuchen 
PROCEDURE ENDE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR.

    IF AktSeite > 1 THEN DO:
        RUN selectPage ( INPUT 1 ).
        RETURN NO-APPLY.
    END.

    RUN ENDE_PROGRAMM ( INPUT THIS-PROCEDURE:FILE-NAME ).
    APPLY 'GO' TO FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE exitObject gLieferantensuchen 
PROCEDURE exitObject :
/*------------------------------------------------------------------------------
  Purpose:     Super Override
  Parameters:  
  Notes:       
------------------------------------------------------------------------------*/

    RUN ENDE.
    RETURN NO-APPLY.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE INITFELDER gLieferantensuchen 
PROCEDURE INITFELDER :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    VSuch1    = ''.
    VSuch2    = ''.
    VSuch3    = ''.
    VSuch4    = ''.
    VSuch5    = ''.
    VSuch6    = ''.
    VSuch7    = ''.
    F_Knr     = 0.
    F_Suchbe  = ''.
    F_Firma   = ''.
    F_Name    = ''.
    F_Strasse = ''.
    F_Plz     = ''.
    F_Ort     = ''.
    F_Telefon = ''.
    F_Match   = ''.
    DISPLAY {&list-6} WITH FRAME {&FRAME-NAME}.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE OPENQUERY gLieferantensuchen 
PROCEDURE OPENQUERY :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    VSort = 1.
    IF Telefon <> '' THEN VSort = 11.
    IF Match   <> '' THEN VSort = 12.
    IF VSort < 11 THEN DO:
        IF VSuch7 <> '' AND INDEX(VSuch7, '*') = 0 THEN VSort = 5.
        IF VSuch6 <> '' AND INDEX(VSuch6, '*') = 0 THEN VSort = 6.
        IF VSuch5 <> '' AND INDEX(VSuch5, '*') = 0 THEN VSort = 7.
        IF VSuch4 <> '' AND INDEX(VSuch4, '*') = 0 THEN VSort = 4.
        IF VSuch3 <> '' AND INDEX(VSuch3, '*') = 0 THEN VSort = 3.
        IF VSuch2 <> '' AND INDEX(VSuch2, '*') = 0 THEN VSort = 2.
        IF VSuch1 <> '' AND INDEX(VSuch1, '*') = 0 THEN VSort = 1.
    END.
    
    Firma = DYNAMIC-FUNCTION('GETADMANDANT':U) NO-ERROR.

    CASE VSort:
        WHEN 1 THEN DO:
            OPEN QUERY {&BROWSE-NAME}
            FOR EACH Adresse USE-INDEX Adresse-k1
                             WHERE Adresse.Firma   = Firma
                             AND   Adresse.Aktiv   = TRUE
                             AND   Adresse.Knr    >= INTEGER(VSuch1)
                AND (IF INDEX(VSuch2, '*') = 0 THEN Adresse.Suchbe BEGINS  VSuch2
                     ELSE                           Adresse.Suchbe MATCHES VSuch2)
                AND (IF INDEX(VSuch3, '*') = 0 THEN Adresse.Firma  BEGINS  VSuch3
                     ELSE                           Adresse.Firma  MATCHES VSuch3)
                AND (IF INDEX(VSuch4, '*') = 0 THEN Adresse.NAME   BEGINS  VSuch4
                     ELSE                           Adresse.NAME   MATCHES VSuch4)
                AND (IF INDEX(VSuch5, '*') = 0 THEN Adresse.Strass BEGINS  VSuch5
                     ELSE                           Adresse.Strass MATCHES VSuch5)
                AND (IF INDEX(VSuch6, '*') = 0 THEN Adresse.Plz    BEGINS  VSuch6
                     ELSE                           Adresse.Plz    MATCHES VSuch6)
                AND (IF INDEX(VSuch7, '*') = 0 THEN Adresse.Ort    BEGINS  VSuch7
                     ELSE                           Adresse.Ort    MATCHES VSuch7)
                             NO-LOCK,
                FIRST Liefst USE-INDEX Liefst-k1
                             WHERE Liefst.Firma = Firma
                             AND   Liefst.Knr   = Adresse.Knr
                             AND   Liefst.Aktiv = TRUE NO-LOCK.
        END.

        WHEN 2 THEN DO:
            OPEN QUERY {&BROWSE-NAME}
            FOR EACH Adresse USE-INDEX Adresse-k2
                             WHERE Adresse.Firma   = Firma
                             AND   Adresse.Aktiv   = TRUE
                             AND   Adresse.Suchbe  BEGINS VSuch2
                AND (IF INDEX(VSuch3, '*') = 0 THEN Adresse.Firma  BEGINS  VSuch3
                     ELSE                           Adresse.Firma  MATCHES VSuch3)
                AND (IF INDEX(VSuch4, '*') = 0 THEN Adresse.NAME   BEGINS  VSuch4
                     ELSE                           Adresse.NAME   MATCHES VSuch4)
                AND (IF INDEX(VSuch5, '*') = 0 THEN Adresse.Strass BEGINS  VSuch5
                     ELSE                           Adresse.Strass MATCHES VSuch5)
                AND (IF INDEX(VSuch6, '*') = 0 THEN Adresse.Plz    BEGINS  VSuch6
                     ELSE                           Adresse.Plz    MATCHES VSuch6)
                AND (IF INDEX(VSuch7, '*') = 0 THEN Adresse.Ort    BEGINS  VSuch7
                     ELSE                           Adresse.Ort    MATCHES VSuch7)
                             NO-LOCK,
                FIRST Liefst USE-INDEX Liefst-k1
                             WHERE Liefst.Firma = Firma
                             AND   Liefst.Knr   = Adresse.Knr
                             AND   Liefst.Aktiv = TRUE NO-LOCK.
        END.

        WHEN 3 THEN DO:
            OPEN QUERY {&BROWSE-NAME}
            FOR EACH Adresse USE-INDEX Adresse-k3
                             WHERE Adresse.Firma   = Firma
                             AND   Adresse.Aktiv   = TRUE
                             AND   Adresse.Firma1  BEGINS VSuch3
                AND (IF INDEX(VSuch2, '*') = 0 THEN Adresse.Suchbe BEGINS  VSuch2
                     ELSE                           Adresse.Suchbe MATCHES VSuch2)
                AND (IF INDEX(VSuch4, '*') = 0 THEN Adresse.NAME   BEGINS  VSuch4
                     ELSE                           Adresse.NAME   MATCHES VSuch4)
                AND (IF INDEX(VSuch5, '*') = 0 THEN Adresse.Strass BEGINS  VSuch5
                     ELSE                           Adresse.Strass MATCHES VSuch5)
                AND (IF INDEX(VSuch6, '*') = 0 THEN Adresse.Plz    BEGINS  VSuch6
                     ELSE                           Adresse.Plz    MATCHES VSuch6)
                AND (IF INDEX(VSuch7, '*') = 0 THEN Adresse.Ort    BEGINS  VSuch7
                     ELSE                           Adresse.Ort    MATCHES VSuch7)
                             NO-LOCK,
                FIRST Liefst USE-INDEX Liefst-k1
                             WHERE Liefst.Firma = Firma
                             AND   Liefst.Knr   = Adresse.Knr
                             AND   Liefst.Aktiv = TRUE NO-LOCK.
        END.

        WHEN 4 THEN DO:
            OPEN QUERY {&BROWSE-NAME}
            FOR EACH Adresse USE-INDEX Adresse-k4
                             WHERE Adresse.Firma   = Firma
                             AND   Adresse.Aktiv   = TRUE
                             AND   Adresse.NAME    BEGINS VSuch4
                AND (IF INDEX(VSuch2, '*') = 0 THEN Adresse.Suchbe BEGINS  VSuch2
                     ELSE                           Adresse.Suchbe MATCHES VSuch2)
                AND (IF INDEX(VSuch3, '*') = 0 THEN Adresse.Firma  BEGINS  VSuch3
                     ELSE                           Adresse.Firma  MATCHES VSuch3)
                AND (IF INDEX(VSuch5, '*') = 0 THEN Adresse.Strass BEGINS  VSuch5
                     ELSE                           Adresse.Strass MATCHES VSuch5)
                AND (IF INDEX(VSuch6, '*') = 0 THEN Adresse.Plz    BEGINS  VSuch6
                     ELSE                           Adresse.Plz    MATCHES VSuch6)
                AND (IF INDEX(VSuch7, '*') = 0 THEN Adresse.Ort    BEGINS  VSuch7
                     ELSE                           Adresse.Ort    MATCHES VSuch7)
                             NO-LOCK,
                FIRST Liefst USE-INDEX Liefst-k1
                             WHERE Liefst.Firma = Firma
                             AND   Liefst.Knr   = Adresse.Knr
                             AND   Liefst.Aktiv = TRUE NO-LOCK.
        END.

        WHEN 5 THEN DO:
            OPEN QUERY {&BROWSE-NAME}
            FOR EACH Adresse USE-INDEX Adresse-k5
                             WHERE Adresse.Firma   = Firma
                             AND   Adresse.Aktiv   = TRUE
                             AND   Adresse.Ort     BEGINS VSuch7
                AND (IF INDEX(VSuch2, '*') = 0 THEN Adresse.Suchbe BEGINS  VSuch2
                     ELSE                           Adresse.Suchbe MATCHES VSuch2)
                AND (IF INDEX(VSuch3, '*') = 0 THEN Adresse.Firma  BEGINS  VSuch3
                     ELSE                           Adresse.Firma  MATCHES VSuch3)
                AND (IF INDEX(VSuch4, '*') = 0 THEN Adresse.NAME   BEGINS  VSuch4
                     ELSE                           Adresse.NAME   MATCHES VSuch4)
                AND (IF INDEX(VSuch5, '*') = 0 THEN Adresse.Strass BEGINS  VSuch5
                     ELSE                           Adresse.Strass MATCHES VSuch5)
                AND (IF INDEX(VSuch6, '*') = 0 THEN Adresse.Plz    BEGINS  VSuch6
                     ELSE                           Adresse.Plz    MATCHES VSuch6)
                             NO-LOCK,
                FIRST Liefst USE-INDEX Liefst-k1
                             WHERE Liefst.Firma = Firma
                             AND   Liefst.Knr   = Adresse.Knr
                             AND   Liefst.Aktiv = TRUE NO-LOCK.
        END.

        WHEN 6 THEN DO:
            OPEN QUERY {&BROWSE-NAME}
            FOR EACH Adresse USE-INDEX Adresse-k6
                             WHERE Adresse.Firma   = Firma
                             AND   Adresse.Aktiv   = TRUE
                             AND   Adresse.Plz     BEGINS VSuch6
                AND (IF INDEX(VSuch2, '*') = 0 THEN Adresse.Suchbe BEGINS  VSuch2
                     ELSE                           Adresse.Suchbe MATCHES VSuch2)
                AND (IF INDEX(VSuch3, '*') = 0 THEN Adresse.Firma  BEGINS  VSuch3
                     ELSE                           Adresse.Firma  MATCHES VSuch3)
                AND (IF INDEX(VSuch4, '*') = 0 THEN Adresse.NAME   BEGINS  VSuch4
                     ELSE                           Adresse.NAME   MATCHES VSuch4)
                AND (IF INDEX(VSuch5, '*') = 0 THEN Adresse.Strass BEGINS  VSuch5
                     ELSE                           Adresse.Strass MATCHES VSuch5)
                AND (IF INDEX(VSuch7, '*') = 0 THEN Adresse.Ort    BEGINS  VSuch7
                     ELSE                           Adresse.Ort    MATCHES VSuch7)
                             NO-LOCK,
                FIRST Liefst USE-INDEX Liefst-k1
                             WHERE Liefst.Firma = Firma
                             AND   Liefst.Knr   = Adresse.Knr
                             AND   Liefst.Aktiv = TRUE NO-LOCK.
        END.

        WHEN 7 THEN DO:
            OPEN QUERY {&BROWSE-NAME}
            FOR EACH Adresse USE-INDEX Adresse-k7
                             WHERE Adresse.Firma   = Firma
                             AND   Adresse.Aktiv   = TRUE
                             AND   Adresse.Strasse BEGINS VSuch5
                AND (IF INDEX(VSuch2, '*') = 0 THEN Adresse.Suchbe BEGINS  VSuch2
                     ELSE                           Adresse.Suchbe MATCHES VSuch2)
                AND (IF INDEX(VSuch3, '*') = 0 THEN Adresse.Firma  BEGINS  VSuch3
                     ELSE                           Adresse.Firma  MATCHES VSuch3)
                AND (IF INDEX(VSuch4, '*') = 0 THEN Adresse.NAME   BEGINS  VSuch4
                     ELSE                           Adresse.NAME   MATCHES VSuch4)
                AND (IF INDEX(VSuch6, '*') = 0 THEN Adresse.Plz    BEGINS  VSuch6
                     ELSE                           Adresse.Plz    MATCHES VSuch6)
                AND (IF INDEX(VSuch7, '*') = 0 THEN Adresse.Ort    BEGINS  VSuch7
                     ELSE                           Adresse.Ort    MATCHES VSuch7)
                             NO-LOCK,
                FIRST Liefst USE-INDEX Liefst-k1
                             WHERE Liefst.Firma = Firma
                             AND   Liefst.Knr   = Adresse.Knr
                             AND   Liefst.Aktiv = TRUE NO-LOCK.
        END.

        WHEN 11 THEN DO:
            OPEN QUERY {&BROWSE-NAME}
            FOR EACH Adresse USE-INDEX Adresse-k2
                             WHERE Adresse.Firma   = Firma
                             AND   Adresse.Aktiv   = TRUE
                AND ((IF INDEX(Telefon, '*') = 0 THEN Adresse.Tel-1 BEGINS  Telefon
                      ELSE                            Adresse.Tel-1 MATCHES Telefon)
                OR   (IF INDEX(Telefon, '*') = 0 THEN Adresse.Tel-2 BEGINS  Telefon
                      ELSE                            Adresse.Tel-2 MATCHES Telefon)
                OR   (IF INDEX(Telefon, '*') = 0 THEN Adresse.Tel-3 BEGINS  Telefon
                      ELSE                            Adresse.Tel-3 MATCHES Telefon)
                OR   (IF INDEX(Telefon, '*') = 0 THEN Adresse.Tel-4 BEGINS  Telefon
                      ELSE                            Adresse.Tel-4 MATCHES Telefon))
                             NO-LOCK,
                FIRST Liefst USE-INDEX Liefst-k1
                             WHERE Liefst.Firma = Firma
                             AND   Liefst.Knr   = Adresse.Knr
                             AND   Liefst.Aktiv = TRUE NO-LOCK.
        END.
    
        WHEN 12 THEN DO:
            OPEN QUERY {&BROWSE-NAME}
            FOR EACH Adresse USE-INDEX Adresse-k2
                             WHERE Adresse.Firma   = Firma
                             AND   Adresse.Aktiv   = TRUE
                AND (IF INDEX(Match, '*') = 0
                        THEN Adresse.Anschrift[01] BEGINS Match OR
                             Adresse.Anschrift[02] BEGINS Match OR
                             Adresse.Anschrift[03] BEGINS Match OR
                             Adresse.Anschrift[04] BEGINS Match OR
                             Adresse.Anschrift[05] BEGINS Match OR
                             Adresse.Anschrift[06] BEGINS Match OR
                             Adresse.Anschrift[07] BEGINS Match OR
                             Adresse.Anschrift[08] BEGINS Match OR
                             Adresse.Anschrift[09] BEGINS Match OR
                             Adresse.Anschrift[10] BEGINS Match OR
                             Adresse.Anschrift[11] BEGINS Match
                     ELSE    Adresse.Anschrift[01] MATCHES Match OR
                             Adresse.Anschrift[02] MATCHES Match OR
                             Adresse.Anschrift[03] MATCHES Match OR
                             Adresse.Anschrift[04] MATCHES Match OR
                             Adresse.Anschrift[05] MATCHES Match OR
                             Adresse.Anschrift[06] MATCHES Match OR
                             Adresse.Anschrift[07] MATCHES Match OR
                             Adresse.Anschrift[08] MATCHES Match OR
                             Adresse.Anschrift[09] MATCHES Match OR
                             Adresse.Anschrift[10] MATCHES Match OR
                             Adresse.Anschrift[11] MATCHES Match)
                             NO-LOCK,
                FIRST Liefst USE-INDEX Liefst-k1
                             WHERE Liefst.Firma = Firma
                             AND   Liefst.Knr   = Adresse.Knr
                             AND   Liefst.Aktiv = TRUE NO-LOCK.
        END.
    END CASE.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE selectPage gLieferantensuchen 
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 ( h_dyntoolbar , 'TableIO':U    , h_v-auftr       ). */
/*             RUN removeLink ( h_dyntoolbar , 'Navigation':U , h_d-auftr       ). */
        END.

    END CASE.

    RUN SUPER( INPUT piPageNum).

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME