GeMIS_WEB/GUI/w-artst.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2
&ANALYZE-RESUME
&Scoped-define WINDOW-NAME w-Artst
{adecomm/appserv.i}
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS w-Artst 
/*------------------------------------------------------------------------

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

DEFINE VARIABLE hProgramme     AS HANDLE        NO-UNDO.
DEFINE VARIABLE lFirstPage8    AS LOG           NO-UNDO INIT TRUE .
DEFINE VARIABLE lOldInaktiv    AS LOG           NO-UNDO.
DEFINE VARIABLE lNewInaktiv    AS LOG           NO-UNDO.
DEFINE VARIABLE iSelPage       AS INTEGER       NO-UNDO.
DEFINE VARIABLE hInhaltsstoffe AS WIDGET-HANDLE NO-UNDO.
DEFINE VARIABLE cStrichcode    AS CHARACTER     NO-UNDO.

DEFINE WORKFILE WProgramme     
    FIELD ProgName      AS CHARACTER
    FIELD ProgHand      AS HANDLE.

{ incl/windefinition.i }

{src/adm2/widgetprto.i}

/* _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_Suchen Btn_Inhalt Btn_Preise Btn_Staff ~
Btn_Kanal R_Bewegungen 
&Scoped-Define DISPLAYED-OBJECTS R_Bewegungen R_Aktionen 

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

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


/* ************************  Function Prototypes ********************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getProgname w-Artst 
FUNCTION getProgname RETURNS CHARACTER
    ( /* parameter-definitions */ )  FORWARD.

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


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

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

/* Definitions of handles for SmartObjects                              */
DEFINE VARIABLE h_b-aktpreis AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-artbw-artikel AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-artkanal AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-artlief AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-artpreis AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-artst AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-artstaff AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-artums-kum AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-kunart-artikel AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-lotlager AS HANDLE NO-UNDO.
DEFINE VARIABLE h_b-spezprei-art AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-aktpreis AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-artbw-artikel AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-artbw-bestand AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-artkanal AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-artlief AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-artpreis AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-artst AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-artstaff AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-artums AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-kunart AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-lotlager AS HANDLE NO-UNDO.
DEFINE VARIABLE h_d-spezprei AS HANDLE NO-UNDO.
DEFINE VARIABLE h_dyntoolbar AS HANDLE NO-UNDO.
DEFINE VARIABLE h_f-aktion-anz AS HANDLE NO-UNDO.
DEFINE VARIABLE h_f-aktionen-spez AS HANDLE NO-UNDO.
DEFINE VARIABLE h_folder AS HANDLE NO-UNDO.
DEFINE VARIABLE h_v-aktpreis AS HANDLE NO-UNDO.
DEFINE VARIABLE h_v-artbw-bestand AS HANDLE NO-UNDO.
DEFINE VARIABLE h_v-artlief AS HANDLE NO-UNDO.
DEFINE VARIABLE h_v-artst AS HANDLE NO-UNDO.
DEFINE VARIABLE h_v-artst-info AS HANDLE NO-UNDO.
DEFINE VARIABLE h_v-kunart-artikel AS HANDLE NO-UNDO.
DEFINE VARIABLE h_v-lotlager AS HANDLE NO-UNDO.
DEFINE VARIABLE h_v-spezprei-art AS HANDLE NO-UNDO.

/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Inhalt 
     IMAGE-UP FILE "grafik/results%.ico":U
     IMAGE-DOWN FILE "grafik/results%.ico":U
     LABEL "Inhalt" 
     SIZE 7 BY .95.

DEFINE BUTTON Btn_Kanal 
     LABEL "&Zuschläge" 
     SIZE 15 BY 1.14.

DEFINE BUTTON Btn_Preise 
     LABEL "&Preise" 
     SIZE 15 BY 1.14.

DEFINE BUTTON Btn_Staff 
     LABEL "&Staffelungen" 
     SIZE 15 BY 1.14.

DEFINE BUTTON Btn_Suchen 
     IMAGE-UP FILE "grafik/select.bmp":U
     IMAGE-DOWN FILE "grafik/select.bmp":U
     LABEL "Suchen" 
     SIZE 4 BY .95.

DEFINE VARIABLE R_Aktionen AS INTEGER 
     VIEW-AS RADIO-SET VERTICAL
     RADIO-BUTTONS 
          "Vor&definierte", 1,
"Ind&ividuelle", 2
     SIZE 25 BY 1.52 NO-UNDO.

DEFINE VARIABLE R_Bewegungen AS INTEGER 
     VIEW-AS RADIO-SET VERTICAL
     RADIO-BUTTONS 
          "Lagerbewegungen", 1,
"Bestandesverlauf", 2
     SIZE 25 BY 1.52 NO-UNDO.


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

DEFINE FRAME fMain
     Btn_Suchen AT ROW 1.19 COL 69.4 WIDGET-ID 2
     Btn_Inhalt AT ROW 1.19 COL 78 WIDGET-ID 18
     Btn_Preise AT ROW 8 COL 121.4 WIDGET-ID 6
     Btn_Staff AT ROW 9.52 COL 121.4 WIDGET-ID 8
     Btn_Kanal AT ROW 11 COL 121.4 WIDGET-ID 4
     R_Bewegungen AT ROW 23.1 COL 111.8 NO-LABEL WIDGET-ID 14
     R_Aktionen AT ROW 26.33 COL 7 NO-LABEL WIDGET-ID 10
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY 
         SIDE-LABELS NO-UNDERLINE THREE-D 
         AT COL 1 ROW 1
         SIZE 154.8 BY 30.48 WIDGET-ID 100.


/* *********************** 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: 5
   Other Settings: COMPILE APPSERVER
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

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

&ANALYZE-SUSPEND _CREATE-WINDOW
IF SESSION:DISPLAY-TYPE = "GUI":U THEN
  CREATE WINDOW w-Artst ASSIGN
         HIDDEN             = YES
         TITLE              = "Artikelverwaltung"
         HEIGHT             = 30.48
         WIDTH              = 154.8
         MAX-HEIGHT         = 56.1
         MAX-WIDTH          = 384
         VIRTUAL-HEIGHT     = 56.1
         VIRTUAL-WIDTH      = 384
         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 w-Artst: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 w-Artst 
/* ************************* 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 w-Artst
  VISIBLE,,RUN-PERSISTENT                                               */
/* SETTINGS FOR FRAME fMain
   FRAME-NAME                                                           */
