GeMIS_WEB/GUI/v-artst.w

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DECLARATIONS vTableWin 

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


{adecomm/appserv.i}


/* Temp-Table and Buffer definitions                                    */
DEFINE TEMP-TABLE RowObject NO-UNDO
{"d-artst.i"}.
DEFINE TEMP-TABLE tArtLager NO-UNDO LIKE ArtLager.



&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS vTableWin 
/*------------------------------------------------------------------------

  File:

  Description: from viewer.w - Template for SmartDataViewer objects

  Input Parameters:
      <none>

  Output Parameters:
      <none>

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

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

CREATE WIDGET-POOL.

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

/*  Komma-Trennzeichen                                                  */
/*  Keyfelder werden beim Mutieren nicht "Enabled"                      */

&Scoped-define ERSTES_FELD  Artnr
&Scoped-define LETZTES_FELD Min_Marge
&Scoped-define KEY_FELDER   Artnr,Inhalt,Jahr
&Scoped-define NUR_LESEN    rowObject.DEP,rowObject.LEP
&Scoped-define tArtLagerRO  tArtLager.Bestand,tArtLager.Bestellt,tArtLager.Reserviert
&Scoped-define tArtLagerEN  tArtLager.Mind_Bestand,tArtLager.Soll_Bestand,tArtLager.Meld_Bestand,tArtLager.Ort

{ incl/viwdefinition.i }

DEFINE VARIABLE VSprcd    AS INTEGER NO-UNDO.
DEFINE VARIABLE Artnr     AS INTEGER NO-UNDO.
DEFINE VARIABLE Inhalt    AS INTEGER NO-UNDO.
DEFINE VARIABLE Jahr      AS INTEGER NO-UNDO.
DEFINE VARIABLE FMarge    AS LOG     NO-UNDO.

DEFINE VARIABLE CpArtnr   AS INTEGER NO-UNDO.
DEFINE VARIABLE CpInhalt  AS INTEGER NO-UNDO.
DEFINE VARIABLE CpJahr    AS INTEGER NO-UNDO.
DEFINE VARIABLE F_Preis   AS LOG     NO-UNDO INIT TRUE.
DEFINE VARIABLE F_Staff   AS LOG     NO-UNDO INIT TRUE.
DEFINE VARIABLE F_Spez    AS LOG     NO-UNDO INIT TRUE.
DEFINE VARIABLE F_LagOrt  AS LOG     NO-UNDO INIT TRUE.
DEFINE VARIABLE F_SeineNr AS LOG     NO-UNDO INIT TRUE.
DEFINE VARIABLE F_EAN     AS LOG     NO-UNDO INIT TRUE.
DEFINE VARIABLE F_OK      AS LOG     NO-UNDO.
DEFINE VARIABLE hwBild    AS HANDLE  NO-UNDO.

DEFINE VARIABLE hEWK      AS HANDLE  NO-UNDO.
DEFINE VARIABLE hEAV      AS HANDLE  NO-UNDO.
DEFINE VARIABLE iLager    AS INTEGER NO-UNDO.
DEFINE VARIABLE lArtLager AS LOG     INIT TRUE NO-UNDO.

DEFINE WORKFILE WArtBez        LIKE ArtBez.

DEFINE TEMP-TABLE tArtPreis LIKE ArtPreis.
DEFINE TEMP-TABLE tArtLief LIKE ArtLief .
DEFINE TEMP-TABLE tArtStaff LIKE ArtStaff.
DEFINE TEMP-TABLE tSpezPrei LIKE SpezPrei.

DEFINE TEMP-TABLE tLager NO-UNDO
    FIELD Lager AS INTEGER
    FIELD Bez   AS CHARACTER.
    
DEFINE BUFFER btArtLager FOR tArtlager.

{src/adm2/widgetprto.i}

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

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

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

&Scoped-define ADM-CONTAINER FRAME

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

/* Include file with RowObject temp-table definition */
&Scoped-define DATA-FIELD-DEFS "d-artst.i"

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

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-FIELDS RowObject.Artnr RowObject.Inhalt ~
RowObject.Jahr RowObject.Suchbe RowObject.EShop RowObject.EShop_2 ~
RowObject.lVerfall RowObject.lLotnr RowObject.Alk_Gehalt RowObject.Gewicht ~
RowObject.WHK_Code RowObject.EAV_Code RowObject.Strichcode RowObject.Konto ~
RowObject.Listen_EP RowObject.EP-Intern RowObject.Min_Marge RowObject.DEP ~
RowObject.LEP 
&Scoped-define ENABLED-TABLES RowObject
&Scoped-define FIRST-ENABLED-TABLE RowObject
&Scoped-Define ENABLED-OBJECTS F_Bez1 F_Bez2 T_Bez2_Druck CB_KGebinde ~
CB_VGebinde CB_GGebinde CB_Wgr CB_Pgr CB_Agr CB_Rabgrp CB_Bongrp CB_Farbe ~
CB_Traube CB_Region CB_HerkLand CB_Hersteller CB_Style CB_MWST CB_Status ~
CB_Netto CB_Lagerhaltung CB_SkBer CB_Preisliste CB_LeihArt CB_Lager ~
Btn_Bild T_Zusatz RECT-2 RECT-1 
&Scoped-Define DISPLAYED-FIELDS RowObject.ArtikelBild RowObject.Artnr ~
RowObject.Inhalt RowObject.Jahr RowObject.Suchbe RowObject.EShop ~
RowObject.EShop_2 RowObject.Sk_Ber RowObject.lVerfall RowObject.lLotnr ~
RowObject.MWSt RowObject.VGeb_Cd RowObject.Alk_Gehalt RowObject.Gewicht ~
RowObject.WHK_Code RowObject.Aktiv RowObject.EAV_Code RowObject.Strichcode ~
RowObject.Konto RowObject.Listen_EP RowObject.EP-Intern RowObject.Min_Marge ~
RowObject.Firma RowObject.Style RowObject.Bonus_Grp RowObject.Rab_Grp ~
RowObject.GGeb_Cd RowObject.Herk_Lkz RowObject.Netto RowObject.Traub_Grp ~
RowObject.Preisliste RowObject.Leih_Art RowObject.Lager RowObject.Reg_Grp ~
RowObject.Farbe RowObject.KGeb_Cd RowObject.Ausverk RowObject.MutFlag ~
RowObject.Wg_Grp RowObject.Bez RowObject.Prod_Grp RowObject.Art_Grp ~
RowObject.Herst RowObject.DEP RowObject.LEP RowObject.Letzt_Eing ~
RowObject.ErfDat RowObject.ErfSB RowObject.MutDat RowObject.MutSB ~
RowObject.Letzt_Ausg 
&Scoped-define DISPLAYED-TABLES RowObject
&Scoped-define FIRST-DISPLAYED-TABLE RowObject
&Scoped-Define DISPLAYED-OBJECTS F_Bez1 F_Bez2 T_Bez2_Druck CB_KGebinde ~
CB_VGebinde CB_GGebinde CB_Wgr CB_Pgr CB_Agr CB_Rabgrp CB_Bongrp CB_Farbe ~
CB_Traube CB_Region CB_HerkLand CB_Hersteller CB_Style CB_MWST CB_Status ~
CB_Netto CB_Lagerhaltung CB_SkBer CB_Preisliste CB_LeihArt CB_Lager ~
T_Zusatz 

/* Custom List Definitions                                              */
/* ADM-ASSIGN-FIELDS,List-2,List-3,List-4,List-5,List-6                 */
&Scoped-define List-4 tArtLager.Mind_Bestand tArtLager.Soll_Bestand ~
tArtLager.Ort tArtLager.Bestand tArtLager.Bestellt tArtLager.Reserviert ~
tArtLager.Meld_Bestand 
&Scoped-define List-5 CB_KGebinde CB_VGebinde CB_GGebinde CB_Wgr CB_Pgr ~
CB_Agr CB_Rabgrp CB_Bongrp CB_Farbe CB_Traube CB_Region CB_HerkLand ~
CB_Hersteller CB_Style CB_MWST CB_Status CB_Netto CB_Lagerhaltung CB_SkBer ~
CB_Preisliste CB_LeihArt 
&Scoped-define List-6 F_Bez1 F_Bez2 T_Bez2_Druck T_Zusatz 

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getAktuellesLager vTableWin 
FUNCTION getAktuellesLager RETURNS LOGICAL
    ( /* parameter-definitions */ )  FORWARD.

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


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


/* Menu Definitions                                                     */
DEFINE MENU POPUP-MENU-CB_Agr 
    MENU-ITEM m_Sort-Agr     LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Bongrp 
    MENU-ITEM m_Sort-Bongrp  LABEL "Sortiert"      
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Farbe 
    MENU-ITEM m_Sort-Farbe   LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_GGebinde 
    MENU-ITEM m_Sort-GGebinde LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_KGebinde 
    MENU-ITEM m_Sort-KGebinde LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Pgr 
    MENU-ITEM m_Sort-Pgr     LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Rabgrp 
    MENU-ITEM m_Sort-Rabgrp  LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Region 
    MENU-ITEM m_Sort-Region  LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Traube 
    MENU-ITEM m_Sort-Traube  LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_VGebinde 
    MENU-ITEM m_Sort-VGebinde LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-CB_Wgr 
    MENU-ITEM m_Sort-Wgr     LABEL "Sortiert ?"    
        TOGGLE-BOX.

DEFINE MENU POPUP-MENU-EAV_Code 
    MENU-ITEM m_Zuteilung_Code_fr_Alkoholve LABEL "Zuteilung Code für Alkoholverwaltung".

DEFINE MENU POPUP-MENU-F-Main 
    MENU-ITEM X_ETIKETTE     LABEL "Verpackungs-Etikette"
    MENU-ITEM X_EAN-ETIKETTE LABEL "EAN-Code Etikette".

DEFINE MENU POPUP-MENU-WHK_Code 
    MENU-ITEM m_Zuteilung_Weinhandelscode LABEL "Zuteilung Weinhandelscode".


/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Bild 
    LABEL "Bild" 
    SIZE 15 BY 1.

DEFINE VARIABLE CB_Agr          AS CHARACTER FORMAT "X(256)" 
    LABEL "Artikelgruppe" 
    VIEW-AS COMBO-BOX SORT INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 33 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Bongrp       AS CHARACTER FORMAT "X(256)" 
    LABEL "Bonusgruppe" 
    VIEW-AS COMBO-BOX SORT INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 33 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Farbe        AS CHARACTER FORMAT "X(256)" 
    LABEL "Farbe" 
    VIEW-AS COMBO-BOX SORT INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 33 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_GGebinde     AS CHARACTER FORMAT "X(256)" 
    LABEL "Grossgebinde" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 33 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_HerkLand     AS CHARACTER FORMAT "X(256)" 
    LABEL "Herkunftsland" 
    VIEW-AS COMBO-BOX SORT INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 33 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Hersteller   AS CHARACTER FORMAT "X(256)" 
    LABEL "Hersteller" 
    VIEW-AS COMBO-BOX SORT INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 33 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_KGebinde     AS CHARACTER FORMAT "X(256)" 
    LABEL "Kleingebinde" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 33 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Lager        AS CHARACTER FORMAT "X(256)":U 
    LABEL "Lager" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 30 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Lagerhaltung AS CHARACTER FORMAT "X(256)" 
    LABEL "Lager" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Ja","J",
    "Nein","N"
    DROP-DOWN-LIST
    SIZE 10 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_LeihArt      AS CHARACTER FORMAT "X(256)" 
    LABEL "Leihartikel" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Ja","J",
    "Nein","N"
    DROP-DOWN-LIST
    SIZE 10 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_MWST         AS CHARACTER FORMAT "X(256)" 
    LABEL "Mehrwertst." 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 37 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Netto        AS CHARACTER FORMAT "X(256)" 
    LABEL "Netto" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Ja","J",
    "Nein","N"
    DROP-DOWN-LIST
    SIZE 10 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Pgr          AS CHARACTER FORMAT "X(256)" 
    LABEL "Produktegruppe" 
    VIEW-AS COMBO-BOX SORT INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 33 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Preisliste   AS CHARACTER FORMAT "X(256)" 
    LABEL "Preisliste" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Ja","J",
    "Nein","N"
    DROP-DOWN-LIST
    SIZE 10 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Rabgrp       AS CHARACTER FORMAT "X(256)" 
    LABEL "Rabattgruppe" 
    VIEW-AS COMBO-BOX SORT INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 33 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Region       AS CHARACTER FORMAT "X(256)" 
    LABEL "Region" 
    VIEW-AS COMBO-BOX SORT INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 33 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_SkBer        AS CHARACTER FORMAT "X(256)" 
    LABEL "Skontober." 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Ja","J",
    "Nein","N"
    DROP-DOWN-LIST
    SIZE 10 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Status       AS CHARACTER FORMAT "X(256)" 
    LABEL "Status" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Normaler Artikel (auf Vorrat)","000000",
    "Normaler Artikel","000001",
    "Restposten","000002",
    "Beschaffungsartikel","000008",
    "Ausverkauft","000009"
    DROP-DOWN-LIST
    SIZE 37 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Style        AS CHARACTER FORMAT "X(256)" 
    LABEL "Style" 
    VIEW-AS COMBO-BOX SORT INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 33 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Traube       AS CHARACTER FORMAT "X(256)" 
    LABEL "Traube" 
    VIEW-AS COMBO-BOX SORT INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 33 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_VGebinde     AS CHARACTER FORMAT "X(256)" 
    LABEL "Verkaufsgebinde" 
    VIEW-AS COMBO-BOX INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 33 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE CB_Wgr          AS CHARACTER FORMAT "X(256)" 
    LABEL "Warengruppe" 
    VIEW-AS COMBO-BOX SORT INNER-LINES 5
    LIST-ITEM-PAIRS "Item 1","Item 1"
    DROP-DOWN-LIST
    SIZE 33 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE F_Zustext       AS CHARACTER 
    VIEW-AS EDITOR NO-WORD-WRAP MAX-CHARS 5000 LARGE
    SIZE 24 BY 1.43.

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

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

DEFINE RECTANGLE RECT-1
    EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
    SIZE 150 BY 18.57.

DEFINE RECTANGLE RECT-2
    EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
    SIZE 150 BY 2.62.

DEFINE VARIABLE T_Bez2_Druck AS LOGICAL INITIAL YES 
    LABEL "2. Zeile drucken ?" 
    VIEW-AS TOGGLE-BOX
    SIZE 22 BY 1 NO-UNDO.

DEFINE VARIABLE T_Zusatz     AS LOGICAL INITIAL NO 
    LABEL "Zusatztext ?" 
    VIEW-AS TOGGLE-BOX
    SIZE 17 BY 1 NO-UNDO.


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

