GeMIS_WEB/GUI/g-verkaufszahlen.w

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

  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 TEMP-TABLE  TWork       FIELD   Knr         AS INT
                            FIELD   Artnr       AS INT
                            FIELD   Inhalt      AS INT
                            FIELD   Jahr        AS INT
                            FIELD   GebInhalt   AS DEC  DECIMALS 4
                            FIELD   RID         AS RECID
                            FIELD   Menge       AS DEC  DECIMALS 4
                            FIELD   Liter       AS DEC  DECIMALS 4
                            FIELD   Betr        AS DEC  DECIMALS 4
                            FIELD   MeKum       AS DEC  DECIMALS 4
                            FIELD   LiKum       AS DEC  DECIMALS 4
                            FIELD   BeKum       AS DEC  DECIMALS 4
                            
                            INDEX TWork-k1
                                  Knr
                                  Artnr
                                  Inhalt
                                  Jahr.

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

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS CB_Hersteller F_Wgr F_Biercd F_Preisgrp ~
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-40 RECT-41 RECT-42 
&Scoped-Define DISPLAYED-OBJECTS CB_Hersteller F_Wgr F_Biercd F_Preisgrp ~
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_Biercd F_Preisgrp T_Menge ~
T_Hektoliter T_Betrag F_VonDat F_BisDat T_MengeKum T_HektoliterKum ~
T_BetragKum F_KumBeg 

/* _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 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_Biercd AS CHARACTER FORMAT "X(256)":U 
     LABEL "Bierverträge" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 40 BY 1 TOOLTIP "Leer = Alle, Doppel-Klick = Auswahl"
     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_Preisgrp AS CHARACTER FORMAT "X(256)":U 
     LABEL "Preisgruppen" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 40 BY 1 TOOLTIP "Leer = Alle, Doppel-Klick = Auswahl"
     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 2.62.

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

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_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 gVerkaufszahlen
     CB_Hersteller AT ROW 1.52 COL 44 COLON-ALIGNED
     F_Wgr AT ROW 2.52 COL 44 COLON-ALIGNED
     F_Biercd AT ROW 4.52 COL 44 COLON-ALIGNED
     F_Preisgrp AT ROW 5.52 COL 44 COLON-ALIGNED
     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
     "Kundenselektion" VIEW-AS TEXT
          SIZE 24 BY 1 AT ROW 4.52 COL 5
     RECT-39 AT ROW 1.24 COL 2
     RECT-40 AT ROW 4.19 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 "Verkaufszahlen"
         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 gVerkaufszahlen 
/* ************************* 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 gVerkaufszahlen
   FRAME-NAME Custom                                                    */
ASSIGN 
       FRAME gVerkaufszahlen:SCROLLABLE       = FALSE
       FRAME gVerkaufszahlen:HIDDEN           = TRUE.

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


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

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

 



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

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

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


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

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gVerkaufszahlen gVerkaufszahlen
ON WINDOW-CLOSE OF FRAME gVerkaufszahlen /* Verkaufszahlen */
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 gVerkaufszahlen
ON CHOOSE OF Btn_Cancel IN FRAME gVerkaufszahlen /* 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 gVerkaufszahlen
ON CHOOSE OF Btn_Excel IN FRAME gVerkaufszahlen /* 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_Biercd
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Biercd gVerkaufszahlen
ON LEFT-MOUSE-DBLCLICK OF F_Biercd IN FRAME gVerkaufszahlen /* Bierverträge */
DO:
    RUN 'g-auswahl-tabelle.w':U ( INPUT SELF, INPUT 'BIER' ).
END.

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


&Scoped-define SELF-NAME F_Preisgrp
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Preisgrp gVerkaufszahlen
ON LEFT-MOUSE-DBLCLICK OF F_Preisgrp IN FRAME gVerkaufszahlen /* Preisgruppen */
DO:
    RUN 'g-auswahl-tabelle.w':U ( INPUT SELF, INPUT 'PREGRP' ).
END.

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


