GeMIS_WEB/GUI/g-artikelumsatz.w

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

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

DEF VAR MaxPage         AS INT                      NO-UNDO.
DEF VAR AktSeite        AS INT                      NO-UNDO.
DEF VAR FMutFlag        AS LOG                      NO-UNDO.

DEF VAR Selektion       AS CHAR                     NO-UNDO.
DEF VAR Firma           AS CHAR                     NO-UNDO.
DEF VAR AdFirma         AS CHAR                     NO-UNDO.
DEF VAR excelAppl       AS COM-HANDLE               NO-UNDO.
DEF VAR DatenName       AS CHAR                     NO-UNDO.
DEF VAR DateiName       AS CHAR                     NO-UNDO.
DEF VAR VKnr            AS INT                      NO-UNDO.
DEF VAR FwSprcd         AS INT                      NO-UNDO.
DEF VAR xHerst          AS CHAR                     NO-UNDO.

DEF VAR nFontGroesse    AS INT  INIT 9              NO-UNDO.
DEF VAR nMaxBreite      AS DEC  INIT 97             NO-UNDO.
DEF VAR nTotBreite      AS DEC                      NO-UNDO.
DEF VAR nRepBreite      AS DEC                      NO-UNDO.

DEF TEMP-TABLE  TWork       FIELD   Wgr         AS INT
                            FIELD   Pgr         AS INT
                            FIELD   Artnr       AS INT
                            FIELD   Inhalt      AS INT
                            FIELD   Jahr        AS INT
                            FIELD   GebInhalt   AS DEC  DECIMALS 4
                            FIELD   KBez        AS CHAR
                            FIELD   RID         AS RECID
                            FIELD   Menge       AS DEC  DECIMALS 4
                            FIELD   Liter       AS DEC  DECIMALS 4
                            FIELD   Betr        AS DEC  DECIMALS 4
                            FIELD   Ep          AS DEC  DECIMALS 4
                            FIELD   MeKum       AS DEC  DECIMALS 4
                            FIELD   LiKum       AS DEC  DECIMALS 4
                            FIELD   BeKum       AS DEC  DECIMALS 4
                            FIELD   EpKum       AS DEC  DECIMALS 4
                            
                            INDEX TWork-k1
                                  Artnr
                                  Inhalt
                                  Jahr.


DEF TEMP-TABLE tSpalten     NO-UNDO
    FIELD iSpalte       AS INT
    FIELD cFeld         AS CHAR
    FIELD nBreite       AS DEC
    FIELD lAktiv        AS LOG
    INDEX tSpalten-k1 IS PRIMARY
        iSpalte.

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

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS CB_Hersteller F_Wgr F_Prodgrp F_VArtnr ~
F_BArtnr T_Fakturiert T_Menge T_Hektoliter T_Betrag F_VonDat F_BisDat ~
T_MengeKum T_HektoliterKum T_BetragKum F_KumBeg Btn_Excel Btn_Cancel ~
RECT-39 RECT-41 RECT-42 
&Scoped-Define DISPLAYED-OBJECTS CB_Hersteller F_Wgr F_Prodgrp F_VArtnr ~
F_BArtnr T_Fakturiert T_Menge T_Hektoliter T_Betrag F_VonDat F_BisDat ~
T_MengeKum T_HektoliterKum T_BetragKum F_KumBeg 

/* 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 CB_Hersteller F_Wgr F_Prodgrp F_VArtnr F_BArtnr ~
T_Fakturiert T_Menge T_Hektoliter T_Betrag F_VonDat F_BisDat T_MengeKum ~
T_HektoliterKum T_BetragKum F_KumBeg 

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD createSpaltenBreiten gArtikelumsatz 
FUNCTION createSpaltenBreiten RETURNS DECIMAL
  ( /* parameter-definitions */ )  FORWARD.

