GeMIS_WEB/GUI/g-artikel-analyse.w

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

  File: 

  Description: from cntnrdlg.w - ADM2 SmartDialog Template

  Input Parameters:
      <none>

  Output Parameters:
      <none>

  Author: 

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

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

CREATE WIDGET-POOL.

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

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */

DEFINE VARIABLE MaxPage  AS INTEGER   NO-UNDO.
DEFINE VARIABLE AktSeite AS INTEGER   NO-UNDO.
DEFINE VARIABLE FMutFlag AS LOG       NO-UNDO.
DEFINE VARIABLE Fenster  AS HANDLE    NO-UNDO.
DEFINE VARIABLE Firma    AS CHARACTER INIT '1000' NO-UNDO.
DEFINE VARIABLE AdFirma  AS CHARACTER INIT '1000' NO-UNDO.
DEFINE VARIABLE Besnr    AS INTEGER   NO-UNDO.
DEFINE VARIABLE FwFRW    AS CHARACTER NO-UNDO.
DEFINE VARIABLE FwSprcd  AS INTEGER   NO-UNDO.
DEFINE VARIABLE RetVal   AS CHARACTER NO-UNDO.

DEFINE BUFFER BArtst FOR Artst.

DEFINE TEMP-TABLE tArtLief LIKE ArtLief
    FIELD Verbrauch    AS DECIMAL
    FIELD Umsatz       AS DECIMAL
    FIELD LagOrt       AS CHARACTER
    FIELD Lieferanten  AS CHARACTER
    FIELD TagesBestand AS INTEGER
    FIELD Bestand      AS INTEGER .

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

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

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

&Scoped-define ADM-CONTAINER DIALOG-BOX

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

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

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS Hersteller Warengruppen Preisgruppen ~
VonArtnr BisArtnr VonKnr BisKnr VonDatum BisDatum Btn_Excel RECT-37 
&Scoped-Define DISPLAYED-OBJECTS Hersteller Warengruppen Preisgruppen ~
VonArtnr BisArtnr VonKnr BisKnr VonDatum BisDatum 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-5 Btn_Excel 
&Scoped-define List-6 Hersteller Warengruppen Preisgruppen VonArtnr ~
BisArtnr VonKnr BisKnr VonDatum BisDatum 

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



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

/* Define a dialog box                                                  */

/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Excel 
    IMAGE-UP FILE "grafik/results%.ico":U
    LABEL "Excel" 
    SIZE 7 BY 1.81.

DEFINE VARIABLE BisArtnr     AS INTEGER   FORMAT "999999":U INITIAL 999999 
    VIEW-AS FILL-IN NATIVE 
    SIZE 11 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE BisDatum     AS DATE      FORMAT "99.99.9999":U INITIAL 01/01/02 
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE BisKnr       AS INTEGER   FORMAT "999999":U INITIAL 999999 
    VIEW-AS FILL-IN NATIVE 
    SIZE 11 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE Hersteller   AS CHARACTER FORMAT "X(256)":U 
    LABEL "Hersteller" 
    VIEW-AS FILL-IN NATIVE 
    SIZE 46 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE Preisgruppen AS CHARACTER FORMAT "X(256)":U 
    LABEL "ausgeschl. Preisgruppen" 
    VIEW-AS FILL-IN NATIVE 
    SIZE 46 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE VonArtnr     AS INTEGER   FORMAT "999999":U INITIAL 0 
    LABEL "von - bis Artikelnummer" 
    VIEW-AS FILL-IN NATIVE 
    SIZE 11 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE VonDatum     AS DATE      FORMAT "99.99.9999":U INITIAL 01/01/02 
    LABEL "Verbrauch von - bis Datum" 
    VIEW-AS FILL-IN NATIVE 
    SIZE 16 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE VonKnr       AS INTEGER   FORMAT "999999":U INITIAL 0 
    LABEL "von - bis Lieferant" 
    VIEW-AS FILL-IN NATIVE 
    SIZE 11 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE VARIABLE Warengruppen AS CHARACTER FORMAT "X(256)":U 
    LABEL "Warengruppen" 
    VIEW-AS FILL-IN NATIVE 
    SIZE 46 BY 1
    BGCOLOR 15 NO-UNDO.

DEFINE RECTANGLE RECT-37
    EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
    SIZE 90 BY 7.14.


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

DEFINE FRAME gArtikelanalyse
    Hersteller AT ROW 2 COL 28 COLON-ALIGNED
    Warengruppen AT ROW 3 COL 28 COLON-ALIGNED
    Preisgruppen AT ROW 4 COL 28 COLON-ALIGNED
    VonArtnr AT ROW 5 COL 28 COLON-ALIGNED
    BisArtnr AT ROW 5 COL 45 COLON-ALIGNED NO-LABELS
    VonKnr AT ROW 6 COL 28 COLON-ALIGNED
    BisKnr AT ROW 6 COL 45 COLON-ALIGNED NO-LABELS
    VonDatum AT ROW 7 COL 28 COLON-ALIGNED
    BisDatum AT ROW 7 COL 45 COLON-ALIGNED NO-LABELS
    Btn_Excel AT ROW 5.24 COL 82.2
    RECT-37 AT ROW 1.24 COL 2
    SPACE(0.99) SKIP(0.23)
    WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER 
    SIDE-LABELS NO-UNDERLINE THREE-D  SCROLLABLE 
    TITLE "Artikelanalyse".


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

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

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