&Scoped-define SELF-NAME F_Wgr
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_Wgr gVerkaufszahlen
ON LEFT-MOUSE-DBLCLICK OF F_Wgr IN FRAME gVerkaufszahlen /* 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 gVerkaufszahlen 


/* ***************************  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 'END-ERROR':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        RUN ENDE.
        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 gVerkaufszahlen  _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 ADRESSE gVerkaufszahlen 
PROCEDURE ADRESSE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    FIND Adresse USE-INDEX Adresse-k1
                 WHERE Adresse.Firma = AdFirma
                 AND   Adresse.Knr   = VKnr NO-LOCK NO-ERROR.
    DO WHILE TRUE:
        PUT CONTROL STRING(VKnr,'999999  ').
        IF NOT AVAILABLE Adresse THEN DO:
            PUT CONTROL '??????????????????????????????'        CHR(10).
            LEAVE.
        END.
        PUT CONTROL Adresse.Anzeig_Br                           CHR(10).
        LEAVE.
    END.
    
END PROCEDURE.

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

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

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject gVerkaufszahlen 
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 gVerkaufszahlen  _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_Biercd F_Preisgrp T_Menge T_Hektoliter T_Betrag 
          F_VonDat F_BisDat T_MengeKum T_HektoliterKum T_BetragKum F_KumBeg 
      WITH FRAME gVerkaufszahlen.
  ENABLE CB_Hersteller F_Wgr F_Biercd F_Preisgrp 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-40 RECT-41 RECT-42 
      WITH FRAME gVerkaufszahlen.
  VIEW FRAME gVerkaufszahlen.
  {&OPEN-BROWSERS-IN-QUERY-gVerkaufszahlen}
END PROCEDURE.

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

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

    DEF VAR Zelle   AS CHAR                     NO-UNDO.

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

    Zelle = 'A1'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:SELECTION:VALUE = Steuer.Firma1.
    Zelle = 'C1'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:SELECTION:VALUE = 'Artikelverkaufszahlen'.
    Zelle = 'J1'.
    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 = 'C2'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:SELECTION:VALUE = ''.
    Zelle = 'J2'.
    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 REPORT gVerkaufszahlen 
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.

    DO WITH FRAME {&FRAME-NAME}:
        RUN BEREINIGEN ( INPUT F_Wgr:HANDLE     ).
        RUN BEREINIGEN ( INPUT F_Biercd:HANDLE  ).
        RUN BEREINIGEN ( INPUT F_Preisgrp:HANDLE ).

        ASSIGN  {&List-6}.
        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.

    Firma     = DYNAMIC-FUNCTION('GETMANDANT':U) NO-ERROR.
    DatenName = 'Verkaufszahlen.txt'.
    DateiName = 'Verkaufszahlen.xls' + CHR(01) + 'Verkaufszahlen.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)
                '£Artikel£Gebinde£Menge£HL£Betrag£Menge£HL£Betrag'
                CHR(10).

    FOR EACH TWork USE-INDEX TWork-k1

                   BREAK BY TWork.Knr :

        IF FIRST-OF ( TWork.Knr ) THEN DO:
            VKnr = TWork.Knr.
            RUN ADRESSE.
            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.
        END.

        FIND Artst WHERE RECID(Artst) = TWork.RID NO-ERROR.
        FIND Artbez 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-LOCK NO-ERROR.
        IF NOT AVAILABLE Artbez THEN DO:
            FIND FIRST Artbez 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-LOCK NO-ERROR.
        END.

        Totale[01] = Totale[01] + TWork.Menge.
        Totale[02] = Totale[02] + TWork.Liter.
        Totale[03] = Totale[03] + TWork.Betr .
        Totale[06] = Totale[06] + TWork.MeKum.
        Totale[07] = Totale[07] + TWork.LiKum.
        Totale[08] = Totale[08] + TWork.BeKum.
        Totale[11] = Totale[11] + TWork.Menge.
        Totale[12] = Totale[12] + TWork.Liter.
        Totale[13] = Totale[13] + TWork.Betr .
        Totale[16] = Totale[16] + TWork.MeKum.
        Totale[17] = Totale[17] + TWork.LiKum.
        Totale[18] = Totale[18] + TWork.BeKum.
                 
        FIND KGebind WHERE KGebinde.Firma  = Firma
                     AND   KGebinde.Geb_Cd = Artst.KGeb_Cd.

        PUT CONTROL '£'.
        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 '£'.
        PUT CONTROL KGebinde.KBez   '£'.

        PUT CONTROL TRIM(STRING(TWork.Menge        ,'->>>>>>>>>'))      '£'
                    TRIM(STRING(TWork.Liter / 10000,'->>>>>>.99' ))     '£'
                    TRIM(STRING(TWork.Betr         ,'->>>>>>>>>'))      '£'
                    TRIM(STRING(TWork.MeKum        ,'->>>>>>>>>'))      '£'
                    TRIM(STRING(TWork.LiKum / 10000,'->>>>>>.99' ))     '£'
                    TRIM(STRING(TWork.BeKum        ,'->>>>>>>>>'))      CHR(10).

        IF LAST-OF ( TWork.Knr ) THEN DO:
            PUT CONTROL 'Total Kunde£££'.
            PUT CONTROL TRIM(STRING(Totale[01]        ,'->>>>>>>>>'))   '£'
                        TRIM(STRING(Totale[02] / 10000,'->>>>>>.99' ))  '£'
                        TRIM(STRING(Totale[03]        ,'->>>>>>>>>'))   '£'
                        TRIM(STRING(Totale[06]        ,'->>>>>>>>>'))   '£'
                        TRIM(STRING(Totale[07] / 10000,'->>>>>>.99' ))  '£'
                        TRIM(STRING(Totale[08]        ,'->>>>>>>>>'))   CHR(10).
            PUT CONTROL '£' CHR(10).
        END.

    END.
    PUT CONTROL '£' CHR(10)
                'Gesamttotal£££'.
    PUT CONTROL TRIM(STRING(Totale[11]        ,'->>>>>>>>>'))   '£'
                TRIM(STRING(Totale[12] / 10000,'->>>>>>.99' ))  '£'
                TRIM(STRING(Totale[13]        ,'->>>>>>>>>'))   '£'
                TRIM(STRING(Totale[16]        ,'->>>>>>>>>'))   '£'
                TRIM(STRING(Totale[17] / 10000,'->>>>>>.99' ))  '£'
                TRIM(STRING(Totale[18]        ,'->>>>>>>>>'))   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.
    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 = 'J1'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:Selection:ColumnWidth = 0.3.

    i1 = 3.
    i2 = 3.
    IF NOT T_BetragKum THEN DO:
        excelAppl:Range('I:I'):Select.
        excelAppl:Selection:DELETE.
        i2 = i2 - 1.
    END.
    IF NOT T_HektoliterKum THEN DO:
        excelAppl:Range('H:H'):Select.
        excelAppl:Selection:DELETE.
        i2 = i2 - 1.
    END.
    IF NOT T_MengeKum THEN DO:
        excelAppl:Range('G:G'):Select.
        excelAppl:Selection:DELETE.
        i2 = i2 - 1.
    END.
    IF NOT T_Betrag THEN DO:
        excelAppl:Range('F:F'):Select.
        excelAppl:Selection:DELETE.
        i1 = i1 - 1.
    END.
    IF NOT T_Hektoliter THEN DO:
        excelAppl:Range('E:E'):Select.
        excelAppl:Selection:DELETE.
        i1 = i1 - 1.
    END.
    IF NOT T_Menge THEN DO:
        excelAppl:Range('D:D'):Select.
        excelAppl:Selection:DELETE.
        i1 = i1 - 1.
    END.

    IF i1 > 0 THEN DO:
        Zelle = 'D4' + ':' + CHR(67 + i1) + '4'.
        excelAppl:Range(Zelle):SELECT.
        excelAppl:SELECTION:MergeCells  = TRUE.
        excelAppl:Selection:FormulaR1C1 = xDat1.
    END.
    IF i2 > 0 THEN DO:
        Zelle = CHR(68 + i1) + '4:' + CHR(67 + i1 + i2) + '4'.
        excelAppl:Range(Zelle):SELECT.
        excelAppl:SELECTION:MergeCells  = TRUE.
        excelAppl:Selection:FormulaR1C1 = xDat2.
    END.

    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 TEMPTABELLE gVerkaufszahlen 
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.

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 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.
    
    FOR EACH Artbw 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.Datum >= F_KumBeg
                   AND   Artbw.Datum <= F_BisDat
                   AND   Artbw.Tr_Art < 11      NO-LOCK,
        FIRST Debst NO-LOCK USE-INDEX Debst-k1
            WHERE Debst.Firma = Artbw.Firma
            AND   Debst.Knr   = Artbw.Knr:
    
        IF F_Biercd <> ''   AND
           LOOKUP(STRING(Debst.Bier_Cd,"999")  , F_Biercd  , ',') = 0 THEN NEXT.
    
        IF F_Preisgrp <> '' AND
           LOOKUP(STRING(Debst.Preis_Grp,"999"), F_Preisgrp, ',') = 0 THEN NEXT.
        
        FIND FIRST TWork USE-INDEX TWork-k1
                         WHERE TWork.Knr    = Artbw.Knr
                         AND   TWork.Artnr  = Artbw.Artnr
                         AND   TWork.Inhalt = Artbw.Inhalt
                         AND   TWork.Jahr   = Artbw.Jahr NO-ERROR.
        IF NOT AVAILABLE TWork THEN DO:
            FIND KGebinde USE-INDEX KGebinde-k1
                          WHERE KGebinde.Firma  = Artst.Firma
                          AND   KGebinde.Geb_Cd = Artst.KGeb_Cd NO-LOCK.
            CREATE  TWork.
            ASSIGN  TWork.Knr       = Artbw.Knr
                    TWork.Artnr     = Artbw.Artnr
                    TWork.Inhalt    = Artbw.Inhalt
                    TWork.Jahr      = Artbw.Jahr
                    TWork.GebInhalt = KGebinde.Inhalt
                    TWork.RID       = RECID(Artst).
        END.
    
        Rundbetr = Artbw.Menge * TWork.GebInhalt.
        IF Artbw.Datum >= F_VonDat THEN DO:
            ASSIGN  TWork.Menge = TWork.Menge + Artbw.Menge
                    TWork.Liter = TWork.Liter + Rundbetr
                    TWork.Betr  = TWork.Betr  + Artbw.Net_Betr
                                              - Artbw.Auf_Rab
                                              - Artbw.Abh_Rab
                                              - Artbw.Auf_Sp_Rab.
        END.
        ASSIGN  TWork.MeKum = TWork.MeKum + Artbw.Menge
                TWork.LiKum = TWork.LiKum + Rundbetr
                TWork.BeKum = TWork.BeKum + Artbw.Net_Betr
                                          - Artbw.Auf_Rab
                                          - Artbw.Abh_Rab
                                          - Artbw.Auf_Sp_Rab.
    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 viewObject gVerkaufszahlen 
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'                                        + '@'
                + ''                                              + '@'
                + ''                                              + '@'
                + ''                                              + '@'
                + '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_Biercd        :SCREEN-VALUE   = ENTRY( 3, Selektion, '@').
      F_Preisgrp      :SCREEN-VALUE   = ENTRY( 4, Selektion, '@').
      T_Menge         :SCREEN-VALUE   = ENTRY( 5, Selektion, '@').
      T_Hektoliter    :SCREEN-VALUE   = ENTRY( 6, Selektion, '@').
      T_Betrag        :SCREEN-VALUE   = ENTRY( 7, Selektion, '@').
      F_VonDat        :SCREEN-VALUE   = ENTRY( 8, Selektion, '@').
      F_BisDat        :SCREEN-VALUE   = ENTRY( 9, Selektion, '@').
      T_MengeKum      :SCREEN-VALUE   = ENTRY(10, Selektion, '@').
      T_HektoliterKum :SCREEN-VALUE   = ENTRY(11, Selektion, '@').
      T_BetragKum     :SCREEN-VALUE   = ENTRY(12, Selektion, '@').
      F_KumBeg        :SCREEN-VALUE   = ENTRY(13, Selektion, '@').
  END.                                        

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

END PROCEDURE.

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