/* _UIB-CODE-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 15 BY 1.14.

DEFINE BUTTON Btn_Excel 
     IMAGE-UP FILE "grafik/results%.ico":U
     IMAGE-INSENSITIVE FILE "grafik/results%.ico":U
     LABEL "Excel" 
     SIZE 7 BY 1.81.

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

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

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

DEFINE VARIABLE F_KumBeg AS DATE FORMAT "99.99.9999":U INITIAL 01/01/001 
     LABEL "Kummulation seit" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 16 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE VARIABLE F_Prodgrp AS CHARACTER FORMAT "X(256)":U 
     LABEL "Produktegruppen" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 40 BY 1 TOOLTIP "Leer = Alle, Doppel-Klick = Auswahl"
     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 11 BY 1
     BGCOLOR 15  NO-UNDO.

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

DEFINE VARIABLE F_Wgr AS CHARACTER FORMAT "X(256)":U 
     LABEL "Warengruppen" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 40 BY 1 TOOLTIP "Leer = Alle, Doppel-Klick = Auswahl"
     BGCOLOR 15  NO-UNDO.

DEFINE RECTANGLE RECT-39
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 86 BY 5.67.

DEFINE RECTANGLE RECT-41
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 86 BY 3.1.

DEFINE RECTANGLE RECT-42
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 86 BY 3.1.

DEFINE VARIABLE T_Betrag AS LOGICAL INITIAL no 
     LABEL "Betrag" 
     VIEW-AS TOGGLE-BOX
     SIZE 16 BY .81 NO-UNDO.

DEFINE VARIABLE T_BetragKum AS LOGICAL INITIAL no 
     LABEL "Betrag (Kum)" 
     VIEW-AS TOGGLE-BOX
     SIZE 20 BY .81 NO-UNDO.

DEFINE VARIABLE T_Fakturiert AS LOGICAL INITIAL yes 
     LABEL "nur Fakturierte" 
     VIEW-AS TOGGLE-BOX
     SIZE 25 BY 1 NO-UNDO.

DEFINE VARIABLE T_Hektoliter AS LOGICAL INITIAL no 
     LABEL "Hektoliter" 
     VIEW-AS TOGGLE-BOX
     SIZE 16 BY .81 NO-UNDO.

DEFINE VARIABLE T_HektoliterKum AS LOGICAL INITIAL no 
     LABEL "Hektoliter (Kum)" 
     VIEW-AS TOGGLE-BOX
     SIZE 20 BY .81 NO-UNDO.

DEFINE VARIABLE T_Menge AS LOGICAL INITIAL no 
     LABEL "Menge" 
     VIEW-AS TOGGLE-BOX
     SIZE 16 BY .81 NO-UNDO.

DEFINE VARIABLE T_MengeKum AS LOGICAL INITIAL no 
     LABEL "Menge (Kum)" 
     VIEW-AS TOGGLE-BOX
     SIZE 20 BY .81 NO-UNDO.


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

DEFINE FRAME gArtikelumsatz
     CB_Hersteller AT ROW 1.52 COL 44 COLON-ALIGNED
     F_Wgr AT ROW 2.52 COL 44 COLON-ALIGNED
     F_Prodgrp AT ROW 3.52 COL 44 COLON-ALIGNED
     F_VArtnr AT ROW 4.52 COL 44 COLON-ALIGNED
     F_BArtnr AT ROW 4.52 COL 57 COLON-ALIGNED
     T_Fakturiert AT ROW 5.52 COL 46 WIDGET-ID 2
     T_Menge AT ROW 7.52 COL 5
     T_Hektoliter AT ROW 8.29 COL 5
     T_Betrag AT ROW 9.1 COL 5
     F_VonDat AT ROW 7.52 COL 44 COLON-ALIGNED
     F_BisDat AT ROW 7.52 COL 68 COLON-ALIGNED
     T_MengeKum AT ROW 10.95 COL 5
     T_HektoliterKum AT ROW 11.71 COL 5
     T_BetragKum AT ROW 12.52 COL 5
     F_KumBeg AT ROW 11 COL 44 COLON-ALIGNED
     Btn_Excel AT ROW 14.14 COL 79
     Btn_Cancel AT ROW 14.52 COL 4
     "Artikelselektion" VIEW-AS TEXT
          SIZE 24 BY 1 AT ROW 1.52 COL 5
     RECT-39 AT ROW 1.24 COL 2
     RECT-41 AT ROW 7.19 COL 2
     RECT-42 AT ROW 10.62 COL 2
     SPACE(0.99) SKIP(2.75)
    WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER 
         SIDE-LABELS NO-UNDERLINE THREE-D  SCROLLABLE 
         TITLE "Artikelumsatz"
         CANCEL-BUTTON Btn_Cancel.


/* *********************** 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 gArtikelumsatz 
/* ************************* 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 gArtikelumsatz
   FRAME-NAME Custom                                                    */
ASSIGN 
       FRAME gArtikelumsatz:SCROLLABLE       = FALSE
       FRAME gArtikelumsatz:HIDDEN           = TRUE.

/* SETTINGS FOR BUTTON Btn_Excel IN FRAME gArtikelumsatz
   5                                                                    */
/* SETTINGS FOR COMBO-BOX CB_Hersteller IN FRAME gArtikelumsatz
   6                                                                    */
/* SETTINGS FOR FILL-IN F_BArtnr IN FRAME gArtikelumsatz
   6                                                                    */
/* SETTINGS FOR FILL-IN F_BisDat IN FRAME gArtikelumsatz
   6                                                                    */
/* SETTINGS FOR FILL-IN F_KumBeg IN FRAME gArtikelumsatz
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Prodgrp IN FRAME gArtikelumsatz
   6                                                                    */
/* SETTINGS FOR FILL-IN F_VArtnr IN FRAME gArtikelumsatz
   6                                                                    */
/* SETTINGS FOR FILL-IN F_VonDat IN FRAME gArtikelumsatz
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Wgr IN FRAME gArtikelumsatz
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Betrag IN FRAME gArtikelumsatz
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_BetragKum IN FRAME gArtikelumsatz
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Fakturiert IN FRAME gArtikelumsatz
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Hektoliter IN FRAME gArtikelumsatz
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_HektoliterKum IN FRAME gArtikelumsatz
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Menge IN FRAME gArtikelumsatz
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_MengeKum IN FRAME gArtikelumsatz
   6                                                                    */
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


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

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

 



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

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

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


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

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


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

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


&Scoped-define SELF-NAME Btn_Cancel
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Cancel gArtikelumsatz
ON CHOOSE OF Btn_Cancel IN FRAME gArtikelumsatz /* Abbrechen */
DO:
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


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

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


&Scoped-define SELF-NAME F_Prodgrp
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Prodgrp gArtikelumsatz
ON LEFT-MOUSE-DBLCLICK OF F_Prodgrp IN FRAME gArtikelumsatz /* Produktegruppen */
DO:
    IF F_Wgr:SCREEN-VALUE <> ''
         THEN RUN 'g-auswahl-pgr.w':U ( INPUT F_Wgr:HANDLE, INPUT SELF ).
END.

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


&Scoped-define SELF-NAME F_Wgr
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Wgr gArtikelumsatz
ON LEFT-MOUSE-DBLCLICK OF F_Wgr IN FRAME gArtikelumsatz /* Warengruppen */
DO:
    RUN 'g-auswahl-wgr.w':U ( INPUT SELF ).
