GeMIS_WEB/GUI/g-adresse-erf.w

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

  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 '1000'.
DEF VAR AdFirma         AS CHAR                     NO-UNDO INIT '1000'.
DEF VAR Inhalt          AS CHAR                     NO-UNDO INIT ''.
DEF VAR Lkz             AS CHAR                     NO-UNDO.
DEF VAR Sprcd           AS INT                      NO-UNDO.
DEF VAR FLeave          AS LOG                      NO-UNDO.

/* _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 designated FRAME-NAME and/or first browse and/or first query */
&Scoped-define FRAME-NAME gAdressErfassung
&Scoped-define BROWSE-NAME Br_Adressen

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

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


/* Definitions for DIALOG-BOX gAdressErfassung                          */

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS F_Knr F_Suchbe F_Firma1 F_Firma2 F_Name ~
F_Vorname F_Zusatz1 F_Zusatz2 F_Strasse F_Postfach CB_Land F_Plz F_Ort ~
Btn_Erfassen Br_Adressen 
&Scoped-Define DISPLAYED-OBJECTS F_Knr F_Suchbe F_Firma1 F_Firma2 F_Name ~
F_Vorname F_Zusatz1 F_Zusatz2 F_Strasse F_Postfach CB_Land F_Plz F_Ort 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-6 F_Lkz F_Knr F_Suchbe F_Firma1 F_Firma2 F_Name ~
F_Vorname F_Zusatz1 F_Zusatz2 F_Strasse F_Postfach F_Plz F_Ort 

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



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

/* Define a dialog box                                                  */

/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Erfassen 
     LABEL "&Erfassen" 
     SIZE 12 BY 1.

DEFINE VARIABLE CB_Land AS CHARACTER FORMAT "X(256)":U 
     LABEL "Land/Plz/Ort" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEM-PAIRS "Item 1","Item 1"
     DROP-DOWN-LIST
     SIZE 24 BY 1
     BGCOLOR 15  NO-UNDO.

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

DEFINE VARIABLE F_Firma2 AS CHARACTER FORMAT "x(30)":U 
     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 "Nummer" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 11 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Lkz AS CHARACTER FORMAT "X(256)":U 
     LABEL "Lkz" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 4 BY 1 NO-UNDO.

DEFINE VARIABLE F_Name AS CHARACTER FORMAT "x(30)":U 
     LABEL "Name/Vorname" 
     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 34 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_Postfach AS CHARACTER FORMAT "x(30)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 34 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Strasse AS CHARACTER FORMAT "x(30)":U 
     LABEL "Strasse/Postfach" 
     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_Vorname AS CHARACTER FORMAT "x(30)":U 
     VIEW-AS FILL-IN NATIVE 
     SIZE 34 BY 1
     BGCOLOR 15  NO-UNDO.

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

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

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

/* Browse definitions                                                   */
DEFINE BROWSE Br_Adressen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS Br_Adressen gAdressErfassung _STRUCTURED
  QUERY Br_Adressen NO-LOCK DISPLAY
      Adresse.Knr FORMAT "999999":U WIDTH 8
      Adresse.Firma1 COLUMN-LABEL "Firma" FORMAT "x(20)":U
      Adresse.Name FORMAT "x(18)":U
      Adresse.Vorname FORMAT "x(15)":U
      Adresse.Strasse FORMAT "x(18)":U
      Adresse.Ort FORMAT "x(18)":U
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
    WITH NO-ROW-MARKERS SEPARATORS SIZE 104.4 BY 9.24
         BGCOLOR 15  FIT-LAST-COLUMN.


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

DEFINE FRAME gAdressErfassung
     F_Lkz AT ROW 2 COL 100 COLON-ALIGNED WIDGET-ID 2 NO-TAB-STOP 
     F_Knr AT ROW 1.57 COL 20 COLON-ALIGNED
     F_Suchbe AT ROW 1.52 COL 54 COLON-ALIGNED
     F_Firma1 AT ROW 2.52 COL 20 COLON-ALIGNED
     F_Firma2 AT ROW 2.52 COL 54 COLON-ALIGNED NO-LABEL
     F_Name AT ROW 3.52 COL 20 COLON-ALIGNED
     F_Vorname AT ROW 3.52 COL 54 COLON-ALIGNED NO-LABEL
     F_Zusatz1 AT ROW 4.52 COL 20 COLON-ALIGNED
     F_Zusatz2 AT ROW 4.52 COL 54 COLON-ALIGNED NO-LABEL
     F_Strasse AT ROW 5.52 COL 20 COLON-ALIGNED
     F_Postfach AT ROW 5.52 COL 54 COLON-ALIGNED NO-LABEL
     CB_Land AT ROW 6.52 COL 20 COLON-ALIGNED
     F_Plz AT ROW 6.52 COL 44 COLON-ALIGNED NO-LABEL
     F_Ort AT ROW 6.52 COL 54 COLON-ALIGNED NO-LABEL
     Btn_Erfassen AT ROW 7.76 COL 93.4
     Br_Adressen AT ROW 9 COL 3.4
     SPACE(2.79) SKIP(0.80)
    WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER 
         SIDE-LABELS NO-UNDERLINE THREE-D  SCROLLABLE 
         TITLE "Erfassen neue Adresse".