DEFINE FRAME F-Main
    RowObject.ArtikelBild AT ROW 2.52 COL 78 COLON-ALIGNED WIDGET-ID 284
    LABEL "ArtikelBild" FORMAT "x(60)"
    VIEW-AS FILL-IN NATIVE 
    SIZE 4 BY 1
    BGCOLOR 15  NO-TAB-STOP 
    RowObject.Artnr AT ROW 1.52 COL 18 COLON-ALIGNED WIDGET-ID 124
    LABEL "Artnr/Inhalt/Jahr" FORMAT "999999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 11 BY 1
    BGCOLOR 15 
    RowObject.Inhalt AT ROW 1.52 COL 29 COLON-ALIGNED NO-LABEL WIDGET-ID 154 FORMAT "zzzz"
    VIEW-AS FILL-IN NATIVE 
    SIZE 8 BY 1
    BGCOLOR 15 
    RowObject.Jahr AT ROW 1.52 COL 37 COLON-ALIGNED NO-LABEL WIDGET-ID 156 FORMAT "zzzz"
    VIEW-AS FILL-IN NATIVE 
    SIZE 8 BY 1
    BGCOLOR 15 
    RowObject.Suchbe AT ROW 1.52 COL 68 COLON-ALIGNED WIDGET-ID 180
    LABEL "Suchbe" FORMAT "x(15)"
    VIEW-AS FILL-IN NATIVE 
    SIZE 20 BY 1
    BGCOLOR 15 
    F_Bez1 AT ROW 2.52 COL 68 COLON-ALIGNED WIDGET-ID 142
    F_Bez2 AT ROW 3.52 COL 68 COLON-ALIGNED NO-LABEL WIDGET-ID 144
    T_Bez2_Druck AT ROW 4.52 COL 70 WIDGET-ID 184
    RowObject.EShop AT ROW 1.52 COL 125 WIDGET-ID 136
    LABEL "EShop"
    VIEW-AS TOGGLE-BOX
    SIZE 22 BY 1
    RowObject.EShop_2 AT ROW 2.52 COL 125 WIDGET-ID 278
    LABEL "EShop 2"
    VIEW-AS TOGGLE-BOX
    SIZE 22.4 BY 1
    RowObject.Sk_Ber AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 178
    LABEL "Sk_Ber"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.lVerfall AT ROW 3.52 COL 125 WIDGET-ID 288
    LABEL "Verfalldatum (MHD)"
    VIEW-AS TOGGLE-BOX
    SIZE 24.4 BY 1
    RowObject.lLotnr AT ROW 4.52 COL 125 WIDGET-ID 286
    LABEL "Lotnummer"
    VIEW-AS TOGGLE-BOX
    SIZE 21.6 BY 1
    CB_KGebinde AT ROW 3 COL 18 COLON-ALIGNED WIDGET-ID 134
    CB_VGebinde AT ROW 4 COL 18 COLON-ALIGNED WIDGET-ID 274
    CB_GGebinde AT ROW 5 COL 18 COLON-ALIGNED WIDGET-ID 198
    CB_Wgr AT ROW 6 COL 18 COLON-ALIGNED WIDGET-ID 212
    CB_Pgr AT ROW 7 COL 18 COLON-ALIGNED WIDGET-ID 204
    CB_Agr AT ROW 8 COL 17.8 COLON-ALIGNED WIDGET-ID 192
    CB_Rabgrp AT ROW 9 COL 18 COLON-ALIGNED WIDGET-ID 206
    CB_Bongrp AT ROW 10 COL 18 COLON-ALIGNED WIDGET-ID 194
    CB_Farbe AT ROW 11 COL 18 COLON-ALIGNED WIDGET-ID 196
    RowObject.MWSt AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 166
    LABEL "MWSt" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    CB_Traube AT ROW 12 COL 18 COLON-ALIGNED WIDGET-ID 210
    CB_Region AT ROW 13 COL 18 COLON-ALIGNED WIDGET-ID 208
    CB_HerkLand AT ROW 14 COL 18 COLON-ALIGNED WIDGET-ID 200
    CB_Hersteller AT ROW 15 COL 18 COLON-ALIGNED WIDGET-ID 202
    CB_Style AT ROW 16 COL 18 COLON-ALIGNED WIDGET-ID 276
    CB_MWST AT ROW 7 COL 68 COLON-ALIGNED WIDGET-ID 228
    CB_Status AT ROW 8 COL 68 COLON-ALIGNED WIDGET-ID 236
    CB_Netto AT ROW 9 COL 68 COLON-ALIGNED WIDGET-ID 230
    CB_Lagerhaltung AT ROW 9 COL 95 COLON-ALIGNED WIDGET-ID 224
    RowObject.VGeb_Cd AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 188
    LABEL "VGeb_Cd" FORMAT "x(10)"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY USE-DICT-EXPS 
    SIDE-LABELS NO-UNDERLINE THREE-D NO-AUTO-VALIDATE 
    AT COL 1 ROW 1 SCROLLABLE  WIDGET-ID 100.

/* DEFINE FRAME statement is approaching 4K Bytes.  Breaking it up   */
DEFINE FRAME F-Main
    CB_SkBer AT ROW 10 COL 68 COLON-ALIGNED WIDGET-ID 234
    CB_Preisliste AT ROW 10 COL 95 COLON-ALIGNED WIDGET-ID 232
    CB_LeihArt AT ROW 11 COL 68 COLON-ALIGNED WIDGET-ID 226
    RowObject.Alk_Gehalt AT ROW 13 COL 68 COLON-ALIGNED WIDGET-ID 214
    LABEL "Alk.Gehalt" FORMAT "zz9.999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 12 BY 1
    BGCOLOR 15 
    RowObject.Gewicht AT ROW 13 COL 101 COLON-ALIGNED WIDGET-ID 242
    LABEL "Gewicht" FORMAT "zz9.999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 12 BY 1
    BGCOLOR 15 
    RowObject.WHK_Code AT ROW 14 COL 68 COLON-ALIGNED WIDGET-ID 260
    LABEL "WHK" FORMAT "x(12)"
    VIEW-AS FILL-IN NATIVE 
    SIZE 12 BY 1 TOOLTIP "Code für Weinhandelskommission -> mit rechter Maustaste zur Auswahl"
    BGCOLOR 15 
    RowObject.Aktiv AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 122
    LABEL "Aktiv"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.EAV_Code AT ROW 14 COL 101 COLON-ALIGNED WIDGET-ID 240
    LABEL "EAV" FORMAT "x(12)"
    VIEW-AS FILL-IN NATIVE 
    SIZE 12 BY 1 TOOLTIP "Code für Eidg. Alkoholverwaltung -> mit rechter Maustaste zur Auswahl"
    BGCOLOR 15 
    RowObject.Strichcode AT ROW 15 COL 68 COLON-ALIGNED WIDGET-ID 258
    VIEW-AS FILL-IN NATIVE 
    SIZE 25 BY 1
    BGCOLOR 15 
    RowObject.Konto AT ROW 16 COL 68 COLON-ALIGNED WIDGET-ID 244
    VIEW-AS FILL-IN NATIVE 
    SIZE 25 BY 1
    BGCOLOR 15 
    CB_Lager AT ROW 7 COL 116 COLON-ALIGNED WIDGET-ID 222
    tArtLager.Mind_Bestand AT ROW 11 COL 130 COLON-ALIGNED WIDGET-ID 220
    LABEL "Mind. Best"
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1
    BGCOLOR 15 
    tArtLager.Soll_Bestand AT ROW 12 COL 130 COLON-ALIGNED WIDGET-ID 256
    LABEL "Soll.. Best"
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1
    BGCOLOR 15 
    tArtLager.Ort AT ROW 14 COL 130 COLON-ALIGNED WIDGET-ID 252
    LABEL "Lagerort"
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1
    BGCOLOR 15 
    RowObject.Listen_EP AT ROW 16.52 COL 130 COLON-ALIGNED WIDGET-ID 248
    LABEL "Listen EP" FORMAT "zzzz9.999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1 TOOLTIP "Listen-Einstandspreis (Kalkulatorischer EP für Marge)"
    BGCOLOR 15 
    RowObject.EP-Intern AT ROW 17.52 COL 130 COLON-ALIGNED WIDGET-ID 280
    LABEL "EP-Intern" FORMAT "zzzz9.999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1
    BGCOLOR 15 
    RowObject.Min_Marge AT ROW 18.52 COL 130 COLON-ALIGNED WIDGET-ID 250
    LABEL "Min. Marge" FORMAT "zzzz9.999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1
    BGCOLOR 15 
    RowObject.Firma AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 140
    LABEL "Firma" FORMAT "x(08)"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY USE-DICT-EXPS 
    SIDE-LABELS NO-UNDERLINE THREE-D NO-AUTO-VALIDATE 
    AT COL 1 ROW 1 SCROLLABLE  WIDGET-ID 100.

/* DEFINE FRAME statement is approaching 4K Bytes.  Breaking it up   */
DEFINE FRAME F-Main
    Btn_Bild AT ROW 17.95 COL 70 WIDGET-ID 282
    RowObject.Style AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 140
    VIEW-AS FILL-IN NATIVE 
    SIZE 4 BY 1
    BGCOLOR 15  NO-TAB-STOP 
    RowObject.Bonus_Grp AT ROW 2 COL 132.2 COLON-ALIGNED WIDGET-ID 132
    LABEL "Bonus_Grp" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Rab_Grp AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 174
    LABEL "Rab_Grp" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.GGeb_Cd AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 148
    LABEL "GGeb_Cd" FORMAT "x(10)"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Herk_Lkz AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 150
    LABEL "Herk_Lkz" FORMAT "x(03)"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Netto AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 168
    LABEL "Netto"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Traub_Grp AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 182
    LABEL "Traub_Grp" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Preisliste AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 170
    LABEL "Preisliste"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Leih_Art AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 162
    LABEL "Leih_Art"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Lager AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 160
    LABEL "Lager"
    VIEW-AS FILL-IN NATIVE 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Reg_Grp AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 176
    LABEL "Reg_Grp" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Farbe AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 138
    LABEL "Farbe" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.KGeb_Cd AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 158
    LABEL "KGeb_Cd" FORMAT "x(10)"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Ausverk AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 128
    LABEL "Ausverk" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.MutFlag AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 164
    LABEL "MutFlag"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Wg_Grp AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 190
    LABEL "Wg_Grp" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Bez AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 130
    LABEL "Bez" FORMAT "x(30)"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Prod_Grp AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 172
    LABEL "Prod_Grp" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY USE-DICT-EXPS 
    SIDE-LABELS NO-UNDERLINE THREE-D NO-AUTO-VALIDATE 
    AT COL 1 ROW 1 SCROLLABLE  WIDGET-ID 100.

/* DEFINE FRAME statement is approaching 4K Bytes.  Breaking it up   */
DEFINE FRAME F-Main
    RowObject.Art_Grp AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 126
    LABEL "Art_Grp" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    RowObject.Herst AT ROW 2 COL 132.6 COLON-ALIGNED WIDGET-ID 152
    LABEL "Herst" FORMAT "999999"
    VIEW-AS FILL-IN 
    SIZE 4 BY 1 NO-TAB-STOP 
    T_Zusatz AT ROW 4.52 COL 94 WIDGET-ID 186 NO-TAB-STOP 
    F_Zustext AT ROW 2.62 COL 79.6 NO-LABEL WIDGET-ID 146 NO-TAB-STOP 
    tArtLager.Bestand AT ROW 8 COL 130 COLON-ALIGNED WIDGET-ID 216
    LABEL "Bestand" FORMAT "z,zzz,zz9-"
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1
    BGCOLOR 15  NO-TAB-STOP 
    tArtLager.Bestellt AT ROW 9 COL 130 COLON-ALIGNED WIDGET-ID 218
    LABEL "Bestellt"
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1
    BGCOLOR 15  NO-TAB-STOP 
    tArtLager.Reserviert AT ROW 10 COL 130 COLON-ALIGNED WIDGET-ID 254
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1
    BGCOLOR 15  NO-TAB-STOP 
    RowObject.DEP AT ROW 15.52 COL 111 COLON-ALIGNED WIDGET-ID 238
    LABEL "DEP / LEP" FORMAT "zzzz9.999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1 TOOLTIP "Durchschnittlicher Einstandspreis"
    BGCOLOR 15  NO-TAB-STOP 
    RowObject.LEP AT ROW 15.52 COL 130 COLON-ALIGNED WIDGET-ID 246
    LABEL "/" FORMAT "zzzz9.999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1 TOOLTIP "Letzter Einstandspreis"
    BGCOLOR 15  NO-TAB-STOP 
    RowObject.Letzt_Eing AT ROW 20.52 COL 130 COLON-ALIGNED WIDGET-ID 268
    LABEL "Letzer Einkauf" FORMAT "99.99.9999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1
    FONT 6 NO-TAB-STOP 
    RowObject.ErfDat AT ROW 21.52 COL 18 COLON-ALIGNED WIDGET-ID 262
    LABEL "erfasst / SB" FORMAT "99.99.9999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1
    FONT 6 NO-TAB-STOP 
    RowObject.ErfSB AT ROW 21.52 COL 37 COLON-ALIGNED WIDGET-ID 264
    LABEL "/"
    VIEW-AS FILL-IN NATIVE 
    SIZE 15 BY 1
    FONT 6 NO-TAB-STOP 
    RowObject.MutDat AT ROW 21.52 COL 68 COLON-ALIGNED WIDGET-ID 270
    LABEL "mutiert / SB" FORMAT "99.99.9999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1
    FONT 6 NO-TAB-STOP 
    RowObject.MutSB AT ROW 21.52 COL 87 COLON-ALIGNED WIDGET-ID 272
    LABEL "/"
    VIEW-AS FILL-IN NATIVE 
    SIZE 15 BY 1
    FONT 6 NO-TAB-STOP 
    RowObject.Letzt_Ausg AT ROW 21.52 COL 130 COLON-ALIGNED WIDGET-ID 266
    LABEL "Letzter Verkauf" FORMAT "99.99.9999"
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1
    FONT 6 NO-TAB-STOP 
    tArtLager.Meld_Bestand AT ROW 13 COL 130 COLON-ALIGNED WIDGET-ID 290
    LABEL "Meld. Best."
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1
    BGCOLOR 15 
    RECT-2 AT ROW 20.19 COL 2 WIDGET-ID 118
    RECT-1 AT ROW 1.24 COL 2 WIDGET-ID 120
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY USE-DICT-EXPS 
    SIDE-LABELS NO-UNDERLINE THREE-D NO-AUTO-VALIDATE 
    AT COL 1 ROW 1 SCROLLABLE  WIDGET-ID 100.


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

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartDataViewer
   Data Source: "d-artst.w"
   Allow: Basic,DB-Fields,Smart
   Container Links: Data-Target,Update-Source,TableIO-Target,GroupAssign-Source,GroupAssign-Target
   Frames: 1
   Add Fields to: Neither
   Other Settings: PERSISTENT-ONLY COMPILE APPSERVER
   Temp-Tables and Buffers:
      TABLE: RowObject D "?" NO-UNDO  
      ADDITIONAL-FIELDS:
          {d-artst.i}
      END-FIELDS.
      TABLE: tArtLager T "?" NO-UNDO AnaDat ArtLager
   END-TABLES.
 */

/* This procedure should always be RUN PERSISTENT.  Report the error,  */
/* then cleanup and return.                                            */
IF NOT THIS-PROCEDURE:PERSISTENT THEN 
DO:
    MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT.":U
        VIEW-AS ALERT-BOX ERROR BUTTONS OK.
    RETURN.
END.

&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

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

&ANALYZE-SUSPEND _CREATE-WINDOW
/* DESIGN Window definition (used by the UIB) 
  CREATE WINDOW vTableWin ASSIGN
         HEIGHT             = 22.67
         WIDTH              = 152.2.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

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

{src/adm2/viewer.i}

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




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

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW vTableWin
  VISIBLE,,RUN-PERSISTENT                                               */