END.

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


&UNDEFINE SELF-NAME

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


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

    MaxPage  = 1.
    AktSeite = 1.

    SESSION:DATA-ENTRY-RETURN = TRUE.

    SUBSCRIBE TO 'TOOLBAR' ANYWHERE.

    Firma   = DYNAMIC-FUNCTION('GETMANDANT':U)   NO-ERROR.
    AdFirma = DYNAMIC-FUNCTION('GETADMANDANT':U) NO-ERROR.
    FwSprcd = DYNAMIC-FUNCTION('GETFWSPRCD':U)   NO-ERROR.

/*  TRIGGERS    ------------------------------------------------------  */

    ON 'ALT-CURSOR-RIGHT':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        RUN NEXTPAGE.
    END.
    ON 'ALT-CURSOR-LEFT':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        RUN PREVPAGE.
    END.
    ON 'U1':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN ENTRY_CURSOR.
    END.
/*
    ON 'PAGE-DOWN':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN TOOLBAR IN h_dyntoolbar ( INPUT 'Next':U ).
    END.
    ON 'PAGE-UP':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN TOOLBAR IN h_dyntoolbar ( INPUT 'Prev':U ).
    END.
    
    ON 'ALT-RETURN':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        RUN TOOLBAR IN h_dyntoolbar ( INPUT 'UPDATE':U ).
    END.
    ON 'ALT-INS':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        RUN TOOLBAR IN h_dyntoolbar ( INPUT 'ADD':U    ).
    END.
    ON 'ALT-DEL':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        RUN TOOLBAR IN h_dyntoolbar ( INPUT 'DELETE':U ).
    END.
    ON 'ALT-R':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        RUN TOOLBAR IN h_dyntoolbar ( INPUT 'RESET':U  ).
    END.
    ON 'F9':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        RUN TOOLBAR IN h_dyntoolbar ( INPUT 'SAVE':U   ).
    END.
    ON 'ALT-S':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        RUN TOOLBAR IN h_dyntoolbar ( INPUT 'SAVE':U   ).
    END.
    ON 'ALT-K':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        RUN TOOLBAR IN h_dyntoolbar ( INPUT 'COPY':U   ).
    END.

    ON 'END-ERROR':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        FMutFlag = DYNAMIC-FUNCTION('getMutflagAlt':U) NO-ERROR.
        IF FMutFlag = FALSE THEN DO:
            RUN ENDE.
            RETURN NO-APPLY.
        END.
        RUN TOOLBAR IN h_dyntoolbar ( INPUT 'CANCEL':U ).
        RETURN NO-APPLY.
    END.
*/

ON 'RETURN':U OF CB_Hersteller, T_Menge, T_Hektoliter, T_Betrag,
                 F_VonDat, F_BisDat, T_MengeKum, T_HektoliterKum,
                 T_BetragKum, F_KumBeg IN FRAME {&FRAME-NAME}
DO:
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.
/*  ------------------------------------------------------------------  */

    {src/adm2/dialogmn.i}

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects gArtikelumsatz  _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 gArtikelumsatz 
PROCEDURE BEREINIGEN :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF INPUT PARAMETER ipFeld      AS HANDLE               NO-UNDO.

    DEF VAR Inhalt      AS CHAR                     NO-UNDO.
    DEF VAR ix          AS INT                      NO-UNDO.
    DEF VAR i1          AS INT                      NO-UNDO.

    Inhalt = ''.
    DO ix = 1 TO NUM-ENTRIES(ipFeld:SCREEN-VALUE, ','):
        i1 = INTEGER(ENTRY(ix, ipFeld:SCREEN-VALUE, ',')) NO-ERROR.
        IF ERROR-STATUS:ERROR THEN NEXT.
        Inhalt = Inhalt + STRING(i1,'999') + ','.
    END.
    Inhalt = SUBSTRING(Inhalt,01,LENGTH(Inhalt) - 1).
    ipFeld:SCREEN-VALUE = Inhalt.

END PROCEDURE.

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

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

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

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

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

    RUN SUPER.

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

    RUN COMBO_HERSTELLER ( CB_Hersteller:HANDLE ).
    CB_Hersteller:ADD-LAST ( 'Alle', 'AAAAAA' ).
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI gArtikelumsatz  _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_Hersteller F_Wgr F_Prodgrp F_VArtnr F_BArtnr T_Fakturiert T_Menge 
          T_Hektoliter T_Betrag F_VonDat F_BisDat T_MengeKum T_HektoliterKum 
          T_BetragKum F_KumBeg 
      WITH FRAME gArtikelumsatz.
  ENABLE CB_Hersteller F_Wgr F_Prodgrp F_VArtnr F_BArtnr T_Fakturiert T_Menge 
         T_Hektoliter T_Betrag F_VonDat F_BisDat T_MengeKum T_HektoliterKum 
         T_BetragKum F_KumBeg Btn_Excel Btn_Cancel RECT-39 RECT-41 RECT-42 
      WITH FRAME gArtikelumsatz.
  VIEW FRAME gArtikelumsatz.
  {&OPEN-BROWSERS-IN-QUERY-gArtikelumsatz}
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENDE gArtikelumsatz 
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 gArtikelumsatz 
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 gArtikelumsatz 
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 gArtikelumsatz 
PROCEDURE KOPF :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR Zelle   AS CHAR                     NO-UNDO.
    DEF VAR i1      AS INT                      NO-UNDO.
    DEF VAR cTit    AS CHAR                     NO-UNDO.

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

    i1 = 2.
    IF NOT T_BetragKum      THEN i1 = i1 + 1.
    IF NOT T_HektoliterKum  THEN i1 = i1 + 1.
    IF NOT T_MengeKum       THEN i1 = i1 + 1.
    IF NOT T_Betrag         THEN i1 = i1 + 1.
    IF NOT T_Hektoliter     THEN i1 = i1 + 1.
    IF NOT T_Menge          THEN i1 = i1 + 1.

    i1 = 8 - (i1 / 2).
    cTit = CHR(64 + i1).

    Zelle = 'A1'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:SELECTION:VALUE = Steuer.Firma1.
    Zelle = cTit + '1'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:SELECTION:VALUE = 'Artikelumsätze'.
    Zelle = 'O1'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:SELECTION:VALUE = 'Datum : ' + STRING(TODAY,'99.99.9999').

    Zelle = 'A2'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:SELECTION:VALUE = Steuer.Ort.
    Zelle = cTit + '2'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:SELECTION:VALUE = ''.
    Zelle = 'O2'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:SELECTION:VALUE = 'Zeit  :     ' + STRING(TIME,'HH:MM:SS').

