GeMIS_WEB/GUI/w-adresse.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2
&ANALYZE-RESUME
&Scoped-define WINDOW-NAME wAdressen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS wAdressen 
/*------------------------------------------------------------------------

  File: 

  Description: from cntnrwin.w - ADM SmartWindow Template

  Input Parameters:
      <none>

  Output Parameters:
      <none>

  History: New V9 Version - January 15, 1998
          
------------------------------------------------------------------------*/
/*          This .W file was created with the Progress AB.              */
/*----------------------------------------------------------------------*/

/* Create an unnamed pool to store all the widgets created 
     by this procedure. This is a good default which assures
     that this procedure's triggers and internal procedures 
     will execute in this procedure's storage, and that proper
     cleanup will occur on deletion of the procedure. */

CREATE WIDGET-POOL.

/* ***************************  Definitions  ************************** */

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */

{ incl/windefinition.i }

DEF    VAR      sRecid           AS RECID         NO-UNDO.
DEF    VAR      lOldInaktiv      AS LOG           NO-UNDO.
DEF    VAR      lNewInaktiv      AS LOG           NO-UNDO.

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

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

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

&Scoped-define ADM-CONTAINER WINDOW

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

/* Name of designated FRAME-NAME and/or first browse and/or first query */
&Scoped-define FRAME-NAME fMain

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS Btn_Search 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */

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



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

/* Define the widget handle for the window                              */
DEFINE VAR      wAdressen        AS WIDGET-HANDLE NO-UNDO.

/* Definitions of handles for SmartObjects                              */
DEFINE VARIABLE h_b-abwprgrp     AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_b-adresse      AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_b-aktkeine     AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_b-ansprech     AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_b-debums       AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_b-kunbw        AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_b-spezprei-deb AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_b-spezrab-deb  AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_d-abwprgrp     AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_d-adresse      AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_d-aktkeine     AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_d-ansprech     AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_d-debst        AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_d-debums       AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_d-krest        AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_d-kunbw        AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_d-liefst       AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_d-spezprei     AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_d-spezrab      AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_dyntoolbar     AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_folder         AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_v-abwprgrp     AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_v-adresse      AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_v-adresse-inf  AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_v-adresse-kopf AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_v-ansprech     AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_v-debst        AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_v-debums       AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_v-krest        AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_v-liefst       AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_v-spezprei-deb AS HANDLE        NO-UNDO.
DEFINE VARIABLE h_v-spezrab-deb  AS HANDLE        NO-UNDO.

/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Search 
    IMAGE-UP FILE "grafik/select.bmp":U
    IMAGE-DOWN FILE "grafik/select.bmp":U
    LABEL "Button 1" 
    SIZE 5 BY 1.14.

DEFINE VARIABLE R_Spezpreis AS INTEGER 
    VIEW-AS RADIO-SET VERTICAL
    RADIO-BUTTONS 
    "Spezial&preise/Artikel", 1,
    "Ra&batte/Artikelrabattgruppe", 2
    SIZE 60 BY 1.52 NO-UNDO.


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

DEFINE FRAME fMain
    R_Spezpreis AT ROW 6.05 COL 4.6 NO-LABEL NO-TAB-STOP 
    Btn_Search AT ROW 1 COL 60 WIDGET-ID 2 NO-TAB-STOP 
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY 
    SIDE-LABELS NO-UNDERLINE THREE-D 
    AT COL 1 ROW 1
    SIZE 142.4 BY 30.33.


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

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

/* *************************  Create Window  ************************** */

&ANALYZE-SUSPEND _CREATE-WINDOW
IF SESSION:DISPLAY-TYPE = "GUI":U THEN
    CREATE WINDOW wAdressen ASSIGN
        HIDDEN             = YES
        TITLE              = "Adressverwaltung"
        HEIGHT             = 30.33
        WIDTH              = 142.4
        MAX-HEIGHT         = 99.86
        MAX-WIDTH          = 768
        VIRTUAL-HEIGHT     = 99.86
        VIRTUAL-WIDTH      = 768
        RESIZE             = NO
        SCROLL-BARS        = NO
        STATUS-AREA        = NO
        BGCOLOR            = ?
        FGCOLOR            = ?
        THREE-D            = YES
        MESSAGE-AREA       = NO
        SENSITIVE          = YES.
ELSE {&WINDOW-NAME} = CURRENT-WINDOW.

&IF '{&WINDOW-SYSTEM}' NE 'TTY' &THEN
IF NOT wAdressen:LOAD-ICON("grafik/appl.ico":U) THEN
    MESSAGE "Unable to load icon: grafik/appl.ico"
        VIEW-AS ALERT-BOX WARNING BUTTONS OK.
&ENDIF
/* END WINDOW DEFINITION                                                */
&ANALYZE-RESUME

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

    {src/adm2/containr.i}

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




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

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW wAdressen
  VISIBLE,,RUN-PERSISTENT                                               */
/* SETTINGS FOR FRAME fMain
   FRAME-NAME Custom                                                    */
/* SETTINGS FOR RADIO-SET R_Spezpreis IN FRAME fMain
   NO-DISPLAY NO-ENABLE                                                 */
ASSIGN 
    R_Spezpreis:HIDDEN IN FRAME fMain = TRUE.

IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wAdressen)
    THEN wAdressen:HIDDEN = YES.

/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME

 



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

&Scoped-define SELF-NAME wAdressen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wAdressen wAdressen
ON END-ERROR OF wAdressen /* Adressverwaltung */
    OR ENDKEY OF {&WINDOW-NAME} ANYWHERE 
    DO:
        IF THIS-PROCEDURE:PERSISTENT THEN RETURN NO-APPLY.
        RUN ENDE.
        RETURN NO-APPLY.
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wAdressen wAdressen
ON WINDOW-CLOSE OF wAdressen /* Adressverwaltung */
    DO:
        RUN ENDE.
        RETURN NO-APPLY.
    END.

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


