GeMIS_WEB/GUI/g-ddumsaetze.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2
&ANALYZE-RESUME
&Scoped-define WINDOW-NAME CURRENT-WINDOW
&Scoped-define FRAME-NAME gddUmsaetze
{adecomm/appserv.i}
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS gddUmsaetze 
/*------------------------------------------------------------------------

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

{ properties.i }

/* Local Variable Definitions ---                                       */

DEFINE VARIABLE dvonDatum    AS DATE      NO-UNDO.
DEFINE VARIABLE dbisDatum    AS DATE      NO-UNDO.
DEFINE VARIABLE lTest        AS LOGICAL   NO-UNDO INIT TRUE .

DEFINE VARIABLE iParent      AS INT64     NO-UNDO INITIAL 0.
DEFINE VARIABLE cOperation   AS CHARACTER NO-UNDO INITIAL "open".
DEFINE VARIABLE cUrl         AS CHARACTER NO-UNDO INITIAL "".
DEFINE VARIABLE cCommand     AS CHARACTER NO-UNDO INITIAL "".
DEFINE VARIABLE cDirectory   AS CHARACTER NO-UNDO INITIAL "".
DEFINE VARIABLE iWindowStyle AS INT64     NO-UNDO INITIAL 1.
DEFINE VARIABLE hInstance    AS INTEGER   NO-UNDO.

{ incl/dlgdefinition.i }

DEFINE TEMP-TABLE tParam
    FIELD dvonDatum  AS DATE 
    FIELD dbisDatum  AS DATE
    FIELD iHerst     AS INTEGER 
    FIELD iLieferant AS INTEGER 
    FIELD cWgr       AS CHARACTER 
    FIELD lAbschluss AS LOGICAL
    FIELD lTest      AS LOGICAL
    .
DEFINE VARIABLE htParam AS HANDLE NO-UNDO.
htParam = TEMP-TABLE tParam:DEFAULT-BUFFER-HANDLE.

{ src/adm2/widgetprto.i }

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

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS RECT-2 F_vonDatum F_bisDatum CB_Hersteller ~
CB_Lieferant F_Wgr T_Abschluss T_Test Btn_OK Btn_Cancel 
&Scoped-Define DISPLAYED-OBJECTS F_vonDatum F_bisDatum CB_Hersteller ~
CB_Lieferant F_Wgr T_Abschluss T_Test 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-6 F_vonDatum F_bisDatum CB_Hersteller CB_Lieferant ~
F_Wgr T_Abschluss T_Test 

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

DEFINE BUTTON Btn_OK AUTO-GO 
     LABEL "OK" 
     SIZE 15 BY 1.

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

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

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

DEFINE VARIABLE F_vonDatum AS DATE FORMAT "99.99.9999":U 
     LABEL "von - bis Datum" 
     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 45 BY 1 TOOLTIP "Linke Maus Doppelklick = Auswahl Warengruppen"
     BGCOLOR 15  NO-UNDO.

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

DEFINE VARIABLE T_Abschluss AS LOGICAL INITIAL no 
     LABEL "Abschliessen" 
     VIEW-AS TOGGLE-BOX
     SIZE 20 BY 1 NO-UNDO.

DEFINE VARIABLE T_Test AS LOGICAL INITIAL no 
     LABEL "Uebertragung/Abschluss als Test" 
     VIEW-AS TOGGLE-BOX
     SIZE 40 BY 1 NO-UNDO.


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

DEFINE FRAME gddUmsaetze
     F_vonDatum AT ROW 2 COL 21 COLON-ALIGNED WIDGET-ID 16
     F_bisDatum AT ROW 2 COL 42 COLON-ALIGNED WIDGET-ID 18
     CB_Hersteller AT ROW 3 COL 21 COLON-ALIGNED WIDGET-ID 8
     CB_Lieferant AT ROW 4 COL 21 COLON-ALIGNED WIDGET-ID 10
     F_Wgr AT ROW 5 COL 21 COLON-ALIGNED WIDGET-ID 20
     T_Abschluss AT ROW 6 COL 23 WIDGET-ID 22
     T_Test AT ROW 7 COL 23 WIDGET-ID 24
     Btn_OK AT ROW 9 COL 15.8
     Btn_Cancel AT ROW 9 COL 48.6
     RECT-2 AT ROW 1.48 COL 3 WIDGET-ID 2
     SPACE(1.99) SKIP(2.18)
    WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER 
         SIDE-LABELS NO-UNDERLINE THREE-D  SCROLLABLE 
         TITLE "Auswertung Coca Cola"
         CANCEL-BUTTON Btn_Cancel WIDGET-ID 100.