END PROCEDURE.

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

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

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U).
    IF AktSeite = MaxPage THEN AktSeite = 1.
    ELSE                       AktSeite = AktSeite + 1.

    RUN selectPage ( INPUT AktSeite ).

END PROCEDURE.

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

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

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U).
    IF AktSeite = 1 THEN AktSeite = MaxPage.
    ELSE                 AktSeite = AktSeite - 1.

    RUN selectPage ( INPUT AktSeite ).

END PROCEDURE.

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

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

    DEF VAR Fenster     AS HANDLE               NO-UNDO.
    DEF VAR ix          AS INT                  NO-UNDO.
    DEF VAR i1          AS INT                  NO-UNDO.
    DEF VAR i2          AS INT                  NO-UNDO.
    DEF VAR Rundbetr    AS DEC  DECIMALS 4      NO-UNDO.
    DEF VAR Ja          AS LOG                  NO-UNDO.
    DEF VAR Zelle       AS CHAR                 NO-UNDO.
    DEF VAR xDat1       AS CHAR                 NO-UNDO.
    DEF VAR xDat2       AS CHAR                 NO-UNDO.
    DEF VAR Totale      AS DEC  DECIMALS 4
                                EXTENT 20       NO-UNDO.
    DEF VAR Faktor      AS DEC  DECIMALS 4      NO-UNDO.
    DEF VAR Punkt       AS DEC                  NO-UNDO INIT 8.
    DEF VAR dBreite     AS DEC                  NO-UNDO.
    DEF VAR dZellBr     AS DEC                  NO-UNDO.
    DEF VAR Marge       AS DEC                  NO-UNDO.
    DEF VAR MargeKum    AS DEC                  NO-UNDO.
    DEF VAR nBreitFakt  AS DEC                  NO-UNDO.
    DEF VAR nFontFakt   AS DEC                  NO-UNDO.
    
    DO WITH FRAME {&FRAME-NAME}:
        RUN BEREINIGEN ( INPUT F_Wgr    :HANDLE ).
        RUN BEREINIGEN ( INPUT F_Prodgrp:HANDLE ).

        ASSIGN  {&List-6}.
        IF F_VArtnr = 0 AND F_BArtnr = 0 THEN F_BArtnr = 999999.
        IF F_BArtnr < F_VArtnr           THEN F_BArtnr = F_VArtnr.

        IF F_VonDat = ? THEN F_VonDat = DATE(MONTH(TODAY),01,YEAR(TODAY)).
        IF F_BisDat = ? THEN F_BisDat = DATE(12,31,YEAR(TODAY)).
        IF F_KumBeg = ? THEN F_KumBeg = DATE(01,01,YEAR(TODAY)).

        IF T_MengeKum       = FALSE AND
           T_HektoliterKum  = FALSE AND
           T_BetragKum      = FALSE THEN F_KumBeg = F_VonDat.
        IF F_KumBeg > F_VonDat THEN F_KumBeg = F_VonDat.

        Fenster   = FRAME {&FRAME-NAME}:CURRENT-ITERATION NO-ERROR.
        Fenster   = Fenster:FIRST-CHILD NO-ERROR.
        Selektion = ''.
        DO WHILE VALID-HANDLE(Fenster):
            DO WHILE TRUE:
                IF Fenster:TYPE = 'RECTANGLE'   THEN LEAVE.
                IF Fenster:TYPE = 'BUTTON'      THEN LEAVE.
                IF Fenster:TYPE = 'TEXT'        THEN LEAVE.
                IF Fenster:TYPE = 'LITERAL'     THEN LEAVE.
                Selektion = Selektion + Fenster:SCREEN-VALUE + '@'.
                LEAVE.
            END.
            Fenster = Fenster:NEXT-SIBLING.
        END.

        Selektion = SUBSTRING(Selektion,01,LENGTH(Selektion) - 1).

        DISPLAY {&List-6}.
    END.

    DYNAMIC-FUNCTION('SETSELEKTION':U, INPUT '{&FRAME-NAME}',
                                       INPUT Selektion ) NO-ERROR.

    nTotBreite = DYNAMIC-FUNCTION('createSpaltenBreiten':U) NO-ERROR.

    Firma     = DYNAMIC-FUNCTION('GETMANDANT':U) NO-ERROR.
    DatenName = 'Artikelumsätze.txt'.
    DateiName = 'Artikelumsätze.xls' + CHR(01) + 'Artikelumsätze.xls'.

    DO WHILE TRUE:
        RUN CREATEDATEI ( INPUT DateiName ).
        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.
    DateiName = RETURN-VALUE.

    DO WHILE TRUE:
        RUN CREATEDATEI ( INPUT DatenName ).
        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.
    DatenName = RETURN-VALUE.

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

    RUN TEMPTABELLE.

    Totale = 0.
    xDat1  = STRING(F_VonDat,'99.99.9999') + ' - '
           + STRING(F_BisDat,'99.99.9999').
    xDat2  = STRING(F_KumBeg,'99.99.9999') + ' - '
           + STRING(F_BisDat,'99.99.9999').
    i1     = LOOKUP(CB_Hersteller:SCREEN-VALUE, CB_Hersteller:LIST-ITEM-PAIRS, ';').
    xHerst = ENTRY(i1 - 1, CB_Hersteller:LIST-ITEM-PAIRS, ';').
    OUTPUT TO VALUE(DatenName).

    PUT CONTROL 'Hersteller : ' XHerst
                CHR(10).
    PUT CONTROL '£' CHR(10)
                '£Artnr£Artikel£JG£Alk%£Gebinde£Menge£HL£Betrag£Marge£Menge£HL£Betrag£Marge'
                CHR(10).

    ASSIGN  Totale[01] = 0
            Totale[02] = 0
            Totale[03] = 0
            Totale[04] = 0
            Totale[05] = 0
            Totale[06] = 0
            Totale[07] = 0
            Totale[08] = 0
            Totale[09] = 0
            Totale[10] = 0.

    FOR EACH tWork USE-INDEX tWork-k1
                   BREAK BY tWork.Wgr
                         BY tWork.Pgr
                         BY tWork.Artnr
                         BY tWork.Inhalt
                         BY tWork.Jahr :

        FIND Artst WHERE RECID(Artst) = tWork.RID NO-ERROR.
        FIND Artbez NO-LOCK  USE-INDEX Artbez-k1
                WHERE Artbez.Firma  = Artst.Firma
                AND   Artbez.Artnr  = Artst.Artnr
                AND   Artbez.Inhalt = Artst.Inhalt
                AND   Artbez.Jahr   = Artst.Jahr
                AND   Artbez.Sprcd  = FwSprcd NO-ERROR.
        IF NOT AVAILABLE Artbez THEN DO:
            FIND FIRST Artbez NO-LOCK USE-INDEX Artbez-k1
                    WHERE Artbez.Firma  = Artst.Firma
                    AND   Artbez.Artnr  = Artst.Artnr
                    AND   Artbez.Inhalt = Artst.Inhalt
                    AND   Artbez.Jahr   = Artst.Jahr NO-ERROR.
        END.

        Totale[01] = Totale[01] + tWork.Menge.
        Totale[02] = Totale[02] + tWork.Liter.
        Totale[03] = Totale[03] + tWork.Betr .
        Totale[04] = Totale[04] + tWork.Ep   .
        
        Totale[06] = Totale[06] + tWork.MeKum.
        Totale[07] = Totale[07] + tWork.LiKum.
        Totale[08] = Totale[08] + tWork.BeKum.
        Totale[09] = Totale[09] + tWork.EpKum.
        
        Totale[11] = Totale[11] + tWork.Menge.
        Totale[12] = Totale[12] + tWork.Liter.
        Totale[13] = Totale[13] + tWork.Betr .
        Totale[14] = Totale[14] + tWork.Ep   .

        Totale[16] = Totale[16] + tWork.MeKum.
        Totale[17] = Totale[17] + tWork.LiKum.
        Totale[18] = Totale[18] + tWork.BeKum.
        Totale[19] = Totale[19] + tWork.EpKum.
                 
        IF FIRST-OF ( tWork.Pgr )
            THEN PUT CONTROL STRING(tWork.Wgr,'999')
                             '/'
                             STRING(tWork.Pgr,'999') CHR(10).

        PUT CONTROL '£'
                    STRING(tWork.Artnr,'999999')
                    '£'.

        DO WHILE TRUE.
            IF NOT AVAILABLE Artbez THEN LEAVE.
            PUT CONTROL Artbez.Bez1.
            IF Artbez.bez2 = ''     THEN LEAVE.
            IF NOT Artbez.Bez2_Druck THEN LEAVE.
            PUT CONTROL ', ' Artbez.Bez2.
            LEAVE.
        END.

        PUT CONTROL '£'
                    TRIM(STRING(tWork.Jahr  ,'zzzz'))
                    '£'.
        IF Artst.Alk_Gehalt > 0 THEN PUT CONTROL TRIM(STRING(Artst.Alk_Gehalt,'>9.9%')).
        PUT CONTROL '£'
                    tWork.KBez   '£'.

        IF tWork.Betr <> 0  AND
           tWork.Ep   <> 0  THEN Marge = (ABS(tWork.Betr) * 100 / ABS(tWork.Ep)) - 100.
        ELSE                     Marge = 0.
        IF tWork.BeKum <> 0  AND
           tWork.EpKum <> 0  THEN MargeKum = (ABS(tWork.BeKum) * 100 / ABS(tWork.EpKum)) - 100.
        ELSE                      MargeKum = 0.
        IF ABS(Marge) > 999.99 THEN DO:
            IF Marge < 0 THEN Marge = -999.99.
            ELSE              Marge = +999.99.
        END.
        IF ABS(MargeKum) > 999.99 THEN DO:
            IF MargeKum < 0 THEN MargeKum = -999.99.
            ELSE                 MargeKum = +999.99.
        END.
        PUT CONTROL TRIM(STRING(tWork.Menge        ,'->>>>>>>>>'))      '£'
                    TRIM(STRING(tWork.Liter / 10000,'->>>>>>.99' ))     '£'
                    TRIM(STRING(tWork.Betr         ,'->>>>>>>>>'))      '£'
                    TRIM(STRING(Marge              ,'->>>>>>.99'))      '£'
                    TRIM(STRING(tWork.MeKum        ,'->>>>>>>>>'))      '£'
                    TRIM(STRING(tWork.LiKum / 10000,'->>>>>>.99' ))     '£'
                    TRIM(STRING(tWork.BeKum        ,'->>>>>>>>>'))      '£'
                    TRIM(STRING(MargeKum           ,'->>>>>>.99'))      CHR(10).
                    

        IF LAST-OF ( tWork.Pgr ) THEN PUT CONTROL '£' CHR(10).

    END.
    PUT CONTROL '£' CHR(10)
                'Gesamttotal££££££'.
    IF Totale[13] <> 0  AND
       Totale[14] <> 0  THEN Marge = (ABS(Totale[13])) * 100 / ABS(ABS(Totale[14])) - 100.
    ELSE                     Marge = 0.
    IF Totale[18] <> 0  AND
       Totale[19] <> 0  THEN MargeKum = (ABS(Totale[19]) * 100 / ABS(Totale[18])) - 100.
    ELSE                     MargeKum = 0.
    IF ABS(Marge) > 999.99 THEN DO:
        IF Marge < 0 THEN Marge = -999.99.
        ELSE              Marge = +999.99.
    END.
    IF ABS(MargeKum) > 999.99 THEN DO:
        IF MargeKum < 0 THEN MargeKum = -999.99.
        ELSE                 MargeKum = +999.99.
    END.
    PUT CONTROL TRIM(STRING(Totale[11]        ,'->>>>>>>>>'))   '£'
                TRIM(STRING(Totale[12] / 10000,'->>>>>>.99' ))  '£'
                TRIM(STRING(Totale[13]        ,'->>>>>>>>>'))   '£'
                TRIM(STRING(Marge             ,'->>>>>>.99'))   '£'
                TRIM(STRING(Totale[16]        ,'->>>>>>>>>'))   '£'
                TRIM(STRING(Totale[17] / 10000,'->>>>>>.99' ))  '£'
                TRIM(STRING(Totale[18]        ,'->>>>>>>>>'))   '£'
                TRIM(STRING(MargeKum          ,'->>>>>>.99'))   CHR(10).
    OUTPUT CLOSE.

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

    nBreitFakt = nMaxBreite   / nTotBreite * 0.8.
    nFontFakt  = nFontGroesse * nBreitFakt * 0.8.
    
    RUN OPENEXCEL ( INPUT excelAppl,
                    INPUT DateiName,
                    INPUT '',
                    OUTPUT Ja ).
    IF NOT Ja THEN DO:
        RUN FEHLER ( INPUT 1040 ).
        RETURN NO-APPLY.
    END.

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

    RUN KOPF.

    Zelle = 'A1'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:Selection:ColumnWidth = 0.3.
    
    Zelle = 'O1'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:Selection:ColumnWidth = 0.3.

    FOR EACH tSpalten WHERE tSpalten.lAktiv:
        Zelle  = CHR(64 + tSpalten.iSpalte)
               + ':'
               + CHR(64 + tSpalten.iSpalte).
        dZellBr = tSpalten.nBreite * nBreitFakt.
        excelAppl:Range(Zelle):SELECT.
        excelAppl:Selection:ColumnWidth = dZellBr.
    END.
    
    i1 = 4.
    i2 = 4.
    FOR EACH tSpalten
        WHERE NOT tSpalten.lAktiv
        BY tSpalten.iSpalte DESCENDING:
        Zelle  = CHR(64 + tSpalten.iSpalte)
               + ':'
               + CHR(64 + tSpalten.iSpalte).
        dZellBr = tSpalten.nBreite * nBreitFakt.
        excelAppl:Range(Zelle):SELECT.
        excelAppl:Selection:ColumnWidth = dZellBr.
        excelAppl:Selection:DELETE.
        IF tSpalten.iSpalte > 10 THEN i2 = i2 - 1.
        ELSE                          i1 = i1 - 1.
    END.
    IF i1 > 0 THEN DO:
        Zelle = 'G4' + ':' + CHR(70 + i1) + '4'.
        excelAppl:Range(Zelle):SELECT.
        excelAppl:SELECTION:MergeCells  = TRUE.
        excelAppl:Selection:FormulaR1C1 = xDat1.
    END.
    IF i2 > 0 THEN DO:
        Zelle = CHR(71 + i1) + '4:' + CHR(70 + i1 + i2) + '4'.
        excelAppl:Range(Zelle):SELECT.
        excelAppl:SELECTION:MergeCells  = TRUE.
        excelAppl:Selection:FormulaR1C1 = xDat2.
    END.

    excelAppl:Cells:Select.
    excelAppl:Selection:Font:Size = nFontFakt.

    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 gArtikelumsatz 