&Scoped-define SELF-NAME Btn_Search
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Search wAdressen
ON CHOOSE OF Btn_Search IN FRAME fMain /* Button 1 */
    DO:
        IF DYNAMIC-FUNCTION('getMutflag':U, INPUT Progname) = TRUE THEN RETURN NO-APPLY.
        RUN FIND_ADRESSE.
    END.

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


&Scoped-define SELF-NAME R_Spezpreis
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL R_Spezpreis wAdressen
ON VALUE-CHANGED OF R_Spezpreis IN FRAME fMain
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            R_SpezPreis = INTEGER(SELF:SCREEN-VALUE).
            IF R_SpezPreis = 1 THEN 
            DO:
                RUN removeLink ( h_dyntoolbar, 'TableIO':U, h_v-spezrab-deb).
                RUN hideObject IN h_b-spezrab-deb.
                RUN hideObject IN h_v-spezrab-deb.
                RUN viewObject IN h_b-spezprei-deb.
                RUN viewObject IN h_v-spezprei-deb.
                RUN addLink    ( h_dyntoolbar, 'TableIO':U, h_v-spezprei-deb).
                DYNAMIC-FUNCTION('openQuery':U IN h_d-spezprei) NO-ERROR.
            END.
            IF R_SpezPreis = 2 THEN 
            DO:
                RUN removeLink ( h_dyntoolbar, 'TableIO':U, h_v-spezprei-deb).
                RUN hideObject IN h_b-spezprei-deb.
                RUN hideObject IN h_v-spezprei-deb.
                RUN viewObject IN h_b-spezrab-deb.
                RUN viewObject IN h_v-spezrab-deb.
                RUN addLink    ( h_dyntoolbar, 'TableIO':U, h_v-spezrab-deb).
                DYNAMIC-FUNCTION('openQuery':U IN h_d-spezrab) NO-ERROR.
            END.
            RUN ENTRY_CURSOR.
            RETURN NO-APPLY.
        END.
    END.

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


&UNDEFINE SELF-NAME

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


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

{ incl/winmainblock.i }

MaxSeite    = 9.
AktSeite    = 1.
R_SpezPreis = 1.

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

ON 'U2':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        IF DYNAMIC-FUNCTION('getMutflag':U, INPUT Progname) = TRUE THEN RETURN NO-APPLY.
        AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U).
        IF AktSeite = 3 THEN RETURN NO-APPLY.
        RUN selectPage ( INPUT 3 ).
    END.
    
ON 'ALT-F':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        IF DYNAMIC-FUNCTION('getMutflag':U, INPUT Progname) = TRUE THEN RETURN NO-APPLY.
        RUN FIND_ADRESSE.
        RETURN NO-APPLY.
    END.

ON 'CTRL-N':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        DEF VAR sHandle AS CHAR   NO-UNDO.
        DEF VAR ix      AS INT    NO-UNDO.
        DEF VAR nRows   AS INT    NO-UNDO.
        DEF VAR hData   AS HANDLE NO-UNDO.

        IF DYNAMIC-FUNCTION('getMutflag':U, INPUT Progname) = TRUE THEN RETURN NO-APPLY.
        RUN 'g-kundennr.w':U ( OUTPUT sRecid ).
        IF sRecid = ? THEN RETURN NO-APPLY.

        SESSION:SET-WAIT-STATE('GENERAL').
        sHandle = DYNAMIC-FUNCTION('linkHandles':U IN h_d-adresse, 'Data-Target':U ).
        DO ix = 1 TO NUM-ENTRIES(sHandle, ','):
            hData = WIDGET-HANDLE(ENTRY(ix, sHandle)).
            RUN removeLink ( h_d-adresse, 'Data':U, hData ).
        END.

        RUN OPENQUERY_REPOS IN h_d-adresse ( INPUT sRecid, INPUT 1 ).

        DO ix = 1 TO NUM-ENTRIES(sHandle, ','):
            hData = WIDGET-HANDLE(ENTRY(ix, sHandle)).
            RUN addLink ( h_d-adresse, 'Data':U, hData ).
        END.

        RUN REPOS IN h_d-adresse ( INPUT sRecid ).

        RUN ENTRYBROWSE IN h_b-adresse.
        RUN ENTRY_CURSOR.
        SESSION:SET-WAIT-STATE('').
        RETURN NO-APPLY.
    END.

    /* Include custom  Main Block code for SmartWindows. */

