GeMIS_WEB/GUI/v8/d-p_artikel-kunden-ums.w

&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI ADM1
&ANALYZE-RESUME
/* Connected Databases 
          anadat           PROGRESS
*/
&Scoped-define WINDOW-NAME CURRENT-WINDOW
&Scoped-define FRAME-NAME D-Dialog


/* Temp-Table and Buffer definitions                                    */
DEFINE TEMP-TABLE THilfsTab NO-UNDO LIKE HilfsTab.
DEFINE NEW SHARED TEMP-TABLE XTermOut NO-UNDO LIKE TermOut.



&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS D-Dialog 
/*------------------------------------------------------------------------

  File: 

  Description: from cntnrdlg.w - ADM SmartDialog Template

  Input Parameters:
      <none>

  Output Parameters:
      <none>

  Author: 

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

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

DEF VAR VProgName           AS CHAR                             NO-UNDO.
DEF VAR ARecid              AS RECID                            NO-UNDO.
DEF VAR BRecid              AS RECID                            NO-UNDO.
DEF VAR TRecid              AS RECID                            NO-UNDO.
DEF VAR VLiArt              AS INT                              NO-UNDO.
DEF VAR ok                  AS LOG                              NO-UNDO.
DEF VAR VTemp               AS CHAR                             NO-UNDO.
DEF VAR VZeile              AS CHAR FORMAT "x(255)"             NO-UNDO.
DEF VAR XWg_Grp             AS CHAR FORMAT "x(30)"              NO-UNDO.
DEF VAR XProd_Grp           AS CHAR FORMAT "x(30)"              NO-UNDO.
DEF VAR XArt_Grp            AS CHAR FORMAT "x(30)"              NO-UNDO.
DEF VAR XKund_Grp           AS CHAR FORMAT "x(30)"              NO-UNDO.
DEF VAR XPreis_Grp          AS CHAR FORMAT "x(30)"              NO-UNDO.
DEF VAR VWgTotal            AS DEC  DECIMALS 4  EXTENT 10       NO-UNDO.
DEF VAR VProdTotal          AS DEC  DECIMALS 4  EXTENT 10       NO-UNDO.
DEF VAR VArtTotal           AS DEC  DECIMALS 4  EXTENT 10       NO-UNDO.
DEF VAR VKundTotal          AS DEC  DECIMALS 4  EXTENT 10       NO-UNDO.
DEF VAR VKgrTotal           AS DEC  DECIMALS 4  EXTENT 10       NO-UNDO.
DEF VAR VPreTotal           AS DEC  DECIMALS 4  EXTENT 10       NO-UNDO.
DEF VAR GTotal              AS DEC  DECIMALS 4  EXTENT 10       NO-UNDO.
DEF VAR FTotal              AS LOG                              NO-UNDO.

DEF BUFFER BArtst       FOR Artst.
DEF BUFFER BDebst       FOR Debst.
DEF BUFFER BAdresse     FOR Adresse.

/*  ----------  Globale Variablen   ---------------------------------- */

{ v8/globvar.i" " " " "SHARED" }
{ v8/debivar.i " " " " "SHARED" }
{ v8/artivar.i " " " " "SHARED" }
{ v8/contvar.i " " " " "SHARED" }

{ v8/listtitv.i  "NEW" "SHARED" }

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

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

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS CB_Listenart RS_Sort RS_Sort-2 F_VArtnr ~
F_BArtnr F_Hersteller F_Warengruppe F_VDatum F_BDatum F_VKnr F_BKnr ~
F_Preisgruppen F_Kundengruppen F_Vertreter F_Touren F_Orte T_Detail ~
T_Vorjahr CB_Drucker CB_Schriftbild T_Drucker Btn_OK Btn_Cancel RECT-2 ~
RECT-3 RECT-4 
&Scoped-Define DISPLAYED-OBJECTS CB_Listenart RS_Sort RS_Sort-2 F_VArtnr ~
F_BArtnr F_Hersteller F_Warengruppe F_VDatum F_BDatum F_VKnr F_BKnr ~
F_Preisgruppen F_Kundengruppen F_Vertreter F_Touren F_Orte T_Detail ~
T_Vorjahr CB_Drucker CB_Schriftbild T_Drucker 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-1 RS_Sort RS_Sort-2 F_VArtnr F_BArtnr F_Hersteller ~
F_Warengruppe F_VDatum F_BDatum F_VKnr F_BKnr F_Preisgruppen ~
F_Kundengruppen F_Vertreter F_Touren F_Orte T_Detail T_Vorjahr T_Drucker 

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



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

/* Define a dialog box                                                  */

/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Cancel AUTO-END-KEY 
     LABEL "&Abbrechen" 
     SIZE 16.8 BY 1.24
     BGCOLOR 8 .

DEFINE BUTTON Btn_OK AUTO-GO 
     LABEL "&Start" 
     SIZE 16.8 BY 1.24
     BGCOLOR 8 .

DEFINE VARIABLE CB_Drucker AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS COMBO-BOX INNER-LINES 5
     DROP-DOWN-LIST
     SIZE 46.2 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE CB_Listenart AS CHARACTER FORMAT "X(256)":U 
     LABEL "Listenart" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEMS "Artikelumsätze pro Kunde" 
     DROP-DOWN-LIST
     SIZE 70 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE CB_Schriftbild AS CHARACTER FORMAT "X(256)":U 
     VIEW-AS COMBO-BOX INNER-LINES 5
     DROP-DOWN-LIST
     SIZE 46.2 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_BArtnr AS INTEGER FORMAT "999999":U INITIAL 0 
     LABEL "" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 12.6 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_BDatum AS DATE FORMAT "99.99.9999":U 
     LABEL "" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 19.6 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_BKnr AS INTEGER FORMAT "999999":U INITIAL 0 
     LABEL "" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 12.6 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Hersteller AS CHARACTER FORMAT "x(256)":U 
     LABEL "Hersteller" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 60.4 BY 1 TOOLTIP "F1 = Auswahl der Codes"
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Kundengruppen AS CHARACTER FORMAT "x(256)":U 
     LABEL "Kundengruppen" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 60.4 BY 1 TOOLTIP "F1 = Auswahl der Codes"
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Orte AS CHARACTER FORMAT "x(256)":U 
     LABEL "Orte" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 60.4 BY 1 TOOLTIP "F1 = Auswahl der Codes"
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Preisgruppen AS CHARACTER FORMAT "x(256)":U 
     LABEL "Preisgruppen" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 60.4 BY 1 TOOLTIP "F1 = Auswahl der Codes"
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Touren AS CHARACTER FORMAT "x(256)":U 
     LABEL "Touren" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 60.4 BY 1 TOOLTIP "F1 = Auswahl der Codes"
     BGCOLOR 15  NO-UNDO.

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

DEFINE VARIABLE F_VDatum AS DATE FORMAT "99.99.9999":U 
     LABEL "von - bis Datum" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 19.6 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Vertreter AS CHARACTER FORMAT "x(256)":U 
     LABEL "Vertreter" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 60.4 BY 1 TOOLTIP "F1 = Auswahl der Codes"
     BGCOLOR 15  NO-UNDO.

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

DEFINE VARIABLE F_Warengruppe AS CHARACTER FORMAT "x(256)":U 
     LABEL "Warengruppe" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 60.4 BY 1 TOOLTIP "F1 = Auswahl der Codes"
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE RS_Sort AS INTEGER INITIAL 1 
     VIEW-AS RADIO-SET VERTICAL
     RADIO-BUTTONS 
          "Warengruppe Produktegruppe Artikelgruppe", 1,
"", 2,
"", 3
     SIZE 70 BY 2.48 NO-UNDO.

DEFINE VARIABLE RS_Sort-2 AS INTEGER 
     VIEW-AS RADIO-SET VERTICAL
     RADIO-BUTTONS 
          "Suchbegriff", 1,
"Kundengruppe / Suchbegriff", 2,
"Preisgruppe / Suchbegriff", 3
     SIZE 49 BY 2.48 NO-UNDO.

DEFINE RECTANGLE RECT-2
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 137.2 BY 4.19.

DEFINE RECTANGLE RECT-3
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 137.2 BY 5.62.

DEFINE RECTANGLE RECT-4
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 137.2 BY 8.05.

DEFINE VARIABLE T_Detail AS LOGICAL INITIAL no 
     LABEL "Details ?" 
     VIEW-AS TOGGLE-BOX
     SIZE 31.6 BY .95 NO-UNDO.

DEFINE VARIABLE T_Drucker AS LOGICAL INITIAL no 
     LABEL "Druckersetup" 
     VIEW-AS TOGGLE-BOX
     SIZE 28 BY 1 NO-UNDO.

DEFINE VARIABLE T_Vorjahr AS LOGICAL INITIAL no 
     LABEL "Vorjahr ?" 
     VIEW-AS TOGGLE-BOX
     SIZE 31.6 BY .95 NO-UNDO.


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

DEFINE FRAME D-Dialog
     CB_Listenart AT ROW 1.76 COL 11.8 COLON-ALIGNED
     RS_Sort AT ROW 4.71 COL 13.6 NO-LABEL
     RS_Sort-2 AT ROW 4.71 COL 87.8 NO-LABEL
     F_VArtnr AT ROW 8.43 COL 34 COLON-ALIGNED
     F_BArtnr AT ROW 8.43 COL 56.4 COLON-ALIGNED
     F_Hersteller AT ROW 9.67 COL 34 COLON-ALIGNED
     F_Warengruppe AT ROW 10.91 COL 34 COLON-ALIGNED
     F_VDatum AT ROW 12.14 COL 34 COLON-ALIGNED
     F_BDatum AT ROW 12.14 COL 56.4 COLON-ALIGNED
     F_VKnr AT ROW 14.62 COL 34 COLON-ALIGNED
     F_BKnr AT ROW 14.62 COL 56.4 COLON-ALIGNED
     F_Preisgruppen AT ROW 15.86 COL 34 COLON-ALIGNED
     F_Kundengruppen AT ROW 17.1 COL 34 COLON-ALIGNED
     F_Vertreter AT ROW 18.33 COL 34 COLON-ALIGNED
     F_Touren AT ROW 19.57 COL 34 COLON-ALIGNED
     F_Orte AT ROW 20.81 COL 34 COLON-ALIGNED
     T_Detail AT ROW 14.62 COL 103.4
     T_Vorjahr AT ROW 15.86 COL 103.4
     CB_Drucker AT ROW 22.67 COL 3.8 NO-LABEL
     CB_Schriftbild AT ROW 22.67 COL 49.4 COLON-ALIGNED NO-LABEL
     T_Drucker AT ROW 22.67 COL 104.6
     Btn_OK AT ROW 1.62 COL 103.2
     Btn_Cancel AT ROW 1.62 COL 121.4
     "Sortierung Artikel" VIEW-AS TEXT
          SIZE 70 BY 1 AT ROW 3.48 COL 13.6
          FONT 9
     "Sortierung Kunden" VIEW-AS TEXT
          SIZE 49 BY 1 AT ROW 3.48 COL 87.8
          FONT 9
     RECT-2 AT ROW 3.24 COL 2.4
     RECT-3 AT ROW 8 COL 2.4
     RECT-4 AT ROW 14.19 COL 2.4
     SPACE(1.39) SKIP(2.13)
    WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER 
         SIDE-LABELS NO-UNDERLINE THREE-D  SCROLLABLE 
         TITLE "Artikelumsätze pro Kunde"
         DEFAULT-BUTTON Btn_OK CANCEL-BUTTON Btn_Cancel.


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

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartDialog
   Allow: Basic,Browse,DB-Fields,Query,Smart
   Other Settings: COMPILE
   Temp-Tables and Buffers:
      TABLE: THilfsTab T "?" NO-UNDO AnaDat HilfsTab
      TABLE: XTermOut T "NEW SHARED" NO-UNDO AnaDat TermOut
   END-TABLES.
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

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