/* *********************** 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 gAdressErfassung 
/* ************************* 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 gAdressErfassung
   FRAME-NAME Custom                                                    */
/* BROWSE-TAB Br_Adressen Btn_Erfassen gAdressErfassung */
ASSIGN 
       FRAME gAdressErfassung:SCROLLABLE       = FALSE
       FRAME gAdressErfassung:HIDDEN           = TRUE.

/* SETTINGS FOR FILL-IN F_Firma1 IN FRAME gAdressErfassung
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Firma2 IN FRAME gAdressErfassung
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Knr IN FRAME gAdressErfassung
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Lkz IN FRAME gAdressErfassung
   NO-DISPLAY NO-ENABLE 6                                               */
ASSIGN 
       F_Lkz:HIDDEN IN FRAME gAdressErfassung           = TRUE
       F_Lkz:READ-ONLY IN FRAME gAdressErfassung        = TRUE.

/* SETTINGS FOR FILL-IN F_Name IN FRAME gAdressErfassung
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Ort IN FRAME gAdressErfassung
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Plz IN FRAME gAdressErfassung
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Postfach IN FRAME gAdressErfassung
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Strasse IN FRAME gAdressErfassung
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Suchbe IN FRAME gAdressErfassung
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Vorname IN FRAME gAdressErfassung
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Zusatz1 IN FRAME gAdressErfassung
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Zusatz2 IN FRAME gAdressErfassung
   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"
     _Options          = "NO-LOCK INDEXED-REPOSITION"
     _FldNameList[1]   > AnaDat.Adresse.Knr
"Adresse.Knr" ? ? "integer" ? ? ? ? ? ? no ? no no "8" yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[2]   > AnaDat.Adresse.Firma1
"Adresse.Firma1" "Firma" "x(20)" "character" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[3]   > AnaDat.Adresse.Name
"Adresse.Name" ? "x(18)" "character" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[4]   > AnaDat.Adresse.Vorname
"Adresse.Vorname" ? "x(15)" "character" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[5]   > AnaDat.Adresse.Strasse
"Adresse.Strasse" ? "x(18)" "character" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[6]   > AnaDat.Adresse.Ort
"Adresse.Ort" ? "x(18)" "character" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _Query            is NOT OPENED
*/  /* BROWSE Br_Adressen */
&ANALYZE-RESUME

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

 



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

&Scoped-define SELF-NAME gAdressErfassung
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gAdressErfassung gAdressErfassung
ON END-ERROR OF FRAME gAdressErfassung /* Erfassen neue Adresse */
DO:
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gAdressErfassung gAdressErfassung
ON GO OF FRAME gAdressErfassung /* Erfassen neue Adresse */
DO:
    RUN ENDE_PROGRAMM ( INPUT THIS-PROCEDURE:FILE-NAME ) NO-ERROR.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gAdressErfassung gAdressErfassung
ON WINDOW-CLOSE OF FRAME gAdressErfassung /* Erfassen neue Adresse */
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 gAdressErfassung
ON END-ERROR OF Br_Adressen IN FRAME gAdressErfassung
DO:
    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 Br_Adressen gAdressErfassung
ON RETURN OF Br_Adressen IN FRAME gAdressErfassung
DO:
    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.
    {&BROWSE-NAME}:FETCH-SELECTED-ROW(1).
    opAdresse = 'U'                     + CHR(01)
              + STRING(Adresse.Knr)     + CHR(01)
              + STRING(RECID(Adresse))  + CHR(01).
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME Btn_Erfassen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Erfassen gAdressErfassung
ON CHOOSE OF Btn_Erfassen IN FRAME gAdressErfassung /* Erfassen */
DO:
DO WITH FRAME {&FRAME-NAME}:
    ASSIGN  {&List-6}.
    opAdresse = "N"                     + CHR(01)
              + STRING(F_Knr)           + CHR(01)
              + F_Suchbe                + CHR(01)
              + F_Firma1                + CHR(01)
              + F_Firma2                + CHR(01)
              + F_Name                  + CHR(01)
              + F_Vorname               + CHR(01)
              + F_Zusatz1               + CHR(01)
              + F_zusatz2               + CHR(01)
              + F_Strasse               + CHR(01)
              + F_Postfach              + CHR(01)
              + CB_Land:SCREEN-VALUE    + CHR(01)
              + F_Plz                   + CHR(01)
              + F_Ort.
    RUN ENDE.