{src/adm2/windowmn.i}

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects wAdressen  _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>
    ------------------------------------------------------------------------------*/
    DEFINE VARIABLE currentPage AS INTEGER NO-UNDO.

    ASSIGN 
        currentPage = getCurrentPage().

    CASE currentPage: 

        WHEN 0 THEN 
            DO:
                RUN constructObject (
                    INPUT  'd-adresse.wDB-AWARE':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsObjectNamed-adresseOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch20RebuildOnReposyesToggleDataTargetsyes':U ,
                    OUTPUT h_d-adresse ).
                RUN repositionObject IN h_d-adresse ( 7.76 , 47.00 ) NO-ERROR.
                /* Size in AB:  ( 3.05 , 17.60 ) */

                RUN constructObject (
                    INPUT  'v-adresse-kopf.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_v-adresse-kopf ).
                RUN repositionObject IN h_v-adresse-kopf ( 3.52 , 2.00 ) NO-ERROR.
                /* Size in AB:  ( 1.71 , 137.00 ) */

                RUN constructObject (
                    INPUT  'd-krest.wDB-AWARE':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsKrest.Knr,KnrObjectNamed-krestOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch200RebuildOnReposnoToggleDataTargetsyes':U ,
                    OUTPUT h_d-krest ).
                RUN repositionObject IN h_d-krest ( 5.76 , 118.60 ) NO-ERROR.
                /* Size in AB:  ( 1.86 , 10.80 ) */

                RUN constructObject (
                    INPUT  'd-debst.wDB-AWARE':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsDebst.Knr,Knr,Debst.Firma,FirmaObjectNamed-debstOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch2RebuildOnReposyesToggleDataTargetsyes':U ,
                    OUTPUT h_d-debst ).
                RUN repositionObject IN h_d-debst ( 10.05 , 115.40 ) NO-ERROR.
                /* Size in AB:  ( 1.86 , 10.80 ) */

                RUN constructObject (
                    INPUT  'd-kunbw.wDB-AWARE':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsArtbw.Firma,Firma,Artbw.Knr,KnrObjectNamed-kunbwOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch20RebuildOnReposyesToggleDataTargetsyes':U ,
                    OUTPUT h_d-kunbw ).
                RUN repositionObject IN h_d-kunbw ( 9.29 , 81.00 ) NO-ERROR.
                /* Size in AB:  ( 3.14 , 14.40 ) */

                RUN constructObject (
                    INPUT  'd-spezrab.wDB-AWARE':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsSpPrRab.Firma,Firma,SpPrRab.Knr,KnrObjectNamed-spezrabOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch25RebuildOnReposyesToggleDataTargetsyes':U ,
                    OUTPUT h_d-spezrab ).
                RUN repositionObject IN h_d-spezrab ( 13.48 , 21.40 ) NO-ERROR.
                /* Size in AB:  ( 2.67 , 16.40 ) */

                RUN constructObject (
                    INPUT  'd-aktkeine.wDB-AWARE':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsAktKeine.Firma,Firma,AktKeine.Knr,KnrObjectNamed-aktkeineOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch10RebuildOnReposyesToggleDataTargetsyes':U ,
                    OUTPUT h_d-aktkeine ).
                RUN repositionObject IN h_d-aktkeine ( 16.14 , 104.60 ) NO-ERROR.
                /* Size in AB:  ( 3.05 , 18.00 ) */

                RUN constructObject (
                    INPUT  'd-abwprgrp.wDB-AWARE':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsAbwPrGrp.Firma,Firma,AbwPrGrp.Knr,KnrObjectNamed-abwprgrpOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch200RebuildOnReposnoToggleDataTargetsyes':U ,
                    OUTPUT h_d-abwprgrp ).
                RUN repositionObject IN h_d-abwprgrp ( 17.76 , 91.00 ) NO-ERROR.
                /* Size in AB:  ( 3.05 , 14.40 ) */

                RUN constructObject (
                    INPUT  'd-debums.wDB-AWARE':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsDebUms.Firma,Firma,DebUms.Knr,KnrObjectNamed-debumsOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch20RebuildOnReposyesToggleDataTargetsyes':U ,
                    OUTPUT h_d-debums ).
                RUN repositionObject IN h_d-debums ( 19.76 , 111.80 ) NO-ERROR.
                /* Size in AB:  ( 3.24 , 17.20 ) */

                RUN constructObject (
                    INPUT  'd-spezprei.wDB-AWARE':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsSpezPrei.Firma,Firma,SpezPrei.Knr,KnrObjectNamed-spezpreiOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch200RebuildOnReposnoToggleDataTargetsyes':U ,
                    OUTPUT h_d-spezprei ).
                RUN repositionObject IN h_d-spezprei ( 20.05 , 28.20 ) NO-ERROR.
                /* Size in AB:  ( 3.24 , 18.80 ) */

                RUN constructObject (
                    INPUT  'd-liefst.wDB-AWARE':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsLiefst.Knr,KnrObjectNamed-liefstOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch5RebuildOnReposyesToggleDataTargetsyes':U ,
                    OUTPUT h_d-liefst ).
                RUN repositionObject IN h_d-liefst ( 13.00 , 78.20 ) NO-ERROR.
                /* Size in AB:  ( 1.86 , 10.80 ) */

                RUN constructObject (
                    INPUT  'd-ansprech.wDB-AWARE':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessnoDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsAnsprech.Firma,Firma,Ansprech.Knr,KnrObjectNamed-ansprechOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch20RebuildOnReposyesToggleDataTargetsyes':U ,
                    OUTPUT h_d-ansprech ).
                RUN repositionObject IN h_d-ansprech ( 15.38 , 59.00 ) NO-ERROR.
                /* Size in AB:  ( 3.05 , 13.20 ) */

                RUN constructObject (
                    INPUT  'src/adm2/folder.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'FolderLabels':U + 'Info(1)|Ansprech(2)|Adresse(3)|Debi(4)|Lieferanten(5)|Abw.Preis./Akt.(6)|Spez.Preis(7)|Kredi (8)|Ums/Beweg(9)' + 'FolderTabWidth0FolderFont-1HideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_folder ).
                RUN repositionObject IN h_folder ( 2.43 , 1.00 ) NO-ERROR.
                RUN resizeObject IN h_folder ( 28.81 , 142.00 ) NO-ERROR.

                RUN constructObject (
                    INPUT  'adm2/dyntoolbar.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EdgePixels2DeactivateTargetOnHidenoDisabledActionsFlatButtonsyesMenunoShowBorderyesToolbaryesActionGroupsTableio,NavigationTableIOTypeUpdateSupportedLinksNavigation-source,Tableio-sourceToolbarBandsToolbarAutoSizenoToolbarDrawDirectionhorizontalLogicalObjectNameDisabledActionsHiddenActionsResetHiddenToolbarBandsHiddenMenuBandsMenuMergeOrder0RemoveMenuOnHidenoCreateSubMenuOnConflictyesNavigationTargetNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_dyntoolbar ).
                RUN repositionObject IN h_dyntoolbar ( 1.00 , 1.00 ) NO-ERROR.
                RUN resizeObject IN h_dyntoolbar ( 1.24 , 58.40 ) NO-ERROR.

                /* Links to SmartDataObject h_d-adresse. */
                RUN addLink ( h_dyntoolbar , 'Navigation':U , h_d-adresse ).

                /* Links to SmartDataViewer h_v-adresse-kopf. */
                RUN addLink ( h_d-adresse , 'Data':U , h_v-adresse-kopf ).

                /* Links to SmartDataObject h_d-krest. */
                RUN addLink ( h_d-adresse , 'Data':U , h_d-krest ).

                /* Links to SmartDataObject h_d-debst. */
                RUN addLink ( h_d-adresse , 'Data':U , h_d-debst ).

                /* Links to SmartDataObject h_d-kunbw. */
                RUN addLink ( h_d-debst , 'Data':U , h_d-kunbw ).

                /* Links to SmartDataObject h_d-spezrab. */
                RUN addLink ( h_d-debst , 'Data':U , h_d-spezrab ).

                /* Links to SmartDataObject h_d-aktkeine. */
                RUN addLink ( h_d-debst , 'Data':U , h_d-aktkeine ).

                /* Links to SmartDataObject h_d-abwprgrp. */
                RUN addLink ( h_d-debst , 'Data':U , h_d-abwprgrp ).

                /* Links to SmartDataObject h_d-debums. */
                RUN addLink ( h_d-debst , 'Data':U , h_d-debums ).

                /* Links to SmartDataObject h_d-spezprei. */
                RUN addLink ( h_d-debst , 'Data':U , h_d-spezprei ).

                /* Links to SmartDataObject h_d-liefst. */
                RUN addLink ( h_d-adresse , 'Data':U , h_d-liefst ).

                /* Links to SmartDataObject h_d-ansprech. */
                RUN addLink ( h_d-adresse , 'Data':U , h_d-ansprech ).

                /* Links to SmartFolder h_folder. */
                RUN addLink ( h_folder , 'Page':U , THIS-PROCEDURE ).

                /* Adjust the tab order of the smart objects. */
                RUN adjustTabOrder ( h_folder ,
                    h_v-adresse-kopf , 'AFTER':U ).
                RUN adjustTabOrder ( h_dyntoolbar ,
                    h_folder , 'AFTER':U ).
            END. /* Page 0 */
        WHEN 1 THEN 
            DO:
                RUN constructObject (
                    INPUT  'v-adresse-inf.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_v-adresse-inf ).
                RUN repositionObject IN h_v-adresse-inf ( 5.29 , 2.80 ) NO-ERROR.
                /* Size in AB:  ( 10.48 , 135.00 ) */

                RUN constructObject (
                    INPUT  'b-adresse.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNamesUpdateTargetNamesLogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_b-adresse ).
                RUN repositionObject IN h_b-adresse ( 16.33 , 3.80 ) NO-ERROR.
                RUN resizeObject IN h_b-adresse ( 8.95 , 135.00 ) NO-ERROR.

                /* Links to SmartDataViewer h_v-adresse-inf. */
                RUN addLink ( h_d-adresse , 'Data':U , h_v-adresse-inf ).

                /* Links to SmartDataBrowser h_b-adresse. */
                RUN addLink ( h_d-adresse , 'Data':U , h_b-adresse ).

            END. /* Page 1 */
        WHEN 2 THEN 
            DO:
                RUN constructObject (
                    INPUT  'b-ansprech.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNamesUpdateTargetNamesLogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_b-ansprech ).
                RUN repositionObject IN h_b-ansprech ( 5.62 , 2.00 ) NO-ERROR.
                RUN resizeObject IN h_b-ansprech ( 7.38 , 137.00 ) NO-ERROR.

                RUN constructObject (
                    INPUT  'v-ansprech.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_v-ansprech ).
                RUN repositionObject IN h_v-ansprech ( 13.95 , 2.00 ) NO-ERROR.
                /* Size in AB:  ( 10.71 , 137.00 ) */

                /* Links to SmartDataBrowser h_b-ansprech. */
                RUN addLink ( h_d-ansprech , 'Data':U , h_b-ansprech ).

                /* Links to SmartDataViewer h_v-ansprech. */
                RUN addLink ( h_d-ansprech , 'Data':U , h_v-ansprech ).
                RUN addLink ( h_v-ansprech , 'Update':U , h_d-ansprech ).

            END. /* Page 2 */
        WHEN 3 THEN 
            DO:
                RUN constructObject (
                    INPUT  'v-adresse.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_v-adresse ).
                RUN repositionObject IN h_v-adresse ( 5.48 , 1.80 ) NO-ERROR.
                /* Size in AB:  ( 20.10 , 137.20 ) */

                /* Links to SmartDataViewer h_v-adresse. */
                RUN addLink ( h_d-adresse , 'Data':U , h_v-adresse ).
                RUN addLink ( h_v-adresse , 'Update':U , h_d-adresse ).

            END. /* Page 3 */
        WHEN 4 THEN 
            DO:
                RUN constructObject (
                    INPUT  'v-debst.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_v-debst ).
                RUN repositionObject IN h_v-debst ( 5.38 , 2.80 ) NO-ERROR.
                /* Size in AB:  ( 24.05 , 137.00 ) */

                /* Links to SmartDataViewer h_v-debst. */
                RUN addLink ( h_d-debst , 'Data':U , h_v-debst ).
                RUN addLink ( h_v-debst , 'Update':U , h_d-debst ).

            END. /* Page 4 */
        WHEN 5 THEN 
            DO:
                RUN constructObject (
                    INPUT  'v-liefst.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_v-liefst ).
                RUN repositionObject IN h_v-liefst ( 5.38 , 4.20 ) NO-ERROR.
                /* Size in AB:  ( 20.00 , 133.00 ) */

                /* Links to SmartDataViewer h_v-liefst. */
                RUN addLink ( h_d-liefst , 'Data':U , h_v-liefst ).
                RUN addLink ( h_v-liefst , 'Update':U , h_d-liefst ).

            END. /* Page 5 */
        WHEN 6 THEN 
            DO:
                RUN constructObject (
                    INPUT  'b-aktkeine.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNamesUpdateTargetNamesLogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_b-aktkeine ).
                RUN repositionObject IN h_b-aktkeine ( 5.52 , 85.00 ) NO-ERROR.
                RUN resizeObject IN h_b-aktkeine ( 10.48 , 43.00 ) NO-ERROR.

                RUN constructObject (
                    INPUT  'b-abwprgrp.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_b-abwprgrp ).
                RUN repositionObject IN h_b-abwprgrp ( 5.52 , 3.00 ) NO-ERROR.
                RUN resizeObject IN h_b-abwprgrp ( 8.81 , 77.00 ) NO-ERROR.

                RUN constructObject (
                    INPUT  'v-abwprgrp.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_v-abwprgrp ).
                RUN repositionObject IN h_v-abwprgrp ( 14.71 , 3.00 ) NO-ERROR.
                /* Size in AB:  ( 2.86 , 77.00 ) */

                /* Links to SmartDataBrowser h_b-aktkeine. */
                RUN addLink ( h_d-aktkeine , 'Data':U , h_b-aktkeine ).
                RUN addLink ( h_b-aktkeine , 'Update':U , h_d-aktkeine ).

                /* Links to SmartDataBrowser h_b-abwprgrp. */
                RUN addLink ( h_d-abwprgrp , 'Data':U , h_b-abwprgrp ).

                /* Links to SmartDataViewer h_v-abwprgrp. */
                RUN addLink ( h_d-abwprgrp , 'Data':U , h_v-abwprgrp ).
                RUN addLink ( h_v-abwprgrp , 'Update':U , h_d-abwprgrp ).

            END. /* Page 6 */
        WHEN 7 THEN 
            DO:
                RUN constructObject (
                    INPUT  'b-spezrab-deb.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNamesUpdateTargetNamesLogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_b-spezrab-deb ).
                RUN repositionObject IN h_b-spezrab-deb ( 8.00 , 3.00 ) NO-ERROR.
                RUN resizeObject IN h_b-spezrab-deb ( 7.38 , 111.00 ) NO-ERROR.

                RUN constructObject (
                    INPUT  'v-spezrab-deb.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_v-spezrab-deb ).
                RUN repositionObject IN h_v-spezrab-deb ( 16.00 , 3.00 ) NO-ERROR.
                /* Size in AB:  ( 7.91 , 111.00 ) */

                RUN constructObject (
                    INPUT  'b-spezprei-deb.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_b-spezprei-deb ).
                RUN repositionObject IN h_b-spezprei-deb ( 7.95 , 3.00 ) NO-ERROR.
                RUN resizeObject IN h_b-spezprei-deb ( 7.38 , 134.40 ) NO-ERROR.

                RUN constructObject (
                    INPUT  'v-spezprei-deb.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_v-spezprei-deb ).
                RUN repositionObject IN h_v-spezprei-deb ( 16.00 , 3.00 ) NO-ERROR.
                /* Size in AB:  ( 7.91 , 127.00 ) */

                /* Links to SmartDataBrowser h_b-spezrab-deb. */
                RUN addLink ( h_d-spezrab , 'Data':U , h_b-spezrab-deb ).

                /* Links to SmartDataViewer h_v-spezrab-deb. */
                RUN addLink ( h_d-spezrab , 'Data':U , h_v-spezrab-deb ).
                RUN addLink ( h_v-spezrab-deb , 'Update':U , h_d-spezrab ).

                /* Links to SmartDataBrowser h_b-spezprei-deb. */
                RUN addLink ( h_d-spezprei , 'Data':U , h_b-spezprei-deb ).

                /* Links to SmartDataViewer h_v-spezprei-deb. */
                RUN addLink ( h_d-spezprei , 'Data':U , h_v-spezprei-deb ).
                RUN addLink ( h_v-spezprei-deb , 'Update':U , h_d-spezprei ).

            END. /* Page 7 */
        WHEN 8 THEN 
            DO:
                RUN constructObject (
                    INPUT  'v-krest.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_v-krest ).
                RUN repositionObject IN h_v-krest ( 6.33 , 8.20 ) NO-ERROR.
                /* Size in AB:  ( 17.57 , 119.40 ) */

                /* Links to SmartDataViewer h_v-krest. */
                RUN addLink ( h_d-krest , 'Data':U , h_v-krest ).
                RUN addLink ( h_v-krest , 'Update':U , h_d-krest ).

            END. /* Page 8 */
        WHEN 9 THEN 
            DO:
                RUN constructObject (
                    INPUT  'b-kunbw.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNamesUpdateTargetNamesLogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_b-kunbw ).
                RUN repositionObject IN h_b-kunbw ( 5.52 , 2.00 ) NO-ERROR.
                RUN resizeObject IN h_b-kunbw ( 7.38 , 138.00 ) NO-ERROR.

                RUN constructObject (
                    INPUT  'b-debums.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNamesUpdateTargetNamesLogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_b-debums ).
                RUN repositionObject IN h_b-debums ( 13.52 , 2.00 ) NO-ERROR.
                RUN resizeObject IN h_b-debums ( 7.38 , 96.00 ) NO-ERROR.

                RUN constructObject (
                    INPUT  'v-debums.w':U ,
                    INPUT  FRAME fMain:HANDLE ,
                    INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
                    OUTPUT h_v-debums ).
                RUN repositionObject IN h_v-debums ( 21.38 , 2.00 ) NO-ERROR.
                /* Size in AB:  ( 4.05 , 138.00 ) */

                /* Links to SmartDataBrowser h_b-kunbw. */
                RUN addLink ( h_d-kunbw , 'Data':U , h_b-kunbw ).

                /* Links to SmartDataBrowser h_b-debums. */
                RUN addLink ( h_d-debums , 'Data':U , h_b-debums ).

                /* Links to SmartDataViewer h_v-debums. */
                RUN addLink ( h_d-debums , 'Data':U , h_v-debums ).

            /* Adjust the tab order of the smart objects. */
            END. /* Page 9 */

    END CASE.
    /* Select a Startup page. */
    IF currentPage EQ 0
        THEN RUN selectPage IN THIS-PROCEDURE ( 1 ).

END PROCEDURE.

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

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

    RUN SUPER.

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

    CASE AktSeite:

        WHEN 1 THEN 
            DO:
                /*           RUN addLink ( h_dyntoolbar , 'TableIO':U    , h_v-ansprech     ). */
                /*           RUN addLink ( h_dyntoolbar , 'Navigation':U , h_d-auftr        ). */
                /*           RUN ToolbarInit ( INPUT h_d-auftr ).                              */
                RUN ENTRY_CURSOR.
            END.
        WHEN 2 THEN 
            DO:
                RUN addLink ( h_dyntoolbar , 'TableIO':U    , h_v-ansprech     ).
                RUN ENTRY_CURSOR.
            END.
        WHEN 3 THEN 
            DO:
                RUN addLink ( h_dyntoolbar , 'TableIO':U    , h_v-adresse      ).
                RUN ENTRY_CURSOR.
            END.
        WHEN 4 THEN 
            DO:
                RUN addLink ( h_dyntoolbar , 'TableIO':U    , h_v-debst        ).
                RUN ENTRY_CURSOR.
            END.
        WHEN 5 THEN 
            DO:
                RUN addLink ( h_dyntoolbar , 'TableIO':U    , h_v-liefst       ).
                RUN ENTRY_CURSOR.
            END.
        WHEN 6 THEN 
            DO:
                PUBLISH 'SETOPENFLAGDEBST' ( INPUT TRUE ).
                RUN addLink ( h_dyntoolbar , 'TableIO':U    , h_v-abwprgrp     ).
                RUN ENTRY_CURSOR.
            END.
        WHEN 7 THEN 
            DO WITH FRAME {&FRAME-NAME}:
                R_SpezPreis:SENSITIVE = TRUE.
                R_SpezPreis:HIDDEN    = FALSE.
                IF R_SpezPreis = 1 THEN 
                DO:
                    RUN hideObject IN h_b-spezrab-deb.
                    RUN hideObject IN h_v-spezrab-deb.
                    RUN viewObject IN h_b-spezprei-deb.
                    RUN viewObject IN h_v-spezprei-deb.
                    RUN addLink ( h_dyntoolbar , 'TableIO':U    , h_v-spezprei-deb).
                    DYNAMIC-FUNCTION('initializeToolBar':U IN h_dyntoolbar) NO-ERROR. 
                    DYNAMIC-FUNCTION('openQuery':U IN h_d-spezprei) NO-ERROR.
                END.
                IF R_SpezPreis = 2 THEN 
                DO:
                    RUN hideObject IN h_b-spezprei-deb.
                    RUN hideObject IN h_v-spezprei-deb.
                    RUN viewObject IN h_b-spezrab-deb.
                    RUN viewObject IN h_v-spezrab-deb.
                    RUN addLink ( h_dyntoolbar , 'TableIO':U    , h_v-spezrab-deb).
                    DYNAMIC-FUNCTION('initializeToolBar':U IN h_dyntoolbar) NO-ERROR. 
                    DYNAMIC-FUNCTION('openQuery':U IN h_d-spezrab) NO-ERROR.
                END.
                RUN ENTRY_CURSOR.
            END.
        WHEN 8 THEN 
            DO:
                RUN addLink ( h_dyntoolbar , 'TableIO':U    , h_v-krest        ).
                RUN ENTRY_CURSOR.
            END.
        WHEN 9 THEN 
            DO:
                PUBLISH 'SETOPENFLAGDEBST' ( INPUT TRUE ).
                RUN ENTRY_CURSOR.
            END.

    END CASE.

    IF VALID-HANDLE(h_dyntoolbar) THEN
        RUN setButtons  IN h_dyntoolbar ( INPUT 'Initial-TableIo':U ).

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI wAdressen  _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.
    ------------------------------------------------------------------------------*/
    /* Delete the WINDOW we created */
    IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wAdressen)
        THEN DELETE WIDGET wAdressen.
    IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject wAdressen 
PROCEDURE enableObject :
    /*------------------------------------------------------------------------------
      Purpose:     Super Override
      Parameters:  
      Notes:       
    ------------------------------------------------------------------------------*/
    
    lOldInaktiv = DYNAMIC-FUNCTION('getAnzeigeAdresseInaktiv':U) NO-ERROR.
    IF lOldInaktiv = ? THEN lOldInaktiv = FALSE.
    lNewInaktiv = DYNAMIC-FUNCTION('getAnzeigeAdresseInaktiv':U) NO-ERROR.
    IF lNewInaktiv = ? THEN lNewInaktiv = FALSE.

    { incl/winenableobject.i }
    
    RUN SUPER.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI wAdressen  _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.
    ------------------------------------------------------------------------------*/
    ENABLE Btn_Search 
        WITH FRAME fMain IN WINDOW wAdressen.
    {&OPEN-BROWSERS-IN-QUERY-fMain}
    VIEW wAdressen.
END PROCEDURE.

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

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

    { incl/winende.i }
/*
DEF VAR wx          AS INT                      NO-UNDO.
DEF VAR wy          AS INT                      NO-UNDO.
DEF VAR xString     AS CHAR                     NO-UNDO.

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 ).

wx = {&WINDOW-NAME}:X NO-ERROR.
wy = {&WINDOW-NAME}:Y NO-ERROR.
/*
DYNAMIC-FUNCTION('setFensterPosition':U, 
*/
xString = STRING(wx) + ';' + STRING(wy).
PUT-KEY-VALUE SECTION 'FensterPositionen'
              KEY     'Adressfenster'
              VALUE   xString.

APPLY "CLOSE":U TO THIS-PROCEDURE.
*/
END PROCEDURE.

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

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

    DEF VAR FeldName AS CHAR NO-UNDO.

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U).
    FMutFlag = DYNAMIC-FUNCTION('getMutflag':U, INPUT Progname).

    CASE AktSeite:
        WHEN 1 THEN RUN applyEntry IN h_b-adresse  ( INPUT ? ).
        WHEN 2 THEN 
            DO:
                IF FMutFlag THEN RUN applyEntry IN h_v-ansprech ( INPUT ? ).
                ELSE             RUN applyEntry IN h_b-ansprech ( INPUT ? ).
            END.
        WHEN 3 THEN 
            DO:
                IF FMutFlag THEN 
                DO:
                    FeldName = DYNAMIC-FUNCTION('GETENTRYFELD':U) NO-ERROR.
                    RUN applyEntry IN h_v-adresse  ( INPUT FeldName ).
                END.
                ELSE             RUN applyEntry IN h_v-adresse  ( INPUT ? ).
            END.
        WHEN 4 THEN RUN applyEntry IN h_v-debst    ( INPUT ? ).
        WHEN 5 THEN RUN applyEntry IN h_v-liefst   ( INPUT ? ).
        WHEN 6 THEN 
            DO:
                IF FMutFlag THEN RUN applyEntry IN h_v-abwprgrp ( INPUT ? ).
                ELSE             RUN applyEntry IN h_b-abwprgrp ( INPUT ? ).
            END.
        WHEN 7 THEN 
            DO WITH FRAME {&FRAME-NAME}:
                IF R_SpezPreis = 1 THEN 
                DO:
                    IF FMutFlag THEN RUN applyEntry IN h_v-spezprei-deb ( INPUT ? ).
                    ELSE             RUN applyEntry IN h_b-spezprei-deb ( INPUT ? ).
                END.
                IF R_SpezPreis = 2 THEN 
                DO:
                    IF FMutFlag THEN RUN applyEntry IN h_v-spezrab-deb  ( INPUT ? ).
                    ELSE             RUN applyEntry IN h_b-spezrab-deb  ( INPUT ? ).
                END.
            END.
        WHEN 8 THEN RUN applyEntry IN h_v-krest    ( INPUT ? ).
        WHEN 9 THEN RUN applyEntry IN h_b-kunbw    ( INPUT ? ).
    /*         WHEN 6 THEN RUN applyEntry IN h_b-auffak   ( INPUT ? ). */
    /*         WHEN 7 THEN RUN applyEntry IN h_b-position ( INPUT ? ). */
    END CASE.

    RETURN NO-APPLY.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE exitObject wAdressen 
PROCEDURE exitObject :
    /*------------------------------------------------------------------------------
      Purpose:  Window-specific override of this procedure which destroys 
                its contents and itself.
        Notes:  
    ------------------------------------------------------------------------------*/

    RUN ENDE.
    RETURN NO-APPLY.

END PROCEDURE.

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

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

    DEF VAR cParam  AS CHAR   NO-UNDO.
    DEF VAR bRecid  AS RECID  NO-UNDO.
    DEF VAR bSort   AS INT    NO-UNDO.
    DEF VAR ix      AS INT    NO-UNDO.
    DEF VAR sHandle AS CHAR   NO-UNDO.
    DEF VAR hData   AS HANDLE NO-UNDO.

    bRecid = ?.
    RUN g-suchen-adresse.w ( INPUT 'ADR;', OUTPUT bRecid ).
    
    IF bRecid = ?   THEN RETURN.
    IF bRecid = 0   THEN RETURN.
    
    lNewInaktiv = DYNAMIC-FUNCTION('getAnzeigeAdresseInaktiv':U) NO-ERROR.
    FIND Adresse NO-LOCK WHERE RECID(Adresse) = bRecid NO-ERROR.
    IF lNewInaktiv <> lOldInaktiv THEN DYNAMIC-FUNCTION('openQuery':U IN h_d-Adresse) NO-ERROR.
    lOldInaktiv = lNewInaktiv.
    
    RUN REPOS IN h_d-adresse ( INPUT bRecid ).
    
    RUN ENTRY_CURSOR.
    RETURN NO-APPLY.

END PROCEDURE.

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

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

    RUN SUPER.

    { incl/wininitializeobject.i }

END PROCEDURE.

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

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

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U).
    IF AktSeite = MaxSeite THEN AktSeite = 1.
    ELSE                        AktSeite = AktSeite + 1.

    RUN selectPage ( INPUT AktSeite ).

END PROCEDURE.

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

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

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U).
    IF AktSeite = 1 THEN AktSeite = MaxSeite.
    ELSE                 AktSeite = AktSeite - 1.

    RUN selectPage ( INPUT AktSeite ).

END PROCEDURE.

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

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

    { incl/winseitenwechsel.i }

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE selectPage wAdressen 
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('getMutflag':U, INPUT Progname) NO-ERROR.
    DO WHILE TRUE:
        IF NOT FMutFlag THEN LEAVE.
        RETURN NO-APPLY.
    END.

    IF  cInstallation = 'oswald' AND
        cBenutzer     = 'gt'     THEN 
    DO:
        CASE piPageNum:
            WHEN 6 THEN 
                RETURN NO-APPLY.
            WHEN 7 THEN 
                RETURN NO-APPLY.
            WHEN 9 THEN 
                RETURN NO-APPLY.
        END CASE.
    END.

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U).
    IF AktSeite = piPageNum THEN RETURN NO-APPLY.

    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.
        WHEN 2 THEN 
            DO:
                RUN removeLink ( h_dyntoolbar , 'TableIO':U    , h_v-ansprech    ).
            END.
        WHEN 3 THEN 
            DO:
                RUN removeLink ( h_dyntoolbar , 'TableIO':U    , h_v-adresse     ).
            END.
        WHEN 4 THEN 
            DO:
                RUN removeLink ( h_dyntoolbar , 'TableIO':U    , h_v-debst       ).
            END.
        WHEN 5 THEN 
            DO:
                RUN removeLink ( h_dyntoolbar , 'TableIO':U    , h_v-liefst      ).
            END.
        WHEN 6 THEN 
            DO:
                PUBLISH 'SETOPENFLAGDEBST' ( INPUT FALSE ).
                RUN removeLink ( h_dyntoolbar , 'TableIO':U    , h_v-abwprgrp    ).
            END.
        WHEN 7 THEN 
            DO WITH FRAME {&FRAME-NAME}:
                R_SpezPreis:SENSITIVE = FALSE.
                R_SpezPreis:HIDDEN    = TRUE.
                IF R_SpezPreis = 1 THEN 
                DO:
                    RUN removeLink ( h_dyntoolbar , 'TableIO':U , h_v-spezprei-deb).
                END.
                IF R_SpezPreis = 2 THEN 
                DO:
                    RUN removeLink ( h_dyntoolbar , 'TableIO':U , h_v-spezrab-deb).
                END.
                RUN hideObject IN h_b-spezrab-deb.
                RUN hideObject IN h_v-spezrab-deb.
                RUN hideObject IN h_b-spezprei-deb.
                RUN hideObject IN h_v-spezprei-deb.
            END.
        WHEN 8 THEN 
            DO:
                RUN removeLink ( h_dyntoolbar , 'TableIO':U    , h_v-krest       ).
            END.
        WHEN 9 THEN 
            DO:
                PUBLISH 'SETOPENFLAGDEBST' ( INPUT FALSE ).
            END.

    END CASE.

    RUN SUPER( INPUT piPageNum).

END PROCEDURE.

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

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

    DEF INPUT PARAMETER ipNummer    AS CHAR         NO-UNDO.
    
    IF ipNummer = '' THEN RETURN.

    DEF VAR cNummer   AS CHAR NO-UNDO.
    DEF VAR cPasswort AS CHAR NO-UNDO.
    DEF VAR cMessage  AS CHAR NO-UNDO.

    FIND Tabel NO-LOCK
        WHERE Tabel.Firma  = Firma
        AND   Tabel.RecArt = 'TEL_INTNR'
        AND   Tabel.CodeC  = cBenutzer
        AND   Tabel.CodeI  = 0
        AND   Tabel.Sprcd  = 1 NO-ERROR.
    IF NOT AVAILABLE Tabel THEN 
    DO:
        RUN g-einlesen-text.w ( 'Eingabe interne Telefonnummer',
            'Int. TelNr:', TRUE,
            INPUT-OUTPUT cNummer ).
        IF cNummer = '' OR
            cNummer = ?  THEN RETURN.
        REPEAT TRANSACTION:
            CREATE  Tabel.
            ASSIGN  
                Tabel.Firma  = Firma
                Tabel.RecArt = 'TEL_INTNR'
                Tabel.CodeC  = cBenutzer
                Tabel.CodeI  = 0
                Tabel.Sprcd  = 1
                Tabel.Bez1   = cNummer.
            RELEASE Tabel.
            LEAVE.
        END.
    END.
    ELSE cNummer = Tabel.Bez1.

    FIND Tabel NO-LOCK
        WHERE Tabel.Firma  = Firma
        AND   Tabel.RecArt = 'TEL_PASSW'
        AND   Tabel.CodeC  = cBenutzer
        AND   Tabel.CodeI  = 0
        AND   Tabel.Sprcd  = 1 NO-ERROR.
    IF NOT AVAILABLE Tabel THEN 
    DO:
        RUN g-einlesen-text.w ( 'Eingabe Telefonpasswort',
            'Tel.-Passwort', TRUE,
            INPUT-OUTPUT cPasswort ).
        IF cPasswort = '' OR
            cPasswort = ?  THEN RETURN.
        REPEAT TRANSACTION:
            CREATE  Tabel.
            ASSIGN  
                Tabel.Firma  = Firma
                Tabel.RecArt = 'TEL_PASSW'
                Tabel.CodeC  = cBenutzer
                Tabel.CodeI  = 0
                Tabel.Sprcd  = 1
                Tabel.Bez1   = cPasswort.
            RELEASE Tabel.
            LEAVE.
        END.
    END.
    ELSE cPasswort = Tabel.Bez1.

    CASE cInstallation:
        WHEN 'OSWALD' THEN 
            DO:
                RUN Telefon_UNIFY.p ( cNummer, cPasswort, ipNummer, OUTPUT cMessage ) NO-ERROR.
            END.
        WHEN 'HUBER' THEN 
            DO:
                RUN Telefon_UNIFY.p ( cNummer, cPasswort, ipNummer, OUTPUT cMessage ) NO-ERROR.
            END.
    END CASE.
    
    IF cMessage <> '' THEN 
    DO:
        MESSAGE 'Probleme mit Telefonverbindung'    SKIP
            cMessage
            VIEW-AS ALERT-BOX.
    END.

END PROCEDURE.

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

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

    { incl/wintoolbar.i }
/*
    DEF INPUT PARAMETER pcAction    AS CHAR             NO-UNDO.
    
    IF pcAction = 'setSaveReset' THEN DO:
        DYNAMIC-FUNCTION('sensitizeActions':U IN h_dyntoolbar, 'SAVE,RESET', TRUE) NO-ERROR.
        RETURN.
    END.

    RUN onChoose IN h_dyntoolbar ( INPUT pcAction ).
*/
END PROCEDURE.

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

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

    RUN SUPER.

    APPLY 'U1'.

END PROCEDURE.

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