{src/adm/method/containr.i}

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




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

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

/* SETTINGS FOR COMBO-BOX CB_Drucker IN FRAME D-Dialog
   ALIGN-L                                                              */
/* SETTINGS FOR FILL-IN F_BArtnr IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_BDatum IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_BKnr IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_Hersteller IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_Kundengruppen IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_Orte IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_Preisgruppen IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_Touren IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_VArtnr IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_VDatum IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_Vertreter IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_VKnr IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR FILL-IN F_Warengruppe IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR RADIO-SET RS_Sort IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR RADIO-SET RS_Sort-2 IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Detail IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Drucker IN FRAME D-Dialog
   1                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Vorjahr IN FRAME D-Dialog
   1                                                                    */
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


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

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

 



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

&Scoped-define SELF-NAME D-Dialog
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL D-Dialog D-Dialog
ON WINDOW-CLOSE OF FRAME D-Dialog /* Artikelumsätze pro Kunde */
DO:  
  /* Add Trigger to equate WINDOW-CLOSE to END-ERROR. */
  APPLY "END-ERROR":U TO SELF.
END.

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


&Scoped-define SELF-NAME Btn_OK
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_OK D-Dialog
ON CHOOSE OF Btn_OK IN FRAME D-Dialog /* Start */
DO:
DO WITH FRAME {&FRAME-NAME}:
    ASSIGN  {&List-1}.
    
    IF F_VArtnr     = 0     AND F_BArtnr    = 0     THEN F_BArtnr   = 999999.
    IF F_VArtnr     > F_BArtnr                      THEN F_BArtnr   = F_VArtnr.
    
    IF F_VDatum     = ?     THEN F_VDatum = DATE(01,01,YEAR(TODAY)).
    IF F_BDatum     = ?     THEN F_BDatum = DATE(12,31,YEAR(TODAY)).
    IF F_VDatum     > F_BDatum                      THEN F_BDatum = F_VDatum.    

    IF F_VKnr       = 0     AND F_BKnr      = 0     THEN F_BKnr     = 999999.
    IF F_VKnr       > F_BKnr                        THEN F_BKnr     = F_VKnr  .
    
    DO WHILE TRUE:
        IF (MONTH(F_VDatum - 1)) <> MONTH(F_VDatum) THEN LEAVE.
        F_VDatum = F_VDatum - 1.
    END.
    DO WHILE TRUE:
        IF (MONTH(F_BDatum + 1)) <> MONTH(F_BDatum) THEN LEAVE.
        F_BDatum = F_BDatum + 1.
    END.
    
    DISPLAY {&List-1}.
    
    DISABLE Btn_OK
            Btn_cancel.
            
    SESSION:SET-WAIT-STATE('GENERAL').
    RUN DRUCKEN.
    SESSION:SET-WAIT-STATE('').
    
    ENABLE  Btn_OK
            Btn_cancel.
END.

END.

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


&Scoped-define SELF-NAME CB_Drucker
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Drucker D-Dialog
ON VALUE-CHANGED OF CB_Drucker IN FRAME D-Dialog
DO:
    ok = TRUE.
    DO WHILE ok:
        ok = CB_Schriftbild:DELETE(1).
    END.
    FOR EACH Schrift USE-INDEX Schrift-k1
                     WHERE Schrift.Schname = CB_Drucker:SCREEN-VALUE NO-LOCK:
        ok = CB_Schriftbild:ADD-LAST(Schrift.Schbild).
    END.

    i1 = 0.
    DO WHILE BRecid > 0:
        i1 = CB_Schriftbild:LOOKUP(LiDruck.ListBild).
        LEAVE.
    END.

    IF i1 = 0 THEN i1 = 1.
    CB_Schriftbild:SCREEN-VALUE = CB_Schriftbild:ENTRY(i1).
END.

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


&Scoped-define SELF-NAME CB_Listenart
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Listenart D-Dialog
ON VALUE-CHANGED OF CB_Listenart IN FRAME D-Dialog /* Listenart */
DO:
    TRecid  = 0.
    ARecid  = 0.
    BRecid  = 0.
    VLiArt  = CB_Listenart:LOOKUP(CB_Listenart:SCREEN-VALUE).
    
    RUN SORTIERARTEN.
    
    FIND Tabel USE-INDEX Tabel-k1
               WHERE Tabel.Firma  = GVFirma
               AND   Tabel.RecArt = 'LISTEN'
               AND   Tabel.CodeC  = 'ARTKUNUMS'
               AND   Tabel.CodeI  = VLiArt
               AND   Tabel.Sprcd  = 0   NO-LOCK NO-ERROR.
    IF AVAILABLE Tabel THEN DO:
        TRecid = RECID(Tabel).
        ARecid = Tabel.Int_1.
        BRecid = Tabel.Int_2.
        FIND Listen  WHERE RECID(Listen)  = ARecid NO-LOCK NO-ERROR.
        FIND LiDruck WHERE RECID(LiDruck) = BRecid NO-LOCK NO-ERROR.
        IF NOT AVAILABLE Listen  THEN ARecid = 0.
        IF NOT AVAILABLE LiDruck THEN BRecid = 0.
    END.
    
    RS_Sort         = 1.
    RS_Sort-2       = 1.
    F_VArtnr        = 0.
    F_BArtnr        = 999999.
    F_Hersteller    = ''.
    F_Warengruppe   = ''.
    F_VDatum        = DATE(01,01,YEAR(TODAY)).
    F_BDatum        = DATE(12,31,YEAR(TODAY)).
    
    F_VKnr          = 0.
    F_BKnr          = 999999.
    F_Preisgruppen  = ''.
    F_Kundengruppen = ''.
    F_Vertreter     = ''.
    F_Touren        = ''.
    F_Preisgruppen  = ''.
    F_Orte          = ''.
    T_Detail        = TRUE.
    T_Vorjahr       = FALSE.
    
    CB_Drucker:SCREEN-VALUE = CB_Drucker:ENTRY(1).
    
    DO WHILE ARecid > 0:
        RS_Sort         = Listen.Sort.
        RS_Sort-2       = Listen.ENr[01].
        F_VArtnr        = Listen.VNr[01].
        F_BArtnr        = Listen.BNr[01].
        F_VKnr          = Listen.VNr[02].
        F_BKnr          = Listen.BNr[02].
        T_Detail        = Listen.VFl[01].
        T_Vorjahr       = Listen.VFl[02].
        F_VDatum        = Listen.VDa[01].
        F_BDatum        = Listen.BDa[01].
        F_Hersteller    = Listen.ECh[01].
        F_Warengruppe   = Listen.ECh[02].
        F_Preisgruppen  = Listen.ECh[03].
        F_Kundengruppen = Listen.ECh[04].
        F_Vertreter     = Listen.ECh[05].
        F_Touren        = Listen.ECh[06].
        F_Orte          = Listen.ECh[07].
        LEAVE.
    END.
  
    i1 = 0.  
    DO WHILE BRecid > 0:
        i1 = CB_Drucker:LOOKUP(LiDruck.ListDru).
        LEAVE.
    END.
    IF i1 = 0 THEN i1 = 1.
    CB_Drucker:SCREEN-VALUE = CB_Drucker:ENTRY(i1).
    
    DISPLAY {&List-1} WITH FRAME {&FRAME-NAME}.

    APPLY 'ENTRY' TO F_VArtnr.

END.

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


&Scoped-define SELF-NAME F_Hersteller
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Hersteller D-Dialog
ON LEFT-MOUSE-DBLCLICK OF F_Hersteller IN FRAME D-Dialog /* Hersteller */
DO:
    LVRecArt = 'HERST'.
    LVTitel  = 'Hersteller'.
    LVFirma  = GVFirma.
    Linktext = SELF:SCREEN-VALUE.
    RUN "v8/d-ausw-tabel.w".
    SELF:SCREEN-VALUE = Linktext.
    Linktext = ''.
END.

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


&Scoped-define SELF-NAME F_Kundengruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Kundengruppen D-Dialog
ON LEFT-MOUSE-DBLCLICK OF F_Kundengruppen IN FRAME D-Dialog /* Kundengruppen */
DO:
    LVRecArt = 'KUNDGRP'.
    LVTitel  = 'Kundengruppen'.
    LVFirma  = GVFirma.
    Linktext = SELF:SCREEN-VALUE.
    RUN "v8/d-ausw-tabel.w".
    SELF:SCREEN-VALUE = Linktext.
    Linktext = ''.
END.

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


&Scoped-define SELF-NAME F_Orte
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Orte D-Dialog
ON MOUSE-SELECT-DBLCLICK OF F_Orte IN FRAME D-Dialog /* Orte */
DO:
    Linktext = SELF:SCREEN-VALUE.
    RUN "v8/d-ausw-orte.w".
    SELF:SCREEN-VALUE = Linktext.
    Linktext = ''.
END.

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


&Scoped-define SELF-NAME F_Preisgruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Preisgruppen D-Dialog
ON LEFT-MOUSE-DBLCLICK OF F_Preisgruppen IN FRAME D-Dialog /* Preisgruppen */
DO:
    LVRecArt = 'PREGRP'.
    LVTitel  = 'Preisgruppen'.
    LVFirma  = GVFirma.
    Linktext = SELF:SCREEN-VALUE.
    RUN "v8/d-ausw-tabel.w".
    SELF:SCREEN-VALUE = Linktext.
    Linktext = ''.
END.

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


&Scoped-define SELF-NAME F_Touren
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Touren D-Dialog
ON LEFT-MOUSE-DBLCLICK OF F_Touren IN FRAME D-Dialog /* Touren */
DO:
    LVRecArt = 'TOUR1'.
    LVTitel  = 'Touren'.
    LVFirma  = GVFirma.
    Linktext = SELF:SCREEN-VALUE.
    RUN "v8/d-ausw-tabel.w".
    SELF:SCREEN-VALUE = Linktext.
    Linktext = ''.
END.

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


&Scoped-define SELF-NAME F_Vertreter
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Vertreter D-Dialog
ON LEFT-MOUSE-DBLCLICK OF F_Vertreter IN FRAME D-Dialog /* Vertreter */
DO:
    LVRecArt = 'VERTR'.
    LVTitel  = 'Vertreter'.
    LVFirma  = GVFirma.
    Linktext = SELF:SCREEN-VALUE.
    RUN "v8/d-ausw-tabel.w".
    SELF:SCREEN-VALUE = Linktext.
    Linktext = ''.