/* *********************** 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 APPSERVER
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB gddUmsaetze 
/* ************************* 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 gddUmsaetze
   FRAME-NAME                                                           */
ASSIGN 
       FRAME gddUmsaetze:SCROLLABLE       = FALSE
       FRAME gddUmsaetze:HIDDEN           = TRUE.

/* SETTINGS FOR COMBO-BOX CB_Hersteller IN FRAME gddUmsaetze
   6                                                                    */
/* SETTINGS FOR COMBO-BOX CB_Lieferant IN FRAME gddUmsaetze
   6                                                                    */
/* SETTINGS FOR FILL-IN F_bisDatum IN FRAME gddUmsaetze
   6                                                                    */
/* SETTINGS FOR FILL-IN F_vonDatum IN FRAME gddUmsaetze
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Wgr IN FRAME gddUmsaetze
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Abschluss IN FRAME gddUmsaetze
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Test IN FRAME gddUmsaetze
   6                                                                    */
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


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

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

 



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

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

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gddUmsaetze gddUmsaetze
ON WINDOW-CLOSE OF FRAME gddUmsaetze /* Auswertung Coca Cola */
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 gddUmsaetze
ON CHOOSE OF Btn_Cancel IN FRAME gddUmsaetze /* abbrechen */
DO:
        RUN ENDE.
        RETURN NO-APPLY.
    END.

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