ASSIGN 
       Btn_Kanal:HIDDEN IN FRAME fMain           = TRUE.

ASSIGN 
       Btn_Preise:HIDDEN IN FRAME fMain           = TRUE.

ASSIGN 
       Btn_Staff:HIDDEN IN FRAME fMain           = TRUE.

ASSIGN 
       Btn_Suchen:AUTO-RESIZE IN FRAME fMain      = TRUE.

/* SETTINGS FOR RADIO-SET R_Aktionen IN FRAME fMain
   NO-ENABLE                                                            */
ASSIGN 
       R_Aktionen:HIDDEN IN FRAME fMain           = TRUE.

ASSIGN 
       R_Bewegungen:HIDDEN IN FRAME fMain           = TRUE.

IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(w-Artst)
THEN w-Artst:HIDDEN = no.

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

 



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

&Scoped-define SELF-NAME w-Artst
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL w-Artst w-Artst
ON END-ERROR OF w-Artst /* Artikelverwaltung */
OR ENDKEY OF {&WINDOW-NAME} ANYWHERE 
    DO:
        /* This case occurs when the user presses the "Esc" key.
           In a persistently run window, just ignore this.  If we did not, the
           application would exit. */
        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 w-Artst w-Artst
ON WINDOW-CLOSE OF w-Artst /* Artikelverwaltung */
DO:
        /* This ADM code must be left here in order for the SmartWindow
           and its descendents to terminate properly on exit. */

        RUN ENDE.
        RETURN NO-APPLY.

    END.

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


&Scoped-define SELF-NAME Btn_Inhalt
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Inhalt w-Artst
ON CHOOSE OF Btn_Inhalt IN FRAME fMain /* Inhalt */
DO:
        SESSION:SET-WAIT-STATE('GENERAL').
        IF VALID-HANDLE(hInhaltsstoffe) THEN RUN OPENQUERY IN hInhaltsstoffe.    
        ELSE 
        DO:
            RUN 'w-inhaltsstoffe.w' PERSISTENT SET hInhaltsstoffe NO-ERROR.
            RUN initializeObject IN hInhaltsstoffe.
            RUN OPENQUERY IN  hInhaltsstoffe.
        END.
        SESSION:SET-WAIT-STATE('').
        APPLY 'U1'.
        RETURN NO-APPLY.
    END.

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


&Scoped-define SELF-NAME Btn_Kanal
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Kanal w-Artst
ON CHOOSE OF Btn_Kanal IN FRAME fMain /* Zuschläge */
DO:
        IF FMutFlag THEN RETURN NO-APPLY.

        DEFINE VARIABLE sProg AS CHARACTER INIT 'w-artkanal.w' NO-UNDO.
        DEFINE VARIABLE wProc AS HANDLE    NO-UNDO.

        FIND FIRST WProgramme WHERE WProgramme.ProgName = sProg NO-LOCK NO-ERROR.
        IF AVAILABLE WProgramme THEN 
        DO:
            hProgramme = WProgramme.ProgHand.
            IF VALID-HANDLE(hProgramme) THEN 
            DO:
                wProc = WProgramme.ProgHand:CURRENT-WINDOW.
                wProc:MOVE-TO-TOP().
                RETURN NO-APPLY.
            END.
            DELETE  WProgramme.
        END.
        RUN VALUE(sProg) PERSISTENT SET hProgramme ( INPUT h_d-artkanal ).
        RUN initializeObject IN hProgramme.
        RUN REGISTER_PROGRAMM ( hProgramme ).
    
        CREATE  WProgramme.
        ASSIGN  
            WProgramme.ProgName = sProg
            WProgramme.ProgHand = hProgramme.
            
    END.

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


&Scoped-define SELF-NAME Btn_Preise
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Preise w-Artst
ON CHOOSE OF Btn_Preise IN FRAME fMain /* Preise */
DO:
        IF FMutFlag THEN RETURN NO-APPLY.

        DEFINE VARIABLE sProg AS CHARACTER INIT 'w-artpreis.w' NO-UNDO.
        DEFINE VARIABLE wProc AS HANDLE    NO-UNDO.

        FIND FIRST WProgramme WHERE WProgramme.ProgName = sProg NO-LOCK NO-ERROR.
        IF AVAILABLE WProgramme THEN 
        DO:
            hProgramme = WProgramme.ProgHand.
            IF VALID-HANDLE(hProgramme) THEN 
            DO:
                wProc = WProgramme.ProgHand:CURRENT-WINDOW.
                wProc:MOVE-TO-TOP().
                RETURN NO-APPLY.
            END.
            DELETE  WProgramme.
        END.
        RUN VALUE(sProg) PERSISTENT SET hProgramme ( INPUT h_d-artpreis ).
        RUN initializeObject IN hProgramme.
        RUN REGISTER_PROGRAMM ( hProgramme ).
    
        CREATE  WProgramme.
        ASSIGN  
            WProgramme.ProgName = sProg
            WProgramme.ProgHand = hProgramme.
            
    END.

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


&Scoped-define SELF-NAME Btn_Staff
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Staff w-Artst
ON CHOOSE OF Btn_Staff IN FRAME fMain /* Staffelungen */
DO:
        IF FMutFlag THEN RETURN NO-APPLY.

        DEFINE VARIABLE sProg AS CHARACTER INIT 'w-artstaff.w' NO-UNDO.
        DEFINE VARIABLE wProc AS HANDLE    NO-UNDO.

        FIND FIRST WProgramme WHERE WProgramme.ProgName = sProg NO-LOCK NO-ERROR.
        IF AVAILABLE WProgramme THEN 
        DO:
            hProgramme = WProgramme.ProgHand.
            IF VALID-HANDLE(hProgramme) THEN 
            DO:
                wProc = WProgramme.ProgHand:CURRENT-WINDOW.
                wProc:MOVE-TO-TOP().
                RETURN NO-APPLY.
            END.
            DELETE  WProgramme.
        END.
        RUN VALUE(sProg) PERSISTENT SET hProgramme ( INPUT h_d-artstaff ).
        RUN initializeObject IN hProgramme.
        RUN REGISTER_PROGRAMM ( hProgramme ).
    
        CREATE  WProgramme.
        ASSIGN  
            WProgramme.ProgName = sProg
            WProgramme.ProgHand = hProgramme.
            
        DYNAMIC-FUNCTION('openQuery':U IN h_d-artstaff) NO-ERROR.
            
    END.

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