END.

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


&Scoped-define SELF-NAME F_Warengruppe
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Warengruppe D-Dialog
ON LEFT-MOUSE-DBLCLICK OF F_Warengruppe IN FRAME D-Dialog /* Warengruppe */
DO:
    Linktext = SELF:SCREEN-VALUE.
    RUN "v8/d-ausw-warengrp.w".
    SELF:SCREEN-VALUE = Linktext.
    Linktext = ''.
END.

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


&UNDEFINE SELF-NAME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK D-Dialog 


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

DO WITH FRAME {&FRAME-NAME}:
    CB_Listenart:SCREEN-VALUE = CB_Listenart:ENTRY(1).
    
    CB_Drucker:DELIMITER     = ';'.
    CB_Schriftbild:DELIMITER = ';'.

    ok = TRUE.
    DO WHILE ok:
        ok = CB_Drucker:DELETE(1).
    END.
    FOR EACH Schrift USE-INDEX Schrift-k1 NO-LOCK
                     BREAK BY Schrift.Schname :
        IF NOT FIRST-OF ( Schrift.Schname ) THEN NEXT.
        ok = CB_Drucker:ADD-LAST(Schrift.Schname).
    END.
END.

{src/adm/template/dialogmn.i}

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects D-Dialog  _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 adm-row-available D-Dialog  _ADM-ROW-AVAILABLE
PROCEDURE adm-row-available :
/*------------------------------------------------------------------------------
  Purpose:     Dispatched to this procedure when the Record-
               Source has a new row available.  This procedure
               tries to get the new row (or foriegn keys) from
               the Record-Source and process it.
  Parameters:  <none>
------------------------------------------------------------------------------*/

  /* Define variables needed by this internal procedure.             */
  {src/adm/template/row-head.i}

  /* Process the newly available records (i.e. display fields,
     open queries, and/or pass records on to any RECORD-TARGETS).    */
  {src/adm/template/row-end.i}

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ARTIKELGRUPPE D-Dialog 
PROCEDURE ARTIKELGRUPPE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    VArtTotal = 0.
    XArt_Grp  = ''.
    FIND ArtikGrp USE-INDEX ArtikGrp-k1
                  WHERE ArtikGrp.Firma    = GVFirma
                  AND   ArtikGrp.Wgr      = BArtst.Wg_Grp
                  AND   ArtikGrp.Prod_Grp = BArtst.Prod_Grp
                  AND   ArtikGrp.Art_Grp  = BArtst.Art_Grp  NO-LOCK NO-ERROR.
    IF AVAILABLE ArtikGrp THEN XArt_Grp = STRING(BArtst.Art_Grp  ,"999 ")
                                        + ArtikGrp.Bez1.
    ELSE                       XArt_Grp = STRING(BArtst.Art_Grp  ,"999 ")
                                        + '???????????????'.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE AUSGABE_01 D-Dialog 
PROCEDURE AUSGABE_01 :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

GTotal = 0.
FTotal = FALSE.