/* SETTINGS FOR FRAME F-Main
   NOT-VISIBLE FRAME-NAME Size-to-Fit Custom                            */
ASSIGN 
    FRAME F-Main:SCROLLABLE = FALSE
    FRAME F-Main:HIDDEN     = TRUE
    FRAME F-Main:POPUP-MENU = MENU POPUP-MENU-F-Main:HANDLE.

/* SETTINGS FOR FILL-IN RowObject.Aktiv IN FRAME F-Main
   NO-ENABLE EXP-LABEL                                                  */
ASSIGN 
    RowObject.Aktiv:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Aktiv:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Alk_Gehalt IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.ArtikelBild IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.ArtikelBild:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.ArtikelBild:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Artnr IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.Art_Grp IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Art_Grp:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Art_Grp:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Ausverk IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Ausverk:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Ausverk:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN tArtLager.Bestand IN FRAME F-Main
   NO-DISPLAY NO-ENABLE 4 EXP-LABEL EXP-FORMAT                          */
ASSIGN 
    tArtLager.Bestand:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN tArtLager.Bestellt IN FRAME F-Main
   NO-DISPLAY NO-ENABLE 4 EXP-LABEL                                     */
ASSIGN 
    tArtLager.Bestellt:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Bez IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Bez:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Bez:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Bonus_Grp IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Bonus_Grp:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Bonus_Grp:READ-ONLY IN FRAME F-Main = TRUE.

ASSIGN 
    Btn_Bild:HIDDEN IN FRAME F-Main = TRUE.

/* SETTINGS FOR COMBO-BOX CB_Agr IN FRAME F-Main
   5                                                                    */
ASSIGN 
    CB_Agr:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Agr:HANDLE.

/* SETTINGS FOR COMBO-BOX CB_Bongrp IN FRAME F-Main
   5                                                                    */
ASSIGN 
    CB_Bongrp:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Bongrp:HANDLE.

/* SETTINGS FOR COMBO-BOX CB_Farbe IN FRAME F-Main
   5                                                                    */
ASSIGN 
    CB_Farbe:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Farbe:HANDLE.

/* SETTINGS FOR COMBO-BOX CB_GGebinde IN FRAME F-Main
   5                                                                    */
ASSIGN 
    CB_GGebinde:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_GGebinde:HANDLE.

/* SETTINGS FOR COMBO-BOX CB_HerkLand IN FRAME F-Main
   5                                                                    */
/* SETTINGS FOR COMBO-BOX CB_Hersteller IN FRAME F-Main
   5                                                                    */
/* SETTINGS FOR COMBO-BOX CB_KGebinde IN FRAME F-Main
   5                                                                    */
ASSIGN 
    CB_KGebinde:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_KGebinde:HANDLE.

/* SETTINGS FOR COMBO-BOX CB_Lagerhaltung IN FRAME F-Main
   5                                                                    */
/* SETTINGS FOR COMBO-BOX CB_LeihArt IN FRAME F-Main
   5                                                                    */
/* SETTINGS FOR COMBO-BOX CB_MWST IN FRAME F-Main
   5                                                                    */
/* SETTINGS FOR COMBO-BOX CB_Netto IN FRAME F-Main
   5                                                                    */
/* SETTINGS FOR COMBO-BOX CB_Pgr IN FRAME F-Main
   5                                                                    */
ASSIGN 
    CB_Pgr:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Pgr:HANDLE.

/* SETTINGS FOR COMBO-BOX CB_Preisliste IN FRAME F-Main
   5                                                                    */
/* SETTINGS FOR COMBO-BOX CB_Rabgrp IN FRAME F-Main
   5                                                                    */
ASSIGN 
    CB_Rabgrp:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Rabgrp:HANDLE.

/* SETTINGS FOR COMBO-BOX CB_Region IN FRAME F-Main
   5                                                                    */
ASSIGN 
    CB_Region:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Region:HANDLE.

/* SETTINGS FOR COMBO-BOX CB_SkBer IN FRAME F-Main
   5                                                                    */
/* SETTINGS FOR COMBO-BOX CB_Status IN FRAME F-Main
   5                                                                    */
/* SETTINGS FOR COMBO-BOX CB_Style IN FRAME F-Main
   5                                                                    */
/* SETTINGS FOR COMBO-BOX CB_Traube IN FRAME F-Main
   5                                                                    */
ASSIGN 
    CB_Traube:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Traube:HANDLE.

/* SETTINGS FOR COMBO-BOX CB_VGebinde IN FRAME F-Main
   5                                                                    */
ASSIGN 
    CB_VGebinde:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_VGebinde:HANDLE.

/* SETTINGS FOR COMBO-BOX CB_Wgr IN FRAME F-Main
   5                                                                    */
ASSIGN 
    CB_Wgr:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-CB_Wgr:HANDLE.

/* SETTINGS FOR FILL-IN RowObject.DEP IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
ASSIGN 
    RowObject.DEP:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.EAV_Code IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
ASSIGN 
    RowObject.EAV_Code:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-EAV_Code:HANDLE.

/* SETTINGS FOR FILL-IN RowObject.EP-Intern IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.ErfDat IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.ErfDat:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.ErfSB IN FRAME F-Main
   NO-ENABLE EXP-LABEL                                                  */
ASSIGN 
    RowObject.ErfSB:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR TOGGLE-BOX RowObject.EShop IN FRAME F-Main
   EXP-LABEL                                                            */
/* SETTINGS FOR TOGGLE-BOX RowObject.EShop_2 IN FRAME F-Main
   EXP-LABEL                                                            */
/* SETTINGS FOR FILL-IN RowObject.Farbe IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Farbe:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Farbe:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Firma IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Firma:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Firma:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN F_Bez1 IN FRAME F-Main
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Bez2 IN FRAME F-Main
   6                                                                    */
/* SETTINGS FOR EDITOR F_Zustext IN FRAME F-Main
   NO-DISPLAY NO-ENABLE                                                 */
ASSIGN 
    F_Zustext:HIDDEN IN FRAME F-Main    = TRUE
    F_Zustext:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Gewicht IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.GGeb_Cd IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.GGeb_Cd:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.GGeb_Cd:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Herk_Lkz IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Herk_Lkz:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Herk_Lkz:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Herst IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Herst:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Herst:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Inhalt IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.Jahr IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.KGeb_Cd IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.KGeb_Cd:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.KGeb_Cd:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Lager IN FRAME F-Main
   NO-ENABLE EXP-LABEL                                                  */
ASSIGN 
    RowObject.Lager:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Lager:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Leih_Art IN FRAME F-Main
   NO-ENABLE EXP-LABEL                                                  */
ASSIGN 
    RowObject.Leih_Art:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Leih_Art:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.LEP IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
ASSIGN 
    RowObject.LEP:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Letzt_Ausg IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Letzt_Ausg:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Letzt_Eing IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Letzt_Eing:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Listen_EP IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR TOGGLE-BOX RowObject.lLotnr IN FRAME F-Main
   EXP-LABEL                                                            */
/* SETTINGS FOR TOGGLE-BOX RowObject.lVerfall IN FRAME F-Main
   EXP-LABEL                                                            */
/* SETTINGS FOR FILL-IN tArtLager.Meld_Bestand IN FRAME F-Main
   NO-DISPLAY NO-ENABLE 4 EXP-LABEL                                     */
/* SETTINGS FOR FILL-IN tArtLager.Mind_Bestand IN FRAME F-Main
   NO-DISPLAY NO-ENABLE 4 EXP-LABEL                                     */
/* SETTINGS FOR FILL-IN RowObject.Min_Marge IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.MutDat IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.MutDat:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.MutFlag IN FRAME F-Main
   NO-ENABLE EXP-LABEL                                                  */
ASSIGN 
    RowObject.MutFlag:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.MutFlag:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.MutSB IN FRAME F-Main
   NO-ENABLE EXP-LABEL                                                  */
ASSIGN 
    RowObject.MutSB:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.MWSt IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.MWSt:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.MWSt:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Netto IN FRAME F-Main
   NO-ENABLE EXP-LABEL                                                  */
ASSIGN 
    RowObject.Netto:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Netto:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN tArtLager.Ort IN FRAME F-Main
   NO-DISPLAY NO-ENABLE 4 EXP-LABEL                                     */
/* SETTINGS FOR FILL-IN RowObject.Preisliste IN FRAME F-Main
   NO-ENABLE EXP-LABEL                                                  */
ASSIGN 
    RowObject.Preisliste:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Preisliste:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Prod_Grp IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Prod_Grp:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Prod_Grp:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Rab_Grp IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Rab_Grp:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Rab_Grp:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Reg_Grp IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Reg_Grp:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Reg_Grp:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN tArtLager.Reserviert IN FRAME F-Main
   NO-DISPLAY NO-ENABLE 4                                               */
ASSIGN 
    tArtLager.Reserviert:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Sk_Ber IN FRAME F-Main
   NO-ENABLE EXP-LABEL                                                  */
ASSIGN 
    RowObject.Sk_Ber:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Sk_Ber:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN tArtLager.Soll_Bestand IN FRAME F-Main
   NO-DISPLAY NO-ENABLE 4 EXP-LABEL                                     */
/* SETTINGS FOR FILL-IN RowObject.Style IN FRAME F-Main
   NO-ENABLE                                                            */
ASSIGN 
    RowObject.Style:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Style:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Suchbe IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
/* SETTINGS FOR FILL-IN RowObject.Traub_Grp IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Traub_Grp:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Traub_Grp:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR TOGGLE-BOX T_Bez2_Druck IN FRAME F-Main
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Zusatz IN FRAME F-Main
   6                                                                    */
/* SETTINGS FOR FILL-IN RowObject.VGeb_Cd IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.VGeb_Cd:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.VGeb_Cd:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.Wg_Grp IN FRAME F-Main
   NO-ENABLE EXP-LABEL EXP-FORMAT                                       */
ASSIGN 
    RowObject.Wg_Grp:HIDDEN IN FRAME F-Main    = TRUE
    RowObject.Wg_Grp:READ-ONLY IN FRAME F-Main = TRUE.

/* SETTINGS FOR FILL-IN RowObject.WHK_Code IN FRAME F-Main
   EXP-LABEL EXP-FORMAT                                                 */
ASSIGN 
    RowObject.WHK_Code:POPUP-MENU IN FRAME F-Main = MENU POPUP-MENU-WHK_Code:HANDLE.

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


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

&ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main
/* Query rebuild information for FRAME F-Main
     _Options          = "NO-LOCK"
     _Query            is NOT OPENED
*/  /* FRAME F-Main */
&ANALYZE-RESUME

 



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

&Scoped-define SELF-NAME Btn_Bild
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Bild vTableWin
ON CHOOSE OF Btn_Bild IN FRAME F-Main /* Bild */
    DO:
        RUN BILD_ANZEIGEN ( rowObject.Artnr      :SCREEN-VALUE,
            rowObject.Inhalt     :SCREEN-VALUE,
            rowObject.Jahr       :SCREEN-VALUE,
            rowObject.ArtikelBild:SCREEN-VALUE) NO-ERROR.
    END.

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


&Scoped-define SELF-NAME CB_Lager
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Lager vTableWin
ON RETURN OF CB_Lager IN FRAME F-Main /* Lager */
    DO:
        APPLY 'TAB' TO SELF.
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Lager vTableWin
ON VALUE-CHANGED OF CB_Lager IN FRAME F-Main /* Lager */
    DO:
        DEFINE VARIABLE nLager    AS INTEGER NO-UNDO.
        DEFINE VARIABLE fReadOnly AS LOG     NO-UNDO.

        DO WITH FRAME {&FRAME-NAME}:
      
            nLager = INTEGER(CB_Lager:SCREEN-VALUE).
        
            IF  iLager < 999999 AND
                FMut            THEN ASSIGN {&List-4}.
            FIND FIRST tArtLager WHERE tArtLager.Lager = nLager NO-ERROR.
            IF NOT AVAILABLE tArtLager THEN 
            DO:
                CREATE  tArtLager.
                ASSIGN  
                    tArtLager.Firma  = Firma
                    tArtLager.Artnr  = Artnr
                    tArtLager.Inhalt = Inhalt
                    tArtLager.Jahr   = Jahr
                    tArtLager.Lager  = nLager.
            END.
            iLager = nLager.
            DISPLAY {&List-4}.
            IF NOT FMut THEN RETURN.
            IF iLager < 999999 THEN fReadOnly = FALSE.
            ELSE                    fReadOnly = TRUE.
            RUN READONLY_LAGER ( fReadOnly ).
        END.
    END.

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


&Scoped-define SELF-NAME RowObject.DEP
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.DEP vTableWin
ON LEFT-MOUSE-DBLCLICK OF RowObject.DEP IN FRAME F-Main /* DEP / LEP */
    DO:
        IF NOT FMut THEN RETURN NO-APPLY.
        SELF:READ-ONLY = FALSE.
        RETURN NO-APPLY.
    END.

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


&Scoped-define SELF-NAME RowObject.EAV_Code
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.EAV_Code vTableWin
ON RIGHT-MOUSE-CLICK OF RowObject.EAV_Code IN FRAME F-Main /* EAV */
    DO:
        RUN START_ZUTEILUNG_EAV.
        PUBLISH 'EAVWECHSEL'.
    END.

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


&Scoped-define SELF-NAME RowObject.LEP
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.LEP vTableWin
ON LEFT-MOUSE-DBLCLICK OF RowObject.LEP IN FRAME F-Main /* / */
    DO:
        IF NOT FMut THEN RETURN NO-APPLY.
        SELF:READ-ONLY = FALSE.
        RETURN NO-APPLY.
    END.

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