&Scoped-define SELF-NAME Btn_Suchen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Suchen w-Artst
ON CHOOSE OF Btn_Suchen IN FRAME fMain /* Suchen */
DO:
        RUN FINDEN NO-ERROR.
        RETURN NO-APPLY.
    END.

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


&Scoped-define SELF-NAME R_Aktionen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL R_Aktionen w-Artst
ON VALUE-CHANGED OF R_Aktionen IN FRAME fMain
DO:

        DO WITH FRAME {&FRAME-NAME}:
            ASSIGN  R_Aktionen.
            IF R_Aktionen = 1 THEN 
            DO:
                RUN hideObject IN h_f-aktionen-spez.
                RUN viewObject IN h_v-aktpreis.
                RUN addLink    ( h_dyntoolbar, 'TableIO':U, h_v-aktpreis).
            END.
            IF R_Aktionen = 2 THEN 
            DO:
                RUN removeLink ( h_dyntoolbar, 'TableIO':U, h_v-aktpreis).
                RUN hideObject IN h_v-aktpreis.
                RUN viewObject IN h_f-aktionen-spez.
            END.
            RUN SETADDBUTTON IN h_f-aktion-anz ( INPUT R_Aktionen ).
            RUN ENTRY_CURSOR.
        END.

    END.

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


&Scoped-define SELF-NAME R_Bewegungen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL R_Bewegungen w-Artst
ON VALUE-CHANGED OF R_Bewegungen IN FRAME fMain
DO:

        DO WITH FRAME {&FRAME-NAME}:
            ASSIGN  R_Bewegungen.
            IF R_Bewegungen = 1 THEN 
            DO:
                RUN hideObject IN h_v-artbw-bestand.
                RUN viewObject IN h_b-artbw-artikel.
            END.
            IF R_Bewegungen = 2 THEN 
            DO:
                RUN hideObject IN h_b-artbw-artikel.
                RUN SET_READY  IN h_v-artbw-bestand ( TRUE ).
                RUN viewObject IN h_v-artbw-bestand.
            END.

            RUN ENTRY_CURSOR.
        END.

    END.

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


&UNDEFINE SELF-NAME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK w-Artst 


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

    
{ incl/winmainblock.i }

{src/adm2/windowmn.i}

R_Aktionen   = 1.
R_Bewegungen = 1.
MaxSeite     = 9.

SUBSCRIBE TO 'TOOLBAR' ANYWHERE.
SUBSCRIBE TO 'BESTELLVORSCHLAG' ANYWHERE RUN-PROCEDURE 'CHANGE_ARTNR'.
SUBSCRIBE TO 'DDABGLEICH'       ANYWHERE RUN-PROCEDURE 'CHANGE_ARTNR'.
SUBSCRIBE TO 'HORELAGER'        ANYWHERE RUN-PROCEDURE 'CHANGE_ARTNR'.
    
ON 'ALT-F':U, 'CTRL-F':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN FINDEN NO-ERROR.
        RETURN NO-APPLY.
    END.
    