END.
END.

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


&Scoped-define SELF-NAME CB_Land
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Land gAdressErfassung
ON END-ERROR OF CB_Land IN FRAME gAdressErfassung /* Land/Plz/Ort */
DO:
    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 CB_Land gAdressErfassung
ON LEAVE OF CB_Land IN FRAME gAdressErfassung /* Land/Plz/Ort */
DO:
    F_Lkz:SCREEN-VALUE = CB_Land:SCREEN-VALUE NO-ERROR.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Land gAdressErfassung
ON RETURN OF CB_Land IN FRAME gAdressErfassung /* Land/Plz/Ort */
DO:
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Land gAdressErfassung
ON VALUE-CHANGED OF CB_Land IN FRAME gAdressErfassung /* Land/Plz/Ort */
DO:
    F_Lkz:SCREEN-VALUE = CB_Land:SCREEN-VALUE NO-ERROR.
END.

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


&Scoped-define SELF-NAME F_Firma1
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Firma1 gAdressErfassung
ON END-ERROR OF F_Firma1 IN FRAME gAdressErfassung /* Firma/Zusatz */
DO:
    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_Firma1 gAdressErfassung
ON LEAVE OF F_Firma1 IN FRAME gAdressErfassung /* Firma/Zusatz */
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    RUN OPENQUERY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Firma1 gAdressErfassung
ON VALUE-CHANGED OF F_Firma1 IN FRAME gAdressErfassung /* Firma/Zusatz */
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    RUN OPENQUERY.
    APPLY 'END' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME F_Firma2
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Firma2 gAdressErfassung
ON END-ERROR OF F_Firma2 IN FRAME gAdressErfassung
DO:
    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_Firma2 gAdressErfassung
ON VALUE-CHANGED OF F_Firma2 IN FRAME gAdressErfassung
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    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 gAdressErfassung
ON ENTRY OF F_Knr IN FRAME gAdressErfassung /* Nummer */
DO:
DO WITH FRAME {&FRAME-NAME}:
    F_Suchbe:SCREEN-VALUE   = ''.
    F_Firma1:SCREEN-VALUE   = ''.
    F_Firma2:SCREEN-VALUE   = ''.
    F_Name:SCREEN-VALUE     = ''.
    F_Vorname:SCREEN-VALUE  = ''.
    F_Zusatz1:SCREEN-VALUE  = ''.
    F_Zusatz2:SCREEN-VALUE  = ''.
    F_Strasse:SCREEN-VALUE  = ''.
    F_Postfach:SCREEN-VALUE = ''.
    F_Plz:SCREEN-VALUE      = ''.
    F_Ort:SCREEN-VALUE      = ''.
END.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Knr gAdressErfassung
ON LEAVE OF F_Knr IN FRAME gAdressErfassung /* Nummer */
DO:
    DEF VAR Mandant     AS CHAR                     NO-UNDO.
    DEF VAR Knr         AS INT                      NO-UNDO.

    Knr = INTEGER(SELF:SCREEN-VALUE).
    Mandant = DYNAMIC-FUNCTION('GETADMANDANT':U) NO-ERROR.
    FIND Adresse USE-INDEX Adresse-k1
                 WHERE Adresse.Firma = Mandant
                 AND   Adresse.Knr   = Knr NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Adresse THEN RETURN.
    RUN FEHLER ( INPUT 1009 ).
    APPLY 'ENTRY' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME F_Name
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Name gAdressErfassung
ON END-ERROR OF F_Name IN FRAME gAdressErfassung /* Name/Vorname */
DO:
    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_Name gAdressErfassung