&Scoped-define SELF-NAME RowObject.Listen_EP
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.Listen_EP vTableWin
ON LEAVE OF RowObject.Listen_EP IN FRAME F-Main /* Listen EP */
    DO:
        IF FNeu THEN RETURN.
        IF SELF:MODIFIED THEN 
        DO:
            FMarge = DYNAMIC-FUNCTION('ANTWORT_JA':U, INPUT 1075 ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sort-Agr
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sort-Agr vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sort-Agr /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Agr:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sort-Bongrp
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sort-Bongrp vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sort-Bongrp /* Sortiert */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Bongrp:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sort-Farbe
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sort-Farbe vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sort-Farbe /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Farbe:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sort-GGebinde
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sort-GGebinde vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sort-GGebinde /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_GGebinde:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sort-KGebinde
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sort-KGebinde vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sort-KGebinde /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_KGebinde:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sort-Pgr
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sort-Pgr vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sort-Pgr /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Pgr:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sort-Rabgrp
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sort-Rabgrp vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sort-Rabgrp /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Rabgrp:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sort-Region
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sort-Region vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sort-Region /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Region:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sort-Traube
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sort-Traube vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sort-Traube /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Traube:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sort-VGebinde
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sort-VGebinde vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sort-VGebinde /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_VGebinde:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Sort-Wgr
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sort-Wgr vTableWin
ON VALUE-CHANGED OF MENU-ITEM m_Sort-Wgr /* Sortiert ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            DYNAMIC-FUNCTION('setComboSort':U, '', CB_Wgr:HANDLE, SELF:CHECKED ) NO-ERROR.
        END.
    END.

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


&Scoped-define SELF-NAME m_Zuteilung_Code_fr_Alkoholve
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Zuteilung_Code_fr_Alkoholve vTableWin
ON CHOOSE OF MENU-ITEM m_Zuteilung_Code_fr_Alkoholve /* Zuteilung Code für Alkoholverwaltung */
    DO:
        RUN START_ZUTEILUNG_EAV.
        PUBLISH 'EAVWECHSEL'.
    END.

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


&Scoped-define SELF-NAME m_Zuteilung_Weinhandelscode
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Zuteilung_Weinhandelscode vTableWin
ON CHOOSE OF MENU-ITEM m_Zuteilung_Weinhandelscode /* Zuteilung Weinhandelscode */
    DO:
        RUN START_ZUTEILUNG_EWK.
        PUBLISH 'EAVWECHSEL'.
    END.

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


&Scoped-define SELF-NAME T_Zusatz
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_Zusatz vTableWin
ON VALUE-CHANGED OF T_Zusatz IN FRAME F-Main /* Zusatztext ? */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            SELF:SCREEN-VALUE = STRING(T_Zusatz).

            DEFINE VARIABLE ix AS INTEGER NO-UNDO.
            F_Zustext = ''.
            FIND FIRST WArtbez WHERE WArtbez.Firma  = Firma
                AND   WArtbez.Artnr  = Artnr
                AND   WArtbez.Inhalt = Inhalt
                AND   WArtbez.Jahr   = Jahr
                AND   WArtbez.Sprcd  = VSprcd NO-LOCK NO-ERROR.
            IF AVAILABLE WArtbez THEN 
            DO:
                DO ix = 10 TO 1 BY -1:
                    IF WArtbez.Zustext[ix] = ''     AND
                        F_Zustext           = ''     THEN NEXT.
                    IF F_Zustext <> '' THEN F_Zustext = CHR(10) + F_Zustext.
                    F_Zustext = WArtbez.Zustext[ix] + F_Zustext.
                END.
                F_Zustext:SCREEN-VALUE = F_Zustext.
                RUN g-bemerkung.w ( INPUT F_Zustext:HANDLE, INPUT FMut ).
                F_Zustext = F_Zustext:SCREEN-VALUE.
                IF F_Zustext <> '' THEN T_Zusatz = TRUE.
                ELSE                    T_Zusatz = FALSE.
                IF FMut               AND
                    F_Zustext:MODIFIED THEN 
                DO:
                    WArtbez.Zustext = ''.
                    DO ix = 1 TO NUM-ENTRIES(F_Zustext, CHR(10)):
                        IF ix < 11 THEN 
                        DO:
                            WArtbez.Zustext[ix] = ENTRY(ix, F_Zustext, CHR(10)).
                            NEXT.
                        END.
                        WArtbez.Zustext[10] = WArtbez.Zustext[10] + CHR(10)
                            + ENTRY(ix, F_Zustext, CHR(10)).
                    END.
                END.
            END.
            ELSE T_Zusatz = TRUE.
            DISPLAY T_Zusatz WITH FRAME {&FRAME-NAME}.
            IF FMut THEN APPLY 'ENTRY' TO F_Bez1.
            ELSE         APPLY 'ENTRY' TO rowObject.Artnr.
            RETURN NO-APPLY.
        END.
    END.

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


&Scoped-define SELF-NAME RowObject.WHK_Code
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL RowObject.WHK_Code vTableWin
ON RIGHT-MOUSE-CLICK OF RowObject.WHK_Code IN FRAME F-Main /* WHK */
    DO:
        RUN START_ZUTEILUNG_EWK.
        PUBLISH 'EWKWECHSEL'.
    END.

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


&Scoped-define SELF-NAME X_EAN-ETIKETTE
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL X_EAN-ETIKETTE vTableWin
ON CHOOSE OF MENU-ITEM X_EAN-ETIKETTE /* EAN-Code Etikette */
    DO:
        RUN EAN-ETIKETTE.
    END.

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


&Scoped-define SELF-NAME X_ETIKETTE
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL X_ETIKETTE vTableWin
ON CHOOSE OF MENU-ITEM X_ETIKETTE /* Verpackungs-Etikette */
    DO:
        RUN ETIKETTE.
    END.

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


&UNDEFINE SELF-NAME

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


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

{ incl/viwmainblock.i }

FDisp  = TRUE.
FMarge = FALSE.
    
SUBSCRIBE TO 'GET-LAGER-IN-ARTIKEL' ANYWHERE NO-ERROR.
SUBSCRIBE TO 'HORELAGER'            ANYWHERE RUN-PROCEDURE 'CHANGE_LAGERORT'.
    
IF SAktiv THEN 
DO:
    VSprcd        = DYNAMIC-FUNCTION('GETSPRCD':U)        NO-ERROR.
    iLager        = DYNAMIC-FUNCTION('getBenLager':U)     NO-ERROR.
    cInstallation = DYNAMIC-FUNCTION('getInstallation':U) NO-ERROR.
END.
    
ON 'VALUE-CHANGED':U OF FRAME {&FRAME-NAME} ANYWHERE 
    DO:
        RUN VALUE_CHANGED_TEST ( INPUT SELF:HANDLE ).
    END.
    &IF DEFINED(UIB_IS_RUNNING) <> 0 &THEN          
        RUN initializeObject.
    &ENDIF         
  
  /************************ INTERNAL PROCEDURES ********************/

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


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

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

    FNeu  = TRUE.
    FMut  = TRUE.
    FDisp = TRUE.

    RUN SUPER.

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

END PROCEDURE.

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

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

    EMPTY TEMP-TABLE tArtLager.
    IF FNeu THEN 
    DO:
        CREATE  btArtLager.
        ASSIGN  
            btArtLager.Firma = Firma
            btArtLager.Lager = 999999.
        CREATE  tArtLager.
        ASSIGN  
            tArtLager.Firma = Firma
            tArtLager.Lager = iLager.
    END.
    ELSE 
    DO:
        CREATE  btArtLager.
        ASSIGN  
            btArtLager.Firma  = Firma
            btArtLager.Artnr  = Artnr
            btArtLager.Inhalt = Inhalt
            btArtLager.Jahr   = Jahr
            btArtLager.Lager  = 999999.
        FOR EACH ArtLager NO-LOCK
            WHERE ArtLager.Firma  = Firma
            AND   ArtLager.Artnr  = Artnr
            AND   ArtLager.Inhalt = Inhalt
            AND   ArtLager.Jahr   = Jahr:
            CREATE  tArtLager.
            BUFFER-COPY ArtLager TO tArtLager.
            ASSIGN  
                btArtLager.Ausgang      = btArtLager.Ausgang      + tArtLager.Ausgang
                btArtLager.Eingang      = btArtLager.Eingang      + tArtLager.Eingang
                btArtLager.Bestand      = btArtLager.Bestand      + tArtLager.Bestand
                btArtLager.Reserviert   = btArtLager.Reserviert   + tArtLager.Reserviert
                btArtLager.Bestellt     = btArtLager.Bestellt     + tArtLager.Bestellt
                btArtLager.Mind_Bestand = btArtLager.Mind_Bestand + tArtLager.Mind_Bestand
                btArtLager.Soll_Bestand = btArtLager.Soll_Bestand + tArtLager.Soll_Bestand.
            btArtLager.Meld_Bestand = btArtLager.Meld_Bestand + tArtLager.Meld_Bestand.
        END.
    END.
    
    DYNAMIC-FUNCTION('getAktuellesLager':U) NO-ERROR.
    
/*    DO WITH FRAME {&FRAME-NAME}:*/
/*        DISPLAY {&List-4}.      */
/*    END.                        */
    
END PROCEDURE.

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

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

    DEFINE INPUT PARAMETER ipcArtnr    AS CHARACTER         NO-UNDO.
    DEFINE INPUT PARAMETER ipcInhalt   AS CHARACTER         NO-UNDO.
    DEFINE INPUT PARAMETER ipcJahr     AS CHARACTER         NO-UNDO.
    DEFINE INPUT PARAMETER ipcBild     AS CHARACTER         NO-UNDO.

    DEFINE VARIABLE iArtnr  AS INTEGER NO-UNDO.
    DEFINE VARIABLE iInhalt AS INTEGER NO-UNDO.
    DEFINE VARIABLE iJahr   AS INTEGER NO-UNDO.
    
    iArtnr  = INTEGER(ipcArtnr)  NO-ERROR.
    iInhalt = INTEGER(ipcInhalt) NO-ERROR.
    iJahr   = INTEGER(ipcJahr)   NO-ERROR.

    DO WHILE TRUE:
        IF VALID-HANDLE ( hwBild ) THEN LEAVE.
        RUN 'w-artst-bild.w' PERSISTENT SET hwBild.
        RUN initializeObject IN hwBild.
        LEAVE.
    END.
    
    RUN LOAD_BILD IN hwBild ( iArtnr, iInhalt, iJahr, ipcBild ) NO-ERROR.
    
    RETURN NO-APPLY.

END PROCEDURE.

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

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

    FNeu      = FALSE.
    lArtLager = FALSE.
    
    RUN SUPER.
    
    RUN AUFBEREITEN_ARTLAGER.
    lArtLager = TRUE.
    DYNAMIC-FUNCTION('setMutFlag':U, FALSE , Progname).
    APPLY 'U1'.
    RETURN NO-APPLY.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE CHANGE_LAGERORT vTableWin 
PROCEDURE CHANGE_LAGERORT :
    /*------------------------------------------------------------------------------*/
    /* 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.

    IF lArtLager THEN RUN AUFBEREITEN_ARTLAGER.

END PROCEDURE.

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

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

    DO WITH FRAME {&FRAME-NAME}:
        IF CB_KGebinde:SCREEN-VALUE <> rowObject.KGeb_Cd:SCREEN-VALUE
            THEN CB_KGebinde:BGCOLOR = 14.
        ELSE CB_KGebinde:BGCOLOR = 15.
        IF CB_VGebinde:SCREEN-VALUE <> rowObject.VGeb_Cd:SCREEN-VALUE
            THEN CB_VGebinde:BGCOLOR = 14.
        ELSE CB_VGebinde:BGCOLOR = 15.
        IF CB_GGebinde:SCREEN-VALUE <> rowObject.GGeb_Cd:SCREEN-VALUE
            THEN CB_GGebinde:BGCOLOR = 14.
        ELSE CB_GGebinde:BGCOLOR = 15.
        IF CB_WGr:SCREEN-VALUE <> rowObject.Wg_Grp:SCREEN-VALUE
            THEN CB_Wgr:BGCOLOR = 14.
        ELSE CB_WGr:BGCOLOR = 15.
        IF CB_PGr:SCREEN-VALUE <> rowObject.Prod_Grp:SCREEN-VALUE
            THEN CB_Pgr:BGCOLOR = 14.
        ELSE CB_PGr:BGCOLOR = 15.
        IF CB_AGr:SCREEN-VALUE <> rowObject.Art_Grp:SCREEN-VALUE
            THEN CB_Agr:BGCOLOR = 14.
        ELSE CB_AGr:BGCOLOR = 15.
        IF CB_Rabgrp:SCREEN-VALUE <> rowObject.Rab_Grp:SCREEN-VALUE
            THEN CB_Rabgrp:BGCOLOR = 14.
        ELSE CB_Rabgrp:BGCOLOR = 15.
        IF CB_Bongrp:SCREEN-VALUE <> rowObject.Bonus_Grp:SCREEN-VALUE
            THEN CB_Bongrp:BGCOLOR = 14.
        ELSE CB_Bongrp:BGCOLOR = 15.
        IF CB_Farbe:SCREEN-VALUE <> rowObject.Farbe:SCREEN-VALUE
            THEN CB_Farbe:BGCOLOR = 14.
        ELSE CB_Farbe:BGCOLOR = 15.
        IF CB_Traube:SCREEN-VALUE <> rowObject.Traub_Grp:SCREEN-VALUE
            THEN CB_Traube:BGCOLOR = 14.
        ELSE CB_Traube:BGCOLOR = 15.
        IF CB_Region:SCREEN-VALUE <> rowObject.Reg_Grp:SCREEN-VALUE
            THEN CB_Region:BGCOLOR = 14.
        ELSE CB_Region:BGCOLOR = 15.
        IF CB_HerkLand:SCREEN-VALUE <> rowObject.Herk_Lkz:SCREEN-VALUE
            THEN CB_HerkLand:BGCOLOR = 14.
        ELSE CB_HerkLand:BGCOLOR = 15.
        IF CB_Hersteller:SCREEN-VALUE <> rowObject.Herst:SCREEN-VALUE
            THEN CB_Hersteller:BGCOLOR = 14.
        ELSE CB_Hersteller:BGCOLOR = 15.
        IF CB_MWST:SCREEN-VALUE <> rowObject.MWST:SCREEN-VALUE
            THEN CB_MWST:BGCOLOR = 14.
        ELSE CB_MWST:BGCOLOR = 15.
        IF CB_Status:SCREEN-VALUE <> rowObject.Ausverk:SCREEN-VALUE
            THEN CB_Status:BGCOLOR = 14.
        ELSE CB_Status:BGCOLOR = 15.
    END.

END PROCEDURE.

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

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

    DEFINE VARIABLE cParams    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cParam     AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ii         AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cBerecht   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE lSpez      AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE cFehlwerte AS CHARACTER NO-UNDO.
    
    cParams  = DYNAMIC-FUNCTION ('getArtikelCopyParams':U) NO-ERROR.
    cBerecht = DYNAMIC-FUNCTION ('getBerechtigung':U) NO-ERROR.
    lSpez    = (IF ENTRY(5, cBerecht, CHR(01)) BEGINS 'n' THEN FALSE ELSE TRUE ).

    DO ii = 1 TO NUM-ENTRIES(cParams, ';'):
        CASE ii:
            WHEN 1 THEN 
                F_Preis   = (IF ENTRY(ii, cParams, ';') BEGINS 'n' THEN FALSE ELSE TRUE ).
            WHEN 2 THEN 
                F_Staff   = (IF ENTRY(ii, cParams, ';') BEGINS 'n' THEN FALSE ELSE TRUE ).
            WHEN 3 THEN 
                F_Spez    = (IF ENTRY(ii, cParams, ';') BEGINS 'n' THEN FALSE ELSE TRUE ).
            WHEN 4 THEN 
                F_LagOrt  = (IF ENTRY(ii, cParams, ';') BEGINS 'n' THEN FALSE ELSE TRUE ).
            WHEN 5 THEN 
                F_SeineNr = (IF ENTRY(ii, cParams, ';') BEGINS 'n' THEN FALSE ELSE TRUE ).
            WHEN 6 THEN 
                F_EAN     = (IF ENTRY(ii, cParams, ';') BEGINS 'n' THEN FALSE ELSE TRUE ).
        END CASE.
    END.

    F_OK = FALSE.
    IF NOT lSpez THEN 
    DO:
        F_SeineNr = FALSE.
        F_EAN     = FALSE.
        F_OK      = ?.
    END.

    DO WITH FRAME {&FRAME-NAME}:
        CpArtnr  = INTEGER(rowObject.Artnr :SCREEN-VALUE).
        CpInhalt = INTEGER(rowObject.Inhalt:SCREEN-VALUE).
        CpJahr   = INTEGER(rowObject.Jahr  :SCREEN-VALUE).
        Artnr    = INTEGER(rowObject.Artnr :SCREEN-VALUE).
        Inhalt   = INTEGER(rowObject.Inhalt:SCREEN-VALUE).
        Jahr     = INTEGER(rowObject.Jahr  :SCREEN-VALUE).
        RUN 'g-artikelkopie.w' (
            INPUT-OUTPUT CpArtnr  ,
            INPUT-OUTPUT CpInhalt ,
            INPUT-OUTPUT CpJahr   ,
            INPUT-OUTPUT F_Preis  ,
            INPUT-OUTPUT F_Staff  ,
            INPUT-OUTPUT F_Spez   ,
            INPUT-OUTPUT F_LagOrt ,
            INPUT-OUTPUT F_SeineNr,
            INPUT-OUTPUT F_EAN    ,
            INPUT-OUTPUT F_OK     ).

        IF NOT F_OK THEN 
        DO:
            DYNAMIC-FUNCTION('setFlagAbbruch':U, INPUT TRUE, Progname ) NO-ERROR.
            RUN TOOLBAR IN hKontainer ( 'CANCEL' ).
            RETURN NO-APPLY.
        END.
        ASSIGN  
            cParams                = FILL(';', 10)
            ENTRY(1, cParams, ';') = STRING(F_Preis)
            ENTRY(2, cParams, ';') = STRING(F_Staff)
            ENTRY(3, cParams, ';') = STRING(F_Spez)
            ENTRY(4, cParams, ';') = STRING(F_LagOrt)
            ENTRY(5, cParams, ';') = STRING(F_SeineNr)
            ENTRY(6, cParams, ';') = STRING(F_EAN).

        DYNAMIC-FUNCTION ('setArtikelCopyParams':U, cParams) NO-ERROR.
    END.
    
    DYNAMIC-FUNCTION('setFlagAbbruch':U, INPUT TRUE, Progname ) NO-ERROR.
    RUN TOOLBAR IN hKontainer ( 'CANCEL' ).

    hDaten = DYNAMIC-FUNCTION('getDataSource':U) NO-ERROR.
    cParam = STRING(CpArtnr ,'999999') + CHR(01)
        + STRING(CpInhalt,'9999')   + CHR(01)
        + STRING(CpJahr  ,'9999').
    RUN NEUER_ARTIKEL IN hDaten ( INPUT cParam ) NO-ERROR.

    CASE cInstallation:
        WHEN 'OSWALD' THEN 
            RETURN NO-APPLY.
        OTHERWISE 
        DO:    
            RUN TOOLBAR IN hKontainer ( 'UPDATE' ).
            RETURN NO-APPLY.
        END.
    END.

END PROCEDURE.

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

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

    DEFINE VARIABLE Ja     AS LOG     NO-UNDO.
    DEFINE VARIABLE Artnr  AS INTEGER NO-UNDO.
    DEFINE VARIABLE Inhalt AS INTEGER NO-UNDO.
    DEFINE VARIABLE Jahr   AS INTEGER NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
        Artnr  = INTEGER(rowObject.Artnr :SCREEN-VALUE).
        Inhalt = INTEGER(rowObject.Inhalt:SCREEN-VALUE).
        Jahr   = INTEGER(rowObject.Jahr  :SCREEN-VALUE).
    END.
    
    RUN AUFBEREITEN_ARTLAGER.
    
    Ja = FALSE.
    DO WITH FRAME {&FRAME-NAME}:
        FIND FIRST ArtLager
            WHERE ArtLager.Firma   = Firma
            AND   ArtLager.Artnr   = Artnr
            AND   ArtLager.Inhalt  = Inhalt
            AND   ArtLager.Jahr    = Jahr
            AND   ArtLager.Bestand > 0 NO-ERROR.
        IF AVAILABLE ArtLager THEN 
        DO:
            MESSAGE 'Artikel hat noch Bestand ! Trotzdem löschen ?'
                VIEW-AS ALERT-BOX QUESTION BUTTONS OK-CANCEL
                UPDATE ja.
            IF NOT Ja THEN 
            DO:
                RUN 'TOOLBAR' IN hKontainer ( 'CANCEL' ).
                RETURN NO-APPLY.
            END.
        END.
    END.
    IF NOT Ja THEN Ja = DYNAMIC-FUNCTION( 'ANTWORT_NEIN':U, INPUT 1077 ).
    IF NOT Ja THEN 
    DO:
        RUN 'TOOLBAR' IN hKontainer ( 'CANCEL' ).
        RETURN NO-APPLY.
    END.

    FIND Artst USE-INDEX Artst-k1
        WHERE Artst.Firma  = Firma
        AND   Artst.Artnr  = Artnr
        AND   Artst.Inhalt = Inhalt
        AND   Artst.Jahr   = Jahr NO-LOCK NO-ERROR.
    IF NOT AVAILABLE Artst THEN 
    DO:
        RUN 'TOOLBAR' IN hKontainer ( 'CANCEL' ).
        RETURN NO-APPLY.
    END.
    FIND FIRST Artbw USE-INDEX Artbw-k2
        WHERE Artbw.Firma  = Firma
        AND   Artbw.Artnr  = Artnr
        AND   Artbw.Inhalt = Inhalt
        AND   Artbw.Jahr   = Jahr NO-LOCK NO-ERROR.
    DO WHILE TRUE:
        IF AVAILABLE Artbw THEN 
        DO:
            RUN MELDUNG ( 8012 ).
            LEAVE.
        END.
        REPEAT TRANSACTION:
            FOR EACH ArtPreis OF Artst:
                DELETE  ArtPreis.
            END.
            FOR EACH AktPreis OF Artst:
                DELETE  AktPreis.
            END.
            FOR EACH Artbez   OF Artst:
                DELETE  Artbez.
            END.
            FOR EACH ArtKanal OF Artst:
                DELETE  ArtKanal.
            END.
            FOR EACH ArtLager OF Artst:
                DELETE  ArtLager.
            END.
            FOR EACH ArtLief  OF Artst:
                DELETE  ArtLief.
            END.
            FOR EACH ArtStaff OF Artst:
                DELETE  ArtStaff.
            END.
            FOR EACH SpezPrei OF Artst:
                DELETE  SpezPrei.
            END.
            FOR EACH ArtUms USE-INDEX ArtUms-k2
                WHERE ArtUms.Firma  = Artst.Firma
                AND   ArtUms.Artnr  = Artst.Artnr
                AND   ArtUms.Inhalt = Artst.Inhalt
                AND   ArtUms.jahrg  = Artst.Jahr:
                DELETE  ArtUms.
            END.

            LEAVE.
        END.

        RUN SUPER.

        RETURN ''.

    END.

    DO WITH FRAME {&FRAME-NAME}:
        rowObject.Aktiv:SCREEN-VALUE = STRING(FALSE).
        RUN updateRecord.
    END.

END PROCEDURE.

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

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

    IF VALID-HANDLE ( hEWK   ) THEN RUN ENDE IN hEWK    NO-ERROR.
    IF VALID-HANDLE ( hEAV   ) THEN RUN ENDE IN hEAV    NO-ERROR.
    IF VALID-HANDLE ( hwBild ) THEN RUN ENDE IN hwBild  NO-ERROR.

    RUN SUPER.

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

END PROCEDURE.

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

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

    DEFINE INPUT PARAMETER pcFieldType AS CHARACTER NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
    END.

    RUN SUPER( INPUT pcFieldType).

    IF NOT VALID-HANDLE(Fenster) THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION.
    RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&ENABLED-FIELDS}', INPUT TRUE ).
    RUN READONLY_LAGER  ( INPUT TRUE ).

    IF NUM-ENTRIES('{&KEY_FELDER}', ',') > 0 THEN 
    DO:
        RUN FARBE_FELDER ( INPUT Fenster, INPUT '{&KEY_FELDER}', INPUT 15 ).
    END.

    DO WITH FRAME {&FRAME-NAME}:
        F_Bez1:READ-ONLY              = TRUE.
        F_Bez2:READ-ONLY              = TRUE.
        rowObject.Listen_EP:READ-ONLY = TRUE.
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI vTableWin  _DEFAULT-DISABLE
PROCEDURE disable_UI :
    /*------------------------------------------------------------------------------
      Purpose:     DISABLE the User Interface
      Parameters:  <none>
      Notes:       Here we clean-up the user-interface by deleting
                   dynamic widgets we have created and/or hide 
                   frames.  This procedure is usually called when
                   we are ready to "clean-up" after running.
    ------------------------------------------------------------------------------*/
    /* Hide all frames. */
    HIDE FRAME F-Main.
    IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

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

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

    DEFINE INPUT PARAMETER pcColValues AS CHARACTER NO-UNDO.

    IF NOT FDisp THEN 
    DO:
        FDisp = TRUE.
        RETURN.
    END.

    DEFINE VARIABLE ix  AS INTEGER   NO-UNDO.
    DEFINE VARIABLE Wgr AS INTEGER   NO-UNDO.
    DEFINE VARIABLE Pgr AS INTEGER   NO-UNDO.
    DEFINE VARIABLE Agr AS INTEGER   NO-UNDO.
    DEFINE VARIABLE xxx AS CHARACTER NO-UNDO.
    
    OldColValues = pcColValues.
    OldColList   = DYNAMIC-FUNCTION('getDisplayedFields':U).
    
    IF FNeu THEN RUN FEHLWERTE ( INPUT-OUTPUT pcColValues ).

    DO WITH FRAME {&FRAME-NAME}:
    END.
    
    RUN SUPER( INPUT pcColValues).

    ASSIGN  
        Artnr        = INTEGER(rowObject.Artnr :SCREEN-VALUE)
        Inhalt       = INTEGER(rowObject.Inhalt:SCREEN-VALUE)
        Jahr         = INTEGER(rowObject.Jahr  :SCREEN-VALUE)
        T_Zusatz     = FALSE
        T_Bez2_Druck = TRUE
        F_Bez1       = ''
        F_Bez2       = ''.

    IF lArtLager THEN RUN AUFBEREITEN_ARTLAGER.

    DO WITH FRAME {&FRAME-NAME}:
        CB_KGebinde:SCREEN-VALUE     = rowObject.KGeb_Cd:SCREEN-VALUE    NO-ERROR.
        CB_VGebinde:SCREEN-VALUE     = rowObject.VGeb_Cd:SCREEN-VALUE    NO-ERROR.
        CB_GGebinde:SCREEN-VALUE     = rowObject.GGeb_Cd:SCREEN-VALUE    NO-ERROR.
        CB_Rabgrp:SCREEN-VALUE       = rowObject.Rab_Grp:SCREEN-VALUE    NO-ERROR.
        CB_BonGrp:SCREEN-VALUE       = rowObject.Bonus_Grp:SCREEN-VALUE  NO-ERROR.
        CB_Farbe:SCREEN-VALUE        = rowObject.Farbe:SCREEN-VALUE      NO-ERROR.
        CB_Traube:SCREEN-VALUE       = rowObject.Traub_Grp:SCREEN-VALUE  NO-ERROR.
        CB_Region:SCREEN-VALUE       = rowObject.Reg_Grp:SCREEN-VALUE    NO-ERROR.
        CB_HerkLand:SCREEN-VALUE     = rowObject.Herk_Lkz:SCREEN-VALUE   NO-ERROR.
        CB_Hersteller:SCREEN-VALUE   = rowObject.Herst:SCREEN-VALUE      NO-ERROR.
        CB_MWST:SCREEN-VALUE         = rowObject.MWST:SCREEN-VALUE       NO-ERROR.
        CB_Netto:SCREEN-VALUE        = rowObject.Netto:SCREEN-VALUE      NO-ERROR.
        CB_Lagerhaltung:SCREEN-VALUE = rowObject.Lager:SCREEN-VALUE      NO-ERROR.
        CB_SkBer:SCREEN-VALUE        = rowObject.Sk_Ber:SCREEN-VALUE     NO-ERROR.
        CB_Preisliste:SCREEN-VALUE   = rowObject.Preisliste:SCREEN-VALUE NO-ERROR.
        CB_LeihArt:SCREEN-VALUE      = rowObject.Leih_Art:SCREEN-VALUE   NO-ERROR.
        CB_Status:SCREEN-VALUE       = rowObject.Ausverk:SCREEN-VALUE    NO-ERROR.
        CB_Style :SCREEN-VALUE       = rowObject.Style  :SCREEN-VALUE    NO-ERROR.

        IF SAktiv THEN 
        DO:
            CB_Wgr:SCREEN-VALUE = rowObject.Wg_Grp:SCREEN-VALUE         NO-ERROR.
            Wgr = INTEGER(rowObject.Wg_Grp:SCREEN-VALUE).
            RUN COMBO_PRODUKTEGRUPPE ( INPUT CB_Pgr:HANDLE, INPUT Wgr ) NO-ERROR.
            CB_Pgr:SCREEN-VALUE = rowObject.Prod_Grp:SCREEN-VALUE       NO-ERROR.         
            Pgr = INTEGER(rowObject.Prod_Grp:SCREEN-VALUE).
            RUN COMBO_ARTIKELGRUPPE  ( INPUT CB_Agr:HANDLE, INPUT Wgr,
                INPUT Pgr ) NO-ERROR.
            CB_Agr:SCREEN-VALUE = rowObject.Art_Grp:SCREEN-VALUE        NO-ERROR.

            IF NOT FNeu THEN 
            DO:
                IF VALID-HANDLE ( hEWK ) THEN PUBLISH 'EWKWECHSEL'.
                IF VALID-HANDLE ( hEAV ) THEN PUBLISH 'EAVWECHSEL'.
            END.
        END.

        IF NOT FNeu THEN 
        DO:
            FIND ArtBez USE-INDEX ArtBez-k1
                WHERE ArtBez.Firma  = Firma
                AND   ArtBez.Artnr  = Artnr
                AND   ArtBez.Inhalt = Inhalt
                AND   ArtBez.Jahr   = Jahr
                AND   ArtBez.Sprcd  = VSprcd NO-LOCK NO-ERROR.
            IF NOT AVAILABLE ArtBez THEN 
            DO:
                FIND FIRST ArtBez USE-INDEX ArtBez-k1
                    WHERE ArtBez.Firma  = Firma
                    AND   ArtBez.Artnr  = Artnr
                    AND   ArtBez.Inhalt = Inhalt
                    AND   ArtBez.Jahr   = Jahr NO-LOCK NO-ERROR.
            END.
            IF AVAILABLE ArtBez THEN 
            DO:
                F_Bez1 = ArtBez.Bez1.
                F_Bez2 = ArtBez.Bez2.
                T_Bez2_Druck = ArtBez.Bez2_Druck.
                DO ix = 1 TO 10:
                    IF ArtBez.Zustext[ix] = '' THEN NEXT.
                    T_Zusatz = TRUE.
                    LEAVE.
                END.
                FOR EACH WArtBez:
                    DELETE  WArtBez.
                END.
                FOR EACH ArtBez USE-INDEX ArtBez-k1
                    WHERE ArtBez.Firma  = Firma
                    AND   ArtBez.Artnr  = Artnr
                    AND   ArtBez.Inhalt = Inhalt
                    AND   ArtBez.Jahr   = Jahr NO-LOCK:
                    CREATE  WArtBez.
                    BUFFER-COPY ArtBez TO WArtBez.
                END.
            END.
        END.

        IF FNeu THEN 
        DO:
            FIND FIRST WArtBez NO-LOCK
                WHERE WArtBez.Firma  = Firma
                AND   WArtBez.Artnr  = Artnr
                AND   WArtBez.Inhalt = Inhalt
                AND   WArtBez.Jahr   = Jahr
                AND   WArtBez.Sprcd  = VSprcd NO-ERROR.
            IF NOT AVAILABLE WArtbez THEN 
            DO:
                CREATE  WArtbez.
                ASSIGN  
                    WArtBez.Firma  = Firma
                    WArtBez.Artnr  = Artnr
                    WArtBez.Inhalt = Inhalt
                    WArtBez.Jahr   = Jahr
                    WArtBez.Sprcd  = VSprcd.
            END.
            F_Bez1       = WArtBez.Bez1.
            F_Bez2       = WArtBez.Bez2.
            T_Bez2_Druck = WArtBez.Bez2_Druck.
            DO ix = 1 TO 10:
                IF WArtBez.Zustext[ix] = '' THEN NEXT.
                T_Zusatz = TRUE.
                LEAVE.
            END.
        END.
        
        /*        IF lArtLager THEN RUN AUFBEREITEN_ARTLAGER.*/
        IF lArtLager THEN DISPLAY {&List-6} {&List-4}.
        RUN COMBO_TEST.
        IF NOT FMut THEN DYNAMIC-FUNCTION('putArtstToSuperproc':U IN hDaten).
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE EAN-ETIKETTE vTableWin 
PROCEDURE EAN-ETIKETTE :
    /*------------------------------------------------------------------------------*/
    /*  Purpose:                                                                    */
    /*  Parameters:  <none>                                                         */
    /*  Notes:                                                                      */
    /*------------------------------------------------------------------------------*/

    DEFINE VARIABLE iArtnr  AS INTEGER   NO-UNDO.
    DEFINE VARIABLE iInhalt AS INTEGER   NO-UNDO.
    DEFINE VARIABLE iJahr   AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cParam  AS CHARACTER NO-UNDO.
    
    DEFINE BUFFER bArtst FOR Artst.

    DO WITH FRAME {&FRAME-NAME}:
        iArtnr  = INTEGER(rowObject.Artnr :SCREEN-VALUE).
        iInhalt = INTEGER(rowObject.Inhalt:SCREEN-VALUE).
        iJahr   = INTEGER(rowObject.Jahr  :SCREEN-VALUE).
    END.
    
    FIND bArtst NO-LOCK 
        WHERE bArtst.Firma  = Firma
        AND   bArtst.Artnr  = iArtnr
        AND   bArtst.Inhalt = iInhalt
        AND   bArtst.Jahr   = iJahr.
    IF bArtst.Strichcode = '' THEN 
    DO:
        MESSAGE 'Kein EAN-Code vorhanden'
            VIEW-AS ALERT-BOX.
        RETURN NO-APPLY.
    END.
    
    FIND FIRST Artbez NO-LOCK 
        WHERE Artbez.Firma  = Firma
        AND   Artbez.Artnr  = iArtnr
        AND   Artbez.Inhalt = iInhalt
        AND   Artbez.Jahr   = iJahr NO-ERROR.
    
    cParam = Firma           + ';'
        + STRING(iArtnr)     + ';'
        + STRING(iInhalt)    + ';'
        + STRING(iJahr)      + ';'
        + bArtst.Strichcode.
           
    RUN 'g-ean-etiketten.w' ( cParam ).
    
    RETURN NO-APPLY.

END PROCEDURE.

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

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

    DEFINE VARIABLE fReadOnly AS LOG NO-UNDO.
    /*
        RUN SUPER.
    */
    IF NOT VALID-HANDLE(Fenster) THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION.
    RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&ENABLED-FIELDS}', INPUT FALSE ).
    RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&tArtLagerEN}'   , INPUT FALSE ).
    IF iLager < 999999 THEN fReadOnly = FALSE.
    ELSE                    fReadOnly = TRUE .
    RUN READONLY_LAGER ( fReadOnly ).

    IF NUM-ENTRIES('{&NUR_LESEN}', ',') > 0 THEN 
    DO:
        RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&NUR_LESEN}', INPUT TRUE ).
    END.
    IF NUM-ENTRIES('{&tArtLagerRO}', ',') > 0 THEN 
    DO:
        RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&tArtLagerRO}', INPUT TRUE ).
    END.
    
    DO WITH FRAME {&FRAME-NAME}:
        F_Bez1:READ-ONLY              = FALSE.
        F_Bez2:READ-ONLY              = FALSE.
        rowObject.Listen_EP:READ-ONLY = FALSE.
    END.
    
    IF FNeu THEN RETURN.

    IF NUM-ENTRIES('{&KEY_FELDER}', ',') > 0 THEN 
    DO:
        RUN SCHUETZE_FELDER ( INPUT Fenster, INPUT '{&KEY_FELDER}', INPUT TRUE ).
    END.