&Scoped-define SELF-NAME Btn_OK
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_OK gddUmsaetze
ON CHOOSE OF Btn_OK IN FRAME gddUmsaetze /* OK */
DO:

        DEFINE VARIABLE dvonDatum  AS DATE      NO-UNDO.
        DEFINE VARIABLE dbisDatum  AS DATE      NO-UNDO.
        DEFINE VARIABLE iHerst     AS INTEGER   NO-UNDO.
        DEFINE VARIABLE iLieferant AS INTEGER   NO-UNDO.
        DEFINE VARIABLE cWgr       AS CHARACTER NO-UNDO.
        DEFINE VARIABLE iWgr       AS INTEGER   NO-UNDO.
        DEFINE VARIABLE cString    AS CHARACTER NO-UNDO.
        DEFINE VARIABLE ii         AS INTEGER   NO-UNDO.
        DEFINE VARIABLE iRetVal    AS INTEGER   NO-UNDO.
        DEFINE VARIABLE cProgName  AS CHARACTER NO-UNDO.
    
        DEFINE VARIABLE cConString AS CHARACTER NO-UNDO.
        DEFINE VARIABLE hServer    AS HANDLE    NO-UNDO.
    
        DO WITH FRAME {&FRAME-NAME}:
            ASSIGN  {&List-6}.
            
            cString = ''.
            cWgr = REPLACE(F_Wgr, ';', ',').
            DO ii = 1 TO NUM-ENTRIES(cWgr, ','):
                iWgr = INTEGER(ENTRY(ii, cWgr, ',')) NO-ERROR.
                IF ERROR-STATUS:ERROR THEN NEXT.
                cString = cString 
                    + (IF cString = '' THEN '' ELSE ',')
                    + STRING(iWgr,'999').
            END.
            cWgr  = cString.
            F_Wgr = cWgr.
    
            PUT-KEY-VALUE SECTION SUBSTITUTE('DDAbsatz_&1', DYNAMIC-FUNCTION ('getSysUser':U))
                KEY     'Hersteller'
                VALUE   CB_Hersteller:SCREEN-VALUE NO-ERROR.
                
            PUT-KEY-VALUE SECTION SUBSTITUTE('DDAbsatz_&1', DYNAMIC-FUNCTION ('getSysUser':U))
                KEY     'Lieferant'
                VALUE   CB_Lieferant:SCREEN-VALUE NO-ERROR.

            FIND FIRST tParam.
            ASSIGN  
                tParam.dvonDatum  = F_vonDatum
                tParam.dbisDatum  = F_bisDatum
                tParam.iHerst     = INTEGER(CB_Hersteller:SCREEN-VALUE)
                tParam.iLieferant = INTEGER(CB_Lieferant :SCREEN-VALUE)
                tParam.cWgr       = F_Wgr
                tParam.lAbschluss = T_Abschluss
                tParam.lTest      = T_Test.
            DYNAMIC-FUNCTION ('setDDAbsatzFehlwerte':U, INPUT htParam) NO-ERROR.
        END.
    
        btnOK = TRUE.
    
        SESSION:SET-WAIT-STATE('GENERAL').
        Btn_OK    :SENSITIVE = FALSE.
        Btn_Cancel:SENSITIVE = FALSE.
    
        iHerst     = INTEGER(CB_Hersteller:SCREEN-VALUE).
        iLieferant = INTEGER(CB_Lieferant :SCREEN-VALUE).
        cWgr       = F_Wgr.
        dvonDatum  = F_vonDatum.
        dbisDatum  = F_bisDatum.
        
        cConString = SUBSTITUTE('-AppService &1 -H &2 -S &3 -sessionModel session-free', cERPAppServer, cERPServer, cNSPort ).
        CREATE SERVER hServer.
        hServer:CONNECT(cConString) NO-ERROR.
        IF NOT hServer:CONNECTED() THEN 
        DO:
            MESSAGE 'Kein AppServer für asERP' SKIP 
                'Connect-String -> ' cConString VIEW-AS ALERT-BOX.
            RETURN.
        END.
        
        RUN ddabsatzzahlen.p ON hServer ( dvonDatum, dbisDatum, iHerst, iLieferant, cWgr, T_Abschluss, T_Test ).
    
        hServer:DISCONNECT().
        DELETE OBJECT hServer NO-ERROR.
        
        cURL      = DYNAMIC-FUNCTION('getLogFilePfad':U) + SUBSTITUTE('ddabsatzzahlen&1', STRING(TODAY,'99999999')) + '.log'.
        cProgName = SEARCH('super/openWithDefaultApp.p').
        IF cProgName = ? THEN cProgName = SEARCH('super/openWithDefaultApp.r').
        IF cProgName <> ? THEN 
        DO:
            RUN VALUE (cProgName) (iParent, cOperation, cURL, cCommand, cDirectory, iWindowStyle, OUTPUT iRetVal ).
        END.

        SESSION:SET-WAIT-STATE('').
        Btn_OK    :SENSITIVE = TRUE.
        Btn_Cancel:SENSITIVE = TRUE.
    
        RUN ENDE.
    
        RETURN NO-APPLY.
    END.

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


&Scoped-define SELF-NAME CB_Hersteller
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Hersteller gddUmsaetze
ON RETURN OF CB_Hersteller IN FRAME gddUmsaetze /* Hersteller */
DO:
        APPLY 'TAB' TO SELF.  
    END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Hersteller gddUmsaetze
ON VALUE-CHANGED OF CB_Hersteller IN FRAME gddUmsaetze /* Hersteller */
DO:
        DEFINE VARIABLE iHerst AS INTEGER NO-UNDO.
    
        iHerst = INTEGER(SELF:SCREEN-VALUE).
        RUN COMBO_LIEFERANT ( iHerst ).
        CB_Lieferant:SCREEN-VALUE = ENTRY(2, CB_Lieferant:LIST-ITEM-PAIRS, ';') NO-ERROR.
        RUN COMBO_LIEFERANT ( iHerst ) NO-ERROR.
        RETURN NO-APPLY.
    END.

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


