&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: Output Parameters: 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: ------------------------------------------------------------------------------*/ 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: 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: 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: 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: 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: 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: 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: 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: 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