PROCEDURE selectPage :
/*------------------------------------------------------------------------------
  Purpose:     Super Override
  Parameters:  
  Notes:       
------------------------------------------------------------------------------*/

    DEF INPUT PARAMETER piPageNum   AS INT                      NO-UNDO.

    DEF VAR FMutFlag        AS LOG                      NO-UNDO.
    DEF VAR MutProg         AS CHAR                     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 TEMPTABELLE gArtikelumsatz 
PROCEDURE TEMPTABELLE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

DEF VAR ja          AS LOG                      NO-UNDO.
DEF VAR Herst       AS INT                      NO-UNDO.
DEF VAR Rundbetr    AS DEC  DECIMALS 4          NO-UNDO.
DEF VAR Netto       AS DEC  DECIMALS 4          NO-UNDO.
DEF VAR iArtnr      AS INT  INIT -1             NO-UNDO.
DEF VAR dDatum      AS DATE                     NO-UNDO.

FOR EACH TWork:
    DELETE  TWork.
END.

Herst = INTEGER(CB_Hersteller:SCREEN-VALUE IN FRAME {&FRAME-NAME}) NO-ERROR.
IF ERROR-STATUS:ERROR THEN Herst = -1.

FOR EACH Artst  USE-INDEX Artst-k1
                WHERE Artst.Firma  = Firma
                AND   Artst.Artnr >= F_VArtnr
                AND   Artst.Artnr <= F_BArtnr NO-LOCK:

    IF Herst > -1   AND
       Artst.Herst <> Herst                                 THEN NEXT.
    IF F_Wgr     <> ''  AND
       LOOKUP(STRING(Artst.Wg_Grp,"999"), F_Wgr, ',') = 0   THEN NEXT.
    IF F_Prodgrp <> ''  AND
       LOOKUP(STRING(Artst.Prod_Grp,"999"), F_ProdGrp, ',') = 0   THEN NEXT.
    
    FOR EACH Artbw NO-LOCK USE-INDEX Artbw-k2
            WHERE Artbw.Firma    = Artst.Firma
            AND   Artbw.Artnr    = Artst.Artnr
            AND   Artbw.Inhalt   = Artst.Inhalt
            AND   Artbw.Jahr     = Artst.Jahr
            AND   Artbw.Tr_Art   < 11 :
            
        IF T_Fakturiert THEN DO:
           IF Artbw.Faknr    = 0        THEN NEXT.
           IF Artbw.Fak_Dat  < F_KumBeg THEN NEXT.
           IF Artbw.Fak_Dat  > F_BisDat THEN NEXT.
           dDatum = Artbw.Fak_Dat.
        END.
        ELSE DO:
           IF Artbw.Datum < F_KumBeg THEN NEXT.
           IF Artbw.Datum > F_BisDat THEN NEXT.
           dDatum = Artbw.Datum.
        END.
        
        FIND FIRST TWork USE-INDEX TWork-k1
                WHERE TWork.Artnr  = Artbw.Artnr
                AND   TWork.Inhalt = Artbw.Inhalt
                AND   TWork.Jahr   = Artbw.Jahr NO-ERROR.
        IF NOT AVAILABLE TWork THEN DO:
            FIND KGebinde NO-LOCK USE-INDEX KGebinde-k1
                    WHERE KGebinde.Firma  = Artst.Firma
                    AND   KGebinde.Geb_Cd = Artst.KGeb_Cd NO-ERROR.
            IF NOT AVAILABLE KGebinde THEN DO:
                IF Artst.Artnr = iArtnr THEN NEXT.
                MESSAGE 'KGebinde ' Artst.KGeb_Cd ' von Artikel ' Artst.Artnr ' fehlt '
                        VIEW-AS ALERT-BOX.
                iArtnr = Artst.Artnr.
                NEXT.
            END.
            CREATE  TWork.
            ASSIGN  TWork.Artnr     = Artbw.Artnr
                    TWork.Inhalt    = Artbw.Inhalt
                    TWork.Jahr      = Artbw.Jahr
                    TWork.GebInhalt = KGebinde.Inhalt
                    tWork.KBez      = KGebinde.KBez
                    TWork.RID       = RECID(Artst)
                    TWork.Wgr       = Artst.Wg_Grp
                    TWork.Pgr       = Artst.Prod_Grp.
        END.
    
        Rundbetr = Artbw.Menge * TWork.GebInhalt.
        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%).
        IF dDatum >= F_VonDat THEN DO:
            ASSIGN  TWork.Menge = TWork.Menge + Artbw.Menge
                    TWork.Liter = TWork.Liter + Rundbetr
                    TWork.Ep    = TWork.Ep    + (Artbw.Menge * Artbw.Ep)
                    TWork.Betr  = TWork.Betr  + Netto.
        END.
        ASSIGN  TWork.MeKum = TWork.MeKum + Artbw.Menge
                TWork.LiKum = TWork.LiKum + Rundbetr
                TWork.EpKum = TWork.EpKum + (Artbw.Menge * Artbw.Ep)
                TWork.BeKum = TWork.BeKum + Netto.
    END.
    