{src/adm2/containr.i}

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




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

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR DIALOG-BOX gArtikelanalyse
   FRAME-NAME Custom                                                    */
ASSIGN 
    FRAME gArtikelanalyse:SCROLLABLE = FALSE
    FRAME gArtikelanalyse:HIDDEN     = TRUE.

/* SETTINGS FOR FILL-IN BisArtnr IN FRAME gArtikelanalyse
   6                                                                    */
/* SETTINGS FOR FILL-IN BisDatum IN FRAME gArtikelanalyse
   6                                                                    */
/* SETTINGS FOR FILL-IN BisKnr IN FRAME gArtikelanalyse
   6                                                                    */
/* SETTINGS FOR BUTTON Btn_Excel IN FRAME gArtikelanalyse
   5                                                                    */
/* SETTINGS FOR FILL-IN Hersteller IN FRAME gArtikelanalyse
   6                                                                    */
/* SETTINGS FOR FILL-IN Preisgruppen IN FRAME gArtikelanalyse
   6                                                                    */
/* SETTINGS FOR FILL-IN VonArtnr IN FRAME gArtikelanalyse
   6                                                                    */
/* SETTINGS FOR FILL-IN VonDatum IN FRAME gArtikelanalyse
   6                                                                    */
/* SETTINGS FOR FILL-IN VonKnr IN FRAME gArtikelanalyse
   6                                                                    */
/* SETTINGS FOR FILL-IN Warengruppen IN FRAME gArtikelanalyse
   6                                                                    */
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


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

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

 



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

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

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


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

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


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

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


&Scoped-define SELF-NAME BisKnr
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL BisKnr gArtikelanalyse
ON ALT-F OF BisKnr IN FRAME gArtikelanalyse
    DO:
        DEFINE VARIABLE aRecid AS RECID NO-UNDO.

        RUN 'g-suchen-adresse.w':U ( 'LIE;', OUTPUT aRecid ).
        IF aRecid = ?   OR
            aRecid = 0   THEN RETURN NO-APPLY.
        FIND Adresse NO-LOCK
            WHERE RECID(Adresse) = aRecid.
        SELF:SCREEN-VALUE = STRING(Adresse.Knr).
        APPLY 'ENTRY' TO SELF.
        RETURN NO-APPLY.
    END.

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


&Scoped-define SELF-NAME Btn_Excel
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Excel gArtikelanalyse
ON CHOOSE OF Btn_Excel IN FRAME gArtikelanalyse /* Excel */
    DO:
        DO WITH FRAME {&FRAME-NAME}:
            Btn_Excel:VISIBLE = FALSE.
            RUN REPORT.
            Btn_Excel:VISIBLE = TRUE.
            RUN ENDE.
        END.
    END.

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


&Scoped-define SELF-NAME Hersteller
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Hersteller gArtikelanalyse
ON HELP OF Hersteller IN FRAME gArtikelanalyse /* Hersteller */
    DO:
        RUN g-auswahl-tabelle.w ( INPUT SELF:HANDLE, INPUT 'HERST' ).
        APPLY 'END' TO SELF.
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Hersteller gArtikelanalyse
ON LEFT-MOUSE-DBLCLICK OF Hersteller IN FRAME gArtikelanalyse /* Hersteller */
    DO:
        RUN g-auswahl-tabelle.w ( INPUT SELF:HANDLE, INPUT 'HERST' ).
        APPLY 'END' TO SELF.
    END.

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


&Scoped-define SELF-NAME Preisgruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Preisgruppen gArtikelanalyse
ON HELP OF Preisgruppen IN FRAME gArtikelanalyse /* ausgeschl. Preisgruppen */
    DO:
        RUN g-auswahl-tabelle.w ( INPUT SELF:HANDLE, 'PREGRP' ).
        APPLY 'END' TO SELF.
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Preisgruppen gArtikelanalyse
ON LEFT-MOUSE-DBLCLICK OF Preisgruppen IN FRAME gArtikelanalyse /* ausgeschl. Preisgruppen */
    DO:
        RUN g-auswahl-tabelle.w ( INPUT SELF:HANDLE, 'PREGRP' ).
        APPLY 'END' TO SELF.
    END.

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


&Scoped-define SELF-NAME VonKnr
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL VonKnr gArtikelanalyse
ON ALT-F OF VonKnr IN FRAME gArtikelanalyse /* von - bis Lieferant */
    DO:
        DEFINE VARIABLE aRecid AS RECID NO-UNDO.

        RUN 'g-suchen-adresse.w':U ( 'LIE;', OUTPUT aRecid ).
        IF aRecid = ?   OR
            aRecid = 0   THEN RETURN NO-APPLY.
        FIND Adresse NO-LOCK
            WHERE RECID(Adresse) = aRecid.
        SELF:SCREEN-VALUE = STRING(Adresse.Knr).
        BisKnr:SCREEN-VALUE = STRING(Adresse.Knr).
        APPLY 'ENTRY' TO SELF.
        RETURN NO-APPLY.
    END.

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