ON 'CTRL-N':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN FINDEN_NUMMER NO-ERROR.
        RETURN NO-APPLY.
    END.

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects w-Artst  _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-artst.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsObjectNamed-artstOpenOnInitnoPromptColumns(NONE)PromptOnDeletenoRowsToBatch25RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-artst ).
       RUN repositionObject IN h_d-artst ( 20.00 , 6.00 ) NO-ERROR.
       /* Size in AB:  ( 3.00 , 20.00 ) */

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

       RUN constructObject (
             INPUT  'd-lotlager.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldslotlager.Firma,Firma,lotlager.Artnr,Artnr,lotlager.Inhalt,Inhalt,lotlager.Jahr,JahrObjectNamed-lotlagerOpenOnInitnoPromptColumns(NONE)PromptOnDeletenoRowsToBatch200RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-lotlager ).
       RUN repositionObject IN h_d-lotlager ( 16.05 , 124.60 ) NO-ERROR.
       /* Size in AB:  ( 2.76 , 14.80 ) */

       RUN constructObject (
             INPUT  'd-artbw-artikel.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsArtbw.Firma,Firma,Artbw.Artnr,Artnr,Artbw.Inhalt,Inhalt,Artbw.Jahr,JahrObjectNamed-artbw-artikelOpenOnInitnoPromptColumns(NONE)PromptOnDeletenoRowsToBatch100RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-artbw-artikel ).
       RUN repositionObject IN h_d-artbw-artikel ( 20.00 , 102.00 ) NO-ERROR.
       /* Size in AB:  ( 3.00 , 20.00 ) */

       RUN constructObject (
             INPUT  'd-artbw-bestand.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsArtbw.Firma,Firma,Artbw.Artnr,Artnr,Artbw.Inhalt,Inhalt,Artbw.Jahr,JahrObjectNamed-artbw-bestandOpenOnInitnoPromptColumns(NONE)PromptOnDeletenoRowsToBatch200RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-artbw-bestand ).
       RUN repositionObject IN h_d-artbw-bestand ( 20.00 , 125.00 ) NO-ERROR.
       /* Size in AB:  ( 3.00 , 20.00 ) */

       RUN constructObject (
             INPUT  'd-artpreis.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsArtPreis.Firma,Firma,ArtPreis.Artnr,Artnr,ArtPreis.Inhalt,Inhalt,ArtPreis.Jahr,JahrObjectNamed-artpreisOpenOnInitnoPromptColumns(NONE)PromptOnDeletenoRowsToBatch25RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-artpreis ).
       RUN repositionObject IN h_d-artpreis ( 20.00 , 31.00 ) NO-ERROR.
       /* Size in AB:  ( 3.00 , 20.00 ) */

       RUN constructObject (
             INPUT  'b-artpreis.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-artpreis ).
       RUN repositionObject IN h_b-artpreis ( 6.95 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-artpreis ( 10.24 , 107.00 ) NO-ERROR.

       RUN constructObject (
             INPUT  'd-artstaff.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsArtStaff.Firma,Firma,ArtStaff.Artnr,Artnr,ArtStaff.Inhalt,Inhalt,ArtStaff.Jahr,Jahr,ArtStaff.Preis_Grp,Preis_Grp,ArtStaff.Ab_Datum,Ab_DatumObjectNamed-artstaffOpenOnInitnoPromptColumns(NONE)PromptOnDeletenoRowsToBatch20RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-artstaff ).
       RUN repositionObject IN h_d-artstaff ( 20.00 , 54.00 ) NO-ERROR.
       /* Size in AB:  ( 3.00 , 20.00 ) */

       RUN constructObject (
             INPUT  'd-artums.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsArtUms.Firma,Firma,ArtUms.Artnr,Artnr,ArtUms.Inhalt,Inhalt,ArtUms.Jahrg,JahrObjectNamed-artumsOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch200RebuildOnReposnoToggleDataTargetsyes':U ,
             OUTPUT h_d-artums ).
       RUN repositionObject IN h_d-artums ( 20.00 , 79.00 ) NO-ERROR.
       /* Size in AB:  ( 3.00 , 20.00 ) */

       RUN constructObject (
             INPUT  'd-aktpreis.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsAktPreis.Firma,Firma,AktPreis.Artnr,Artnr,AktPreis.Inhalt,Inhalt,AktPreis.Jahr,JahrObjectNamed-aktpreisOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch200RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-aktpreis ).
       RUN repositionObject IN h_d-aktpreis ( 25.00 , 54.00 ) NO-ERROR.
       /* Size in AB:  ( 3.00 , 20.00 ) */

       RUN constructObject (
             INPUT  'd-artkanal.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsArtKanal.Firma,Firma,ArtKanal.Artnr,Artnr,ArtKanal.Inhalt,Inhalt,ArtKanal.Jahr,JahrObjectNamed-artkanalOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch200RebuildOnReposnoToggleDataTargetsyes':U ,
             OUTPUT h_d-artkanal ).
       RUN repositionObject IN h_d-artkanal ( 25.00 , 31.00 ) NO-ERROR.
       /* Size in AB:  ( 3.00 , 20.00 ) */

       RUN constructObject (
             INPUT  'd-artlief.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsArtLief.Firma,Firma,ArtLief.Artnr,Artnr,ArtLief.Inhalt,Inhalt,ArtLief.Jahr,JahrObjectNamed-artliefOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch10RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-artlief ).
       RUN repositionObject IN h_d-artlief ( 25.00 , 79.00 ) NO-ERROR.
       /* Size in AB:  ( 3.00 , 20.00 ) */

       RUN constructObject (
             INPUT  'd-spezprei.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsSpezPrei.Firma,Firma,SpezPrei.Artnr,Artnr,SpezPrei.Inhalt,Inhalt,SpezPrei.Jahr,JahrObjectNamed-spezpreiOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch200RebuildOnReposyesToggleDataTargetsyes':U ,
             OUTPUT h_d-spezprei ).
       RUN repositionObject IN h_d-spezprei ( 25.00 , 102.00 ) NO-ERROR.
       /* Size in AB:  ( 3.00 , 20.00 ) */

       RUN constructObject (
             INPUT  'd-kunart.wDB-AWARE':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'AppServiceASInfoASUsePrompt?CacheDuration0CheckCurrentChangedyesDestroyStatelessyesDisconnectAppServernoServerOperatingModeNONEShareDatanoUpdateFromSourcenoForeignFieldsKunArt.Firma,Firma,KunArt.Artnr,Artnr,KunArt.Inhalt,Inhalt,KunArt.Jahr,JahrObjectNamed-kunartOpenOnInityesPromptColumns(NONE)PromptOnDeletenoRowsToBatch200RebuildOnReposnoToggleDataTargetsyes':U ,
             OUTPUT h_d-kunart ).
       RUN repositionObject IN h_d-kunart ( 25.29 , 128.60 ) NO-ERROR.
       /* Size in AB:  ( 2.48 , 15.20 ) */

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

       RUN constructObject (
             INPUT  'adm2/folder.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'FolderLabels':U + 'Info (1)|Artikel (2)|Preise (3)|Aktionen (4)|Lieferanten (5)|SpezPreise (6)|Kunden-Artikel (7)|Umsatz/History(8)|LotLager (9)' + 'FolderTabWidth0FolderFont-1HideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_folder ).
       RUN repositionObject IN h_folder ( 2.33 , 1.00 ) NO-ERROR.
       RUN resizeObject IN h_folder ( 29.14 , 154.80 ) NO-ERROR.

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

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

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

       /* Links to SmartDataObject h_d-artbw-artikel. */
       RUN addLink ( h_d-artst , 'Data':U , h_d-artbw-artikel ).

       /* Links to SmartDataObject h_d-artbw-bestand. */
       RUN addLink ( h_d-artst , 'Data':U , h_d-artbw-bestand ).

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

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

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

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

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

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

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

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

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

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

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_dyntoolbar ,
             Btn_Suchen:HANDLE IN FRAME fMain , 'BEFORE':U ).
       RUN adjustTabOrder ( h_folder ,
             Btn_Inhalt:HANDLE IN FRAME fMain , 'AFTER':U ).
       RUN adjustTabOrder ( h_v-artst-info ,
             h_folder , 'AFTER':U ).
       RUN adjustTabOrder ( h_b-artpreis ,
             h_v-artst-info , 'AFTER':U ).
    END. /* Page 0 */
    WHEN 1 THEN DO:
       RUN constructObject (
             INPUT  'b-artst.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-artst ).
       RUN repositionObject IN h_b-artst ( 18.05 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-artst ( 10.71 , 149.00 ) NO-ERROR.

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

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_b-artst ,
             h_d-lotlager , 'AFTER':U ).
    END. /* Page 1 */
    WHEN 2 THEN DO:
       RUN constructObject (
             INPUT  'v-artst.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_v-artst ).
       RUN repositionObject IN h_v-artst ( 7.00 , 3.00 ) NO-ERROR.
       /* Size in AB:  ( 21.81 , 151.00 ) */

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

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_v-artst ,
             h_b-artpreis , 'AFTER':U ).
    END. /* Page 2 */
    WHEN 3 THEN DO:
       RUN constructObject (
             INPUT  'b-artstaff.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-artstaff ).
       RUN repositionObject IN h_b-artstaff ( 18.00 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-artstaff ( 9.52 , 66.40 ) NO-ERROR.

       RUN constructObject (
             INPUT  'b-artkanal.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-artkanal ).
       RUN repositionObject IN h_b-artkanal ( 18.00 , 70.00 ) NO-ERROR.
       RUN resizeObject IN h_b-artkanal ( 9.43 , 81.00 ) NO-ERROR.

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

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

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_b-artstaff ,
             h_d-lotlager , 'AFTER':U ).
       RUN adjustTabOrder ( h_b-artkanal ,
             h_b-artstaff , 'AFTER':U ).
    END. /* Page 3 */
    WHEN 4 THEN DO:
       RUN constructObject (
             INPUT  'b-aktpreis.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-aktpreis ).
       RUN repositionObject IN h_b-aktpreis ( 7.00 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-aktpreis ( 7.38 , 151.00 ) NO-ERROR.

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

       RUN constructObject (
             INPUT  'f-aktion-anz.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'LogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_f-aktion-anz ).
       RUN repositionObject IN h_f-aktion-anz ( 16.00 , 94.00 ) NO-ERROR.
       /* Size in AB:  ( 9.67 , 60.00 ) */

       RUN constructObject (
             INPUT  'f-aktionen-spez.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'LogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_f-aktionen-spez ).
       RUN repositionObject IN h_f-aktionen-spez ( 18.00 , 3.00 ) NO-ERROR.
       /* Size in AB:  ( 7.62 , 67.60 ) */

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

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

       /* Links to SmartFrame h_f-aktion-anz. */
       RUN addLink ( h_d-aktpreis , 'Data':U , h_f-aktion-anz ).

       /* Links to SmartFrame h_f-aktionen-spez. */
       RUN addLink ( h_d-aktpreis , 'Data':U , h_f-aktionen-spez ).

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_b-aktpreis ,
             h_b-artpreis , 'AFTER':U ).
       RUN adjustTabOrder ( h_v-aktpreis ,
             Btn_Kanal:HANDLE IN FRAME fMain , 'AFTER':U ).
       RUN adjustTabOrder ( h_f-aktion-anz ,
             h_v-aktpreis , 'AFTER':U ).
       RUN adjustTabOrder ( h_f-aktionen-spez ,
             h_d-lotlager , 'AFTER':U ).
    END. /* Page 4 */
    WHEN 5 THEN DO:
       RUN constructObject (
             INPUT  'b-artlief.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-artlief ).
       RUN repositionObject IN h_b-artlief ( 7.00 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-artlief ( 7.38 , 151.00 ) NO-ERROR.

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

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

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

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_b-artlief ,
             h_b-artpreis , 'AFTER':U ).
       RUN adjustTabOrder ( h_v-artlief ,
             Btn_Kanal:HANDLE IN FRAME fMain , 'AFTER':U ).
    END. /* Page 5 */
    WHEN 6 THEN DO:
       RUN constructObject (
             INPUT  'b-spezprei-art.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-spezprei-art ).
       RUN repositionObject IN h_b-spezprei-art ( 7.00 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-spezprei-art ( 7.38 , 151.00 ) NO-ERROR.

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

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

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

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_b-spezprei-art ,
             h_b-artpreis , 'AFTER':U ).
       RUN adjustTabOrder ( h_v-spezprei-art ,
             Btn_Kanal:HANDLE IN FRAME fMain , 'AFTER':U ).
    END. /* Page 6 */
    WHEN 7 THEN DO:
       RUN constructObject (
             INPUT  'b-kunart-artikel.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-kunart-artikel ).
       RUN repositionObject IN h_b-kunart-artikel ( 7.00 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-kunart-artikel ( 7.38 , 81.00 ) NO-ERROR.

       RUN constructObject (
             INPUT  'v-kunart-artikel.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'EnabledObjFldsToDisable?ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNameLogicalObjectNamePhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_v-kunart-artikel ).
       RUN repositionObject IN h_v-kunart-artikel ( 15.00 , 3.00 ) NO-ERROR.
       /* Size in AB:  ( 4.52 , 105.00 ) */

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

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

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_b-kunart-artikel ,
             h_b-artpreis , 'AFTER':U ).
       RUN adjustTabOrder ( h_v-kunart-artikel ,
             Btn_Kanal:HANDLE IN FRAME fMain , 'AFTER':U ).
    END. /* Page 7 */
    WHEN 8 THEN DO:
       RUN constructObject (
             INPUT  'b-artbw-artikel.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-artbw-artikel ).
       RUN repositionObject IN h_b-artbw-artikel ( 7.00 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-artbw-artikel ( 13.52 , 151.60 ) NO-ERROR.

       RUN constructObject (
             INPUT  'v-artbw-bestand.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'EnabledObjFldsToDisable(None)ModifyFields(All)DataSourceNamesUpdateTargetNamesLogicalObjectNamev-artbw-bestandLogicalObjectNamev-artbw-bestandPhysicalObjectNameDynamicObjectnoRunAttributeHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_v-artbw-bestand ).
       RUN repositionObject IN h_v-artbw-bestand ( 7.00 , 3.00 ) NO-ERROR.
       /* Size in AB:  ( 15.67 , 152.00 ) */

       RUN constructObject (
             INPUT  'b-artums-kum.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-artums-kum ).
       RUN repositionObject IN h_b-artums-kum ( 23.00 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-artums-kum ( 7.38 , 95.00 ) NO-ERROR.

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

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

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

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_v-artbw-bestand ,
             h_b-artpreis , 'AFTER':U ).
       RUN adjustTabOrder ( h_b-artbw-artikel ,
             h_v-artbw-bestand , 'AFTER':U ).
       RUN adjustTabOrder ( h_b-artums-kum ,
             h_d-artbw-bestand , 'AFTER':U ).
    END. /* Page 8 */
    WHEN 9 THEN DO:
       RUN constructObject (
             INPUT  'b-lotlager.w':U ,
             INPUT  FRAME fMain:HANDLE ,
             INPUT  'ScrollRemotenoNumDown0CalcWidthnoMaxWidth80FetchOnReposToEndyesUseSortIndicatoryesSearchFieldDataSourceNames?UpdateTargetNames?LogicalObjectNameHideOnInitnoDisableOnInitnoObjectLayout':U ,
             OUTPUT h_b-lotlager ).
       RUN repositionObject IN h_b-lotlager ( 7.00 , 3.00 ) NO-ERROR.
       RUN resizeObject IN h_b-lotlager ( 7.38 , 151.00 ) NO-ERROR.

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

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

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

       /* Adjust the tab order of the smart objects. */
       RUN adjustTabOrder ( h_b-lotlager ,
             h_b-artpreis , 'AFTER':U ).
       RUN adjustTabOrder ( h_v-lotlager ,
             Btn_Kanal:HANDLE IN FRAME fMain , 'AFTER':U ).
    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 w-Artst 
PROCEDURE changePage :
/*------------------------------------------------------------------------------
          Purpose:     Super Override
          Parameters:  
          Notes:       
        ------------------------------------------------------------------------------*/

    DEF VAR iRecid   AS RECID NO-UNDO.
    DEF VAR lVerfall AS LOG   NO-UNDO.
    DEF VAR lLotnr   AS LOG   NO-UNDO.
    
    DEF BUFFER bArtst FOR Artst.

    IF iSelPage = 8 THEN RUN SET_READY IN h_v-artbw-bestand ( FALSE ) NO-ERROR.

    RUN SUPER.

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

    DO WITH FRAME {&FRAME-NAME}:

        CASE AktSeite:

            WHEN 1 THEN 
                DO:
                    RUN viewObject   IN h_b-artpreis NO-ERROR.
                    RUN SET_OPENFLAG IN h_d-artpreis ( TRUE ).
                END.
            WHEN 2 THEN 
                DO:
                    RUN addLink ( h_dyntoolbar , 'TableIO':U    , h_v-artst     ).
                    RUN REPOS_TABELLE IN h_d-artst NO-ERROR.
                END.
            WHEN 3 THEN 
                DO:
                    Btn_Preise:HIDDEN = FALSE.
                    Btn_Staff :HIDDEN = FALSE.
                    Btn_Kanal :HIDDEN = FALSE.
                    RUN viewObject IN h_b-artpreis NO-ERROR.
                    RUN SET_OPENFLAG IN h_d-artpreis ( TRUE ).
                END.
            WHEN 4 THEN 
                DO:
                    R_Aktionen:HIDDEN    = FALSE.
                    R_Aktionen:SENSITIVE = TRUE.
                    ASSIGN R_Aktionen.
                    IF R_Aktionen = 1 THEN 
                    DO:
                        RUN hideObject IN h_f-aktionen-spez.
                        RUN viewObject IN h_v-aktpreis.
                        RUN addLink ( h_dyntoolbar, 'TableIO':U, h_v-aktpreis).
                    END.
                    IF R_Aktionen = 2 THEN 
                    DO:
                        RUN hideObject IN h_v-aktpreis.
                        RUN viewObject IN h_f-aktionen-spez.
                    END.
                    RUN SETADDBUTTON IN h_f-aktion-anz ( INPUT R_Aktionen ).
                END.
            WHEN 5 THEN 
                DO:
                    RUN addLink ( h_dyntoolbar , 'TableIO':U    , h_v-artlief     ).
                END.
            WHEN 6 THEN 
                DO:
                    RUN addLink ( h_dyntoolbar , 'TableIO':U    , h_v-spezprei-art).
                END.
            WHEN 7 THEN 
                DO:
                    RUN addLink ( h_dyntoolbar , 'TableIO':U    , h_v-kunart-artikel ).
                END.
            WHEN 8 THEN 
                DO:
                    R_Bewegungen:HIDDEN    = FALSE.
                    R_Bewegungen:SENSITIVE = TRUE.
                    ASSIGN R_Bewegungen.
                    IF lFirstPage8 THEN 
                    DO:
                        RUN viewObject IN h_b-artbw-artikel.
                        RUN hideObject IN h_v-artbw-bestand.
                        lFirstPage8 = FALSE.
                        RUN SET_READY IN h_v-artbw-bestand ( TRUE ) NO-ERROR.
                    END.
                    IF R_Bewegungen = 1 THEN 
                    DO:
                        RUN hideObject IN h_v-artbw-bestand.
                        RUN viewObject IN h_b-artbw-artikel.
                    END.
                    IF R_Bewegungen = 2 THEN 
                    DO:
                        RUN hideObject IN h_b-artbw-artikel.
                        RUN SET_READY  IN h_v-artbw-bestand ( TRUE ) NO-ERROR.
                        RUN viewObject IN h_v-artbw-bestand.
                    END.
                END.
            WHEN 9 THEN 
                DO:
                    RUN viewObject   IN h_d-lotlager NO-ERROR.
                    RUN SET_OPENFLAG IN h_d-lotlager ( TRUE ).
                    iRecid = DYNAMIC-FUNCTION('getCurrentRecid':U IN h_d-artst ) NO-ERROR.
                    lVerfall = FALSE.
                    lLotnr   = FALSE.
                    RELEASE bArtst.
                    IF  iRecid <> 0 AND
                        iRecid <> ? THEN 
                    DO:
                        FIND bArtst NO-LOCK WHERE RECID(bArtst) = iRecid NO-ERROR. 
                        ASSIGN  
                            lVerfall = bArtst.lVerfall
                            lLotnr   = bArtst.lLotnr.
                        RELEASE bArtst.
                    END.
                    IF  lVerfall  OR
                        lLotnr    THEN RUN addLink ( h_dyntoolbar , 'TableIO':U , h_v-lotlager    ).
                END.

        END CASE.
    
    END.

    RUN ENTRY_CURSOR.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE CHANGE_ARTNR w-Artst 
PROCEDURE CHANGE_ARTNR :
/*------------------------------------------------------------------------------*/
    /*   Purpose:                                                                   */
    /*   Notes:                                                                     */
    /*------------------------------------------------------------------------------*/

    DEFINE INPUT PARAMETER ipiArtnr     AS INTEGER NO-UNDO.
    DEFINE INPUT PARAMETER ipiInhalt    AS INTEGER NO-UNDO.
    DEFINE INPUT PARAMETER ipiJahr      AS INTEGER NO-UNDO.

    DEFINE BUFFER bArtst FOR Artst.

    IF ipiArtnr = 0 THEN RETURN NO-APPLY.

    FIND bArtst NO-LOCK 
        WHERE bArtst.Firma  = Firma
        AND   bArtst.Artnr  = ipiArtnr
        AND   bArtst.Inhalt = ipiInhalt
        AND   bArtst.Jahr   = ipiJahr NO-ERROR.
    IF NOT AVAILABLE bArtst THEN 
    DO:
        FIND LAST bArtst NO-LOCK 
            WHERE bArtst.Firma  = Firma
            AND   bArtst.Artnr  = ipiArtnr
            AND   bArtst.Inhalt = ipiInhalt NO-ERROR.
    END.
    IF NOT AVAILABLE bArtst THEN RETURN NO-APPLY.
    DYNAMIC-FUNCTION ('fetchRowIdent':U IN h_d-artst, STRING(ROWID(bArtst)), ? ).

    RUN refreshRow IN h_d-artst.
    
    RELEASE bArtst.
    RETURN NO-APPLY.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE destroyObject w-Artst 
PROCEDURE destroyObject :
/*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/


    IF VALID-HANDLE ( hInhaltsstoffe ) THEN RUN ENDE IN hInhaltsstoffe.

    RUN SUPER.

/* Code placed here will execute AFTER standard behavior.    */

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI w-Artst  _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(w-Artst)
  THEN DELETE WIDGET w-Artst.
  IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

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

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

    lOldInaktiv = DYNAMIC-FUNCTION('getAnzeigeArtikelInaktiv':U) NO-ERROR.
    IF lOldInaktiv = ? THEN lOldInaktiv = FALSE.
    lNewInaktiv = DYNAMIC-FUNCTION('getAnzeigeArtikelInaktiv':U) NO-ERROR.
    IF lNewInaktiv = ? THEN lNewInaktiv = FALSE.
    
    R_Bewegungen = 1.

    { incl/winenableobject.i }

    RUN SUPER.

    DO WITH FRAME {&FRAME-NAME}:
        Btn_Preise  :HIDDEN = TRUE.
        Btn_Staff   :HIDDEN = TRUE.
        Btn_Kanal   :HIDDEN = TRUE.
        R_Aktionen  :HIDDEN = TRUE.
        R_Bewegungen:HIDDEN = TRUE.
    END.
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI w-Artst  _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 R_Bewegungen R_Aktionen 
      WITH FRAME fMain IN WINDOW w-Artst.
  ENABLE Btn_Suchen Btn_Inhalt Btn_Preise Btn_Staff Btn_Kanal R_Bewegungen 
      WITH FRAME fMain IN WINDOW w-Artst.
  {&OPEN-BROWSERS-IN-QUERY-fMain}
  VIEW w-Artst.
END PROCEDURE.

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

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

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

    IF AktSeite = 1 THEN 
    DO:
        FOR EACH WProgramme:
            IF NOT VALID-HANDLE (WProgramme.ProgHand) THEN 
            DO:
                DELETE  WProgramme.
                NEXT.
            END.
            RUN ENDE IN WProgramme.ProgHand NO-ERROR.
        END.
        FOR EACH WProgramme:
            IF NOT VALID-HANDLE (WProgramme.ProgHand) THEN 
            DO:
                DELETE  WProgramme.
                NEXT.
            END.
            RUN MELDUNG ( INPUT 1024 ).
            RETURN NO-APPLY.
        END.
    END.

    { incl/winende.i }

END PROCEDURE.

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

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

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

    CASE AktSeite:
        /*         WHEN 1 THEN DO:                                                  */
        /*             IF FMutFlag THEN RUN applyEntry IN h_v-         ( INPUT ? ). */
        /*             ELSE             RUN applyEntry IN h_b-         ( INPUT ? ). */
        /*         END.                                                             */
        WHEN 1 THEN RUN applyEntry IN h_b-artst    ( INPUT ? ).
        WHEN 2 THEN RUN applyEntry IN h_v-artst    ( INPUT 'Artnr' ).
        WHEN 3 THEN RUN applyEntry IN h_b-artpreis ( INPUT ? ).
        WHEN 4 THEN 
            DO:
                IF R_Aktionen = 1 THEN 
                DO:
                    IF FMutFlag THEN RUN applyEntry IN h_v-aktpreis ( INPUT ? ).
                    ELSE             RUN applyEntry IN h_b-aktpreis ( INPUT ? ).
                END.
                IF R_Aktionen = 2 THEN 
                DO:
                    RUN applyEntry IN h_f-aktionen-spez ( INPUT ? ).
                END.
            END.
        WHEN 5 THEN 
            DO:
                IF FMutFlag THEN RUN applyEntry IN h_v-artlief  ( INPUT ? ).
                ELSE             RUN applyEntry IN h_b-artlief  ( INPUT ? ).
            END.
        WHEN 6 THEN 
            DO:
                IF FMutFlag THEN RUN applyEntry IN h_v-spezprei-art ( INPUT ? ).
                ELSE             RUN applyEntry IN h_b-spezprei-art ( INPUT ? ).
            END.
        WHEN 7 THEN 
            DO:
                IF FMutFlag THEN RUN applyEntry IN h_v-kunart-artikel ( INPUT ? ).
                ELSE             RUN applyEntry IN h_b-kunart-artikel ( INPUT ? ).
            END.
        WHEN 8 THEN 
            DO:
                IF R_Bewegungen = 1 THEN RUN applyEntry IN h_b-artbw-artikel ( INPUT ? ).
            /*
            IF R_Bewegungen = 2 THEN RUN applyEntry IN h_v-artbw-bestand ( INPUT ? ).
            */
            END.
        WHEN 9 THEN 
            DO:
                IF FMutFlag THEN RUN applyEntry IN h_v-lotlager       ( INPUT ? ).
                ELSE             RUN applyEntry IN h_b-lotlager       ( INPUT ? ).
            END.
    END CASE.

    RETURN NO-APPLY.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE exitObject w-Artst 
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 FINDEN w-Artst 
PROCEDURE FINDEN :
/*------------------------------------------------------------------------------
              Purpose:     
              Parameters:  <none>
              Notes:       
            ------------------------------------------------------------------------------*/

    DEFINE VARIABLE iRecid AS RECID NO-UNDO.
    
    FMutFlag = DYNAMIC-FUNCTION('getMutflag':U, Progname) NO-ERROR.
    IF FMutFlag THEN RETURN NO-APPLY.

    RUN g-suchen-artikel.w ( '', OUTPUT iRecid) NO-ERROR.
    IF iRecid = ?   OR
        iRecid = 0   THEN RETURN NO-APPLY.
       
    lNewInaktiv = DYNAMIC-FUNCTION('getAnzeigeArtikelInaktiv':U) NO-ERROR.
    FIND Artst NO-LOCK WHERE RECID(Artst) = iRecid NO-ERROR.
    IF lNewInaktiv <> lOldInaktiv THEN DYNAMIC-FUNCTION('openQuery':U IN h_d-artst) NO-ERROR.
    lOldInaktiv = lNewInaktiv.
    
    DYNAMIC-FUNCTION('fetchRowIdent':U IN h_d-artst, STRING(ROWID(Artst)), ?) NO-ERROR.
    DYNAMIC-FUNCTION('putArtstToSuperproc':U IN h_d-artst ).

    APPLY 'U1'.
    RETURN NO-APPLY.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE FINDEN_NUMMER w-Artst 
PROCEDURE FINDEN_NUMMER :
/*------------------------------------------------------------------------------
              Purpose:     
              Parameters:  <none>
              Notes:       
            ------------------------------------------------------------------------------*/

    DEFINE VARIABLE iRecid AS RECID     NO-UNDO.
    DEFINE VARIABLE cRowId AS CHARACTER NO-UNDO.

    FMutFlag = DYNAMIC-FUNCTION('getMutflag':U, ProgName ) NO-ERROR.
    IF FMutFlag THEN RETURN NO-APPLY.
    
    RUN g-artikelnr.w (OUTPUT iRecid) NO-ERROR.
    IF iRecid = ?  THEN RETURN NO-APPLY.
    IF iRecid = 0  THEN RETURN NO-APPLY.
    FIND Artst NO-LOCK WHERE RECID(Artst) = iRecid.
    cRowId = STRING(ROWID(Artst)).
    DYNAMIC-FUNCTION('fetchRowIdent':U IN h_d-artst, cRowid, ?) NO-ERROR.
    RUN refreshRow IN h_d-artst.
    DYNAMIC-FUNCTION('putArtstToSuperproc':U IN h_d-artst ).
    
    APPLY 'U1'.
    RETURN NO-APPLY.

END PROCEDURE.

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

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

    RUN SUPER.
    
    { incl/wininitializeobject.i }

    RUN selectPage ( 3 ).
    RUN selectPage ( 1 ).

    RUN viewObject IN h_b-artpreis NO-ERROR.
    
    RUN SET_OPENFLAG IN h_d-artst    ( TRUE ).
    RUN SET_OPENFLAG IN h_d-artpreis ( TRUE ).

END PROCEDURE.

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

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

    { incl/winseitenwechsel.i }

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE selectPage w-Artst 
PROCEDURE selectPage :
/*------------------------------------------------------------------------------
              Purpose:     Super Override
              Parameters:  
              Notes:       
            ------------------------------------------------------------------------------*/

    DEFINE INPUT PARAMETER piPageNum   AS INTEGER                      NO-UNDO.

    DEFINE VARIABLE FMutFlag AS LOG       NO-UNDO.
    DEFINE VARIABLE MutProg  AS CHARACTER NO-UNDO.

    FMutFlag = DYNAMIC-FUNCTION ('getMutflag':U, INPUT Progname) NO-ERROR.
    IF FMutFlag THEN RETURN NO-APPLY.
    
    FOR EACH WProgramme:
        IF NOT VALID-HANDLE (WProgramme.ProgHand) THEN NEXT.
        MutProg = ENTRY(1, WProgramme.ProgName, '.').
        FMutFlag = DYNAMIC-FUNCTION ('getMutflag':U, INPUT MutProg) NO-ERROR.
        IF FMutFlag THEN RETURN NO-APPLY.
    END.
    
    iSelPage = piPageNum.

    CASE piPageNum:

    END CASE.

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR.
    
    IF AktSeite = piPageNum THEN 
    DO:
        RUN ENTRY_CURSOR.
        RETURN NO-APPLY.
    END.

    DO WITH FRAME {&FRAME-NAME}:

        CASE AktSeite:

            /*         WHEN 1 THEN DO: */
            /*             RUN removeLink ( hAktionen , 'TableIO':U    , h_v-auftr       ). */
            /*             RUN removeLink ( hAktionen , 'Navigation':U , h_d-auftr       ). */
            /*         END. */
            WHEN 1 THEN 
                DO:
                    RUN SET_OPENFLAG IN h_d-artpreis ( FALSE ).
                    RUN hideObject IN h_b-artpreis.
                END.
            WHEN 2 THEN 
                DO:
                    RUN removeLink ( h_dyntoolbar , 'TableIO':U    , h_v-artst       ).
                END.
            WHEN 3 THEN 
                DO:
                    Btn_Preise:HIDDEN = TRUE.
                    Btn_Staff :HIDDEN = TRUE.
                    Btn_Kanal :HIDDEN = TRUE.
                    RUN SET_OPENFLAG IN h_d-artpreis ( FALSE ).
                    RUN hideObject IN h_b-artpreis.
                END.
            WHEN 4 THEN 
                DO:
                    ASSIGN R_Aktionen.
                    R_Aktionen:SENSITIVE = FALSE.
                    R_Aktionen:HIDDEN    = TRUE.
                    IF R_Aktionen = 1 THEN 
                    DO:
                        RUN removeLink ( h_dyntoolbar, 'TableIO':U, h_v-aktpreis).
                        RUN hideObject IN h_v-aktpreis.
                    END.
                    IF R_Aktionen = 2 THEN 
                    DO:
                        RUN hideObject IN h_f-aktionen-spez.
                    END.
                END.
            WHEN 5 THEN 
                DO:
                    RUN removeLink ( h_dyntoolbar , 'TableIO':U    , h_v-artlief     ).
                END.
            WHEN 6 THEN 
                DO:
                    RUN removeLink ( h_dyntoolbar , 'TableIO':U    , h_v-spezprei-art).
                END.
            WHEN 7 THEN 
                DO:
                    RUN removeLink ( h_dyntoolbar , 'TableIO':U    , h_v-kunart-artikel ).
                END.
            WHEN 8 THEN 
                DO:
                    ASSIGN R_Bewegungen.
                    R_Bewegungen:SENSITIVE = FALSE.
                    R_Bewegungen:HIDDEN    = TRUE.
                    
                    IF R_Bewegungen = 2 THEN 
                    DO:
                        RUN SET_READY  IN h_v-artbw-bestand ( FALSE ) NO-ERROR.
                    END.
                END.
            WHEN 9 THEN 
                DO:
                    RUN SET_OPENFLAG IN h_d-lotlager ( FALSE ).
                    RUN hideObject   IN h_d-lotlager.
                    RUN removeLink ( h_dyntoolbar , 'TableIO':U , h_v-lotlager).
                END.

        END CASE.

    END.

    RUN SUPER( INPUT piPageNum).

END PROCEDURE.

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

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

    { incl/wintoolbar.i }

END PROCEDURE.

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

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

    RUN SUPER.

    RUN ENTRY_CURSOR.

END PROCEDURE.

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

/* ************************  Function Implementations ***************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getProgname w-Artst 
FUNCTION getProgname RETURNS CHARACTER
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    RETURN Progname.

END FUNCTION.

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