&Scoped-define SELF-NAME CB_Lieferant
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Lieferant gddUmsaetze
ON RETURN OF CB_Lieferant IN FRAME gddUmsaetze /* Lieferant */
DO:
        APPLY 'TAB' TO SELF.
    END.

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


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

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


&UNDEFINE SELF-NAME

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


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

{ incl/dlgmainblock.i }

{src/adm2/dialogmn.i}

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


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

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

    DEFINE VARIABLE cRecArt AS CHARACTER NO-UNDO INIT 'HERST'.
    DEFINE VARIABLE cCodeC  AS CHARACTER NO-UNDO INIT ''.
    DEFINE VARIABLE iCodeI  AS INTEGER   NO-UNDO INIT 0.
    DEFINE VARIABLE iSprcd  AS INTEGER   NO-UNDO INIT 1.
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.

    FOR EACH Tabel NO-LOCK USE-INDEX Tabel-k2
        WHERE Tabel.Firma  = Firma
        AND   Tabel.Recart = cRecArt
        AND   Tabel.CodeI  > 0
        AND   Tabel.Sprcd  = iSprcd
        AND   Tabel.Bez2  <> '':
            
        IF  SUBSTRING(Tabel.Bez2,01,01) < '0' OR
            SUBSTRING(Tabel.Bez2,01,01) > '9' THEN NEXT.
        cString = cString
            + (IF cString = '' THEN '' ELSE ';')
            + Tabel.Bez1
            + SUBSTITUTE(' (&1);', TRIM(STRING(Tabel.CodeI,'>>>>>9')))
            + STRING(Tabel.CodeI,'999999')
            .            
    END.
    cString = cString
        + (IF cString = '' THEN '' ELSE ';')
        + 'Alle Hersteller (999999);999999'
        .
    DO WITH FRAME {&FRAME-NAME}:
        CB_Hersteller:DELIMITER = ';'.
        CB_Hersteller:LIST-ITEM-PAIRS = cString.
    END.            

END PROCEDURE.

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

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

    DEFINE INPUT PARAMETER ipHerst     AS INTEGER          NO-UNDO.
    
    DEFINE VARIABLE cString AS CHARACTER NO-UNDO.

    cString = ''.
    
    IF ipHerst = 999999 THEN 
    DO:
        FOR EACH Liefst NO-LOCK 
            WHERE Liefst.Firma   = Firma
            AND   Liefst.GLN_Nr1 > '',
            
            FIRST Adresse NO-LOCK 
            WHERE Adresse.Firma = AdFirma
            AND   Adresse.Knr   = Liefst.Knr
            AND   Adresse.Aktiv = TRUE
            :
            cString = cString
                + (IF cString = '' THEN '' ELSE ';')
                + Adresse.Anzeig_br
                + SUBSTITUTE(' (&1);', STRING(Adresse.Knr,'999999'))
                + STRING(Adresse.Knr,'999999')
                .
        END.
        cString = cString
            + (IF cString = '' THEN '' ELSE ';')
            + 'Alle Lieferanten (999999);999999'.
    END.
    ELSE 
    DO:
        FOR EACH Artst NO-LOCK
            WHERE Artst.Firma = Firma
            AND   Artst.Aktiv = TRUE
            AND   Artst.Herst = ipHerst,
            
            EACH ArtLief NO-LOCK
            WHERE ArtLief.Firma  = Artst.Firma
            AND   ArtLief.Artnr  = Artst.Artnr
            AND   ArtLief.Inhalt = Artst.Inhalt
            AND   ArtLief.Jahr   = Artst.Jahr,
            
            FIRST Liefst NO-LOCK 
            WHERE Liefst.Firma   = Artlief.Firma
            AND   Liefst.Knr     = ArtLief.Knr 
            AND   Liefst.GLN_Nr1 > ''
            
            BREAK BY ArtLief.Knr:
        
            IF NOT FIRST-OF ( ArtLief.Knr ) THEN NEXT.
        
            FIND Adresse NO-LOCK
                WHERE Adresse.Firma = AdFirma
                AND   Adresse.Knr   = ArtLief.Knr.
            cString = cString
                + (IF cString = '' THEN '' ELSE ';')
                + Adresse.Anzeig_br
                + SUBSTITUTE(' (&1);', STRING(Adresse.Knr,'999999'))
                + STRING(Adresse.Knr,'999999')
                .
        END.
        cString = cString
            + (IF cString = '' THEN '' ELSE ';')
            + 'Alle Lieferanten;999999'.
    END.
                
    DO WITH FRAME {&FRAME-NAME}:
        CB_Lieferant:DELIMITER       = ';'.
        CB_Lieferant:LIST-ITEM-PAIRS = cString.
    END.
    