&Scoped-define SELF-NAME Warengruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Warengruppen gArtikelanalyse
ON HELP OF Warengruppen IN FRAME gArtikelanalyse /* Warengruppen */
    DO:
        RUN g-auswahl-wgr.w ( INPUT SELF:HANDLE ).
        APPLY 'END' TO SELF.
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Warengruppen gArtikelanalyse
ON LEFT-MOUSE-DBLCLICK OF Warengruppen IN FRAME gArtikelanalyse /* Warengruppen */
    DO:
        RUN g-auswahl-wgr.w ( INPUT SELF:HANDLE ).
        APPLY 'END' TO SELF.
    END.

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


&UNDEFINE SELF-NAME

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


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

MaxPage  = 1.
AktSeite = 1.
Firma    = DYNAMIC-FUNCTION('GETMANDANT':U)   NO-ERROR.
AdFirma  = DYNAMIC-FUNCTION('GETADMANDANT':U) NO-ERROR.

GET-KEY-VALUE SECTION 'FwSteuer' KEY 'FwFRW' VALUE RetVal.
IF RetVal = ? THEN RetVal = 'CHF'.
FwFRW = RetVal.
GET-KEY-VALUE SECTION 'FwSteuer' KEY 'FwSprcd' VALUE RetVal.
IF RetVal = ? THEN RetVal = '1'.
FwSprcd = INTEGER(RetVal) NO-ERROR.

SESSION:DATA-ENTRY-RETURN = TRUE.

/*  ------------------------------------------------------------------  */

{src/adm2/dialogmn.i}

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects gArtikelanalyse  _ADM-CREATE-OBJECTS
PROCEDURE adm-create-objects :
/*------------------------------------------------------------------------------
  Purpose:     Create handles for all SmartObjects used in this procedure.
               After SmartObjects are initialized, then SmartLinks are added.
  Parameters:  <none>
------------------------------------------------------------------------------*/

END PROCEDURE.

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

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

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

    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ix      AS INTEGER   NO-UNDO.
    DEFINE VARIABLE ii      AS INTEGER   NO-UNDO.

    cString = ''.
    DO ix = 1 TO NUM-ENTRIES(ipString, ','):
        IF CString <> '' THEN cString = cString + ','.
        cString = cString + STRING(INTEGER(ENTRY(ix, ipString)),'999').
    END.
    ipString = cString.

END PROCEDURE.

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

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

    RUN NUMMER_LOESEN ( INPUT 3, OUTPUT Besnr ).
    IF Besnr = ? THEN RETURN 'ERROR'.

    REPEAT TRANSACTION:
        FIND Liefst USE-INDEX Liefst-k1
            WHERE Liefst.Firma = Firma
            AND   Liefst.Knr   = tArtLief.Knr NO-LOCK.
                   
        CREATE  Besko.
        ASSIGN  
            Besko.Firma      = Firma
            Besko.Besnr      = Besnr
            Besko.Knr        = Liefst.Knr
            Besko.Best_Datum = TODAY
            Besko.Lief_Datum = TODAY + 7
            Besko.Buch_Datum = ?
            Besko.I_Best     = Liefst.Kontakt
            Besko.Rabatt     = Liefst.Rabatt
            Besko.Gedruckt   = FALSE
            Besko.Verbucht   = FALSE
            Besko.Best_Sta   = 1
            Besko.Bemerkung  = Liefst.Bemerkung
            Besko.Kopf       = Liefst.Kopf
            Besko.Schluss    = Liefst.Schluss
            Besko.Kond       = Liefst.Kond.

        FIND Waehrung NO-LOCK USE-INDEX Waehrung-k1
            WHERE Waehrung.Firma = Liefst.Firma
            AND   Waehrung.FRW   = Liefst.FRW NO-ERROR.
        IF AVAILABLE Waehrung THEN 
        DO:
            ASSIGN  
                Besko.FRW    = Waehrung.FRW
                Besko.Faktor = Waehrung.Faktor
                Besko.Kurs   = Waehrung.Kurs.
        END.
        ELSE 
        DO:
            ASSIGN  
                Besko.FRW    = FwFRW
                Besko.Faktor = 1
                Besko.Kurs   = 1.0.
        END.
        LEAVE.
    END.
    RELEASE Besko.
    RETURN ''.