ON LEAVE OF F_Name IN FRAME gAdressErfassung /* Name/Vorname */
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    RUN OPENQUERY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Name gAdressErfassung
ON VALUE-CHANGED OF F_Name IN FRAME gAdressErfassung /* Name/Vorname */
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    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 gAdressErfassung
ON ALT-F OF F_Ort IN FRAME gAdressErfassung
DO:
DO WITH FRAME {&FRAME-NAME}:
    DEF VAR cParam      AS CHAR                     NO-UNDO.

    cParam = F_Ort:SCREEN-VALUE.
    RUN g-such-ort.w ( INPUT TRIM(CB_Land:SCREEN-VALUE), INPUT 2,
                       INPUT-OUTPUT cParam).
    IF cParam = '' THEN DO:
        APPLY 'ENTRY' TO SELF.
        RETURN NO-APPLY.
    END.
    CB_Land:SCREEN-VALUE = ENTRY(1, cParam, CHR(01)).
    F_Plz:SCREEN-VALUE   = ENTRY(2, cParam, CHR(01)).
    F_Ort:SCREEN-VALUE   = ENTRY(3, cParam, CHR(01)).
    APPLY 'TAB' TO F_Ort.
    RETURN NO-APPLY.
END.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Ort gAdressErfassung
ON END-ERROR OF F_Ort IN FRAME gAdressErfassung
DO:
    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_Ort gAdressErfassung
ON LEAVE OF F_Ort IN FRAME gAdressErfassung
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    RUN OPENQUERY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Ort gAdressErfassung
ON VALUE-CHANGED OF F_Ort IN FRAME gAdressErfassung
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    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 gAdressErfassung
ON ALT-F OF F_Plz IN FRAME gAdressErfassung
DO:
DO WITH FRAME {&FRAME-NAME}:
    DEF VAR cParam      AS CHAR                     NO-UNDO.

    FLeave = FALSE.
    cParam = F_Plz:SCREEN-VALUE.
    RUN g-such-ort.w ( INPUT TRIM(CB_Land:SCREEN-VALUE), INPUT 1,
                       INPUT-OUTPUT cParam).
    IF cParam = '' THEN DO:
        APPLY 'ENTRY' TO SELF.
        FLeave = TRUE.
        RETURN NO-APPLY.
    END.
    CB_Land:SCREEN-VALUE = ENTRY(1, cParam, CHR(01)).
    F_Plz:SCREEN-VALUE   = ENTRY(2, cParam, CHR(01)).
    F_Ort:SCREEN-VALUE   = ENTRY(3, cParam, CHR(01)).
    APPLY 'TAB' TO F_Ort.
    FLeave = TRUE.
    RETURN NO-APPLY.
END.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Plz gAdressErfassung
ON END-ERROR OF F_Plz IN FRAME gAdressErfassung
DO:
    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_Plz gAdressErfassung
ON LEAVE OF F_Plz IN FRAME gAdressErfassung
DO:
    DEF VAR i1      AS INT                  NO-UNDO.
    DEF VAR Inhalt  AS CHAR                 NO-UNDO.

    IF NOT FLeave THEN RETURN.

DO WITH FRAME {&FRAME-NAME}:
    Inhalt = SELF:SCREEN-VALUE.
    IF Inhalt = '' THEN RETURN.
    FIND Orte USE-INDEX Orte-k1
              WHERE Orte.Lkz = CB_Land:SCREEN-VALUE
              AND   Orte.Plz = Inhalt NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Orte THEN DO:
        APPLY 'ENTRY' TO SELF.
        RETURN NO-APPLY.
    END.
    F_Ort:SCREEN-VALUE = Orte.Ort.
END.
    RUN OPENQUERY.
  
END.

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


&Scoped-define SELF-NAME F_Postfach
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Postfach gAdressErfassung
ON END-ERROR OF F_Postfach IN FRAME gAdressErfassung
DO:
    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_Postfach gAdressErfassung
ON LEAVE OF F_Postfach IN FRAME gAdressErfassung
DO:
    Inhalt = SELF:SCREEN-VALUE.
    IF SUBSTRING(Inhalt,01,01) < '0'    THEN LEAVE.
    IF SUBSTRING(Inhalt,01,01) > '9'    THEN LEAVE.
    Sprcd = DYNAMIC-FUNCTION('GETSPRCD':U).
    FIND Sprache WHERE Sprache.Sprcd = Sprcd NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Sprache                THEN LEAVE.
    IF Sprache.Postfach = ''                THEN LEAVE.
    Inhalt = Sprache.Postfach + ' ' + Inhalt.
    SELF:SCREEN-VALUE = TRIM(Inhalt).
END.

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


&Scoped-define SELF-NAME F_Strasse
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Strasse gAdressErfassung
ON END-ERROR OF F_Strasse IN FRAME gAdressErfassung /* Strasse/Postfach */
DO:
    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_Strasse gAdressErfassung