END PROCEDURE.

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

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

    DEFINE VARIABLE xString AS CHARACTER NO-UNDO.
    
    RUN SUPER.

    { incl/viwenableobject.i }

    IF SAktiv THEN 
    DO:
        IF cInstallation = 'realwines' THEN 
        DO:
            F_Bez1:FORMAT = 'x(40)'.
            F_Bez2:FORMAT = 'x(40)'.
        END.
        DYNAMIC-FUNCTION('checkComboSort':U, Fenster:HANDLE, '{&ENABLED-OBJECTS}' ) NO-ERROR.
        RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&ENABLED-FIELDS}', INPUT TRUE ).
        
        RUN COMBO_KGEBINDE      ( INPUT CB_KGebinde:HANDLE  ) NO-ERROR.
        RUN COMBO_VGEBINDE      ( INPUT CB_VGebinde:HANDLE  ) NO-ERROR.
        RUN COMBO_GGEBINDE      ( INPUT CB_GGebinde:HANDLE  ) NO-ERROR.
        RUN COMBO_WARENGRUPPE   ( INPUT CB_Wgr:HANDLE       ) NO-ERROR.
        RUN COMBO_RABATTGRUPPE  ( INPUT CB_Rabgrp:HANDLE    ) NO-ERROR.
        RUN COMBO_BONUSGRUPPE   ( INPUT CB_Bongrp:HANDLE    ) NO-ERROR.
        RUN COMBO_FARBE         ( INPUT CB_Farbe:HANDLE     ) NO-ERROR.
        RUN COMBO_TRAUBE        ( INPUT CB_Traube:HANDLE    ) NO-ERROR.
        RUN COMBO_REGION        ( INPUT CB_Region:HANDLE    ) NO-ERROR.
        RUN COMBO_LAND          ( INPUT CB_HerkLand:HANDLE  ) NO-ERROR.
        RUN COMBO_HERSTELLER    ( INPUT CB_Hersteller:HANDLE) NO-ERROR.
        RUN COMBO_STYLE         ( INPUT CB_Style     :HANDLE) NO-ERROR.
        RUN COMBO_MWSTARTIK     ( INPUT CB_MWST:HANDLE)       NO-ERROR.
        RUN COMBO_LAGER         ( INPUT CB_Lager:HANDLE     ) NO-ERROR.
        IF CB_Lager:NUM-ITEMS > 1 THEN 
        DO:
            xString = CB_Lager:LIST-ITEM-PAIRS.
            xString = xString + ';Alle Lager(999999);999999'.
            CB_Lager:LIST-ITEM-PAIRS = xString.
        END.
        CB_Lager:SCREEN-VALUE = STRING(iLager,'999999') NO-ERROR.
        
        ASSIGN  
            tArtLager.Bestand     :SENSITIVE = TRUE
            tArtLager.Bestellt    :SENSITIVE = TRUE
            tArtLager.Reserviert  :SENSITIVE = TRUE
            tArtLager.Mind_Bestand:SENSITIVE = TRUE
            tArtLager.Soll_Bestand:SENSITIVE = TRUE
            tArtLager.Meld_Bestand:SENSITIVE = TRUE
            tArtLager.Ort         :SENSITIVE = TRUE.
    END.
    