END PROCEDURE.

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

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

    DEFINE VARIABLE VPos AS INTEGER NO-UNDO.

    REPEAT TRANSACTION:
        FIND LAST Besze USE-INDEX Besze-k1
            WHERE Besze.Firma = Firma
            AND   Besze.Besnr = Besnr NO-LOCK NO-ERROR.
        IF AVAILABLE Besze THEN VPos = Besze.Pos + 10.
        ELSE                    VPos = 10.
        
        CREATE  Besze.
        ASSIGN  
            Besze.Firma       = Firma
            Besze.Besnr       = Besnr
            Besze.Pos         = VPos
            Besze.Artnr       = BArtst.Artnr
            Besze.Inhalt      = BArtst.Inhalt
            Besze.Jahr        = BArtst.Jahr
            Besze.Bez1        = Artbez.Bez1
            Besze.Bez2        = Artbez.Bez2
            Besze.Preis       = tArtLief.S_Preis
            Besze.Aktion      = FALSE
            Besze.Lager       = 0
            Besze.KGeb_Cd     = BArtst.KGeb_Cd
            Besze.VGeb_Cd     = BArtst.VGeb_Cd
            Besze.GGeb_Cd     = BArtst.GGeb_Cd
            Besze.KGebKto     = KGebinde.Geb_Kto
            Besze.VGebKto     = VGebinde.Geb_Kto
            Besze.GGebKto     = GGebinde.Geb_Kto
            Besze.EP          = tArtLief.L_EP
            Besze.S_Artnr     = tArtLief.S_Artnr
            Besze.S_Bez1      = tArtLief.S_Bez1
            Besze.S_Bez2      = tArtLief.S_Bez2
            Besze.S_Preis     = tArtLief.S_Preis
            Besze.S_Preis_FRW = tArtLief.S_Preis_FRW
            Besze.L_EP        = tArtLief.L_EP
            Besze.L_EP_FRW    = tArtLief.L_EP_FRW
            Besze.L_Rabatt    = tArtLief.L_Rabatt
            Besze.Spesen      = tArtLief.Spesen
            Besze.Rabatt      = tArtLief.Rabatt.
        LEAVE.
    END.
    RELEASE Besze.
    
END PROCEDURE.

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

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

    /* Code placed here will execute PRIOR to standard behavior. */

    RUN SUPER.

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

    CASE AktSeite:

        WHEN 1 THEN 
            DO:
                /*           RUN addLink ( h_dyntoolbar , 'TableIO':U    , h_v-auftr        ). */
                /*           RUN addLink ( h_dyntoolbar , 'Navigation':U , h_d-auftr        ). */
                /*           RUN ToolbarInit ( INPUT h_d-auftr ).                              */
                RUN ENTRY_CURSOR.
            END.
        WHEN 2 THEN 
            DO:
                RUN ENTRY_CURSOR.
            END.

    END CASE.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI gArtikelanalyse  _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 gArtikelanalyse.
END PROCEDURE.

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

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

    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.

    RUN SUPER.

    RUN FENSTER_TITEL ( INPUT FRAME {&FRAME-NAME}:HANDLE ) NO-ERROR.

    IF NOT VALID-HANDLE(Fenster)
        THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION.
    IF VALID-HANDLE(Fenster) THEN Fenster = Fenster:FIRST-CHILD.
    DO WHILE VALID-HANDLE(Fenster).
        DO WHILE TRUE WITH FRAME {&FRAME-NAME}:
            IF Fenster:TYPE = 'EDITOR'      THEN LEAVE.
            IF Fenster:TYPE = 'LITERAL'     THEN LEAVE.
            IF Fenster:TYPE = 'RECTANGLE'   THEN LEAVE.
            IF Fenster:TYPE = 'BUTTON'      THEN LEAVE.
            GET-KEY-VALUE SECTION 'ArtikelAnalyse'
                KEY     Fenster:NAME
                VALUE   cString.
            IF cString = ? THEN LEAVE.
            Fenster:SCREEN-VALUE = cString.
            LEAVE.
        END.
        Fenster = Fenster:NEXT-SIBLING.
    END.
    DO WITH FRAME {&FRAME-NAME}:
        ASSIGN  {&List-6}.
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI gArtikelanalyse  _DEFAULT-ENABLE
PROCEDURE enable_UI :
    /*------------------------------------------------------------------------------
      Purpose:     ENABLE the User Interface
      Parameters:  <none>
      Notes:       Here we display/view/enable the widgets in the
                   user-interface.  In addition, OPEN all queries
                   associated with each FRAME and BROWSE.
                   These statements here are based on the "Other 
                   Settings" section of the widget Property Sheets.
    ------------------------------------------------------------------------------*/
    DISPLAY Hersteller Warengruppen Preisgruppen VonArtnr BisArtnr VonKnr BisKnr 
        VonDatum BisDatum 
        WITH FRAME gArtikelanalyse.
    ENABLE Hersteller Warengruppen Preisgruppen VonArtnr BisArtnr VonKnr BisKnr 
        VonDatum BisDatum Btn_Excel RECT-37 
        WITH FRAME gArtikelanalyse.
    VIEW FRAME gArtikelanalyse.
    {&OPEN-BROWSERS-IN-QUERY-gArtikelanalyse}