END.

    FOR EACH TWork WHERE TWork.Menge = 0
                   AND   TWork.MeKum = 0:
        DELETE  TWork.
    END.

END PROCEDURE.

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

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

    DEF INPUT PARAMETER pcAction    AS CHAR             NO-UNDO.
/*    
    RUN TOOLBAR IN h_dyntoolbar ( INPUT pcAction ).
*/
END PROCEDURE.

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

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

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

  RUN SUPER.

  Selektion = DYNAMIC-FUNCTION('GETSELEKTION':U, INPUT '{&FRAME-NAME}' ) NO-ERROR.
  IF Selektion = '?'  OR
     Selektion = ?    THEN DO:
      Selektion = 'AAAAAA'                                        + '@'
                + ''                                              + '@'
                + ''                                              + '@'
                + '000000'                                        + '@'
                + '999999'                                        + '@'
                + 'yes'                                           + '@'
                + 'yes'                                           + '@'
                + 'yes'                                           + '@'
                + 'yes'                                           + '@'
                + STRING(DATE(01,01,YEAR(TODAY)),'99.99.9999')    + '@'
                + STRING(DATE(12,31,YEAR(TODAY)),'99.99.9999')    + '@'
                + 'yes'                                           + '@'
                + 'yes'                                           + '@'
                + 'yes'                                           + '@'
                + STRING(DATE(01,01,YEAR(TODAY)),'99.99.9999').
  END.

  DO WITH FRAME {&FRAME-NAME}:
      CB_Hersteller   :SCREEN-VALUE   = ENTRY( 1, Selektion, '@').
      F_Wgr           :SCREEN-VALUE   = ENTRY( 2, Selektion, '@').
      F_Prodgrp       :SCREEN-VALUE   = ENTRY( 3, Selektion, '@').
      F_VArtnr        :SCREEN-VALUE   = ENTRY( 4, Selektion, '@').
      F_BArtnr        :SCREEN-VALUE   = ENTRY( 5, Selektion, '@').
      T_Fakturiert    :SCREEN-VALUE   = ENTRY( 6, Selektion, '@').
      T_Menge         :SCREEN-VALUE   = ENTRY( 7, Selektion, '@').
      T_Hektoliter    :SCREEN-VALUE   = ENTRY( 8, Selektion, '@').
      T_Betrag        :SCREEN-VALUE   = ENTRY( 9, Selektion, '@').
      F_VonDat        :SCREEN-VALUE   = ENTRY(10, Selektion, '@').
      F_BisDat        :SCREEN-VALUE   = ENTRY(11, Selektion, '@').
      T_MengeKum      :SCREEN-VALUE   = ENTRY(12, Selektion, '@').
      T_HektoliterKum :SCREEN-VALUE   = ENTRY(13, Selektion, '@').
      T_BetragKum     :SCREEN-VALUE   = ENTRY(14, Selektion, '@').
      F_KumBeg        :SCREEN-VALUE   = ENTRY(15, Selektion, '@').
  END.                                        

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