ON LEAVE OF F_Strasse IN FRAME gAdressErfassung /* Strasse/Postfach */
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    RUN OPENQUERY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Strasse gAdressErfassung
ON VALUE-CHANGED OF F_Strasse IN FRAME gAdressErfassung /* Strasse/Postfach */
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    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 gAdressErfassung
ON END-ERROR OF F_Suchbe IN FRAME gAdressErfassung /* Suchbegriff */
DO:
    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_Suchbe gAdressErfassung
ON LEAVE OF F_Suchbe IN FRAME gAdressErfassung /* Suchbegriff */
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    RUN OPENQUERY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Suchbe gAdressErfassung
ON VALUE-CHANGED OF F_Suchbe IN FRAME gAdressErfassung /* Suchbegriff */
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    RUN OPENQUERY.
    APPLY 'END' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME F_Vorname
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Vorname gAdressErfassung
ON END-ERROR OF F_Vorname IN FRAME gAdressErfassung
DO:
    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_Vorname gAdressErfassung
ON LEAVE OF F_Vorname IN FRAME gAdressErfassung
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    RUN OPENQUERY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Vorname gAdressErfassung
ON VALUE-CHANGED OF F_Vorname IN FRAME gAdressErfassung
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    RUN OPENQUERY.
    APPLY 'END' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME F_Zusatz1
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zusatz1 gAdressErfassung
ON END-ERROR OF F_Zusatz1 IN FRAME gAdressErfassung /* Beruf oder Zusatz */
DO:
    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_Zusatz1 gAdressErfassung
ON LEAVE OF F_Zusatz1 IN FRAME gAdressErfassung /* Beruf oder Zusatz */
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    RUN OPENQUERY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zusatz1 gAdressErfassung
ON VALUE-CHANGED OF F_Zusatz1 IN FRAME gAdressErfassung /* Beruf oder Zusatz */
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    RUN OPENQUERY.
    APPLY 'END' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME F_Zusatz2
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zusatz2 gAdressErfassung
ON END-ERROR OF F_Zusatz2 IN FRAME gAdressErfassung
DO:
    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_Zusatz2 gAdressErfassung
ON LEAVE OF F_Zusatz2 IN FRAME gAdressErfassung
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    RUN OPENQUERY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Zusatz2 gAdressErfassung
ON VALUE-CHANGED OF F_Zusatz2 IN FRAME gAdressErfassung
DO:
    IF SELF:SCREEN-VALUE = '' THEN RETURN.
    RUN OPENQUERY.
    APPLY 'END' TO SELF.
    RETURN NO-APPLY.
END.

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


&UNDEFINE SELF-NAME

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


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

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

    SESSION:DATA-ENTRY-RETURN = TRUE.

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

    ON 'CURSOR-DOWN':U OF F_Firma1, F_Firma2, F_Name, F_Vorname,
                          F_Strasse, CB_Land, F_Plz, F_Ort 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 gAdressErfassung  _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 gAdressErfassung 
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 gAdressErfassung  _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 gAdressErfassung.
END PROCEDURE.

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

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

    DEF VAR MaxNummer       AS INT                      NO-UNDO.
    DEF VAR xMaxNummer      AS CHAR                     NO-UNDO.
    DEF VAR Mandant         AS CHAR                     NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
        RUN COMBO_LAND ( INPUT CB_Land:HANDLE ).
        GET-KEY-VALUE SECTION 'FwAdresse' KEY 'MaxNummer' VALUE xMaxNummer.
        IF xMaxNummer = ? THEN xMaxNummer = '900000'.
        MaxNummer = INTEGER(xMaxNummer).
        Mandant   = DYNAMIC-FUNCTION('GETADMANDANT':U) NO-ERROR.
        FIND LAST Adresse USE-INDEX Adresse-k1
                          WHERE Adresse.Firma = Mandant
                          AND   Adresse.Knr  LE MaxNummer NO-LOCK NO-ERROR.
        IF AVAILABLE Adresse THEN F_Knr = Adresse.Knr + 1.
        ELSE                      F_Knr = 0.
        CB_Land:SCREEN-VALUE = 'CH' NO-ERROR.
        F_Lkz                = 'CH' NO-ERROR.
        F_Lkz:SCREEN-VALUE   = F_Lkz.
    END.

    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 gAdressErfassung  _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_Knr F_Suchbe F_Firma1 F_Firma2 F_Name F_Vorname F_Zusatz1 F_Zusatz2 
          F_Strasse F_Postfach CB_Land F_Plz F_Ort 
      WITH FRAME gAdressErfassung.
  ENABLE F_Knr F_Suchbe F_Firma1 F_Firma2 F_Name F_Vorname F_Zusatz1 F_Zusatz2 
         F_Strasse F_Postfach CB_Land F_Plz F_Ort Btn_Erfassen Br_Adressen 
      WITH FRAME gAdressErfassung.
  VIEW FRAME gAdressErfassung.
  {&OPEN-BROWSERS-IN-QUERY-gAdressErfassung}
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENDE gAdressErfassung 
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 gAdressErfassung 
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 OPENQUERY gAdressErfassung 
PROCEDURE OPENQUERY :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR VSort       AS INT                      NO-UNDO.
    DEF VAR ix          AS INT                      NO-UNDO.