END PROCEDURE.

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

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

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

    IF AktSeite > 1 THEN 
    DO:
        RUN selectPage ( INPUT 1 ).
        RETURN NO-APPLY.
    END.

    RUN ENDE_PROGRAMM ( INPUT THIS-PROCEDURE:FILE-NAME ).
    APPLY 'GO' TO FRAME {&FRAME-NAME}.
    RETURN NO-APPLY.

END PROCEDURE.

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

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

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

    CASE AktSeite:
    /*         WHEN 1 THEN RUN applyEntry IN h_v-adresse  ( INPUT ? ). */
    /*         WHEN 2 THEN RUN applyEntry IN h_f-adrkomm  ( INPUT ? ). */
    /*         WHEN 3 THEN RUN applyEntry IN h_b-auftbb   ( INPUT ? ). */
    /*         WHEN 4 THEN RUN applyEntry IN h_b-aufdet   ( INPUT ? ). */
    /*         WHEN 5 THEN RUN applyEntry IN h_b-aufstreu ( INPUT ? ). */
    /*         WHEN 6 THEN RUN applyEntry IN h_b-auffak   ( INPUT ? ). */
    /*         WHEN 7 THEN RUN applyEntry IN h_b-position ( INPUT ? ). */
    END CASE.

    RETURN NO-APPLY.

END PROCEDURE.

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

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

    RUN ENDE.
    RETURN NO-APPLY.

END PROCEDURE.

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

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

    DEFINE INPUT PARAMETER eh  AS COMPONENT-HANDLE       NO-UNDO.

    DEFINE VARIABLE Zelle AS CHARACTER NO-UNDO.

    FIND Steuer USE-INDEX Steuer-k1
        WHERE Steuer.Firma = Firma NO-LOCK NO-ERROR.

    Zelle = 'B1'.
    eh:Range(Zelle):SELECT.
    eh:SELECTION:VALUE = Steuer.Firma1.
    Zelle = 'H1'.
    eh:Range(Zelle):SELECT.
    eh:SELECTION:VALUE = 'Artikel - Analyse'.
    Zelle = 'Q1'.
    eh:Range(Zelle):SELECT.
    eh:SELECTION:VALUE = 'Datum : ' + STRING(TODAY,'99.99.9999').

    Zelle = 'B2'.
    eh:Range(Zelle):SELECT.
    eh:SELECTION:VALUE = Steuer.Ort.
    Zelle = 'H2'.
    eh:Range(Zelle):SELECT.
    eh:SELECTION:VALUE = STRING(VonDatum,'99.99.9999')
        + ' - '
        + STRING(BisDatum,'99.99.9999').
    Zelle = 'Q2'.
    eh:Range(Zelle):SELECT.
    eh:SELECTION:VALUE = 'Zeit  :     ' + STRING(TIME,'HH:MM:SS').