FOR EACH THilfsTab  NO-LOCK,
    FIRST BArtst   WHERE RECID(BArtst) = THilfsTab.Zahl_1 NO-LOCK,
    FIRST BDebst   WHERE RECID(BDebst) = THilfsTab.Zahl_2 NO-LOCK,
    FIRST BAdresse USE-INDEX Adresse-k1
                   WHERE BAdresse.Firma = AdFirma
                   AND   BAdresse.Knr   = BDebst.Knr      NO-LOCK
    
                 BREAK BY BArtst.Wg_Grp
                       BY BArtst.Prod_Grp
                       BY BArtst.Art_Grp
                       BY BArtst.Artnr
                       BY BArtst.Inhalt
                       BY BArtst.Jahr
                       BY BAdresse.Suchbe :

    IF FIRST-OF ( BArtst.Wg_Grp ) THEN DO:
        Zuszz = 6.
        RUN LISTTIT2.
        RUN WARENGRUPPE.
        SUBSTRING(VZeile,001) = XWg_Grp.
        { v8/putstreamf.i "1" }
    END.
    IF FIRST-OF ( BArtst.Prod_Grp ) THEN DO:
        Zuszz = 5.
        RUN LISTTIT2.
        RUN PRODGRUPPE.
        SUBSTRING(VZeile,001) = XProd_Grp.
        { v8/putstreamf.i "1" }
    END.
    IF FIRST-OF ( BArtst.Art_Grp ) THEN DO:
        Zuszz = 4.
        RUN LISTTIT2.
        RUN ARTIKELGRUPPE.
        SUBSTRING(VZeile,001) = XArt_Grp.
        { v8/putstreamf.i "1" }
    END.
    IF FIRST-OF ( BArtst.Jahr ) THEN DO:
        IF T_Detail THEN DO:
            { v8/putstream.i "1" }
            Zuszz     = 3.
        END.
        VKundTotal = 0.
        RUN LISTTIT2.
        FIND KGebinde USE-INDEX KGebinde-k1
                      WHERE KGebinde.Firma  = BArtst.Firma
                      AND   KGebinde.Geb_Cd = BArtst.KGeb_Cd  NO-LOCK NO-ERROR.
        SUBSTRING(VZeile,001) = STRING(BArtst.Artnr ,"999999")
                              + "/"
                              + STRING(BArtst.Inhalt,"9999")
                              + "/"
                              + STRING(BArtst.Jahr  ,"9999").
        SUBSTRING(VZeile,018) = BArtst.Bez.
        SUBSTRING(VZeile,050) = KGebinde.KBez.
        SUBSTRING(VZeile,062) = STRING(KGebinde.Inhalt,"zzzz").
        SUBSTRING(VZeile,067) = STRING(BArtst.Jahr    ,"zzzz").
        IF BArtst.Alk_Gehalt <> 0 THEN DO:
            SUBSTRING(VZeile,073) = STRING(BArtst.Alk_Gehalt,"zz9.99").
        END.
        IF T_Detail THEN DO:
            { v8/putstreamf.i "1" }
        END.
    END.
    
    RUN LISTTIT2.

    IF T_Vorjahr THEN DO:
        DO ix = 1 TO 5:
            THilfsTab.Wert[ix + 5] = THilfsTab.Wert[ix] - THilfsTab.Wert[ix + 5].
        END.
    END.
    IF T_Detail THEN DO:
        SUBSTRING(VZeile,001) = STRING(BDebst.Knr           ,"999999").
        SUBSTRING(VZeile,009) = STRING(BAdresse.Anzeig_Br   ,"x(30)").
        SUBSTRING(VZeile,060) = STRING(THilfsTab.Wert[02]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(THilfsTab.Wert[04]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(THilfsTab.Wert[03]   ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(THilfsTab.Wert[07]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(THilfsTab.Wert[09]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(THilfsTab.Wert[08]   ,"zzz,zzz,zzz-").
        END.
        { v8/putstream.i "1" }
    END.
    DO ix = 1 TO 10:
        VWgTotal  [ix]  = VWgTotal  [ix] + THilfsTab.Wert[ix].
        VProdTotal[ix]  = VProdTotal[ix] + THilfsTab.Wert[ix].
        VArtTotal [ix]  = VArtTotal [ix] + THilfsTab.Wert[ix].
        VKundTotal[ix]  = VKundTotal[ix] + THilfsTab.Wert[ix].
        GTotal    [ix]  = GTotal    [ix] + THilfsTab.Wert[ix].
    END.

    IF LAST-OF ( BArtst.Jahr ) THEN DO:
        IF T_Detail THEN DO:
            SUBSTRING(VZeile,001) = TRIM(SUBSTRING(Helptext[12],01,20)).
        END.
        SUBSTRING(VZeile,060) = STRING(VKundTotal[02]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(VKundTotal[04]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(VKundTotal[03]   ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(VKundTotal[07]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(VKundTotal[09]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(VKundTotal[08]   ,"zzz,zzz,zzz-").
        END.
        IF T_Detail THEN DO:
            { v8/putstreamf.i "1" }
        END.
        ELSE DO:
            { v8/putstream.i "1" }
        END.
    END.
    IF LAST-OF ( BArtst.Art_Grp ) THEN DO:
        { v8/putstream.i "1" }
        XArt_Grp = 'Total ' + XArt_Grp.
        SUBSTRING(VZeile,001) = XArt_Grp.
        SUBSTRING(VZeile,060) = STRING(VArtTotal[02]    ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(VArtTotal[04]    ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(VArtTotal[03]    ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(VArtTotal[07]    ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(VArtTotal[09]    ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(VArtTotal[08]    ,"zzz,zzz,zzz-").
        END.
        { v8/putstreamf.i "1" }
        FTotal = TRUE.
    END.
    IF LAST-OF ( BArtst.Prod_Grp ) THEN DO:
        XProd_Grp = 'Total ' + XProd_Grp.
        SUBSTRING(VZeile,001) = XProd_Grp.
        SUBSTRING(VZeile,060) = STRING(VProdTotal[02]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(VProdTotal[04]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(VProdTotal[03]   ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(VProdTotal[07]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(VProdTotal[09]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(VProdTotal[08]   ,"zzz,zzz,zzz-").
        END.
        { v8/putstreamf.i "1" }
        FTotal = TRUE.
    END.
    IF LAST-OF ( BArtst.Wg_Grp ) THEN DO:
        XWg_Grp = 'Total ' + XWg_Grp.
        SUBSTRING(VZeile,001) = XWg_Grp.
        SUBSTRING(VZeile,060) = STRING(VWgTotal[02]     ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(VWgTotal[04]     ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(VWgTotal[03]     ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(VWgTotal[07]     ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(VWgTotal[09]     ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(VWgTotal[08]     ,"zzz,zzz,zzz-").
        END.
        { v8/putstreamf.i "1" }
        FTotal = TRUE.
    END.
    
    IF FTotal THEN DO:
        { v8/putstream.i "1" }
        FTotal = FALSE.
    END.
END.
    
    IF GTotal[01] = 0   AND
       GTotal[02] = 0   AND
       GTotal[03] = 0   AND
       GTotal[04] = 0   THEN RETURN.
       
    SUBSTRING(VZeile,001) = TRIM(SUBSTRING(Helptext[12],21,20)).
    SUBSTRING(VZeile,060) = STRING(GTotal[02]   ,"zzz,zzz,zzz-").
    SUBSTRING(VZeile,072) = STRING(GTotal[04]   ,"zzz,zzz,zzz-").
    SUBSTRING(VZeile,084) = STRING(GTotal[03]   ,"zzz,zzz,zzz-").
    IF T_Vorjahr THEN DO:
        SUBSTRING(VZeile,100) = STRING(GTotal[07]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,112) = STRING(GTotal[09]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,124) = STRING(GTotal[08]   ,"zzz,zzz,zzz-").
    END.
    { v8/putstreamf.i "1" }
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE AUSGABE_02 D-Dialog 
PROCEDURE AUSGABE_02 :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

GTotal = 0.
FTotal = FALSE.

FOR EACH THilfsTab  NO-LOCK,
    FIRST BArtst   WHERE RECID(BArtst) = THilfsTab.Zahl_1 NO-LOCK,
    FIRST BDebst   WHERE RECID(BDebst) = THilfsTab.Zahl_2 NO-LOCK,
    FIRST BAdresse USE-INDEX Adresse-k1
                   WHERE BAdresse.Firma = AdFirma
                   AND   BAdresse.Knr   = BDebst.Knr      NO-LOCK
    
                   BREAK BY BArtst.Wg_Grp
                         BY BArtst.Prod_Grp
                         BY BArtst.Art_Grp
                         BY BArtst.Artnr
                         BY BArtst.Inhalt
                         BY BArtst.Jahr
                         BY BDebst.Ku_Grp
                         BY BAdresse.Suchbe :

    IF FIRST-OF ( BArtst.Wg_Grp ) THEN DO:
        Zuszz = 7.
        RUN LISTTIT2.
        RUN WARENGRUPPE.
        SUBSTRING(VZeile,001) = XWg_Grp.
        { v8/putstreamf.i "1" }
    END.
    IF FIRST-OF ( BArtst.Prod_Grp ) THEN DO:
        Zuszz = 6.
        RUN LISTTIT2.
        RUN PRODGRUPPE.
        SUBSTRING(VZeile,001) = XProd_Grp.
        { v8/putstreamf.i "1" }
    END.
    IF FIRST-OF ( BArtst.Art_Grp ) THEN DO:
        Zuszz = 5.
        RUN LISTTIT2.
        RUN ARTIKELGRUPPE.
        SUBSTRING(VZeile,001) = XArt_Grp.
        { v8/putstreamf.i "1" }
    END.
    IF FIRST-OF ( BArtst.Jahr ) THEN DO:
        { v8/putstream.i "1" }
        Zuszz      = 4.
        VKundTotal = 0.
        RUN LISTTIT2.
        FIND KGebinde USE-INDEX KGebinde-k1
                      WHERE KGebinde.Firma  = BArtst.Firma
                      AND   KGebinde.Geb_Cd = BArtst.KGeb_Cd  NO-LOCK NO-ERROR.
        SUBSTRING(VZeile,001) = STRING(BArtst.Artnr ,"999999")
                              + "/"
                              + STRING(BArtst.Inhalt,"9999")
                              + "/"
                              + STRING(BArtst.Jahr  ,"9999").
        SUBSTRING(VZeile,018) = BArtst.Bez.
        SUBSTRING(VZeile,050) = KGebinde.KBez.
        SUBSTRING(VZeile,062) = STRING(KGebinde.Inhalt,"zzzz").
        SUBSTRING(VZeile,067) = STRING(BArtst.Jahr    ,"zzzz").
        IF BArtst.Alk_Gehalt <> 0 THEN DO:
            SUBSTRING(VZeile,073) = STRING(BArtst.Alk_Gehalt,"zz9.99").
        END.
        { v8/putstreamf.i "1" }
    END.
    IF FIRST-OF ( BDebst.Ku_Grp ) THEN DO:
        Zuszz     = 3.
        VKgrTotal = 0.
        RUN LISTTIT2.
        RUN KUNDENGRUPPE.
    END.
    
    RUN LISTTIT2.

    IF T_Vorjahr THEN DO:
        DO ix = 1 TO 5:
            THilfsTab.Wert[ix + 5] = THilfsTab.Wert[ix] - THilfsTab.Wert[ix + 5].
        END.
    END.
    IF T_Detail THEN DO:
        SUBSTRING(VZeile,001) = STRING(BDebst.Knr           ,"999999").
        SUBSTRING(VZeile,009) = STRING(BAdresse.Anzeig_Br   ,"x(30)").
        SUBSTRING(VZeile,060) = STRING(THilfsTab.Wert[02]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(THilfsTab.Wert[04]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(THilfsTab.Wert[03]   ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(THilfsTab.Wert[07]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(THilfsTab.Wert[09]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(THilfsTab.Wert[08]   ,"zzz,zzz,zzz-").
        END.
        { v8/putstream.i "1" }
    END.
    DO ix = 1 TO 10:
        VWgTotal  [ix]  = VWgTotal  [ix] + THilfsTab.Wert[ix].
        VProdTotal[ix]  = VProdTotal[ix] + THilfsTab.Wert[ix].
        VArtTotal [ix]  = VArtTotal [ix] + THilfsTab.Wert[ix].
        VKundTotal[ix]  = VKundTotal[ix] + THilfsTab.Wert[ix].
        VKgrTotal [ix]  = VKgrTotal [ix] + THilfsTab.Wert[ix].
        GTotal    [ix]  = GTotal    [ix] + THilfsTab.Wert[ix].
    END.

    IF LAST-OF ( BDebst.Ku_Grp ) THEN DO:
        XKund_Grp = 'Total ' + XKund_Grp.
        SUBSTRING(VZeile,001) = XKund_Grp.
        SUBSTRING(VZeile,060) = STRING(VKgrTotal[02]    ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(VKgrTotal[04]    ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(VKgrTotal[03]    ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(VKgrTotal[07]    ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(VKgrTotal[09]    ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(VKgrTotal[08]    ,"zzz,zzz,zzz-").
        END.
        IF T_Detail THEN DO:
            { v8/putstreamf.i "1" }
            IF NOT LAST-OF ( BArtst.Jahr ) THEN DO:
                { v8/putstream.i "1" }
            END.
        END.
        ELSE DO:
            { v8/putstream.i "1" }
        END.
    END.
    IF LAST-OF ( BArtst.Jahr ) THEN DO:
        SUBSTRING(VZeile,001) = TRIM(SUBSTRING(Helptext[12],01,20)).
        SUBSTRING(VZeile,060) = STRING(VKundTotal[02]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(VKundTotal[04]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(VKundTotal[03]   ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(VKundTotal[07]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(VKundTotal[09]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(VKundTotal[08]   ,"zzz,zzz,zzz-").
        END.
        { v8/putstreamf.i "1" }
    END.
    IF LAST-OF ( BArtst.Art_Grp ) THEN DO:
        { v8/putstream.i "1" }
        XArt_Grp = 'Total ' + XArt_Grp.
        SUBSTRING(VZeile,001) = XArt_Grp.
        SUBSTRING(VZeile,060) = STRING(VArtTotal[02]    ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(VArtTotal[04]    ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(VArtTotal[03]    ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(VArtTotal[07]    ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(VArtTotal[09]    ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(VArtTotal[08]    ,"zzz,zzz,zzz-").
        END.
        { v8/putstreamf.i "1" }
        FTotal = TRUE.
    END.
    IF LAST-OF ( BArtst.Prod_Grp ) THEN DO:
        XProd_Grp = 'Total ' + XProd_Grp.
        SUBSTRING(VZeile,001) = XProd_Grp.
        SUBSTRING(VZeile,060) = STRING(VProdTotal[02]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(VProdTotal[04]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(VProdTotal[03]   ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(VProdTotal[07]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(VProdTotal[09]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(VProdTotal[08]   ,"zzz,zzz,zzz-").
        END.
        { v8/putstreamf.i "1" }
        FTotal = TRUE.
    END.
    IF LAST-OF ( BArtst.Wg_Grp ) THEN DO:
        XWg_Grp = 'Total ' + XWg_Grp.
        SUBSTRING(VZeile,001) = XWg_Grp.
        SUBSTRING(VZeile,060) = STRING(VWgTotal[02]     ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(VWgTotal[04]     ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(VWgTotal[03]     ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(VWgTotal[07]     ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(VWgTotal[09]     ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(VWgTotal[08]     ,"zzz,zzz,zzz-").
        END.
        { v8/putstreamf.i "1" }
        FTotal = TRUE.
    END.
    
    IF FTotal THEN DO:
        { v8/putstream.i "1" }
        FTotal = FALSE.
    END.
END.
    
    IF GTotal[01] = 0   AND
       GTotal[02] = 0   AND
       GTotal[03] = 0   AND
       GTotal[04] = 0   THEN RETURN.
       
    SUBSTRING(VZeile,001) = TRIM(SUBSTRING(Helptext[12],21,20)).
    SUBSTRING(VZeile,060) = STRING(GTotal[02]   ,"zzz,zzz,zzz-").
    SUBSTRING(VZeile,072) = STRING(GTotal[04]   ,"zzz,zzz,zzz-").
    SUBSTRING(VZeile,084) = STRING(GTotal[03]   ,"zzz,zzz,zzz-").
    IF T_Vorjahr THEN DO:
        SUBSTRING(VZeile,100) = STRING(GTotal[07]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,112) = STRING(GTotal[09]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,124) = STRING(GTotal[08]   ,"zzz,zzz,zzz-").
    END.
    { v8/putstreamf.i "1" }
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE AUSGABE_03 D-Dialog 
PROCEDURE AUSGABE_03 :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

GTotal = 0.
FTotal = FALSE.

FOR EACH THilfsTab  NO-LOCK,
    FIRST BArtst   WHERE RECID(BArtst) = THilfsTab.Zahl_1 NO-LOCK,
    FIRST BDebst   WHERE RECID(BDebst) = THilfsTab.Zahl_2 NO-LOCK,
    FIRST BAdresse USE-INDEX Adresse-k1
                   WHERE BAdresse.Firma = AdFirma
                   AND   BAdresse.Knr   = BDebst.Knr      NO-LOCK
    
                   BREAK BY BArtst.Wg_Grp
                         BY BArtst.Prod_Grp
                         BY BArtst.Art_Grp
                         BY BArtst.Artnr
                         BY BArtst.Inhalt
                         BY BArtst.Jahr
                         BY BDebst.Preis_Grp
                         BY BAdresse.Suchbe :

    IF FIRST-OF ( BArtst.Wg_Grp ) THEN DO:
        Zuszz = 7.
        RUN LISTTIT2.
        RUN WARENGRUPPE.
        SUBSTRING(VZeile,001) = XWg_Grp.
        { v8/putstreamf.i "1" }
    END.
    IF FIRST-OF ( BArtst.Prod_Grp ) THEN DO:
        Zuszz = 6.
        RUN LISTTIT2.
        RUN PRODGRUPPE.
        SUBSTRING(VZeile,001) = XProd_Grp.
        { v8/putstreamf.i "1" }
    END.
    IF FIRST-OF ( BArtst.Art_Grp ) THEN DO:
        Zuszz = 5.
        RUN LISTTIT2.
        RUN ARTIKELGRUPPE.
        SUBSTRING(VZeile,001) = XArt_Grp.
        { v8/putstreamf.i "1" }
    END.
    IF FIRST-OF ( BArtst.Jahr ) THEN DO:
        { v8/putstream.i "1" }
        Zuszz      = 4.
        VKundTotal = 0.
        RUN LISTTIT2.
        FIND KGebinde USE-INDEX KGebinde-k1
                      WHERE KGebinde.Firma  = BArtst.Firma
                      AND   KGebinde.Geb_Cd = BArtst.KGeb_Cd  NO-LOCK NO-ERROR.
        SUBSTRING(VZeile,001) = STRING(BArtst.Artnr ,"999999")
                              + "/"
                              + STRING(BArtst.Inhalt,"9999")
                              + "/"
                              + STRING(BArtst.Jahr  ,"9999").
        SUBSTRING(VZeile,018) = BArtst.Bez.
        SUBSTRING(VZeile,050) = KGebinde.KBez.
        SUBSTRING(VZeile,062) = STRING(KGebinde.Inhalt,"zzzz").
        SUBSTRING(VZeile,067) = STRING(BArtst.Jahr    ,"zzzz").
        IF BArtst.Alk_Gehalt <> 0 THEN DO:
            SUBSTRING(VZeile,073) = STRING(BArtst.Alk_Gehalt,"zz9.99").
        END.
        { v8/putstreamf.i "1" }
    END.
    IF FIRST-OF ( BDebst.Preis_Grp ) THEN DO:
        Zuszz     = 3.
        VPreTotal = 0.
        RUN LISTTIT2.
        RUN PREISGRUPPE.
    END.
    
    RUN LISTTIT2.

    IF T_Vorjahr THEN DO:
        DO ix = 1 TO 5:
            THilfsTab.Wert[ix + 5] = THilfsTab.Wert[ix] - THilfsTab.Wert[ix + 5].
        END.
    END.
    IF T_Detail THEN DO:
        SUBSTRING(VZeile,001) = STRING(BDebst.Knr           ,"999999").
        SUBSTRING(VZeile,009) = STRING(BAdresse.Anzeig_Br   ,"x(30)").
        SUBSTRING(VZeile,060) = STRING(THilfsTab.Wert[02]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(THilfsTab.Wert[04]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(THilfsTab.Wert[03]   ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(THilfsTab.Wert[07]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(THilfsTab.Wert[09]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(THilfsTab.Wert[08]   ,"zzz,zzz,zzz-").
        END.
        { v8/putstream.i "1" }
    END.
    DO ix = 1 TO 10:
        VWgTotal  [ix]  = VWgTotal  [ix] + THilfsTab.Wert[ix].
        VProdTotal[ix]  = VProdTotal[ix] + THilfsTab.Wert[ix].
        VArtTotal [ix]  = VArtTotal [ix] + THilfsTab.Wert[ix].
        VKundTotal[ix]  = VKundTotal[ix] + THilfsTab.Wert[ix].
        VPreTotal [ix]  = VPreTotal [ix] + THilfsTab.Wert[ix].
        GTotal    [ix]  = GTotal    [ix] + THilfsTab.Wert[ix].
    END.

    IF LAST-OF ( BDebst.Preis_Grp ) THEN DO:
        XPreis_Grp = 'Total ' + XPreis_Grp.
        SUBSTRING(VZeile,001) = XPreis_Grp.
        SUBSTRING(VZeile,060) = STRING(VPreTotal[02]    ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(VPreTotal[04]    ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(VPreTotal[03]    ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(VPreTotal[07]    ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(VPreTotal[09]    ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(VPreTotal[08]    ,"zzz,zzz,zzz-").
        END.
        IF T_Detail THEN DO:
            { v8/putstreamf.i "1" }
            IF NOT LAST-OF ( BArtst.Jahr ) THEN DO:
                { v8/putstream.i "1" }
            END.
        END.
        ELSE DO:
            { v8/putstream.i "1" }
        END.
    END.
    IF LAST-OF ( BArtst.Jahr ) THEN DO:
        SUBSTRING(VZeile,001) = TRIM(SUBSTRING(Helptext[12],01,20)).
        SUBSTRING(VZeile,060) = STRING(VKundTotal[02]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(VKundTotal[04]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(VKundTotal[03]   ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(VKundTotal[07]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(VKundTotal[09]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(VKundTotal[08]   ,"zzz,zzz,zzz-").
        END.
        { v8/putstreamf.i "1" }
    END.
    IF LAST-OF ( BArtst.Art_Grp ) THEN DO:
        { v8/putstream.i "1" }
        XArt_Grp = 'Total ' + XArt_Grp.
        SUBSTRING(VZeile,001) = XArt_Grp.
        SUBSTRING(VZeile,060) = STRING(VArtTotal[02]    ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(VArtTotal[04]    ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(VArtTotal[03]    ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(VArtTotal[07]    ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(VArtTotal[09]    ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(VArtTotal[08]    ,"zzz,zzz,zzz-").
        END.
        { v8/putstreamf.i "1" }
        FTotal = TRUE.
    END.
    IF LAST-OF ( BArtst.Prod_Grp ) THEN DO:
        XProd_Grp = 'Total ' + XProd_Grp.
        SUBSTRING(VZeile,001) = XProd_Grp.
        SUBSTRING(VZeile,060) = STRING(VProdTotal[02]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(VProdTotal[04]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(VProdTotal[03]   ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(VProdTotal[07]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(VProdTotal[09]   ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(VProdTotal[08]   ,"zzz,zzz,zzz-").
        END.
        { v8/putstreamf.i "1" }
        FTotal = TRUE.
    END.
    IF LAST-OF ( BArtst.Wg_Grp ) THEN DO:
        XWg_Grp = 'Total ' + XWg_Grp.
        SUBSTRING(VZeile,001) = XWg_Grp.
        SUBSTRING(VZeile,060) = STRING(VWgTotal[02]     ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,072) = STRING(VWgTotal[04]     ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,084) = STRING(VWgTotal[03]     ,"zzz,zzz,zzz-").
        IF T_Vorjahr THEN DO:
            SUBSTRING(VZeile,100) = STRING(VWgTotal[07]     ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,112) = STRING(VWgTotal[09]     ,"zzz,zzz,zzz-").
            SUBSTRING(VZeile,124) = STRING(VWgTotal[08]     ,"zzz,zzz,zzz-").
        END.
        { v8/putstreamf.i "1" }
        FTotal = TRUE.
    END.
    
    IF FTotal THEN DO:
        { v8/putstream.i "1" }
        FTotal = FALSE.
    END.
END.
    
    IF GTotal[01] = 0   AND
       GTotal[02] = 0   AND
       GTotal[03] = 0   AND
       GTotal[04] = 0   THEN RETURN.
       
    SUBSTRING(VZeile,001) = TRIM(SUBSTRING(Helptext[12],21,20)).
    SUBSTRING(VZeile,060) = STRING(GTotal[02]   ,"zzz,zzz,zzz-").
    SUBSTRING(VZeile,072) = STRING(GTotal[04]   ,"zzz,zzz,zzz-").
    SUBSTRING(VZeile,084) = STRING(GTotal[03]   ,"zzz,zzz,zzz-").
    IF T_Vorjahr THEN DO:
        SUBSTRING(VZeile,100) = STRING(GTotal[07]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,112) = STRING(GTotal[09]   ,"zzz,zzz,zzz-").
        SUBSTRING(VZeile,124) = STRING(GTotal[08]   ,"zzz,zzz,zzz-").
    END.
    { v8/putstreamf.i "1" }
    
END PROCEDURE.

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

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

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE DRUCKAUSGABE D-Dialog 
PROCEDURE DRUCKAUSGABE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR AnzKopien       AS INT                      NO-UNDO.

    AnzKopien = BLiDruck.ListCopy.
    
    IF AnzKopien    = 0             THEN AnzKopien = 1.
    IF BDrucker.Emul = 'TERMINAL'   THEN AnzKopien = 1.
    
DO VCopy = 1 TO AnzKopien:

    DO WHILE BDrucker.Emul <> "TERMINAL":
        IF BSteuer.Drucker <> ""        AND
           OPSYS           = "Unix"     THEN
             OUTPUT STREAM Out_Stream
                    THROUGH VALUE(BSteuer.Drucker)
                            VALUE(BSchrift.Schname)
                            CONVERT TARGET "ibm850".
        ELSE OUTPUT STREAM Out_Stream
                    TO      VALUE(BSchrift.Schname)
                            CONVERT TARGET "ibm850".

        PUT STREAM Out_Stream CONTROL BSchrift.Schseqbeg.
        IF BLiDruck.Listlq      THEN PUT STREAM Out_Stream CONTROL BDrucker.Drulqb.
        IF BLiDruck.Schacht > 0 THEN PUT STREAM Out_Stream CONTROL BDrucker.DruSchacht[Schacht].

        INPUT  STREAM In_Stream  FROM VALUE(VTemp) NO-ECHO NO-MAP.
        REPEAT ON STOP UNDO, LEAVE WITH FRAME f_Print:
            IMPORT STREAM In_Stream UNFORMATTED VZeile.
            DISPLAY STREAM Out_Stream VZeile
                    WITH FRAME f_Print NO-LABELS STREAM-IO
                    NO-BOX USE-TEXT WIDTH 255.
        END.

        PUT STREAM Out_Stream CONTROL CHR(12).
        
        OUTPUT STREAM Out_Stream CLOSE.
        INPUT  STREAM In_Stream  CLOSE.
        LEAVE.
    END.
    
    DO WHILE BDrucker.Emul = "TERMINAL":
        RUN "v8/d-liste.w" ( INPUT HelpText[02] ).
        LEAVE.
    END.
    
END.
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE DRUCKEN D-Dialog 
PROCEDURE DRUCKEN :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR XProgname       AS CHAR             NO-UNDO.
    DEF VAR VListnr         AS INT              NO-UNDO.
    DEF VAR FNeu            AS LOG              NO-UNDO.
    DEF VAR VDrucker        AS CHAR             NO-UNDO.
    DEF VAR VSchrift        AS CHAR             NO-UNDO.
    DEF VAR cUser           AS CHAR             NO-UNDO.
    
DO WITH FRAME {&FRAME-NAME}:

    cUser     = DYNAMIC-FUNCTION('getDBUser':U) NO-ERROR.
    VProgname = TRIM(cUSER)  + '!ARTKUNUMS' + STRING(RS_Sort,"99").
    XProgname = 'ARTKUNUMS' + STRING(RS_Sort,"99").
    FNeu      = FALSE.
    
    DO WITH FRAME {&FRAME-NAME}:
        VDrucker = CB_Drucker:SCREEN-VALUE.
        VSchrift = CB_Schriftbild:SCREEN-VALUE.
    END.

    REPEAT TRANSACTION:
        FIND FIRST Listen USE-INDEX Listen-k1
                          WHERE Listen.Firma    = GVFirma
                          AND   Listen.Progname = VProgname
                          AND   Listen.Listfl   = ''    NO-ERROR.
        IF NOT AVAILABLE Listen THEN DO:
            FIND LAST Listen USE-INDEX Listen-k1
                             WHERE Listen.Firma = GVFirma NO-LOCK NO-ERROR.
            IF AVAILABLE Listen THEN VListnr = Listen.Listnr + 1.
            ELSE                     VListnr = 1.
            CREATE  Listen.
            ASSIGN  Listen.Firma     = GVFirma
                    Listen.Listnr    = VListnr
                    Listen.Progname  = VProgname
                    Listen.Listfl    = ''
                    Listen.Jahr      = GVJahr
                    Listen.Sprcd     = GVSprcd
                    Listen.Sort      = RS_Sort
                    Listen.ProgWahl  = 1
                    FNeu             = TRUE.
        END.
        Listen.Listfl = 'A'.
        ARecid        = RECID(Listen).

        FIND LiDruck USE-INDEX LiDruck-k1
                     WHERE LiDruck.Firma    = GVFirma
                     AND   LiDruck.Listnr   = Listen.Listnr
                     AND   LiDruck.ProgWahl = Listen.ProgWahl NO-ERROR.
        IF NOT AVAILABLE LiDruck THEN DO:
            CREATE  LiDruck.
            ASSIGN  LiDruck.Firma    = GVFirma
                    LiDruck.Listnr   = Listen.Listnr
                    LiDruck.ProgWahl = Listen.ProgWahl
                    LiDruck.Listprog = XProgname
                    LiDruck.ListCopy = 1
                    LiDruck.Schacht  = 0
                    LiDruck.Listlq   = FALSE.
        END.
        BRecid = RECID(LiDruck).

        ASSIGN  Listen.Sort       = RS_Sort
                Listen.ENr[01]    = RS_Sort-2
                Listen.VNr[01]    = F_VArtnr
                Listen.BNr[01]    = F_BArtnr
                Listen.VNr[02]    = F_VKnr
                Listen.BNr[02]    = F_BKnr
                Listen.VFl[01]    = T_Detail
                Listen.VFl[02]    = T_Vorjahr
                Listen.VDa[01]    = F_VDatum
                Listen.BDa[01]    = F_BDatum
                Listen.ECh[01]    = F_Hersteller
                Listen.ECh[02]    = F_Warengruppe
                Listen.ECh[03]    = F_Preisgruppen
                Listen.ECh[04]    = F_Kundengruppen
                Listen.ECh[05]    = F_Vertreter
                Listen.ECh[06]    = F_Touren
                Listen.ECh[07]    = F_Orte.

        IF TRecid = 0 THEN DO:
            CREATE  Tabel.
            ASSIGN  Tabel.Firma  = GVFirma
                    Tabel.RecArt = 'LISTEN'
                    Tabel.CodeC  = 'ARTKUNUMS'
                    Tabel.CodeI  = VLiArt
                    Tabel.Sprcd  = 0.
        END.
        ELSE DO:
            FIND Tabel WHERE RECID(Tabel) = TRecid.
        END.
        TRecid = RECID(Tabel).

        ASSIGN  Tabel.Int_1 = ARecid
                Tabel.Int_2 = BRecid.

        FIND Schrift USE-INDEX Schrift-k1
                     WHERE Schrift.Schname = VDrucker
                     AND   Schrift.Schbild = VSchrift NO-LOCK NO-ERROR.
        IF AVAILABLE Schrift THEN DO:
            IF LiDruck.ListDru  <> VDrucker     OR
               LiDruck.ListBild <> VSchrift THEN DO:
                ASSIGN  LiDruck.ListTzz     = Schrift.Schzztot
                        LiDruck.ListKzz     = Schrift.Schzzbeg
                        LiDruck.ListFzz     = Schrift.Schzzend.
            END.
            ASSIGN  LiDruck.ListDru  = VDrucker
                    LiDruck.ListBild = VSchrift.
        END.
        
        RUN LIBILD.
        
        RELEASE Listen.
        RELEASE LiDruck.
        RELEASE Tabel.
        
        LEAVE.
    END.
    
    IF FNeu THEN DO:
        T_Drucker = TRUE.
        DISPLAY T_Drucker WITH FRAME {&FRAME-NAME}.
    END.

    IF T_Drucker THEN RUN DRUCKER.

    FIND BSteuer  WHERE BSteuer.Firma   = GVFirma   NO-LOCK NO-ERROR.    
    FIND BListen  WHERE RECID(BListen)  = ARecid    NO-LOCK NO-ERROR.
    FIND BLiDruck WHERE RECID(BLiDruck) = BRecid    NO-LOCK NO-ERROR.
    FIND BSchrift USE-INDEX Schrift-k1
                  WHERE BSchrift.Schname = BLiDruck.ListDru
                  AND   BSchrift.Schbild = BLiDruck.ListBild NO-LOCK NO-ERROR.
    FIND BDrucker USE-INDEX Drucker-k1
                  WHERE BDrucker.Drucker = BSchrift.Schdru   NO-LOCK NO-ERROR.
                  
    IF T_Drucker THEN DO:
        FIND LiDruck WHERE RECID(LiDruck) = BRecid NO-LOCK NO-ERROR.
        i1 = CB_Drucker:LOOKUP(LiDruck.ListDru).
        IF i1 = 0 THEN i1 = 1.
        CB_Drucker:SCREEN-VALUE = CB_Drucker:ENTRY(i1).
        APPLY 'VALUE-CHANGED' TO CB_Drucker.
    END.

    TiDruck = TRUE.
    VSeite  = 0.
    
    RUN TEMP_FILE.
    RUN LISTTIT1.
    RUN WORKFILE.
    IF DOpen = TRUE THEN OUTPUT STREAM Out_Stream TO VALUE(VTemp).
    
    IF RS_Sort = 1 THEN DO:
        IF RS_Sort-2 = 1 THEN RUN AUSGABE_01.
        IF RS_Sort-2 = 2 THEN RUN AUSGABE_02.
        IF RS_Sort-2 = 3 THEN RUN AUSGABE_03.
    END.

    IF DOpen THEN OUTPUT STREAM Out_Stream CLOSE.
    DOpen = FALSE.
    RUN DRUCKAUSGABE.
    IF VTemp <> '' THEN OS-DELETE VALUE(VTemp).

END.

    REPEAT TRANSACTION:
        FIND BListen  WHERE RECID(BListen)  = ARecid.
        BListen.ListFl = ''.
        RELEASE BListen.
        LEAVE.
    END.

    FIND BListen  WHERE RECID(BListen)  = ARecid NO-LOCK NO-ERROR.
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE DRUCKER D-Dialog 
PROCEDURE DRUCKER :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    LVRecid = TRecid.
    SESSION:SET-WAIT-STATE('').
    RUN "v8/d-druckauswahl.w".
    SESSION:SET-WAIT-STATE('GENERAL').

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI D-Dialog  _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 CB_Listenart RS_Sort RS_Sort-2 F_VArtnr F_BArtnr F_Hersteller 
          F_Warengruppe F_VDatum F_BDatum F_VKnr F_BKnr F_Preisgruppen 
          F_Kundengruppen F_Vertreter F_Touren F_Orte T_Detail T_Vorjahr 
          CB_Drucker CB_Schriftbild T_Drucker 
      WITH FRAME D-Dialog.
  ENABLE CB_Listenart RS_Sort RS_Sort-2 F_VArtnr F_BArtnr F_Hersteller 
         F_Warengruppe F_VDatum F_BDatum F_VKnr F_BKnr F_Preisgruppen 
         F_Kundengruppen F_Vertreter F_Touren F_Orte T_Detail T_Vorjahr 
         CB_Drucker CB_Schriftbild T_Drucker Btn_OK Btn_Cancel RECT-2 RECT-3 
         RECT-4 
      WITH FRAME D-Dialog.
  VIEW FRAME D-Dialog.
  {&OPEN-BROWSERS-IN-QUERY-D-Dialog}
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE KUNDENGRUPPE D-Dialog 
PROCEDURE KUNDENGRUPPE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    VKgrTotal = 0.
    XKund_Grp = ''.
    LVRecArt  = 'KUNDGRP'.
    LVCodeI   = BDebst.Ku_Grp.
    LVCodeC   = ''.
    LVSprcd   = 0.
    { v8/tabelfind.i GVFirma LVRecArt LVCodeI LVCodeC LVSprcd }
    IF AVAILABLE Tabel THEN XKund_Grp = STRING(BDebst.Ku_Grp,"999 ")
                                      + Tabel.Bez1.
    ELSE                    XKund_Grp = STRING(BDebst.Ku_Grp,"999 ")
                                      + '???????????????'.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LIBILD D-Dialog 
PROCEDURE LIBILD :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/


    Helptext = "".
    FOR EACH LiBild USE-INDEX LiBild-k1
                    WHERE LiBild.Sprcd = GVSprcd
                    AND   LiBild.Prog  = LiDruck.Listprog
                    AND   LiBild.Tenr  > 0 NO-LOCK ix = 1 TO 20:
        Helptext[ix] = LiBild.Litext.
    END.
    Breite = INTEGER(SUBSTRING(Helptext[01],02,03)).
    
    IF NOT T_Vorjahr THEN Breite = Breite - 36.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LISTTIT1 D-Dialog 
PROCEDURE LISTTIT1 :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    Tittxt = STRING(MONTH(F_VDatum),"99")
           + STRING(YEAR (F_VDatum),"/9999")
           + " - "
           + STRING(MONTH(F_BDatum),"99")
           + STRING(YEAR (F_BDatum),"/9999").

    Fuell  =         SUBSTRING(Helptext[01],01,01).
    Breite = INTEGER(SUBSTRING(Helptext[01],02,03)).
    
    IF NOT T_Vorjahr THEN Breite = Breite - 36.
    
    VRand  = INTEGER(SUBSTRING(Helptext[01],68,03)).
    Dattxt =         SUBSTRING(Helptext[01],05,10).
    Seitxt =         SUBSTRING(Helptext[01],15,10).
    Zeitxt =         SUBSTRING(Helptext[01],25,10).
    Firtxt =         SUBSTRING(Helptext[01],35,10).
    Jahtxt =         SUBSTRING(Helptext[01],45,10).
    PPos1  = Breite - 20.
    PPos2  = (Breite - LENGTH(Helptext[02]) - 1) / 2.
    PPos5  = (Breite - LENGTH(Tittxt) - 1) / 2.
    ix     = LENGTH(BDrucker.Drufettb)  + LENGTH(BDrucker.Drufette).
    PPos3  = PPos1  + ix.
    PPos4  = Breite + ix - 3.
    IF Fuell <> "" THEN Kopfz  = FILL(Fuell,Breite).
    Ueber1 = "".
    Ueber2 = "".
    Ueber3 = "".
    IF Helptext[03] <> "" THEN SUBSTRING(Ueber1,001) = Helptext[03].
    IF Helptext[04] <> "" THEN SUBSTRING(Ueber1,071) = Helptext[04].
    IF Helptext[05] <> "" THEN SUBSTRING(Ueber1,141) = Helptext[05].
    IF Helptext[06] <> "" THEN SUBSTRING(Ueber2,001) = Helptext[06].
    IF Helptext[07] <> "" THEN SUBSTRING(Ueber2,071) = Helptext[07].
    IF Helptext[08] <> "" THEN SUBSTRING(Ueber2,141) = Helptext[08].
    IF Helptext[09] <> "" THEN SUBSTRING(Ueber3,001) = Helptext[09].
    IF Helptext[10] <> "" THEN SUBSTRING(Ueber3,071) = Helptext[10].
    IF Helptext[11] <> "" THEN SUBSTRING(Ueber3,141) = Helptext[11].
    IF Ueber1 <> '' THEN Ueber1 = BDrucker.Drufettb + Ueber1 + BDrucker.Drufette.
    IF Ueber2 <> '' THEN Ueber2 = BDrucker.Drufettb + Ueber2 + BDrucker.Drufette.
    IF Ueber3 <> '' THEN Ueber3 = BDrucker.Drufettb + Ueber3 + BDrucker.Drufette.
    Helptext[02] = BDrucker.Drufettb + Helptext[02] + BDrucker.Drufette.
    Tittxt       = BDrucker.Drufettb + Tittxt       + BDrucker.Drufette.
    ap           = 1.
    XDruDat      = ?.
    
    IF NOT T_Vorjahr THEN DO:
        Ueber1 = TRIM(SUBSTRING(Ueber1,01,Breite)).
        Ueber2 = TRIM(SUBSTRING(Ueber2,01,Breite)).
        Ueber3 = TRIM(SUBSTRING(Ueber3,01,Breite)).
    END.
 
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LISTTIT2 D-Dialog 
PROCEDURE LISTTIT2 :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    IF NOT TiDruck AND Leer > 0 THEN DO:
        { v8/putzeily.i XLeer Leer }
    END.
    IF (VLine + BLiDruck.Listfzz + Zuszz) > BLiDruck.Listtzz THEN TiDruck = TRUE.
    IF TiDruck THEN DO:
        IF Uebertrag <> ""  THEN DO:
            { v8/putzeily.i XLeer      "1" }
            { v8/putzeily.i Uebertrag  "1" }
            { v8/putzeily.i XLeer      "1" }
        END.
        IF DOpen = TRUE THEN DO:
            RUN NEUE_SEITE.
        END.
        ELSE DO:
            VSeite = VSeite + 1.
            VZNr   = VZNr   + 1.
            VLine  = 0.
            CREATE  XTermOut.
            ASSIGN  XTermOut.ZNr   = VZNr
                    XTermOut.Zeile = ''.
        END.
        IF Listkzz > 0 THEN DO:
            { v8/putzeily.i XLeer Listkzz }
        END.
        IF Kopfz <> "" THEN DO:
            { v8/putzeily.i Kopfz "1" }
        END.

        Titelz = "".
        SUBSTRING(Titelz,01)         = BSteuer.Firma1.
        SUBSTRING(Titelz,PPos1)      = Dattxt.
        IF XDruDat <> ? THEN SUBSTR(Titelz,Breite - 9) = STRING(XDruDat,VDatForm).
        ELSE                 SUBSTR(Titelz,Breite - 9) = STRING(TODAY  ,VDatForm).
        { v8/putzeily.i Titelz "1" }
    
        Titelz = "".
        SUBSTRING(Titelz,01)         = BSteuer.Strasse.
        SUBSTRING(Titelz,PPos2)      = Helptext[02].
        SUBSTRING(Titelz,PPos3)      = Seitxt.
        SUBSTRING(Titelz,PPos4)      = STRING(VSeite,"zzz9").
        { v8/putzeily.i Titelz "1" }

        Titelz = "".
        SUBSTRING(Titelz,01)         = BSteuer.Ort.
        IF Tittxt <> "" THEN DO:
            SUBSTRING(Titelz,PPos5)  = Tittxt.
        END.
        SUBSTRING(Titelz,PPos3)      = Zeitxt.
        SUBSTRING(Titelz,PPos4  - 4) = STRING(TIME,"HH:MM:SS").
        { v8/putzeily.i Titelz "1" }

        IF BListen.FirmaFl OR BListen.JahrFl THEN DO:
            Titelz = "".
            IF BListen.FirmaFl THEN DO:
                SUBSTRING(Titelz,01)         = Firtxt.
                SUBSTRING(Titelz,11)         = STRING(BListen.Firma).
            END.
            IF BListen.JahrFl THEN DO:
                SUBSTRING(Titelz,PPos1)      = Jahtxt.
                SUBSTRING(Titelz,Breite - 3) = STRING(BListen.Jahr,"9999").
            END.
            { v8/putzeily.i Titelz "1" }
        END.

        IF Kopfz <> "" THEN DO:
            { v8/putzeily.i Kopfz "1" }
        END.

        { v8/putzeily.i XLeer "1" }
        aa = 0.
        IF Ueber1 <> "" THEN DO:
            { v8/putzeily.i Ueber1 "1" }
            aa = 1.
        END.
        IF Ueber2 <> "" THEN DO:
            { v8/putzeily.i Ueber2 "1" }
            aa = 1.
        END.
        IF Ueber3 <> "" THEN DO:
            { v8/putzeily.i Ueber3 "1" }
            aa = 1.
        END.
        IF aa = 1 THEN DO:
            { v8/putzeily.i XLeer "1" }.
        END.
        TiGedru = TRUE.
    END.
    IF Leer > 0 OR TiDruck THEN DO:
        IF Ueber4 <> "" THEN DO:
            { v8/putzeily.i Ueber4 "2" }
        END.
        IF Ueber5 <> "" THEN DO:
            { v8/putzeily.i Ueber5 "2" }
        END.
        IF Uebertrag <> "" THEN DO:
            { v8/putzeily.i Uebertrag "2" }
        END.
    END.

    TiDruck   = FALSE.
    Uebertrag = "".
    Leer      = 0.
    Zuszz     = 0.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-view D-Dialog 
PROCEDURE local-view :
/*------------------------------------------------------------------------------
  Purpose:     Override standard ADM method
  Notes:       
------------------------------------------------------------------------------*/

    RUN dispatch IN THIS-PROCEDURE ( INPUT 'view':U ) .

    APPLY 'VALUE-CHANGED' TO CB_Listenart IN FRAME {&FRAME-NAME}.
    APPLY 'VALUE-CHANGED' TO CB_Drucker   IN FRAME {&FRAME-NAME}.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE NEUE_SEITE D-Dialog 
PROCEDURE NEUE_SEITE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR A           AS INT                      NO-UNDO.
    DEF VAR B           AS INT                      NO-UNDO.

    DO WHILE VSeite > 0:
        IF DOpen THEN DO:
            PUT STREAM Out_Stream CHR(12).
            LEAVE.
        END.
    
        A = BLiDruck.Listtzz.
        DO B = VLine TO A:
            VZNr = VZNr + 1.
            CREATE  XTermOut.
            ASSIGN  XTermOut.ZNr   = VZNr
                    XTermOut.Zeile = ''.
        END.
        
        LEAVE.
    END.
        
    VLine  = 0.
    VSeite = VSeite + 1.
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE PREISGRUPPE D-Dialog 
PROCEDURE PREISGRUPPE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    VKgrTotal = 0.
    XKund_Grp = ''.
    LVRecArt  = 'PREGRP'.
    LVCodeI   = BDebst.Preis_Grp.
    LVCodeC   = ''.
    LVSprcd   = 0.
    { v8/tabelfind.i GVFirma LVRecArt LVCodeI LVCodeC LVSprcd }
    IF AVAILABLE Tabel THEN XPreis_Grp = STRING(BDebst.Preis_Grp,"999 ")
                                       + Tabel.Bez1.
    ELSE                    XPreis_Grp = STRING(BDebst.Preis_Grp,"999 ")
                                       + '???????????????'.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE PRODGRUPPE D-Dialog 
PROCEDURE PRODGRUPPE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    VProdTotal = 0.
    XProd_Grp  = ''.
    FIND ProdGrp USE-INDEX ProdGrp-k1
                 WHERE ProdGrp.Firma    = GVFirma
                 AND   ProdGrp.Wgr      = BArtst.Wg_Grp
                 AND   ProdGrp.Prod_Grp = BArtst.Prod_Grp   NO-LOCK NO-ERROR.
    IF AVAILABLE ProdGrp THEN XProd_Grp = STRING(BArtst.Prod_Grp  ,"999 ")
                                        + ProdGrp.Bez1.
    ELSE                      XProd_Grp = STRING(BArtst.Prod_Grp  ,"999 ")
                                        + '???????????????'.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records D-Dialog  _ADM-SEND-RECORDS
PROCEDURE send-records :
/*------------------------------------------------------------------------------
  Purpose:     Send record ROWID's for all tables used by
               this file.
  Parameters:  see template/snd-head.i
------------------------------------------------------------------------------*/

  /* SEND-RECORDS does nothing because there are no External
     Tables specified for this SmartDialog, and there are no
     tables specified in any contained Browse, Query, or Frame. */

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SORTIERARTEN D-Dialog 
PROCEDURE SORTIERARTEN :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

DO WITH FRAME {&FRAME-NAME}:

    CASE VLiArt:
/*    
        WHEN 1 THEN DO:
            RS_Sort:RADIO-BUTTONS   = 'Warengruppe/Produktegruppe/Artikelgruppe,1,,2,,3'.
            RS_Sort-2:RADIO-BUTTONS = 'Suchbegriff,1,Kundengruppe/Suchbegriff,2,Preisgruppe/Suchbegriff,3'.
        END.
*/
        WHEN 1 THEN DO:
            RS_Sort:RADIO-BUTTONS   = 'Warengruppe/Produktegruppe/Artikelgruppe,1'.
            RS_Sort-2:RADIO-BUTTONS = 'Suchbegriff,1,Kundengruppe/Suchbegriff,2,Preisgruppe/Suchbegriff,3'.
        END.
        
    END CASE.

END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed D-Dialog 
PROCEDURE state-changed :
/* -----------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
-------------------------------------------------------------*/
  DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE NO-UNDO.
  DEFINE INPUT PARAMETER p-state AS CHARACTER NO-UNDO.
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE TEMP_FILE D-Dialog 
PROCEDURE TEMP_FILE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR VSort1              AS CHAR             NO-UNDO.
    DEF VAR VSort2              AS CHAR             NO-UNDO.
    DEF VAR VSort3              AS CHAR             NO-UNDO.
    DEF VAR VSort4              AS CHAR             NO-UNDO.
    DEF VAR VSort5              AS CHAR             NO-UNDO.
    
    DEF VAR VDatum              AS DATE             NO-UNDO.
    DEF VAR BDatum              AS DATE             NO-UNDO.

    FOR EACH THilfsTab:
        DELETE  THilfsTab.
    END.
    
    ix     = ((YEAR(F_BDatum) * 12) + MONTH(F_BDatum))
           - ((YEAR(F_VDatum) * 12) + MONTH(F_VDatum)) + 1.
    BDatum = F_VDatum - 1.
    i1     = YEAR (BDatum).
    i2     = MONTH(BDatum) - ix + 1.
    DO WHILE i2 < 0:
        i1 = i1 - 1.
        i2 = i2 + 12.
    END.
    VDatum = DATE(i2,01,i1).
    
    FOR EACH DeArUms USE-INDEX DeArUms-k2
                   WHERE DeArUms.Firma   = GVFirma
                   AND   DeArUms.Jahr   >= YEAR(F_VDatum)
                   AND   DeArUms.Jahr   <= YEAR(F_BDatum)   NO-LOCK,
        FIRST Artst  USE-INDEX Artst-k1
                     WHERE Artst.Firma   = DeArUms.Firma
                     AND   Artst.Artnr   = DeArUms.Artnr
                     AND   Artst.Inhalt  = DeArUms.Inhalt
                     AND   Artst.Jahr    = DeArUms.Jahrg    NO-LOCK,
        FIRST Debst  USE-INDEX Debst-k1
                     WHERE Debst.Firma   = DeArUms.Firma
                     AND   Debst.Knr     = DeArUms.Knr      NO-LOCK:
                     
        Ja = FALSE.
        DO WHILE TRUE:
            IF Artst.Artnr   < F_VArtnr     THEN LEAVE.
            IF Artst.Artnr   > F_BArtnr     THEN LEAVE.
            IF Debst.Knr     < F_VKnr       THEN LEAVE.
            IF Debst.Knr     > F_BKnr       THEN LEAVE.
            
            IF F_Hersteller    <> ''    AND
               LOOKUP(STRING(Artst.Herst    ,"999"), F_Hersteller   ) = 0 THEN LEAVE.

            IF F_Warengruppe   <> ''    AND
               LOOKUP(STRING(Artst.Wg_Grp   ,"999"), F_Warengruppe  ) = 0 THEN LEAVE.

            IF F_Preisgruppen  <> ''    AND
               LOOKUP(STRING(Debst.Preis_Grp,"999"), F_Preisgruppen ) = 0 THEN LEAVE.

            IF F_Kundengruppen <> ''    AND
               LOOKUP(STRING(Debst.Ku_Grp   ,"999"), F_Kundengruppen) = 0 THEN LEAVE.

            IF F_Vertreter     <> ''    AND
               LOOKUP(STRING(Debst.Vertr    ,"999"), F_Vertreter    ) = 0 THEN LEAVE.

            IF F_Touren        <> ''    AND
               LOOKUP(STRING(Debst.Tour_Nr1 ,"999"), F_Touren       ) = 0 THEN LEAVE.

            IF  F_Orte = '' THEN DO:
                Ja = TRUE.
                LEAVE.
            END.
            FIND Adresse USE-INDEX Adresse-k1
                         WHERE Adresse.Firma = AdFirma
                         AND   Adresse.Knr   = DeArUms.Knr  NO-LOCK NO-ERROR.
            IF LOOKUP(Adresse.Plz, F_Orte) = 0 THEN LEAVE.
            Ja = TRUE.
            LEAVE.
        END.
        IF NOT Ja THEN NEXT.
        
        VSort1 = STRING(Artst.Artnr ,"999999").
        VSort2 = STRING(Artst.Inhalt,"9999").
        VSort3 = STRING(Artst.Jahr  ,"9999").
        VSort4 = STRING(Debst.Knr   ,"999999").
        
        FIND FIRST THilfsTab USE-INDEX HilfsTab-k1
                             WHERE THilfsTab.Firma  = GVFirma
                             AND   THilfsTab.Sort_1 = VSort1
                             AND   THilfsTab.Sort_2 = VSort2
                             AND   THilfsTab.Sort_3 = VSort3
                             AND   THilfsTab.Sort_4 = VSort4     NO-ERROR.
        IF NOT AVAILABLE THilfsTab THEN DO:
            CREATE  THilfsTab.
            ASSIGN  THilfsTab.Firma  = GVFirma
                    THilfsTab.Sort_1 = VSort1
                    THilfsTab.Sort_2 = VSort2
                    THilfsTab.Sort_3 = VSort3
                    THilfsTab.Sort_4 = VSort4
                    THilfsTab.Zahl_1 = RECID(Artst)
                    THilfsTab.Zahl_2 = RECID(Debst).
        END.
        
        i1 = 01.
        i2 = 12.
        IF DeArUms.Jahr = YEAR(F_VDatum) THEN i1 = MONTH(F_VDatum).
        IF DeArUms.Jahr = YEAR(F_BDatum) THEN i2 = MONTH(F_BDatum).
        
        DO ix = i1 TO i2:
            THilfsTab.Wert[01] = THilfsTab.Wert[01] + DeArUms.Ep_Mon[ix].
            THilfsTab.Wert[02] = THilfsTab.Wert[02] + DeArUms.Me_Mon[ix].
            THilfsTab.Wert[03] = THilfsTab.Wert[03] + DeArUms.Li_Mon[ix].
            THilfsTab.Wert[04] = THilfsTab.Wert[04] + DeArUms.Vp_Mon[ix].
        END.
        
    END.

    IF NOT T_Vorjahr THEN RETURN.
        
    FOR EACH DeArUms USE-INDEX DeArUms-k2
                   WHERE DeArUms.Firma   = GVFirma
                   AND   DeArUms.Jahr   >= YEAR(VDatum)
                   AND   DeArUms.Jahr   <= YEAR(BDatum)   NO-LOCK,
        FIRST Artst  USE-INDEX Artst-k1
                     WHERE Artst.Firma   = DeArUms.Firma
                     AND   Artst.Artnr   = DeArUms.Artnr
                     AND   Artst.Inhalt  = DeArUms.Inhalt
                     AND   Artst.Jahr    = DeArUms.Jahrg    NO-LOCK,
        FIRST Debst  USE-INDEX Debst-k1
                     WHERE Debst.Firma   = DeArUms.Firma
                     AND   Debst.Knr     = DeArUms.Knr      NO-LOCK:
                     
        Ja = FALSE.
        DO WHILE TRUE:
            IF Artst.Artnr   < F_VArtnr     THEN LEAVE.
            IF Artst.Artnr   > F_BArtnr     THEN LEAVE.
            IF Debst.Knr     < F_VKnr       THEN LEAVE.
            IF Debst.Knr     > F_BKnr       THEN LEAVE.
            
            IF F_Hersteller    <> ''    AND
               LOOKUP(STRING(Artst.Herst    ,"999"), F_Hersteller   ) = 0 THEN LEAVE.

            IF F_Warengruppe   <> ''    AND
               LOOKUP(STRING(Artst.Wg_Grp   ,"999"), F_Warengruppe  ) = 0 THEN LEAVE.

            IF F_Preisgruppen  <> ''    AND
               LOOKUP(STRING(Debst.Preis_Grp,"999"), F_Preisgruppen ) = 0 THEN LEAVE.

            IF F_Kundengruppen <> ''    AND
               LOOKUP(STRING(Debst.Ku_Grp   ,"999"), F_Kundengruppen) = 0 THEN LEAVE.

            IF F_Vertreter     <> ''    AND
               LOOKUP(STRING(Debst.Vertr    ,"999"), F_Vertreter    ) = 0 THEN LEAVE.

            IF F_Touren        <> ''    AND
               LOOKUP(STRING(Debst.Tour_Nr1 ,"999"), F_Touren       ) = 0 THEN LEAVE.

            IF  F_Orte = '' THEN DO:
                Ja = TRUE.
                LEAVE.
            END.
            FIND Adresse USE-INDEX Adresse-k1
                         WHERE Adresse.Firma = AdFirma
                         AND   Adresse.Knr   = DeArUms.Knr  NO-LOCK NO-ERROR.
            IF LOOKUP(Adresse.Plz, F_Orte) = 0 THEN LEAVE.
            Ja = TRUE.
            LEAVE.
        END.
        IF NOT Ja THEN NEXT.
        
        VSort1 = STRING(Artst.Artnr ,"999999").
        VSort2 = STRING(Artst.Inhalt,"9999").
        VSort3 = STRING(Artst.Jahr  ,"9999").
        VSort4 = STRING(Debst.Knr   ,"999999").
        
        FIND FIRST THilfsTab USE-INDEX HilfsTab-k1
                             WHERE THilfsTab.Firma  = GVFirma
                             AND   THilfsTab.Sort_1 = VSort1
                             AND   THilfsTab.Sort_2 = VSort2
                             AND   THilfsTab.Sort_3 = VSort3
                             AND   THilfsTab.Sort_4 = VSort4     NO-ERROR.
        IF NOT AVAILABLE THilfsTab THEN DO:
            CREATE  THilfsTab.
            ASSIGN  THilfsTab.Firma  = GVFirma
                    THilfsTab.Sort_1 = VSort1
                    THilfsTab.Sort_2 = VSort2
                    THilfsTab.Sort_3 = VSort3
                    THilfsTab.Sort_4 = VSort4
                    THilfsTab.Zahl_1 = RECID(Artst)
                    THilfsTab.Zahl_2 = RECID(Debst).
        END.
        
        i1 = 01.
        i2 = 12.
        IF DeArUms.Jahr = YEAR(VDatum) THEN i1 = MONTH(VDatum).
        IF DeArUms.Jahr = YEAR(BDatum) THEN i2 = MONTH(BDatum).
        
        DO ix = i1 TO i2:
            THilfsTab.Wert[06] = THilfsTab.Wert[06] + DeArUms.Ep_Mon[ix].
            THilfsTab.Wert[07] = THilfsTab.Wert[07] + DeArUms.Me_Mon[ix].
            THilfsTab.Wert[08] = THilfsTab.Wert[08] + DeArUms.Li_Mon[ix].
            THilfsTab.Wert[09] = THilfsTab.Wert[09] + DeArUms.Vp_Mon[ix].
        END.
        
    END.
        
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE WARENGRUPPE D-Dialog 
PROCEDURE WARENGRUPPE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    VWgTotal = 0.
    XWg_Grp  = ''.
    FIND WarenGrp USE-INDEX WarenGrp-k1
                  WHERE WarenGrp.Firma = GVFirma
                  AND   WarenGrp.Wgr   = BArtst.Wg_Grp NO-LOCK NO-ERROR.
    IF AVAILABLE WarenGrp THEN XWg_Grp = STRING(BArtst.Wg_Grp  ,"999 ")
                                       + WarenGrp.Bez1.
    ELSE                       XWg_Grp = STRING(BArtst.Wg_Grp  ,"999 ")
                                       + '???????????????'.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE WORKFILE D-Dialog 
PROCEDURE WORKFILE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DOpen = FALSE.
    VTemp = ''.
    IF BDrucker.Emul = 'TERMINAL' THEN DO:
        FOR EACH XTermOut:
            DELETE  XTermOut.
        END.
        VZNr = 0.
        RETURN.
    END.

    DO WHILE TRUE TRANSACTION:
        FIND Tabel USE-INDEX Tabel-k1
                   WHERE Tabel.Firma  = GVFirma
                   AND   Tabel.RecArt = 'TEMPFILE'
                   AND   Tabel.CodeI  = 0
                   AND   Tabel.CodeC  = 'UMSATZ'
                   AND   Tabel.Sprcd  = 0 NO-ERROR.
        IF NOT AVAILABLE Tabel THEN DO:
            CREATE  Tabel.
            ASSIGN  Tabel.Firma  = GVFirma
                    Tabel.RecArt = 'TEMPFILE'
                    Tabel.CodeI  = 0
                    Tabel.CodeC  = 'UMSATZ'
                    Tabel.Sprcd  = 0
                    Tabel.Bez1   = SESSION:TEMP-DIR.
        END.
        Tabel.Int_1 = Tabel.Int_1 + 1.
        VTemp = Tabel.Bez1 + 'Umsatz' + STRING(Tabel.Int_1) + '.tmp'.
        RELEASE Tabel.
        LEAVE.
    END.
    
    DOpen = TRUE.
    
END PROCEDURE.

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