DO WITH FRAME {&FRAME-NAME}:
    ASSIGN  {&List-6}.
    IF F_Firma1  <> '' THEN F_Firma1  = ENTRY(1, F_Firma1 , ' ').
    IF F_Name    <> '' THEN F_Name    = ENTRY(1, F_Name   , ' ').
    IF F_Strasse <> '' THEN F_Strasse = ENTRY(1, F_Strasse, ' ').
    IF F_Ort     <> '' THEN F_Ort     = ENTRY(1, F_Ort    , ' ').
    IF F_Strasse <> '' THEN DO:
        IF F_Strasse MATCHES '*strasse' THEN DO:
            ix = LENGTH(F_Strasse) - 4.
            F_Strasse = SUBSTRING(F_Strasse,01,ix).
        END.
    END.
    VSort = 1.
    IF F_Ort     <> '' AND INDEX(F_Ort    , '*') = 0 THEN VSort = 5.
    IF F_Plz     <> '' AND INDEX(F_Plz    , '*') = 0 THEN VSort = 6.
    IF F_Strasse <> '' AND INDEX(F_Strasse, '*') = 0 THEN VSort = 7.
    IF F_Name    <> '' AND INDEX(F_Name   , '*') = 0 THEN VSort = 4.
    IF F_Firma1  <> '' AND INDEX(F_Firma1 , '*') = 0 THEN VSort = 3.
    IF F_Suchbe  <> '' AND INDEX(F_Suchbe , '*') = 0 THEN VSort = 2.
    
    CASE VSort:
        WHEN 1 THEN DO:
            OPEN QUERY {&BROWSE-NAME}
            FOR EACH Adresse USE-INDEX Adresse-k1
                             WHERE Adresse.Firma   = AdFirma
                             AND   Adresse.Aktiv   = TRUE
                             AND   Adresse.Knr    >= F_Knr
                AND (IF INDEX(F_Suchbe , '*') = 0 THEN Adresse.Suchbe BEGINS  F_Suchbe
                     ELSE                              Adresse.Suchbe MATCHES F_Suchbe)
                AND (IF INDEX(F_Firma1 , '*') = 0 THEN Adresse.Firma  BEGINS  F_Firma1
                     ELSE                              Adresse.Firma  MATCHES F_Firma1)
                AND (IF INDEX(F_Name   , '*') = 0 THEN Adresse.NAME   BEGINS  F_Name
                     ELSE                              Adresse.NAME   MATCHES F_Name)
                AND (IF INDEX(F_Vorname, '*') = 0 THEN Adresse.Vornam BEGINS  F_Vorname
                     ELSE                              Adresse.Vornam MATCHES F_Vorname)
                AND (IF INDEX(F_Strasse, '*') = 0 THEN Adresse.Strass BEGINS  F_Strasse
                     ELSE                              Adresse.Strass MATCHES F_Strasse)
                AND (IF INDEX(F_Plz    , '*') = 0 THEN Adresse.Plz    BEGINS  F_Plz
                     ELSE                              Adresse.Plz    MATCHES F_Plz)
                AND (IF INDEX(F_Ort    , '*') = 0 THEN Adresse.Ort    BEGINS  F_Ort
                     ELSE                              Adresse.Ort    MATCHES F_Ort)
                             NO-LOCK.
        END.

        WHEN 2 THEN DO:
            OPEN QUERY {&BROWSE-NAME}
            FOR EACH Adresse USE-INDEX Adresse-k2
                             WHERE Adresse.Firma   = AdFirma
                             AND   Adresse.Aktiv   = TRUE
                             AND   Adresse.Suchbe  BEGINS F_Suchbe
                AND (IF INDEX(F_Firma1 , '*') = 0 THEN Adresse.Firma  BEGINS  F_Firma1
                     ELSE                              Adresse.Firma  MATCHES F_Firma1)
                AND (IF INDEX(F_Name   , '*') = 0 THEN Adresse.NAME   BEGINS  F_Name
                     ELSE                              Adresse.NAME   MATCHES F_Name)
                AND (IF INDEX(F_Vorname, '*') = 0 THEN Adresse.Vornam BEGINS  F_Vorname
                     ELSE                              Adresse.Vornam MATCHES F_Vorname)
                AND (IF INDEX(F_Strasse, '*') = 0 THEN Adresse.Strass BEGINS  F_Strasse
                     ELSE                              Adresse.Strass MATCHES F_Strasse)
                AND (IF INDEX(F_Plz    , '*') = 0 THEN Adresse.Plz    BEGINS  F_Plz
                     ELSE                              Adresse.Plz    MATCHES F_Plz)
                AND (IF INDEX(F_Ort    , '*') = 0 THEN Adresse.Ort    BEGINS  F_Ort
                     ELSE                              Adresse.Ort    MATCHES F_Ort)
                             NO-LOCK.
        END.

        WHEN 3 THEN DO:
            OPEN QUERY {&BROWSE-NAME}
            FOR EACH Adresse USE-INDEX Adresse-k3
                             WHERE Adresse.Firma   = AdFirma
                             AND   Adresse.Aktiv   = TRUE
                             AND   Adresse.Firma1  BEGINS F_Firma1
                AND (IF INDEX(F_Suchbe , '*') = 0 THEN Adresse.Suchbe BEGINS  F_Suchbe
                     ELSE                              Adresse.Suchbe MATCHES F_Suchbe)
                AND (IF INDEX(F_Name   , '*') = 0 THEN Adresse.NAME   BEGINS  F_Name
                     ELSE                              Adresse.NAME   MATCHES F_Name)
                AND (IF INDEX(F_Vorname, '*') = 0 THEN Adresse.Vornam BEGINS  F_Vorname
                     ELSE                              Adresse.Vornam MATCHES F_Vorname)
                AND (IF INDEX(F_Strasse, '*') = 0 THEN Adresse.Strass BEGINS  F_Strasse
                     ELSE                              Adresse.Strass MATCHES F_Strasse)
                AND (IF INDEX(F_Plz    , '*') = 0 THEN Adresse.Plz    BEGINS  F_Plz
                     ELSE                              Adresse.Plz    MATCHES F_Plz)
                AND (IF INDEX(F_Ort    , '*') = 0 THEN Adresse.Ort    BEGINS  F_Ort
                     ELSE                              Adresse.Ort    MATCHES F_Ort)
                             NO-LOCK.
        END.

        WHEN 4 THEN DO:
            OPEN QUERY {&BROWSE-NAME}
            FOR EACH Adresse USE-INDEX Adresse-k4
                             WHERE Adresse.Firma   = AdFirma
                             AND   Adresse.Aktiv   = TRUE
                             AND   Adresse.NAME    BEGINS F_Name
                AND (IF INDEX(F_Suchbe , '*') = 0 THEN Adresse.Suchbe BEGINS  F_Suchbe
                     ELSE                              Adresse.Suchbe MATCHES F_Suchbe)
                AND (IF INDEX(F_Firma1 , '*') = 0 THEN Adresse.Firma  BEGINS  F_Firma1
                     ELSE                              Adresse.Firma  MATCHES F_Firma1)
                AND (IF INDEX(F_Vorname, '*') = 0 THEN Adresse.Vornam BEGINS  F_Vorname
                     ELSE                              Adresse.Vornam MATCHES F_Vorname)
                AND (IF INDEX(F_Strasse, '*') = 0 THEN Adresse.Strass BEGINS  F_Strasse
                     ELSE                              Adresse.Strass MATCHES F_Strasse)
                AND (IF INDEX(F_Plz    , '*') = 0 THEN Adresse.Plz    BEGINS  F_Plz
                     ELSE                              Adresse.Plz    MATCHES F_Plz)
                AND (IF INDEX(F_Ort    , '*') = 0 THEN Adresse.Ort    BEGINS  F_Ort
                     ELSE                              Adresse.Ort    MATCHES F_Ort)
                             NO-LOCK.
        END.

        WHEN 5 THEN DO:
            OPEN QUERY {&BROWSE-NAME}
            FOR EACH Adresse USE-INDEX Adresse-k5
                             WHERE Adresse.Firma   = AdFirma
                             AND   Adresse.Aktiv   = TRUE
                             AND   Adresse.Ort     BEGINS F_Ort
                AND (IF INDEX(F_Suchbe , '*') = 0 THEN Adresse.Suchbe BEGINS  F_Suchbe
                     ELSE                              Adresse.Suchbe MATCHES F_Suchbe)
                AND (IF INDEX(F_Firma1 , '*') = 0 THEN Adresse.Firma  BEGINS  F_Firma1
                     ELSE                              Adresse.Firma  MATCHES F_Firma1)
                AND (IF INDEX(F_Name   , '*') = 0 THEN Adresse.NAME   BEGINS  F_Name
                     ELSE                              Adresse.NAME   MATCHES F_Name)
                AND (IF INDEX(F_Vorname, '*') = 0 THEN Adresse.Vornam BEGINS  F_Vorname
                     ELSE                              Adresse.Vornam MATCHES F_Vorname)
                AND (IF INDEX(F_Strasse, '*') = 0 THEN Adresse.Strass BEGINS  F_Strasse
                     ELSE                              Adresse.Strass MATCHES F_Strasse)
                AND (IF INDEX(F_Plz    , '*') = 0 THEN Adresse.Plz    BEGINS  F_Plz
                     ELSE                              Adresse.Plz    MATCHES F_Plz)
                             NO-LOCK.
        END.

        WHEN 6 THEN DO:
            OPEN QUERY {&BROWSE-NAME}
            FOR EACH Adresse USE-INDEX Adresse-k6
                             WHERE Adresse.Firma   = AdFirma
                             AND   Adresse.Aktiv   = TRUE
                             AND   Adresse.Plz     BEGINS F_Plz
                AND (IF INDEX(F_Suchbe , '*') = 0 THEN Adresse.Suchbe BEGINS  F_Suchbe
                     ELSE                              Adresse.Suchbe MATCHES F_Suchbe)
                AND (IF INDEX(F_Firma1 , '*') = 0 THEN Adresse.Firma  BEGINS  F_Firma1
                     ELSE                              Adresse.Firma  MATCHES F_Firma1)
                AND (IF INDEX(F_Name   , '*') = 0 THEN Adresse.NAME   BEGINS  F_Name
                     ELSE                              Adresse.NAME   MATCHES F_Name)
                AND (IF INDEX(F_Vorname, '*') = 0 THEN Adresse.Vornam BEGINS  F_Vorname
                     ELSE                              Adresse.Vornam MATCHES F_Vorname)
                AND (IF INDEX(F_Strasse, '*') = 0 THEN Adresse.Strass BEGINS  F_Strasse
                     ELSE                              Adresse.Strass MATCHES F_Strasse)
                AND (IF INDEX(F_Ort    , '*') = 0 THEN Adresse.Ort    BEGINS  F_Ort
                     ELSE                              Adresse.Ort    MATCHES F_Ort)
                             NO-LOCK.
        END.

        WHEN 7 THEN DO:
            OPEN QUERY {&BROWSE-NAME}
            FOR EACH Adresse USE-INDEX Adresse-k7
                             WHERE Adresse.Firma   = AdFirma
                             AND   Adresse.Aktiv   = TRUE
                             AND   Adresse.Strasse BEGINS F_Strasse
                AND (IF INDEX(F_Suchbe , '*') = 0 THEN Adresse.Suchbe BEGINS  F_Suchbe
                     ELSE                              Adresse.Suchbe MATCHES F_Suchbe)
                AND (IF INDEX(F_Firma1 , '*') = 0 THEN Adresse.Firma  BEGINS  F_Firma1
                     ELSE                              Adresse.Firma  MATCHES F_Firma1)
                AND (IF INDEX(F_Name   , '*') = 0 THEN Adresse.NAME   BEGINS  F_Name
                     ELSE                              Adresse.NAME   MATCHES F_Name)
                AND (IF INDEX(F_Vorname, '*') = 0 THEN Adresse.Vornam BEGINS  F_Vorname
                     ELSE                              Adresse.Vornam MATCHES F_Vorname)
                AND (IF INDEX(F_Plz    , '*') = 0 THEN Adresse.Plz    BEGINS  F_Plz
                     ELSE                              Adresse.Plz    MATCHES F_Plz)
                AND (IF INDEX(F_Ort    , '*') = 0 THEN Adresse.Ort    BEGINS  F_Ort
                     ELSE                              Adresse.Ort    MATCHES F_Ort)
                             NO-LOCK.
        END.

    END CASE.
END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE selectPage gAdressErfassung 
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