END PROCEDURE.

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

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

    { incl/viwentryfeldtest.i }

    DO WITH FRAME {&FRAME-NAME}:
        CASE FeldName:
        END CASE.
    END.

    RETURN ''.

END PROCEDURE.

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

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

    DEFINE VARIABLE iArtnr  AS INTEGER   NO-UNDO.
    DEFINE VARIABLE iInhalt AS INTEGER   NO-UNDO.
    DEFINE VARIABLE iJahr   AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cBez    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cParam  AS CHARACTER NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
        iArtnr  = INTEGER(rowObject.Artnr :SCREEN-VALUE).
        iInhalt = INTEGER(rowObject.Inhalt:SCREEN-VALUE).
        iJahr   = INTEGER(rowObject.Jahr  :SCREEN-VALUE).
        cBez    = TRIM   (F_Bez1:SCREEN-VALUE + ' ' + F_Bez2:SCREEN-VALUE).
    END.
    
    cParam =        Firma       + ';'
        + STRING(iArtnr)     + ';'
        + STRING(iInhalt)    + ';'
        + STRING(iJahr)      + ';'
        +        cBez.
           
    RUN 'g-produktetiketten.w' ( cParam ).
    
    RETURN NO-APPLY.

END PROCEDURE.

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

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

    DEFINE INPUT-OUTPUT PARAMETER pcColValues  AS CHARACTER          NO-UNDO.

    DEFINE VARIABLE FwFelder AS CHARACTER NO-UNDO.
    DEFINE VARIABLE FwFeld   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE FwValue  AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ix       AS INTEGER   NO-UNDO.    
    DEFINE VARIABLE i1       AS INTEGER   NO-UNDO.    

    GET-KEY-VALUE SECTION 'FwArtikel' KEY ? VALUE FwFelder.

    IF NOT FCopy THEN 
    DO:
        DO ix = 1 TO NUM-ENTRIES(FwFelder, ','):
            FwFeld = ENTRY (ix    , FwFelder  , ',').
            i1     = LOOKUP(FwFeld, oldColList, ',') + 1.
            IF i1 < 2 THEN NEXT.
            GET-KEY-VALUE SECTION 'FwArtikel' KEY FwFeld VALUE FwValue.
            ENTRY(i1, pcColValues, CHR(1)) = FwValue NO-ERROR.
        END.
    END.

    IF FCopy THEN 
    DO:
        i1 = LOOKUP('Bestand', oldColList, ',') + 1.
        ENTRY(i1, pcColValues, CHR(01)) = '0'.
        i1 = LOOKUP('Soll_Bestand', oldColList, ',') + 1.
        ENTRY(i1, pcColValues, CHR(01)) = '0'.
        i1 = LOOKUP('Meld_Bestand', oldColList, ',') + 1.
        ENTRY(i1, pcColValues, CHR(01)) = '0'.
        i1 = LOOKUP('Bestellt', oldColList, ',') + 1.
        ENTRY(i1, pcColValues, CHR(01)) = '0'.
        i1 = LOOKUP('Mind_Bestand', oldColList, ',') + 1.
        ENTRY(i1, pcColValues, CHR(01)) = '0'.
        i1 = LOOKUP('Reserviert', oldColList, ',') + 1.
        ENTRY(i1, pcColValues, CHR(01)) = '0'.
        i1 = LOOKUP('DEP', oldColList, ',') + 1.
        ENTRY(i1, pcColValues, CHR(01)) = '0'.
        i1 = LOOKUP('LEP', oldColList, ',') + 1.
        ENTRY(i1, pcColValues, CHR(01)) = '0'.
        i1 = LOOKUP('ErfDat', oldColList, ',') + 1.
        ENTRY(i1, pcColValues, CHR(01)) = ''.
        i1 = LOOKUP('ErfSB', oldColList, ',') + 1.
        ENTRY(i1, pcColValues, CHR(01)) = ''.
        i1 = LOOKUP('MutDat', oldColList, ',') + 1.
        ENTRY(i1, pcColValues, CHR(01)) = ''.
        i1 = LOOKUP('MutSB', oldColList, ',') + 1.
        ENTRY(i1, pcColValues, CHR(01)) = ''.
        i1 = LOOKUP('Letzt_Eing', oldColList, ',') + 1.
        ENTRY(i1, pcColValues, CHR(01)) = ''.
        i1 = LOOKUP('Letzt_Ausg', oldColList, ',') + 1.
        ENTRY(i1, pcColValues, CHR(01)) = ''.
        i1 = LOOKUP('Strichcode', oldColList, ',') + 1.
        ENTRY(i1, pcColValues, CHR(01)) = ''.
    END.

    OldColValues = pcColValues.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE GET-LAGER-IN-ARTIKEL vTableWin 
PROCEDURE GET-LAGER-IN-ARTIKEL :
    /*------------------------------------------------------------------------------
                                  Purpose:     
                                  Parameters:  <none>
                                  Notes:       
                                ------------------------------------------------------------------------------*/

    DEFINE OUTPUT PARAMETER opLager    AS INTEGER          NO-UNDO.
    
    opLager = iLager.

END PROCEDURE.

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

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

    EMPTY TEMP-TABLE tLager.
    FOR EACH Tabel NO-LOCK
        WHERE Tabel.Firma  = Firma
        AND   Tabel.RecArt = 'LAGER'
        AND   Tabel.CodeC  = ''
        AND   Tabel.Sprcd  = 1:
        CREATE  tLager.
        ASSIGN  
            tLager.Lager = Tabel.CodeI
            tLager.Bez   = Tabel.Bez1.
    END.

    RUN SUPER.

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