END PROCEDURE.

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

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION createSpaltenBreiten gArtikelumsatz 
FUNCTION createSpaltenBreiten RETURNS DECIMAL
  ( /* parameter-definitions */ ) :
/*------------------------------------------------------------------------------
  Purpose:  
    Notes:  
------------------------------------------------------------------------------*/

    DEF VAR nTotal      AS DEC                      NO-UNDO.
    DEF VAR iFaktor     AS INT                      NO-UNDO.

DO WITH FRAME {&FRAME-NAME}:
    CREATE  tSpalten.
    ASSIGN  tSpalten.iSpalte    = 2
            tSpalten.cFeld      = 'Artnr'
            tSpalten.nBreite    = 5
            tSpalten.lAktiv     = TRUE.
    CREATE  tSpalten.
    ASSIGN  tSpalten.iSpalte    = 3
            tSpalten.cFeld      = 'Bez'
            tSpalten.nBreite    = 20
            tSpalten.lAktiv     = TRUE.
    CREATE  tSpalten.
    ASSIGN  tSpalten.iSpalte    = 4
            tSpalten.cFeld      = 'Jahr'
            tSpalten.nBreite    = 4
            tSpalten.lAktiv     = TRUE.
    CREATE  tSpalten.
    ASSIGN  tSpalten.iSpalte    = 5
            tSpalten.cFeld      = 'Alk%'
            tSpalten.nBreite    = 5
            tSpalten.lAktiv     = TRUE.
    CREATE  tSpalten.
    ASSIGN  tSpalten.iSpalte    = 6
            tSpalten.cFeld      = 'Gebinde'
            tSpalten.nBreite    = 7
            tSpalten.lAktiv     = TRUE.
    CREATE  tSpalten.
    ASSIGN  tSpalten.iSpalte    = 7
            tSpalten.cFeld      = 'Menge'
            tSpalten.nBreite    = 5
            tSpalten.lAktiv     = T_Menge.
    CREATE  tSpalten.
    ASSIGN  tSpalten.iSpalte    = 8
            tSpalten.cFeld      = 'HL'
            tSpalten.nBreite    = 4
            tSpalten.lAktiv     = T_Hektoliter.
    CREATE  tSpalten.
    ASSIGN  tSpalten.iSpalte    = 9
            tSpalten.cFeld      = 'Betrag'
            tSpalten.nBreite    = 7
            tSpalten.lAktiv     = T_Betrag.
    CREATE  tSpalten.
    ASSIGN  tSpalten.iSpalte    = 10
            tSpalten.cFeld      = 'Marge'
            tSpalten.nBreite    = 5
            tSpalten.lAktiv     = T_Betrag.
    CREATE  tSpalten.
    ASSIGN  tSpalten.iSpalte    = 11
            tSpalten.cFeld      = 'Menge'
            tSpalten.nBreite    = 5
            tSpalten.lAktiv     = T_MengeKum.
    CREATE  tSpalten.
    ASSIGN  tSpalten.iSpalte    = 12
            tSpalten.cFeld      = 'HL'
            tSpalten.nBreite    = 4
            tSpalten.lAktiv     = T_HektoliterKum.
    CREATE  tSpalten.
    ASSIGN  tSpalten.iSpalte    = 13
            tSpalten.cFeld      = 'Betrag'
            tSpalten.nBreite    = 7
            tSpalten.lAktiv     = T_BetragKum.
    CREATE  tSpalten.
    ASSIGN  tSpalten.iSpalte    = 14
            tSpalten.cFeld      = 'Marge'
            tSpalten.nBreite    = 5
            tSpalten.lAktiv     = T_BetragKum.
            
END.

    FOR EACH tSpalten WHERE tSpalten.lAktiv:
        nTotal = nTotal + tSpalten.nBreite.
    END.
    
    RETURN nTotal.
            
END FUNCTION.

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