END PROCEDURE.

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

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

    DEFINE VARIABLE cString   AS CHARACTER        NO-UNDO.
    DEFINE VARIABLE ix        AS INTEGER          NO-UNDO.
    DEFINE VARIABLE ii        AS INTEGER          NO-UNDO.
    DEFINE VARIABLE Stern     AS CHARACTER        NO-UNDO.
    DEFINE VARIABLE Alk       AS CHARACTER        NO-UNDO.
    DEFINE VARIABLE xWgr      AS CHARACTER        NO-UNDO.
    DEFINE VARIABLE xPgr      AS CHARACTER        NO-UNDO.
    DEFINE VARIABLE xAgr      AS CHARACTER        NO-UNDO.
    DEFINE VARIABLE iVG       AS DECIMAL          NO-UNDO.
    DEFINE VARIABLE iGG       AS DECIMAL          NO-UNDO.
    DEFINE VARIABLE Divisor   AS DECIMAL          NO-UNDO.

    DEFINE VARIABLE OK        AS LOG              NO-UNDO.
    DEFINE VARIABLE excelAppl AS COMPONENT-HANDLE NO-UNDO.
    DEFINE VARIABLE Vorlage   AS CHARACTER        NO-UNDO.
    DEFINE VARIABLE Dokument  AS CHARACTER        NO-UNDO.
    DEFINE VARIABLE Daten     AS CHARACTER        NO-UNDO.
    DEFINE VARIABLE Zelle     AS CHARACTER        NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
        ASSIGN  {&List-6}.
        IF VonArtnr = 0 AND BisArtnr = 0 THEN BisArtnr = 999999.
        IF VonKnr   = 0 AND BisKnr   = 0 THEN BisKnr   = 999999.
        RUN BEREINIGEN ( INPUT-OUTPUT Hersteller   ).
        RUN BEREINIGEN ( INPUT-OUTPUT Warengruppen ).
        RUN BEREINIGEN ( INPUT-OUTPUT Preisgruppen ).
        IF VonDatum = ? THEN VonDatum = DATE(MONTH(TODAY - 1),01,YEAR(TODAY - 1)).
        IF BisDatum = ? THEN BisDatum = DATE(MONTH(TODAY),01,YEAR(TODAY)) - 1.
        IF BisDatum < VonDatum THEN BisDatum = VonDatum.
        DISPLAY {&list-6}.
    END.

    IF NOT VALID-HANDLE(Fenster)
        THEN Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION.
    IF VALID-HANDLE(Fenster) THEN Fenster = Fenster:FIRST-CHILD.
    DO WHILE VALID-HANDLE(Fenster).
        DO WHILE TRUE WITH FRAME {&FRAME-NAME}:
            IF Fenster:TYPE = 'EDITOR'      THEN LEAVE.
            IF Fenster:TYPE = 'LITERAL'     THEN LEAVE.
            IF Fenster:TYPE = 'RECTANGLE'   THEN LEAVE.
            IF Fenster:TYPE = 'BUTTON'      THEN LEAVE.
            cString = Fenster:SCREEN-VALUE.
            PUT-KEY-VALUE SECTION 'ArtikelAnalyse'
                KEY     Fenster:NAME
                VALUE   cString.
            LEAVE.
        END.
        Fenster = Fenster:NEXT-SIBLING.
    END.

    SESSION:SET-WAIT-STATE('GENERAL').

    RUN SELEKTION.

    Vorlage  = 'ArtikelAnalyse.xls'.
    Dokument = Vorlage + CHR(01) + Vorlage.
    Daten    = 'ArtikelAnalyse.csv'.

    excelAppl = DYNAMIC-FUNCTION('CREATEEXCEL':U) NO-ERROR.
    IF NOT VALID-HANDLE(excelAppl) THEN 
    DO:
        RUN FEHLER ( INPUT 1035 ).
        RETURN NO-APPLY.
    END.

    DO WHILE TRUE:
        RUN CREATEDATEI ( INPUT Dokument ).
        IF NOT RETURN-VALUE BEGINS 'ERROR-' THEN LEAVE.
        CASE RETURN-VALUE:
            WHEN 'ERROR-PARAMETER' THEN 
                DO:
                    RUN FEHLER ( INPUT 1036 ).
                    RETURN NO-APPLY.
                END.
            WHEN 'ERROR-LOESCHEN' THEN 
                DO:
                    RUN FEHLER ( INPUT 1037 ).
                    RETURN NO-APPLY.
                END.
            WHEN 'ERROR-VORLAGE' THEN 
                DO:
                    RUN FEHLER ( INPUT 1038 ).
                    RETURN NO-APPLY.
                END.
            OTHERWISE 
            DO:
                MESSAGE RETURN-VALUE VIEW-AS ALERT-BOX ERROR.
                RETURN NO-APPLY.
            END.
        END CASE.
        LEAVE.
    END.
    Dokument = RETURN-VALUE.

    DO WHILE TRUE:
        RUN CREATEDATEI ( INPUT Daten ).
        IF NOT RETURN-VALUE BEGINS 'ERROR-' THEN LEAVE.
        CASE RETURN-VALUE:
            WHEN 'ERROR-PARAMETER' THEN 
                DO:
                    RUN FEHLER ( INPUT 1036 ).
                    RETURN NO-APPLY.
                END.
            WHEN 'ERROR-LOESCHEN' THEN 
                DO:
                    RUN FEHLER ( INPUT 1037 ).
                    RETURN NO-APPLY.
                END.
            WHEN 'ERROR-VORLAGE' THEN 
                DO:
                    RUN FEHLER ( INPUT 1038 ).
                    RETURN NO-APPLY.
                END.
            OTHERWISE 
            DO:
                MESSAGE RETURN-VALUE VIEW-AS ALERT-BOX ERROR.
                RETURN NO-APPLY.
            END.
        END CASE.
        LEAVE.
    END.
    Daten = RETURN-VALUE.

    Divisor = (BisDatum - VonDatum) * 0.72.
    OUTPUT TO VALUE(Daten).

    PUT CONTROL '£' CHR(10)
        '£' CHR(10)
        '£' CHR(10)
        '£' CHR(10)
        '£Artnr/Inhalt£Bezeichnung£Wgr'
        '£Klein-£Verkaufs-£Gross-'
        '£Inhalt£Lieferant£Verbrauch£'
        'Einheiten£Paletten£Tages-£Umsatz Fr.'
        '£Standort'
        '£Bestand'
        '£TagesBest'                                CHR(10)
        '££££Gebinde£Gebinde£Gebinde'
        '££Kdnr££££Umsatz££'                        CHR(10)
        '££££££££££££in VE££'                       CHR(10)
        '£'                                         CHR(10).

    FOR EACH tArtLief USE-INDEX ArtLief-k2                  NO-LOCK,
        FIRST BArtst  USE-INDEX  Artst-k1
        WHERE BArtst.Firma  = tArtLief.Firma
        AND   BArtst.Artnr  = tArtLief.Artnr
        AND   BArtst.Inhalt = tArtLief.Inhalt
        AND   BArtst.Jahr   = tArtLief.Jahr    NO-LOCK

        BREAK BY tArtLief.Verbrauch DESCENDING
        BY BArtst.Artnr
        BY BArtst.Inhalt
        BY BArtst.Jahr    :

        IF (BArtst.Bestand + BArtst.Bestellt) <= BArtst.Mind_Bestand
            THEN Stern = '*'.
        ELSE      Stern = ''.

        FIND Artbez USE-INDEX Artbez-k1
            WHERE Artbez.Firma     = BArtst.Firma
            AND   Artbez.Artnr     = BArtst.Artnr
            AND   Artbez.Inhalt    = BArtst.Inhalt
            AND   Artbez.Jahr      = BArtst.Jahr
            AND   Artbez.Sprcd     = FwSprcd NO-LOCK NO-ERROR.
        IF NOT AVAILABLE Artbez THEN 
        DO:
            FIND FIRST Artbez OF BArtst NO-LOCK NO-ERROR.
        END.
        FIND KGebinde USE-INDEX KGebinde-k1
            WHERE KGebinde.Firma  = BArtst.Firma
            AND   KGebinde.Geb_Cd = BArtst.KGeb_Cd NO-LOCK NO-ERROR.
        FIND VGebinde USE-INDEX VGebinde-k1
            WHERE VGebinde.Firma  = BArtst.Firma
            AND   VGebinde.Geb_Cd = BArtst.VGeb_Cd NO-LOCK NO-ERROR.
        FIND GGebinde USE-INDEX GGebinde-k1
            WHERE GGebinde.Firma  = BArtst.Firma
            AND   GGebinde.Geb_Cd = BArtst.GGeb_Cd NO-LOCK NO-ERROR.
        iVG = tArtLief.Verbrauch / VGebinde.Inhalt NO-ERROR.
        iGG = iVG / GGebinde.Inhalt NO-ERROR.
    
        PUT CONTROL '£'
            STRING(BArtst.Artnr     ,'999999/')
            STRING(BArtst.Inhalt    ,'9999')                '£'
            ArtBez.Bez1                                     '£'
            STRING(BArtst.Wg_Grp    ,'zzz')                 '£'
            KGebinde.KBez                                   '£'
            VGebinde.KBez                                   '£'
            GGebinde.KBez                                   '£'
            STRING(KGebinde.Inhalt  ,'zzzz')                '£'
            tArtLief.Lieferanten                            '£'
            TRIM(STRING(tArtLief.Verbrauch,'->>>>>>>>'))    '£'.
        IF VGebinde.Inhalt > 1 THEN PUT CONTROL TRIM(STRING(iVG,'zzzzz9.9')).
        PUT CONTROL '£'.
        IF GGebinde.Inhalt > 1 THEN PUT CONTROL TRIM(STRING(iGG,'zzzzz9.9')).
        PUT CONTROL '£'.
        IF VGebinde.Inhalt > 0 THEN PUT CONTROL TRIM(STRING((iVG / Divisor),'zzzzz9.9')).
        PUT CONTROL '£'
            TRIM(STRING(tArtLief.Umsatz,'->>>>>>>>>'))
            '£'
            tArtLief.LagOrt
            '£'
            TRIM(STRING(tArtLief.Bestand     ,'->>>>>>>>>'))
            '£'
            TRIM(STRING(tArtLief.TagesBestand,'->>>>>>>>>'))
            CHR(10).

        IF ArtBez.Bez2 <> '' THEN 
        DO:
            PUT CONTROL '££'
                ArtBez.Bez2                         CHR(10).
        END.
    END.
    
    OUTPUT CLOSE.

    RUN OPENEXCEL ( INPUT excelAppl,
        INPUT Dokument,
        INPUT '',
        OUTPUT ok ).
    IF NOT ok THEN 
    DO:
        RUN FEHLER ( INPUT 1040 ).
        RETURN NO-APPLY.
    END.

    Zelle = 'A1'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:Selection:FormulaR1C1 = 'TEXT;' + Daten.
    excelAppl:Application:RUN ( 'DateiEinfügen' ).

    RUN KOPF ( INPUT excelAppl ).

    Zelle = 'A1'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:Selection:ColumnWidth = 0.3.
    
    DYNAMIC-FUNCTION('RELEASEEXCEL':U, INPUT excelAppl ) NO-ERROR.
    
    SESSION:SET-WAIT-STATE('').