END PROCEDURE.

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

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

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

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

    DEFINE VARIABLE cString    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cHerst     AS CHARACTER NO-UNDO.
    DEFINE VARIABLE iHerst     AS INTEGER   NO-UNDO.
    DEFINE VARIABLE cLieferant AS CHARACTER NO-UNDO.
    DEFINE VARIABLE iLieferant AS INTEGER   NO-UNDO.
    
    DO WITH FRAME {&FRAME-NAME}:
        RUN COMBO_HERSTELLER IN THIS-PROCEDURE NO-ERROR.
        
        GET-KEY-VALUE SECTION SUBSTITUTE('DDAbsatz_&1', DYNAMIC-FUNCTION ('getSysUser':U))
            KEY     'Hersteller'
            VALUE   cHerst.
        IF  cHerst = '' OR 
            cHerst = ?  THEN cHerst = '999999'.
        iHerst = INTEGER(cHerst).
        CB_Hersteller:SCREEN-VALUE = cHerst NO-ERROR.
        
        GET-KEY-VALUE SECTION SUBSTITUTE('DDAbsatz_&1', DYNAMIC-FUNCTION ('getSysUser':U))
            KEY     'Lieferant'
            VALUE   cLieferant.
        IF  cLieferant = '' OR 
            cLieferant = ?  THEN cLieferant = '999999'.
        iLieferant = INTEGER(cLieferant).
        CB_Lieferant:SCREEN-VALUE = cLieferant NO-ERROR.

        EMPTY TEMP-TABLE tParam.
        CREATE  tParam.
        ASSIGN  
            tParam.iHerst     = iHerst
            tParam.iLieferant = iLieferant.
                
        DYNAMIC-FUNCTION ('getDDAbsatzFehlwerte':U, INPUT-OUTPUT htParam) NO-ERROR.
        
        ASSIGN  
            F_vonDatum                 = tParam.dvonDatum
            F_bisDatum                 = tParam.dbisDatum
            CB_Hersteller:SCREEN-VALUE = STRING(tParam.iHerst    ,'999999')
            CB_Lieferant :SCREEN-VALUE = STRING(tParam.iLieferant,'999999')
            F_Wgr                      = tParam.cWgr
            T_Abschluss                = tParam.lAbschluss
            T_Test                     = tParam.lTest NO-ERROR.
        
        iHerst = INTEGER(cHerst) NO-ERROR.
        RUN COMBO_LIEFERANT ( iHerst ).
        
        FIND FIRST tParam.
        CB_Lieferant:SCREEN-VALUE = STRING(tParam.iLieferant,'999999') NO-ERROR.
        iLieferant = tParam.iLieferant.
        
    END.

    { incl/dlgenableobject.i }

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

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI gddUmsaetze  _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 F_vonDatum F_bisDatum CB_Hersteller CB_Lieferant F_Wgr T_Abschluss 
          T_Test 
      WITH FRAME gddUmsaetze.
  ENABLE RECT-2 F_vonDatum F_bisDatum CB_Hersteller CB_Lieferant F_Wgr 
         T_Abschluss T_Test Btn_OK Btn_Cancel 
      WITH FRAME gddUmsaetze.
  VIEW FRAME gddUmsaetze.
  {&OPEN-BROWSERS-IN-QUERY-gddUmsaetze}
END PROCEDURE.

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

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

    IF btnOK THEN 
    DO:
    END.

    { incl/dlgende.i }

END PROCEDURE.

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

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

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

    RUN SUPER.

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

END PROCEDURE.

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