END PROCEDURE.

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

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

    DEFINE VARIABLE Cd_1 AS INTEGER NO-UNDO.
    DEFINE VARIABLE Cd_2 AS INTEGER NO-UNDO.
    DEFINE VARIABLE Cd_3 AS INTEGER NO-UNDO.
    DEFINE VARIABLE Cd_4 AS INTEGER NO-UNDO.
    
    { incl/viwleavefeldtest.i }

    DO WHILE FNeu WITH FRAME {&FRAME-NAME}:
        CASE FeldName:
            WHEN 'Artnr' THEN 
                DO:
                    /*
                    IF INTEGER(FeldInhalt) = 0 THEN DO:
                        RUN FEHLER ( INPUT 1020 ).
                        RETURN 'ERROR'.
                    END.
                    */
                    hENTER = LAST-EVENT:WIDGET-ENTER.
                    IF VALID-HANDLE(hENTER) THEN 
                    DO:
                        IF hENTER:NAME = 'Inhalt' THEN RETURN ''.
                        IF hENTER:NAME = 'Jahr'   THEN RETURN ''.
                    END.
                    APPLY 'ENTRY' TO rowObject.Inhalt.
                    RETURN 'APPLY'.
                END.
            WHEN 'Inhalt' THEN 
                DO:
                    hENTER = LAST-EVENT:WIDGET-ENTER.
                    IF VALID-HANDLE(hENTER) THEN 
                    DO:
                        IF hENTER:NAME = 'Jahr'   THEN RETURN ''.
                        IF hENTER:NAME = 'Artnr'  THEN RETURN ''.
                    END.
                    APPLY 'ENTRY' TO rowObject.Jahr.
                    RETURN 'APPLY'.
                END.
            WHEN 'Jahr' THEN 
                DO:
                    hENTER = LAST-EVENT:WIDGET-ENTER.
                    IF VALID-HANDLE(hENTER) THEN 
                    DO:
                        IF hENTER:NAME = 'Inhalt' THEN RETURN ''.
                        IF hENTER:NAME = 'Artnr'  THEN RETURN ''.
                    END.
                    FIND Artst USE-INDEX Artst-k1
                        WHERE Artst.Firma  = Firma
                        AND   Artst.Artnr  = INTEGER(rowObject.Artnr:SCREEN-VALUE)
                        AND   Artst.Inhalt = INTEGER(rowObject.Inhalt:SCREEN-VALUE)
                        AND   Artst.Jahr   = INTEGER(rowObject.Jahr:SCREEN-VALUE)
                        NO-LOCK NO-ERROR.
                    IF NOT AVAILABLE Artst THEN RETURN ''.
                    RUN FEHLER ( INPUT 1022 ).
                    RETURN 'ERROR'.
                END.
        END CASE.
        LEAVE.
    END.

    DO WHILE TRUE WITH FRAME {&FRAME-NAME}:
        CASE FeldName:
            WHEN 'WHK_Code' THEN 
                DO:
                    IF VALID-HANDLE ( hEWK ) THEN PUBLISH 'EWKWECHSEL'.
                    IF FeldInhalt = '' THEN RETURN ''.
                    IF LENGTH(FeldInhalt) > 8 THEN 
                    DO:
                        FeldInhalt = SUBSTRING(FeldInhalt,01,08).
                        SELF:SCREEN-VALUE = FeldInhalt.
                    END.
                    IF LENGTH(FeldInhalt) < 8 THEN 
                    DO:
                        FeldInhalt = FeldInhalt + FILL('0', 8 - LENGTH(FeldInhalt)).
                        SELF:SCREEN-VALUE = FeldInhalt.
                    END.
                    IF SUBSTRING(FeldInhalt,01,02) <> '00'  THEN 
                    DO:
                        Cd_1 = INTEGER(SUBSTRING(FeldInhalt,01,02)) NO-ERROR.
                        FIND EWKSt1 USE-INDEX EWKSt1-k1
                            WHERE EWKSt1.Firma = Firma
                            AND   EWKSt1.Cd_1  = Cd_1 NO-LOCK NO-ERROR.
                        IF NOT AVAILABLE EWKSt1 THEN 
                        DO:
                            RUN FEHLER ( INPUT 1076 ).
                            RETURN 'ERROR'.
                        END.
                    END.
                    IF SUBSTRING(FeldInhalt,03,02) <> '00'  THEN 
                    DO:
                        Cd_2 = INTEGER(SUBSTRING(FeldInhalt,03,02)) NO-ERROR.
                        FIND EWKSt2 USE-INDEX EWKSt2-k1
                            WHERE EWKSt2.Firma = Firma
                            AND   EWKSt2.Cd_1  = Cd_1
                            AND   EWKSt2.Cd_2  = Cd_2 NO-LOCK NO-ERROR.
                        IF NOT AVAILABLE EWKSt2 THEN 
                        DO:
                            RUN FEHLER ( INPUT 1076 ).
                            RETURN 'ERROR'.
                        END.
                    END.
                    IF SUBSTRING(FeldInhalt,05,02) <> '00'  THEN 
                    DO:
                        Cd_3 = INTEGER(SUBSTRING(FeldInhalt,05,02)) NO-ERROR.
                        FIND EWKSt3 USE-INDEX EWKSt3-k1
                            WHERE EWKSt3.Firma = Firma
                            AND   EWKSt3.Cd_1  = Cd_1
                            AND   EWKSt3.Cd_2  = Cd_2
                            AND   EWKSt3.Cd_3  = Cd_3 NO-LOCK NO-ERROR.
                        IF NOT AVAILABLE EWKSt3 THEN 
                        DO:
                            RUN FEHLER ( INPUT 1076 ).
                            RETURN 'ERROR'.
                        END.
                    END.
                    IF SUBSTRING(FeldInhalt,07,02) <> '00'  THEN 
                    DO:
                        Cd_4 = INTEGER(SUBSTRING(FeldInhalt,07,02)) NO-ERROR.
                        FIND EWKSt4 USE-INDEX EWKSt4-k1
                            WHERE EWKSt4.Firma = Firma
                            AND   EWKSt4.Cd_1  = Cd_1
                            AND   EWKSt4.Cd_2  = Cd_2
                            AND   EWKSt4.Cd_3  = Cd_3
                            AND   EWKSt4.Cd_4  = Cd_4 NO-LOCK NO-ERROR.
                        IF NOT AVAILABLE EWKSt4 THEN 
                        DO:
                            RUN FEHLER ( INPUT 1076 ).
                            RETURN 'ERROR'.
                        END.
                    END.
                END.
        END CASE.
        LEAVE.
    END.

    IF LOOKUP(FeldName, '{&LETZTES_FELD}', ',') > 0 THEN 
    DO:
        DO WHILE TRUE:
            IF KEYFUNCTION(LKY) = 'TAB'     THEN LEAVE.
            IF KEYFUNCTION(LKY) = 'RETURN'  THEN LEAVE.
            IF KEYFUNCTION(LKY) = 'F9'      THEN LEAVE.
            RETURN ''.
        END.
        APPLY 'ALT-S'.
        RETURN 'APPLY'.
    END.

    RETURN ''.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE READONLY_LAGER vTableWin 
PROCEDURE READONLY_LAGER :
    /*------------------------------------------------------------------------------
                                  Purpose:     
                                  Parameters:  <none>
                                  Notes:       
                                ------------------------------------------------------------------------------*/
    DEFINE INPUT PARAMETER ipFlag  AS LOG          NO-UNDO.
    
    DO WITH FRAME {&FRAME-NAME}:
        ASSIGN  
            tArtLager.Mind_Bestand:READ-ONLY = ipFlag
            tArtLager.Soll_Bestand:READ-ONLY = ipFlag
            tArtLager.Meld_Bestand:READ-ONLY = ipFlag
            tArtLager.Ort         :READ-ONLY = ipFlag.
    END.
    
END PROCEDURE.

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

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

    { incl/viwreturnfeld.i }

END PROCEDURE.

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

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

    DEFINE VARIABLE sProg AS CHARACTER INIT 'w-eavzuteilung.w' NO-UNDO.

    IF VALID-HANDLE(hEAV) THEN RETURN NO-APPLY.
    RUN VALUE(sProg) PERSISTENT
        SET hEAV ( INPUT rowObject.EAV_Code:HANDLE IN FRAME {&FRAME-NAME}, Progname ).
    RUN initializeObject IN hEAV.

END PROCEDURE.

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

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

    DEFINE VARIABLE sProg     AS CHARACTER INIT 'w-ewkzuteilung.w' NO-UNDO.
    DEFINE VARIABLE cProgramm AS CHARACTER NO-UNDO.

    cProgramm = DYNAMIC-FUNCTION ('getSearch':U, sProg, '') NO-ERROR.
    IF cProgramm = ? THEN 
    DO:
        MESSAGE 'Programm ' sProg 'nicht gefunden'
            VIEW-AS ALERT-BOX.
    END.
    IF VALID-HANDLE(hEWK) THEN RETURN NO-APPLY.

    RUN VALUE(cProgramm) PERSISTENT
        SET hEWK ( INPUT rowObject.WHK_Code:HANDLE IN FRAME {&FRAME-NAME}, Progname ).
    RUN initializeObject IN hEWK.

END PROCEDURE.

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

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

    DEFINE OUTPUT PARAMETER opJa   AS LOG              NO-UNDO.

    DEFINE VARIABLE eHandle AS HANDLE    NO-UNDO.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    DEFINE VARIABLE iNummer AS INTEGER   NO-UNDO.

    opJa    = FALSE.
    eHandle = ?.
    IF NOT FMut THEN RETURN.

    AAA000:
    DO WHILE TRUE WITH FRAME {&FRAME-NAME}:

        LEAVE.
    END.

    IF VALID-HANDLE(eHandle) THEN 
    DO:
        APPLY 'ENTRY' TO eHandle.
        RETURN NO-APPLY.
    END.

    opJa = TRUE.
    
END PROCEDURE.

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

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

    DEFINE INPUT PARAMETER pcMode AS CHARACTER NO-UNDO.
  
    CASE pcMode:
        WHEN 'updateBegin' THEN 
            DO:
            END.
        WHEN 'updateEnd' THEN 
            DO:
            END.
    END.

    RUN SUPER( INPUT pcMode).

    CASE pcMode:
        WHEN 'updateBegin' THEN 
            DO:
                FMut = TRUE.
            END.
        WHEN 'updateEnd' THEN 
            DO:
                FNeu  = FALSE.
                FMut  = FALSE.
                FCopy = FALSE.
                DYNAMIC-FUNCTION('putArtstToSuperproc':U IN hDaten) NO-ERROR.
            END.
    END.

END PROCEDURE.

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

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

    DEFINE VARIABLE xNeu          AS LOG       NO-UNDO.
    DEFINE VARIABLE xCopy         AS LOG       NO-UNDO.
    DEFINE VARIABLE Ep            AS DECIMAL   DECIMALS 4 NO-UNDO.
    DEFINE VARIABLE hData         AS HANDLE    NO-UNDO.
    DEFINE VARIABLE cString       AS CHARACTER NO-UNDO.
    DEFINE VARIABLE dMind_Bestand AS DECIMAL   NO-UNDO.
    DEFINE VARIABLE dSoll_Best    AS DECIMAL   NO-UNDO.
    DEFINE VARIABLE dBestand      AS DECIMAL   NO-UNDO.
    DEFINE VARIABLE dBestellt     AS DECIMAL   NO-UNDO.
    DEFINE VARIABLE dReserviert   AS DECIMAL   NO-UNDO.
    DEFINE VARIABLE cBez1         AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cBez2         AS CHARACTER NO-UNDO.
    
    DEFINE BUFFER BArtst FOR Artst.

    xNeu  = FNeu.
    xCopy = FCopy.
    DO WITH FRAME {&FRAME-NAME}:
        Artnr  = INTEGER(rowObject.Artnr :SCREEN-VALUE).
        Inhalt = INTEGER(rowObject.Inhalt:SCREEN-VALUE).
        Jahr   = INTEGER(rowObject.Jahr  :SCREEN-VALUE).
        
        FIND FIRST tArtLager WHERE tArtLager.Lager = iLager NO-ERROR.
        ASSIGN  {&List-4}.
        
        IF FNeu THEN 
        DO:
            IF Artnr = 0 THEN 
            DO:
                FIND LAST BArtst NO-LOCK USE-INDEX Artst-k1
                    WHERE BArtst.Firma  = Firma
                    AND   BArtst.Artnr  < 900000 NO-ERROR.
                IF AVAILABLE BArtst THEN 
                DO:
                    Artnr = BArtst.Artnr + 1.
                    rowObject.Artnr:SCREEN-VALUE = STRING(Artnr).
                END.
                ELSE 
                DO:
                    RUN FEHLER ( INPUT 1020 ).
                    APPLY 'ENTRY' TO rowObject.Artnr.
                    DYNAMIC-FUNCTION('setFlagAbbruch':U, TRUE, Progname ) NO-ERROR.
                    RETURN NO-APPLY.
                END.
            END.
            FIND Artst USE-INDEX Artst-k1
                WHERE Artst.Firma  = Firma
                AND   Artst.Artnr  = Artnr
                AND   Artst.Inhalt = Inhalt
                AND   Artst.Jahr   = Jahr    NO-LOCK NO-ERROR.
            IF AVAILABLE Artst THEN 
            DO:
                RUN FEHLER ( INPUT 1022 ).
                APPLY 'ENTRY' TO rowObject.Artnr.
                DYNAMIC-FUNCTION('setFlagAbbruch':U, TRUE, Progname ) NO-ERROR.
                RETURN NO-APPLY.
            END.
            FOR EACH tArtlager:
                ASSIGN  
                    tArtLager.Firma  = Firma
                    tArtLager.Artnr  = Artnr
                    tArtLager.Inhalt = Inhalt
                    tArtLager.Jahr   = Jahr.
            END.
            FOR EACH WArtBez:
                ASSIGN  
                    WArtBez.Artnr  = Artnr
                    WArtBez.Inhalt = Inhalt
                    WArtBez.Jahr   = Jahr.
            END.
        END.
        
        ASSIGN  {&List-6}.
        FIND FIRST WArtBez WHERE WArtBez.Sprcd = VSprcd NO-ERROR.
        IF NOT AVAILABLE WArtBez THEN CREATE WArtbez.
        ASSIGN  
            WArtBez.Bez1       = F_Bez1
            WArtBez.Bez2       = F_Bez2
            WArtBez.Bez2_Druck = T_Bez2_Druck.
                
        rowObject.Bez:SCREEN-VALUE          = F_Bez1:SCREEN-VALUE.
        rowObject.KGeb_Cd:SCREEN-VALUE      = CB_KGebinde:SCREEN-VALUE.
        rowObject.VGeb_Cd:SCREEN-VALUE      = CB_VGebinde:SCREEN-VALUE.
        rowObject.GGeb_Cd:SCREEN-VALUE      = CB_GGebinde:SCREEN-VALUE.
        rowObject.Wg_Grp:SCREEN-VALUE       = CB_Wgr:SCREEN-VALUE.
        rowObject.Prod_Grp:SCREEN-VALUE     = CB_Pgr:SCREEN-VALUE.
        rowObject.Art_Grp:SCREEN-VALUE      = CB_Agr:SCREEN-VALUE.
        rowObject.Rab_Grp:SCREEN-VALUE      = CB_RabGrp:SCREEN-VALUE.
        rowObject.Bonus_Grp:SCREEN-VALUE    = CB_BonGrp:SCREEN-VALUE.
        rowObject.Farbe:SCREEN-VALUE        = CB_Farbe:SCREEN-VALUE.
        rowObject.Traub_Grp:SCREEN-VALUE    = CB_Traube:SCREEN-VALUE.
        rowObject.Reg_Grp:SCREEN-VALUE      = CB_Region:SCREEN-VALUE.
        rowObject.Herk_Lkz:SCREEN-VALUE     = CB_HerkLand:SCREEN-VALUE.
        rowObject.Herst:SCREEN-VALUE        = CB_Hersteller:SCREEN-VALUE.
        rowObject.Style:SCREEN-VALUE        = CB_Style:SCREEN-VALUE.
        rowObject.MWST:SCREEN-VALUE         = CB_MWST:SCREEN-VALUE.
        rowObject.Netto:SCREEN-VALUE        = CB_Netto:SCREEN-VALUE.
        rowObject.Lager:SCREEN-VALUE        = CB_Lagerhaltung:SCREEN-VALUE.
        rowObject.Sk_Ber:SCREEN-VALUE       = CB_SkBer:SCREEN-VALUE.
        rowObject.Preisliste:SCREEN-VALUE   = CB_Preisliste:SCREEN-VALUE.
        rowObject.Leih_Art:SCREEN-VALUE     = CB_LeihArt:SCREEN-VALUE.
        rowObject.Ausverk:SCREEN-VALUE      = CB_Status:SCREEN-VALUE.

        IF FNeu THEN 
        DO:
            rowObject.Firma:SCREEN-VALUE  = Firma.
            rowObject.ErfDat:SCREEN-VALUE = STRING(TODAY).
            rowObject.ErfSb:SCREEN-VALUE  = DYNAMIC-FUNCTION('getDBUser':U) NO-ERROR.

            IF NOT VALID-HANDLE(Fenster)
                THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION.
            IF SAktiv
                THEN DYNAMIC-FUNCTION('SETMODIFIEDFLAG':U,
                    INPUT Fenster, INPUT TRUE ).
        END.
        ELSE 
        DO:
            rowObject.MutDat:SCREEN-VALUE = STRING(TODAY).
            rowObject.MutSb:SCREEN-VALUE  = DYNAMIC-FUNCTION('getDBUser':U) NO-ERROR.
        END.
    END.

    REPEAT TRANSACTION:
        FOR EACH WArtbez:
            FIND Artbez OF WArtbez NO-ERROR.
            IF NOT AVAILABLE Artbez THEN 
            DO:
                CREATE  ArtBez.
                ASSIGN  
                    ArtBez.Firma  = Firma
                    ArtBez.Artnr  = Artnr
                    ArtBez.Inhalt = Inhalt
                    ArtBez.Jahr   = Jahr
                    ArtBez.Sprcd  = WArtbez.Sprcd.
            END.
            BUFFER-COPY WArtBez
                USING   Bez1        Bez2
                Bez2_Druck  ZusText
                TO      ArtBez.
        END.
        RELEASE ArtBez.
        LEAVE.
    END.
    
    FNeu      = FALSE.
    FCopy     = FALSE.
    lArtLager = FALSE.
    
    REPEAT TRANSACTION:
        RUN SUPER.  
        LEAVE.
    END.

    REPEAT TRANSACTION:
        IF FMarge THEN 
        DO:
            Ep = DECIMAL(rowObject.Listen_Ep:SCREEN-VALUE) NO-ERROR.
            FOR EACH ArtPreis USE-INDEX ArtPreis-k1
                WHERE ArtPreis.Firma  = Firma
                AND   ArtPreis.Artnr  = Artnr
                AND   ArtPreis.Inhalt = Inhalt
                AND   ArtPreis.Jahr   = Jahr
                AND   ArtPreis.Aktiv  = TRUE:
                IF Ep <> 0 THEN ArtPreis.Marge = 100 - (Ep * 100 / ArtPreis.VK_Netto).
                ELSE            ArtPreis.Marge = 0.
            END.
            PUBLISH 'OPENPREIS'.
        END.
        FOR EACH tArtLager WHERE tArtLager.Lager < 999999:
            FIND ArtLager OF tArtLager NO-ERROR.
            IF NOT AVAILABLE ArtLager THEN 
            DO:
                CREATE  ArtLager.
                ASSIGN  
                    ArtLager.Firma  = Firma
                    ArtLager.Artnr  = Artnr
                    ArtLager.Inhalt = Inhalt
                    ArtLager.Jahr   = Jahr
                    ArtLager.Lager  = tArtLager.Lager.
            END.
            BUFFER-COPY tArtLager
                USING   Mind_Bestand  Soll_Bestand  Meld_Bestand    Ort
                TO      ArtLager.
        END.
        LEAVE.
    END.
    
    DO WITH FRAME {&FRAME-NAME}:
        DYNAMIC-FUNCTION('getAktuellesLager':U) NO-ERROR.
        DISPLAY {&List-4}.
        lArtLager = TRUE.
    END.
    
    IF NOT xNeu THEN RETURN.
    
    REPEAT TRANSACTION:
        CREATE  ArtUms.
        ASSIGN  
            ArtUms.Firma  = Firma
            ArtUms.Jahr   = YEAR(TODAY)
            ArtUms.Artnr  = Artnr
            ArtUms.Inhalt = Inhalt
            ArtUms.Jahrg  = Jahr.
        RELEASE ArtUms.
        LEAVE.
    END.

    DYNAMIC-FUNCTION('putArtstToSuperproc':U IN hDaten) NO-ERROR.
    
    xNeu  = FALSE.
    xCopy = FALSE.