END PROCEDURE.

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

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

    DEFINE INPUT PARAMETER piPageNum   AS INTEGER                      NO-UNDO.

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

    FMutFlag = DYNAMIC-FUNCTION('getMutflagAlt':U) NO-ERROR.
    DO WHILE TRUE:
        IF NOT FMutFlag THEN LEAVE.
        MutProg = DYNAMIC-FUNCTION('GETMUTPROG':U).
        IF MutProg <> THIS-PROCEDURE:FILE-NAME THEN LEAVE.
        RETURN NO-APPLY.
    END.

    CASE piPageNum:

    END CASE.

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

    CASE AktSeite:

        WHEN 1 THEN 
            DO:
            /*             RUN removeLink ( h_dyntoolbar , 'TableIO':U    , h_v-auftr       ). */
            /*             RUN removeLink ( h_dyntoolbar , 'Navigation':U , h_d-auftr       ). */
            END.

    END CASE.

    RUN SUPER( INPUT piPageNum).

END PROCEDURE.

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

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

    DEFINE VARIABLE Unter  AS LOG     NO-UNDO.
    DEFINE VARIABLE Menge  AS DECIMAL NO-UNDO.
    DEFINE VARIABLE Umsatz AS DECIMAL NO-UNDO.
    DEFINE VARIABLE Netto  AS DECIMAL NO-UNDO.

    FOR EACH tArtLief:
        DELETE  tArtLief.
    END.

    FOR EACH ArtLief USE-INDEX ArtLief-k2
        WHERE ArtLief.Firma  = Firma
        AND   ArtLief.Knr   >= VonKnr
        AND   ArtLief.Knr   <= BisKnr
        AND   ArtLief.Artnr >= VonArtnr
        AND   ArtLief.Artnr <= BisArtnr    NO-LOCK,
        
        FIRST Artst  USE-INDEX Artst-k1
        WHERE Artst.Firma    = ArtLief.Firma
        AND   Artst.Artnr    = ArtLief.Artnr
        AND   Artst.Inhalt   = ArtLief.Inhalt
        AND   Artst.Jahr     = ArtLief.Jahr
        AND ((Warengruppen   = '')         OR
        (Warengruppen  <> ''          AND
        LOOKUP(STRING(Artst.Wg_Grp,"999"), Warengruppen, ',') > 0))
        AND ((Hersteller     = '')         OR
        (Hersteller    <> ''          AND
        LOOKUP(STRING(Artst.Herst,"999"), Hersteller  , ',') > 0))
        AND   Artst.Aktiv    = TRUE
        AND   Artst.Ausverk  < 2           NO-LOCK :

        FIND FIRST tArtLief USE-INDEX ArtLief-k1
            WHERE tArtLief.Firma = Firma
            AND   tArtLief.Artnr = ArtLief.Artnr NO-LOCK NO-ERROR.
        IF AVAILABLE tArtLief THEN 
        DO:
            tArtLief.Lieferanten = tArtLief.Lieferanten
                + '/'
                + TRIM(STRING(ArtLief.Knr,'zzzzzz')).
            NEXT.
        END.

        Unter = FALSE.
        IF (Artst.Bestand + Artst.Bestellt) <= Artst.Mind_Bestand THEN Unter = TRUE.
        
        FIND ArtLager NO-LOCK 
            WHERE ArtLager.Firma  = Artst.Firma
            AND   ArtLager.Lager  = 0
            AND   ArtLager.Artnr  = Artst.Artnr
            AND   ArtLager.Inhalt = Artst.Inhalt
            AND   ArtLager.Jahr   = Artst.Jahr NO-ERROR.
        IF NOT AVAILABLE ArtLager THEN NEXT.

        CREATE  tArtLief.
        BUFFER-COPY ArtLief TO tArtLief.
        tArtLief.LagOrt = DYNAMIC-FUNCTION('GETLAGERORT':U, INPUT ArtLager.Lager ,
            INPUT tArtLief.Artnr ,
            INPUT tArtLief.Inhalt,
            INPUT tArtLief.Jahr  ) NO-ERROR.
        tArtLief.Lieferanten  = TRIM(STRING(ArtLief.Knr,'zzzzzz')).
        tArtLief.TagesBestand = ArtLager.Bestand. 
        tArtLief.Bestand      = ArtLager.Bestand. 

        Menge  = 0.
        Umsatz = 0.
        FOR EACH Artbw USE-INDEX Artbw-k2
            WHERE Artbw.Firma  = ArtLief.Firma
            AND   Artbw.Artnr  = ArtLief.Artnr
            AND   Artbw.Inhalt = ArtLief.Inhalt
            AND   Artbw.Jahr   = ArtLief.Jahr
            AND   Artbw.Datum >= VonDatum
            AND   Artbw.Tr_Art = 01 NO-LOCK:

            IF Preisgruppen <> '' THEN 
            DO:
                FIND Debst NO-LOCK USE-INDEX Debst-k1
                    WHERE Debst.Firma = Artbw.Firma
                    AND   Debst.Knr   = Artbw.Knr NO-ERROR.
                IF NOT AVAILABLE Debst THEN NEXT.
                IF LOOKUP(STRING(Debst.Preis_Grp,"999"), Preisgruppen, ',') = 0 THEN NEXT.
            END.

            IF Artbw.Datum <= BisDatum THEN Menge = Menge  + Artbw.Menge.
            IF Artbw.Datum  > (TODAY + 1) THEN tArtLief.TagesBestand = tArtLief.TagesBestand + Artbw.Menge.
            Netto = (Artbw.Net_Betr - Artbw.Auf_Rab - Artbw.Abh_Rab - Artbw.Auf_Sp_Rab).
            IF Artbw.MWST_Inkl THEN Netto = Netto * 100 / (100 + Artbw.MWST%).
            Umsatz = Umsatz + Netto.
        END.
        ASSIGN  
            tArtLief.Verbrauch = Menge
            tArtLief.Umsatz    = Umsatz.

    END.

END PROCEDURE.

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