END PROCEDURE.

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

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

    DEFINE INPUT PARAMETER ipHandle        AS HANDLE           NO-UNDO.

    DEFINE VARIABLE FeldName   AS CHARACTER NO-UNDO.
    DEFINE VARIABLE FeldInhalt AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ix         AS INTEGER   NO-UNDO.
    DEFINE VARIABLE LKY        AS INTEGER   NO-UNDO.
    DEFINE VARIABLE Wgr        AS INTEGER   NO-UNDO.
    DEFINE VARIABLE Pgr        AS INTEGER   NO-UNDO.
    DEFINE VARIABLE hSELF      AS HANDLE    NO-UNDO.

    LKY        = LASTKEY.
    FeldName   = ''.
    FeldInhalt = ''.
    IF NOT VALID-HANDLE(ipHandle)   THEN RETURN ''.
    IF ipHandle:TYPE = 'FRAME'      THEN RETURN ''.
    IF ipHandle:TYPE = 'WINDOW'     THEN RETURN ''.
    
    FeldName = ipHandle:NAME.
    IF ipHandle:TYPE = 'FILL-IN'    OR
        ipHandle:TYPE = 'COMBO-BOX'  OR
        ipHandle:TYPE = 'TOGGLE-BOX' THEN FeldInhalt = ipHandle:SCREEN-VALUE.

    hSELF = ipHandle.
    DO WHILE NOT FMut WITH FRAME {&FRAME-NAME}:
        CASE FeldName:
            WHEN 'CB_KGebinde'     THEN 
                FeldInhalt = rowObject.KGeb_Cd:SCREEN-VALUE.
            WHEN 'CB_VGebinde'     THEN 
                FeldInhalt = rowObject.VGeb_Cd:SCREEN-VALUE.
            WHEN 'CB_GGebinde'     THEN 
                FeldInhalt = rowObject.GGeb_Cd:SCREEN-VALUE.
            WHEN 'CB_Wgr'          THEN 
                FeldInhalt = rowObject.Wg_Grp:SCREEN-VALUE.
            WHEN 'CB_Pgr'          THEN 
                FeldInhalt = rowObject.Prod_Grp:SCREEN-VALUE.
            WHEN 'CB_Agr'          THEN 
                FeldInhalt = rowObject.Art_Grp:SCREEN-VALUE.
            WHEN 'CB_Rabgrp'       THEN 
                FeldInhalt = rowObject.Rab_Grp:SCREEN-VALUE.
            WHEN 'CB_Bongrp'       THEN 
                FeldInhalt = rowObject.Bonus_Grp:SCREEN-VALUE.
            WHEN 'CB_Farbe'        THEN 
                FeldInhalt = rowObject.Farbe:SCREEN-VALUE.
            WHEN 'CB_Traube'       THEN 
                FeldInhalt = rowObject.Traub_Grp:SCREEN-VALUE.
            WHEN 'CB_Region'       THEN 
                FeldInhalt = rowObject.Reg_Grp:SCREEN-VALUE.
            WHEN 'CB_HerkLand'     THEN 
                FeldInhalt = rowObject.Herk_Lkz:SCREEN-VALUE.
            WHEN 'CB_Hersteller'   THEN 
                FeldInhalt = rowObject.Herst:SCREEN-VALUE.
            WHEN 'CB_MWST'         THEN 
                FeldInhalt = rowObject.MWST:SCREEN-VALUE.
            WHEN 'CB_Netto'        THEN 
                FeldInhalt = rowObject.Netto:SCREEN-VALUE.
            WHEN 'CB_Lagerhaltung' THEN 
                FeldInhalt = rowObject.Lager:SCREEN-VALUE.
            WHEN 'CB_SkBer'        THEN 
                FeldInhalt = rowObject.Sk_Ber:SCREEN-VALUE.
            WHEN 'CB_Preisliste'   THEN 
                FeldInhalt = rowObject.Preisliste:SCREEN-VALUE.
            WHEN 'CB_LeihArt'      THEN 
                FeldInhalt = rowObject.Leih_Art :SCREEN-VALUE.
            WHEN 'CB_Status'       THEN 
                FeldInhalt = rowObject.Ausverk  :SCREEN-VALUE.
            WHEN 'CB_Style'        THEN 
                FeldInhalt = rowObject.Style    :SCREEN-VALUE.
            WHEN 'T_Zusatz'        THEN 
                FeldInhalt = STRING(T_Zusatz).
            WHEN 'T_Bez2_Druck'    THEN 
                FeldInhalt = STRING(T_Bez2_Druck).
            WHEN 'EShop'           THEN 
                DO:
                    IF FeldInhalt BEGINS 'n' THEN FeldInhalt = 'yes'.
                    ELSE FeldInhalt = 'no'.
                END.
            WHEN 'EShop_2'         THEN 
                DO:
                    IF FeldInhalt BEGINS 'n' THEN FeldInhalt = 'yes'.
                    ELSE FeldInhalt = 'no'.
                END.
            WHEN 'lVerfall'        THEN 
                DO:
                    IF FeldInhalt BEGINS 'n' THEN FeldInhalt = 'yes'.
                    ELSE FeldInhalt = 'no'.
                END.
            WHEN 'lLotnr'          THEN 
                DO:
                    IF FeldInhalt BEGINS 'n' THEN FeldInhalt = 'yes'.
                    ELSE FeldInhalt = 'no'.
                END.
            OTHERWISE 
            RETURN ''.
        END CASE.
        ipHandle:SCREEN-VALUE = FeldInhalt NO-ERROR.
        RETURN ''.
    END.

    DO WHILE FMut WITH FRAME {&FRAME-NAME}:
        CASE FeldName:
            WHEN 'CB_KGebinde'     THEN 
                rowObject.KGeb_Cd:SCREEN-VALUE    = hSELF:SCREEN-VALUE.
            WHEN 'CB_VGebinde'     THEN 
                rowObject.VGeb_Cd:SCREEN-VALUE    = hSELF:SCREEN-VALUE.
            WHEN 'CB_GGebinde'     THEN 
                rowObject.GGeb_Cd:SCREEN-VALUE    = hSELF:SCREEN-VALUE.
            WHEN 'CB_Rabgrp'       THEN 
                rowObject.Rab_Grp:SCREEN-VALUE    = hSELF:SCREEN-VALUE.
            WHEN 'CB_Bongrp'       THEN 
                rowObject.Bonus_Grp:SCREEN-VALUE  = hSELF:SCREEN-VALUE.
            WHEN 'CB_Farbe'        THEN 
                rowObject.Farbe:SCREEN-VALUE      = hSELF:SCREEN-VALUE.
            WHEN 'CB_Traube'       THEN 
                rowObject.Traub_Grp:SCREEN-VALUE  = hSELF:SCREEN-VALUE.
            WHEN 'CB_Region'       THEN 
                rowObject.Reg_Grp:SCREEN-VALUE    = hSELF:SCREEN-VALUE.
            WHEN 'CB_HerkLand'     THEN 
                rowObject.Herk_Lkz:SCREEN-VALUE   = hSELF:SCREEN-VALUE.
            WHEN 'CB_Hersteller'   THEN 
                rowObject.Herst:SCREEN-VALUE      = hSELF:SCREEN-VALUE.
            WHEN 'CB_MWST'         THEN 
                rowObject.MWST:SCREEN-VALUE       = hSELF:SCREEN-VALUE.
            WHEN 'CB_Netto'        THEN 
                rowObject.Netto:SCREEN-VALUE      = hSELF:SCREEN-VALUE.
            WHEN 'CB_Lagerhaltung' THEN 
                rowObject.Lager:SCREEN-VALUE      = hSELF:SCREEN-VALUE.
            WHEN 'CB_SkBer'        THEN 
                rowObject.Sk_Ber:SCREEN-VALUE     = hSELF:SCREEN-VALUE.
            WHEN 'CB_Preisliste'   THEN 
                rowObject.Preisliste:SCREEN-VALUE = hSELF:SCREEN-VALUE.
            WHEN 'CB_LeihArt'      THEN 
                rowObject.Leih_Art:SCREEN-VALUE   = hSELF:SCREEN-VALUE.
            WHEN 'CB_Status'       THEN 
                rowObject.Ausverk:SCREEN-VALUE    = hSELF:SCREEN-VALUE.
            WHEN 'CB_Style'        THEN 
                rowObject.Style:SCREEN-VALUE      = hSELF:SCREEN-VALUE.
            WHEN 'T_Zusatz'        THEN 
                hSELF:SCREEN-VALUE = STRING(T_Zusatz).
            WHEN 'T_Bez2_Druck'    THEN 
                IF hSELF:SCREEN-VALUE BEGINS 'n' THEN T_Bez2_Druck = FALSE.
                ELSE                                  T_Bez2_Druck = TRUE.
            WHEN 'CB_Wgr' THEN 
                DO:
                    rowObject.Wg_Grp:SCREEN-VALUE = hSELF:SCREEN-VALUE.
                    Wgr = INTEGER(rowObject.Wg_Grp:SCREEN-VALUE).
                    RUN COMBO_PRODUKTEGRUPPE ( INPUT CB_Pgr:HANDLE, INPUT Wgr ).
                    CB_Pgr:SCREEN-VALUE = rowObject.Prod_Grp:SCREEN-VALUE NO-ERROR.
                    rowObject.Prod_Grp:SCREEN-VALUE = CB_Pgr:SCREEN-VALUE.
                    Pgr = INTEGER(rowObject.Prod_Grp:SCREEN-VALUE).
                    RUN COMBO_ARTIKELGRUPPE  ( INPUT CB_Agr:HANDLE, INPUT Wgr,
                        INPUT Pgr ).
                    CB_Agr:SCREEN-VALUE = rowObject.Art_Grp:SCREEN-VALUE NO-ERROR.
                    rowObject.Art_Grp:SCREEN-VALUE = CB_Agr:SCREEN-VALUE.
                END.
            WHEN 'CB_Pgr' THEN 
                DO:
                    rowObject.Prod_Grp:SCREEN-VALUE = hSELF:SCREEN-VALUE.
                    Wgr = INTEGER(rowObject.Wg_Grp  :SCREEN-VALUE).
                    Pgr = INTEGER(rowObject.Prod_Grp:SCREEN-VALUE).
                    RUN COMBO_ARTIKELGRUPPE  ( INPUT CB_Agr:HANDLE, INPUT Wgr,
                        INPUT Pgr ).
                    CB_Agr:SCREEN-VALUE = rowObject.Art_Grp:SCREEN-VALUE NO-ERROR.
                    rowObject.Art_Grp:SCREEN-VALUE = CB_Agr:SCREEN-VALUE.
                END.
            WHEN 'CB_Agr' THEN 
                DO:
                    rowObject.Art_Grp:SCREEN-VALUE    = hSELF:SCREEN-VALUE.
                END.
            OTHERWISE 
            RETURN ''.
        END CASE.
        IF hSelf:TYPE = 'FILL-IN' THEN hSELF:BGCOLOR = 15.
        RETURN ''.
    END.

    RETURN ''.

END PROCEDURE.

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

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getAktuellesLager vTableWin 
FUNCTION getAktuellesLager RETURNS LOGICAL
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DO WITH FRAME {&FRAME-NAME}:
        iLager = INTEGER(CB_Lager:SCREEN-VALUE).
        FIND FIRST tArtLager NO-LOCK
            WHERE tArtLager.Lager = iLager NO-ERROR.
        IF NOT AVAILABLE tArtLager THEN 
        DO:
            CREATE  tArtLager.
            ASSIGN  
                tArtLager.Firma  = Firma
                tArtLager.Artnr  = Artnr
                tArtLager.Inhalt = Inhalt
                tArtLager.Jahr   = Jahr
                tArtLager.Lager  = iLager.
        END.
        DISPLAY {&List-4}.
    END.
    RETURN TRUE.

END FUNCTION.

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