GeMIS_WEB/GUI/g-p_debums-mand.w

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

  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 Firma           AS CHAR                     NO-UNDO.
DEF VAR AdFirma         AS CHAR                     NO-UNDO.

DEF VAR cVorlage        AS CHAR                     NO-UNDO.
DEF VAR cDaten          AS CHAR                     NO-UNDO.
DEF VAR cDokument       AS CHAR                     NO-UNDO.
DEF VAR cDateiName      AS CHAR                     NO-UNDO.
DEF VAR Zelle           AS CHAR                     NO-UNDO.
DEF VAR excelAppl       AS COM-HANDLE               NO-UNDO.
DEF VAR cMandanten      AS CHAR                     NO-UNDO.

DEF TEMP-TABLE TDebUms  FIELD Knr       AS INT
                        FIELD Firma     AS CHAR
                        FIELD Jahr      AS INT
                        FIELD Ums_Grp   AS INT
                        FIELD RecArt    AS INT
                        FIELD Kunde     AS CHAR FORMAT "x(60)"
                        FIELD VEp_Mon   AS DEC  EXTENT 12
                        FIELD VVp_Mon   AS DEC  EXTENT 12
                        FIELD VEp_Kum   AS DEC
                        FIELD VEp_Tot   AS DEC
                        FIELD VVp_Kum   AS DEC
                        FIELD VVp_Tot   AS DEC
                        FIELD LEp_Mon   AS DEC  EXTENT 12
                        FIELD LVp_Mon   AS DEC  EXTENT 12
                        FIELD LEp_Kum   AS DEC
                        FIELD LEp_Tot   AS DEC
                        FIELD LVp_Kum   AS DEC
                        FIELD LVp_Tot   AS DEC

                        INDEX TDebUms-k1
                              Knr
                              Firma
                              Jahr
                              Ums_Grp
                              RecArt    DESCENDING

                        INDEX TDebUms-k2
                              Knr
                              Jahr
                              Firma
                              Ums_Grp
                              RecArt    DESCENDING.

DEF BUFFER BDebUms      FOR TDebUms.
DEF BUFFER WDebUms      FOR TDebUms.

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

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS RECT-12 F_VonKnr F_BisKnr CB_Vertreter ~
CB_Kundengruppe CB_Totale F_Jahr F_VonMonat F_BisMonat T_Umsatz Btn_OK ~
Btn_Cancel 
&Scoped-Define DISPLAYED-OBJECTS F_VonKnr F_BisKnr CB_Vertreter ~
CB_Kundengruppe CB_Totale F_Jahr F_VonMonat F_BisMonat T_Umsatz 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-6 F_VonKnr F_BisKnr CB_Vertreter CB_Kundengruppe ~
CB_Totale F_Jahr F_VonMonat F_BisMonat T_Umsatz 

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

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

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

DEFINE VARIABLE CB_Totale AS CHARACTER FORMAT "X(256)":U 
     LABEL "Totale" 
     VIEW-AS COMBO-BOX INNER-LINES 5
     LIST-ITEM-PAIRS "Nur Kundentotale","00",
                     "Warengruppentotale","01",
                     "Nur die Warengruppentotale","02"
     DROP-DOWN-LIST
     SIZE 40 BY 1
     BGCOLOR 15  NO-UNDO.

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

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

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

DEFINE VARIABLE F_Jahr AS INTEGER FORMAT "9999":U INITIAL 0 
     LABEL "Laufendes Jahr" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 8 BY 1
     BGCOLOR 15  NO-UNDO.

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

DEFINE VARIABLE F_VonMonat AS INTEGER FORMAT "99":U INITIAL 0 
     LABEL "von - bis Monat" 
     VIEW-AS FILL-IN NATIVE 
     SIZE 5 BY 1
     BGCOLOR 15  NO-UNDO.

DEFINE RECTANGLE RECT-12
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 84 BY 10.48.

DEFINE VARIABLE T_Umsatz AS LOGICAL INITIAL no 
     LABEL "nur Kunden mit Umsatz ?" 
     VIEW-AS TOGGLE-BOX
     SIZE 40.2 BY .81 NO-UNDO.


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

DEFINE FRAME gDebitorumsatz
     F_VonKnr AT ROW 2 COL 28 COLON-ALIGNED
     F_BisKnr AT ROW 2 COL 41 COLON-ALIGNED
     CB_Vertreter AT ROW 3 COL 28 COLON-ALIGNED
     CB_Kundengruppe AT ROW 4 COL 28 COLON-ALIGNED
     CB_Totale AT ROW 5 COL 28 COLON-ALIGNED
     F_Jahr AT ROW 6 COL 28 COLON-ALIGNED
     F_VonMonat AT ROW 7 COL 28 COLON-ALIGNED
     F_BisMonat AT ROW 7 COL 35 COLON-ALIGNED
     T_Umsatz AT ROW 8 COL 30
     Btn_OK AT ROW 9.52 COL 30
     Btn_Cancel AT ROW 9.76 COL 55.8
     RECT-12 AT ROW 1.24 COL 2
     SPACE(0.99) SKIP(0.22)
    WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER 
         SIDE-LABELS NO-UNDERLINE THREE-D  SCROLLABLE 
         TITLE "Debitorumsätze alle Mandanten"
         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 gDebitorumsatz 
/* ************************* 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 gDebitorumsatz
   FRAME-NAME                                                           */
ASSIGN 
       FRAME gDebitorumsatz:SCROLLABLE       = FALSE
       FRAME gDebitorumsatz:HIDDEN           = TRUE.

/* SETTINGS FOR COMBO-BOX CB_Kundengruppe IN FRAME gDebitorumsatz
   6                                                                    */
/* SETTINGS FOR COMBO-BOX CB_Totale IN FRAME gDebitorumsatz
   6                                                                    */
/* SETTINGS FOR COMBO-BOX CB_Vertreter IN FRAME gDebitorumsatz
   6                                                                    */
/* SETTINGS FOR FILL-IN F_BisKnr IN FRAME gDebitorumsatz
   6                                                                    */
/* SETTINGS FOR FILL-IN F_BisMonat IN FRAME gDebitorumsatz
   6                                                                    */
/* SETTINGS FOR FILL-IN F_Jahr IN FRAME gDebitorumsatz
   6                                                                    */
/* SETTINGS FOR FILL-IN F_VonKnr IN FRAME gDebitorumsatz
   6                                                                    */
/* SETTINGS FOR FILL-IN F_VonMonat IN FRAME gDebitorumsatz
   6                                                                    */
/* SETTINGS FOR TOGGLE-BOX T_Umsatz IN FRAME gDebitorumsatz
   6                                                                    */
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


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

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

 



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

&Scoped-define SELF-NAME gDebitorumsatz
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gDebitorumsatz gDebitorumsatz
ON END-ERROR OF FRAME gDebitorumsatz /* Debitorumsätze alle Mandanten */
DO:
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gDebitorumsatz gDebitorumsatz
ON GO OF FRAME gDebitorumsatz /* Debitorumsätze alle Mandanten */
DO:
    /*
    RUN ENDE_PROGRAMM ( INPUT THIS-PROCEDURE:FILE-NAME ) NO-ERROR.
    */
END.

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


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL gDebitorumsatz gDebitorumsatz
ON WINDOW-CLOSE OF FRAME gDebitorumsatz /* Debitorumsätze alle Mandanten */
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 gDebitorumsatz
ON CHOOSE OF Btn_Cancel IN FRAME gDebitorumsatz /* 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 gDebitorumsatz
ON CHOOSE OF Btn_OK IN FRAME gDebitorumsatz /* Excel */
DO:
    DO WITH FRAME {&FRAME-NAME}:
        Btn_OK:SENSITIVE     = FALSE.
        Btn_Cancel:SENSITIVE = FALSE.
        SESSION:SET-WAIT-STATE ('GENERAL').
    END.
    RUN REPORT.
    DO WITH FRAME {&FRAME-NAME}:
        Btn_OK:SENSITIVE     = TRUE.
        Btn_Cancel:SENSITIVE = TRUE.
        SESSION:SET-WAIT-STATE('').
    END.
    RUN ENDE.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME CB_Kundengruppe
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Kundengruppe gDebitorumsatz
ON RETURN OF CB_Kundengruppe IN FRAME gDebitorumsatz /* Kundengruppe */
DO:
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME CB_Totale
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Totale gDebitorumsatz
ON RETURN OF CB_Totale IN FRAME gDebitorumsatz /* Totale */
DO:
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME CB_Vertreter
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL CB_Vertreter gDebitorumsatz
ON RETURN OF CB_Vertreter IN FRAME gDebitorumsatz /* Vertreter */
DO:
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

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


&Scoped-define SELF-NAME F_BisKnr
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_BisKnr gDebitorumsatz
ON ALT-F OF F_BisKnr IN FRAME gDebitorumsatz /* - */
DO:
    DEF VAR iRecid      AS RECID                    NO-UNDO.

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

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


&Scoped-define SELF-NAME F_VonKnr
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F_VonKnr gDebitorumsatz
ON ALT-F OF F_VonKnr IN FRAME gDebitorumsatz /* von - bis Knr */
DO:
    DEF VAR iRecid      AS RECID                    NO-UNDO.

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

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


&Scoped-define SELF-NAME T_Umsatz
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL T_Umsatz gDebitorumsatz
ON RETURN OF T_Umsatz IN FRAME gDebitorumsatz /* nur Kunden mit Umsatz ? */
DO:
    APPLY 'TAB' TO SELF.
    RETURN NO-APPLY.
END.

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


&UNDEFINE SELF-NAME

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


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

    MaxPage    = 1.
    AktSeite   = 1.
    Firma      = DYNAMIC-FUNCTION('GETMANDANT':U)   NO-ERROR.
    AdFirma    = DYNAMIC-FUNCTION('GETADMANDANT':U) NO-ERROR.
    cMandanten = ''.
    FOR EACH Mandant USE-INDEX Mandant-k1
                     WHERE Mandant.Zustand = TRUE NO-LOCK:
        IF cMandanten <> '' THEN cMandanten = cMandanten + ','.
        cMandanten = cMandanten + Mandant.Firma.
    END.

    SESSION:DATA-ENTRY-RETURN = TRUE.

    SUBSCRIBE TO 'TOOLBAR' ANYWHERE.

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

    {src/adm2/dialogmn.i}

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


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

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

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

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

    RUN SUPER.

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

    DEF VAR cString     AS CHAR                     NO-UNDO.
    DEF VAR cInhalt     AS CHAR                     NO-UNDO.
    DEF VAR cKey        AS CHAR                     NO-UNDO.
    DEF VAR ii          AS INT                      NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
        RUN COMBO_KUNDENGRP ( INPUT CB_Kundengruppe:HANDLE ).
        RUN COMBO_VERTRETER ( INPUT CB_Vertreter   :HANDLE ).
        cString = CB_Kundengruppe:LIST-ITEM-PAIRS.
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + 'Alle;999999'.
        CB_Kundengruppe:LIST-ITEM-PAIRS = cString.
        CB_Kundengruppe:SCREEN-VALUE = '999999'.
        cString = CB_Vertreter:LIST-ITEM-PAIRS.
        IF cString <> '' THEN cString = cString + ';'.
        cString = cString + 'Alle Vertreter;999999'.
        CB_Vertreter:LIST-ITEM-PAIRS = cString.
        CB_Vertreter:SCREEN-VALUE = '999999'.

        cKey = ENTRY(1, THIS-PROCEDURE:FILE-NAME, '.').
        GET-KEY-VALUE SECTION 'Auswertungen' KEY cKey VALUE cString.
        IF cString = ? THEN cString = ''.
        DO ii = 1 TO NUM-ENTRIES(cString, '@'):
            cInhalt = ENTRY(ii, cString, '@').
            CASE ii:
                WHEN 1 THEN F_VonKnr        :SCREEN-VALUE = cInhalt NO-ERROR.
                WHEN 2 THEN F_BisKnr        :SCREEN-VALUE = cInhalt NO-ERROR.
                WHEN 3 THEN CB_Kundengruppe :SCREEN-VALUE = cInhalt NO-ERROR.
                WHEN 4 THEN CB_Totale       :SCREEN-VALUE = cInhalt NO-ERROR.
                WHEN 5 THEN F_Jahr          :SCREEN-VALUE = cInhalt NO-ERROR.
                WHEN 6 THEN F_VonMonat      :SCREEN-VALUE = cInhalt NO-ERROR.
                WHEN 7 THEN F_BisMonat      :SCREEN-VALUE = cInhalt NO-ERROR.
                WHEN 8 THEN T_Umsatz        :SCREEN-VALUE = cInhalt NO-ERROR.
                WHEN 9 THEN CB_Vertreter    :SCREEN-VALUE = cInhalt NO-ERROR.
            END CASE.
        END.
    END.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI gDebitorumsatz  _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_VonKnr F_BisKnr CB_Vertreter CB_Kundengruppe CB_Totale F_Jahr 
          F_VonMonat F_BisMonat T_Umsatz 
      WITH FRAME gDebitorumsatz.
  ENABLE RECT-12 F_VonKnr F_BisKnr CB_Vertreter CB_Kundengruppe CB_Totale 
         F_Jahr F_VonMonat F_BisMonat T_Umsatz Btn_OK Btn_Cancel 
      WITH FRAME gDebitorumsatz.
  VIEW FRAME gDebitorumsatz.
  {&OPEN-BROWSERS-IN-QUERY-gDebitorumsatz}
END PROCEDURE.

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

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

    DEF INPUT PARAMETER eh  AS COM-HANDLE       NO-UNDO.

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

    DO WITH FRAME {&FRAME-NAME}:
        cString = CB_Vertreter:LIST-ITEM-PAIRS.
        i1 = LOOKUP(CB_Vertreter:SCREEN-VALUE, cString, ';').
        cString = ENTRY(i1 - 1, cString, ';').
    END.
    FIND Steuer USE-INDEX Steuer-k1
                WHERE Steuer.Firma = Firma NO-LOCK NO-ERROR.

    Zelle = 'B1'.
    eh:Range(Zelle):SELECT.
    eh:SELECTION:VALUE = Steuer.Firma1.
    Zelle = 'H1'.
    eh:Range(Zelle):SELECT.
    eh:SELECTION:VALUE = 'Debitor-Umsätze ('
                       + cString
                       + ')'.
    Zelle = 'R1'.
    eh:Range(Zelle):SELECT.
    eh:SELECTION:VALUE = 'Datum : ' + STRING(TODAY,'99.99.9999').

    Zelle = 'B2'.
    eh:Range(Zelle):SELECT.
    eh:SELECTION:VALUE = Steuer.Ort.
    Zelle = 'H2'.
    eh:Range(Zelle):SELECT.
    eh:SELECTION:VALUE = STRING(F_VonMonat,'99')
                       + '. - '
                       + STRING(F_BisMonat,'99')
                       + '. ' 
                       + STRING(F_Jahr,'9999').
    Zelle = 'R2'.
    eh:Range(Zelle):SELECT.
    eh:SELECTION:VALUE = 'Zeit  :     ' + STRING(TIME,'HH:MM:SS').

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE NEXTPAGE gDebitorumsatz 
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 gDebitorumsatz 
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 gDebitorumsatz 
PROCEDURE REPORT :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR cString     AS CHAR                     NO-UNDO.
    DEF VAR cInhalt     AS CHAR                     NO-UNDO.
    DEF VAR cKey        AS CHAR                     NO-UNDO.
    DEF VAR ii          AS INT                      NO-UNDO.
    DEF VAR ja          AS LOG                      NO-UNDO.
    DEF VAR iKgr        AS INT                      NO-UNDO.
    DEF VAR iVer        AS INT                      NO-UNDO.
    DEF VAR iTot        AS INT                      NO-UNDO.
    DEF VAR VEp         AS DEC                      NO-UNDO.
    DEF VAR VVp         AS DEC                      NO-UNDO.
    DEF VAR VMa         AS DEC                      NO-UNDO.
    DEF VAR LEp         AS DEC                      NO-UNDO.
    DEF VAR LVp         AS DEC                      NO-UNDO.
    DEF VAR LMa         AS DEC                      NO-UNDO.
    DEF VAR Diff        AS DEC                      NO-UNDO.

    DO WITH FRAME {&FRAME-NAME}:
        ASSIGN  {&List-6}.

        IF F_VonKnr = 0 AND F_BisKnr = 0 THEN F_BisKnr = 999999.
        IF F_VonKnr > F_BisKnr THEN F_BisKnr = F_VonKnr.

        IF F_Jahr = 0 THEN F_Jahr = YEAR(TODAY).

        IF F_VonMonat =  0 AND F_BisMonat = 0 THEN F_BisMonat = 12.
        IF F_VonMonat =  0 THEN F_VonMonat = 01.
        IF F_VonMonat > 12 THEN F_VonMonat = 01.
        IF F_BisMonat =  0 THEN F_BisMonat = 12.
        IF F_BisMonat > 12 THEN F_BisMonat = 12.
        IF F_VonMonat > F_BisMonat THEN F_BisMonat = F_VonMonat.

        DISPLAY {&List-6}.

        cString = F_VonKnr          :SCREEN-VALUE   + '@'
                + F_BisKnr          :SCREEN-VALUE   + '@'
                + CB_Kundengruppe   :SCREEN-VALUE   + '@'
                + CB_Totale         :SCREEN-VALUE   + '@'
                + F_Jahr            :SCREEN-VALUE   + '@'
                + F_VonMonat        :SCREEN-VALUE   + '@'
                + F_BisMonat        :SCREEN-VALUE   + '@'
                + T_Umsatz          :SCREEN-VALUE   + '@' 
                + CB_Vertreter      :SCREEN-VALUE   + '@'.

        cKey = ENTRY(1, THIS-PROCEDURE:FILE-NAME, '.').
        PUT-KEY-VALUE SECTION 'Auswertungen' KEY cKey VALUE cString.
        iKgr = INTEGER(CB_Kundengruppe:SCREEN-VALUE).
        iTot = INTEGER(CB_Totale      :SCREEN-VALUE).
        iVer = INTEGER(CB_Vertreter   :SCREEN-VALUE).
    END.

    FOR EACH TDebUms:
        DELETE  TDebUms.
    END.

    FOR EACH Debst USE-INDEX Debst-k2
                   WHERE Debst.Knr  >= F_VonKnr
                   AND   Debst.Knr  <= F_BisKnr NO-LOCK,
        FIRST Adresse USE-INDEX Adresse-k1
                      WHERE Adresse.Firma = AdFirma
                      AND   Adresse.Knr   = Debst.Knr NO-LOCK:

        IF iKgr <> 999999       AND
           iKgr <> Debst.Ku_Grp THEN NEXT.

        IF iVer <> 999999       AND
           iVer <> Debst.Vertr  THEN NEXT.

        CREATE  TDebums.
        ASSIGN  TDebUms.Knr     = Debst.Knr
                TDebUms.Firma   = Debst.Firma
                TDebUms.Jahr    = F_Jahr
                TDebUms.Ums_Grp = 999
                TDebUms.RecArt  = 1
                TDebUms.Kunde   = Adresse.Anzeig_br.

        FIND DebUms USE-INDEX DebUms-k1
                    WHERE DebUms.Firma   = Debst.Firma
                    AND   DebUms.Jahr    = F_Jahr
                    AND   DebUms.Knr     = Debst.Knr
                    AND   DebUms.Ums_Grp = 999 NO-LOCK NO-ERROR.
        IF AVAILABLE DebUms THEN DO:
            ASSIGN  TDebUms.LEp_Kum     = DebUms.Ep_Kum
                    TDebUms.LVp_Kum     = DebUms.Vp_Kum
                    TDebUms.LEp_Mon[01] = DebUms.Ep_Mon[01]
                    TDebUms.LEp_Mon[02] = DebUms.Ep_Mon[02]
                    TDebUms.LEp_Mon[03] = DebUms.Ep_Mon[03]
                    TDebUms.LEp_Mon[04] = DebUms.Ep_Mon[04]
                    TDebUms.LEp_Mon[05] = DebUms.Ep_Mon[05]
                    TDebUms.LEp_Mon[06] = DebUms.Ep_Mon[06]
                    TDebUms.LEp_Mon[07] = DebUms.Ep_Mon[07]
                    TDebUms.LEp_Mon[08] = DebUms.Ep_Mon[08]
                    TDebUms.LEp_Mon[09] = DebUms.Ep_Mon[09]
                    TDebUms.LEp_Mon[10] = DebUms.Ep_Mon[10]
                    TDebUms.LEp_Mon[11] = DebUms.Ep_Mon[11]
                    TDebUms.LEp_Mon[12] = DebUms.Ep_Mon[12]
                    TDebUms.LVp_Mon[01] = DebUms.Vp_Mon[01]
                    TDebUms.LVp_Mon[02] = DebUms.Vp_Mon[02]
                    TDebUms.LVp_Mon[03] = DebUms.Vp_Mon[03]
                    TDebUms.LVp_Mon[04] = DebUms.Vp_Mon[04]
                    TDebUms.LVp_Mon[05] = DebUms.Vp_Mon[05]
                    TDebUms.LVp_Mon[06] = DebUms.Vp_Mon[06]
                    TDebUms.LVp_Mon[07] = DebUms.Vp_Mon[07]
                    TDebUms.LVp_Mon[08] = DebUms.Vp_Mon[08]
                    TDebUms.LVp_Mon[09] = DebUms.Vp_Mon[09]
                    TDebUms.LVp_Mon[10] = DebUms.Vp_Mon[10]
                    TDebUms.LVp_Mon[11] = DebUms.Vp_Mon[11]
                    TDebUms.LVp_Mon[12] = DebUms.Vp_Mon[12].
        END.
        FIND DebUms USE-INDEX DebUms-k1
                    WHERE DebUms.Firma   = Debst.Firma
                    AND   DebUms.Jahr    = F_Jahr - 1
                    AND   DebUms.Knr     = Debst.Knr
                    AND   DebUms.Ums_Grp = 999 NO-LOCK NO-ERROR.
        IF AVAILABLE DebUms THEN DO:
            ASSIGN  TDebUms.VEp_Kum     = DebUms.Ep_Kum
                    TDebUms.VVp_Kum     = DebUms.Vp_Kum
                    TDebUms.VEp_Mon[01] = DebUms.Ep_Mon[01]
                    TDebUms.VEp_Mon[02] = DebUms.Ep_Mon[02]
                    TDebUms.VEp_Mon[03] = DebUms.Ep_Mon[03]
                    TDebUms.VEp_Mon[04] = DebUms.Ep_Mon[04]
                    TDebUms.VEp_Mon[05] = DebUms.Ep_Mon[05]
                    TDebUms.VEp_Mon[06] = DebUms.Ep_Mon[06]
                    TDebUms.VEp_Mon[07] = DebUms.Ep_Mon[07]
                    TDebUms.VEp_Mon[08] = DebUms.Ep_Mon[08]
                    TDebUms.VEp_Mon[09] = DebUms.Ep_Mon[09]
                    TDebUms.VEp_Mon[10] = DebUms.Ep_Mon[10]
                    TDebUms.VEp_Mon[11] = DebUms.Ep_Mon[11]
                    TDebUms.VEp_Mon[12] = DebUms.Ep_Mon[12]
                    TDebUms.VVp_Mon[01] = DebUms.Vp_Mon[01]
                    TDebUms.VVp_Mon[02] = DebUms.Vp_Mon[02]
                    TDebUms.VVp_Mon[03] = DebUms.Vp_Mon[03]
                    TDebUms.VVp_Mon[04] = DebUms.Vp_Mon[04]
                    TDebUms.VVp_Mon[05] = DebUms.Vp_Mon[05]
                    TDebUms.VVp_Mon[06] = DebUms.Vp_Mon[06]
                    TDebUms.VVp_Mon[07] = DebUms.Vp_Mon[07]
                    TDebUms.VVp_Mon[08] = DebUms.Vp_Mon[08]
                    TDebUms.VVp_Mon[09] = DebUms.Vp_Mon[09]
                    TDebUms.VVp_Mon[10] = DebUms.Vp_Mon[10]
                    TDebUms.VVp_Mon[11] = DebUms.Vp_Mon[11]
                    TDebUms.VVp_Mon[12] = DebUms.Vp_Mon[12].
        END.
        VEp = 0.
        VVp = 0.
        LEp = 0.
        LVp = 0.
        DO ii = F_VonMonat TO F_BisMonat:
            LEp = LEp + TDebUms.LEp_Mon[ii].
            LVp = LVp + TDebUms.LVp_Mon[ii].
            VEp = VEp + TDebUms.VEp_Mon[ii].
            VVp = VVp + TDebUms.VVp_Mon[ii].
        END.
        ASSIGN  TDebUms.LEp_Tot = LEp
                TDebUms.LVp_Tot = LVp
                TDebUms.VEp_Tot = VEp
                TDebUms.VVp_Tot = VVp.
    END.

    IF iTot > 00 THEN RUN WARENGRUPPEN.

    FOR EACH TDebUms USE-INDEX TDebUms-k1
                     WHERE TDebUms.Knr <= 999999:
        FIND BDebUms USE-INDEX TDebUms-k1
                     WHERE BDebUms.Knr     = 9999999
                     AND   BDebUms.Firma   = TDebUms.Firma
                     AND   BDebUms.Jahr    = TDebUms.Jahr
                     AND   BDebUms.Ums_Grp = TDebUms.Ums_Grp
                     AND   BDebUms.RecArt  = TDebUms.RecArt NO-ERROR.
        IF NOT AVAILABLE BDebUms THEN DO:
            CREATE  BDebUms.
            ASSIGN  BDebUms.Knr     = 9999999
                    BDebUms.Jahr    = TDebUms.Jahr
                    BDebUms.Firma   = TDebUms.Firma
                    BDebUms.Ums_Grp = TDebUms.Ums_Grp
                    BDebUms.RecArt  = TDebUms.RecArt.
        END.
        ASSIGN  BDebUms.LEp_Kum = BDebUms.LEp_Kum + TDebUms.LEp_Kum
                BDebUms.LVp_Kum = BDebUms.LVp_Kum + TDebUms.LVp_Kum
                BDebUms.LEp_Tot = BDebUms.LEp_Tot + TDebUms.LEp_Tot
                BDebUms.LVp_Tot = BDebUms.LVp_Tot + TDebUms.LVp_Tot
                BDebUms.VEp_Kum = BDebUms.VEp_Kum + TDebUms.VEp_Kum
                BDebUms.VVp_Kum = BDebUms.VVp_Kum + TDebUms.VVp_Kum
                BDebUms.VEp_Tot = BDebUms.VEp_Tot + TDebUms.VEp_Tot
                BDebUms.VVp_Tot = BDebUms.VVp_Tot + TDebUms.VVp_Tot.
        DO ii = 1 TO 12:
            ASSIGN  BDebUms.LEp_Mon[ii] = BDebUms.LEp_Mon[ii] + TDebUms.LEp_Mon[ii]
                    BDebUms.LVp_Mon[ii] = BDebUms.LVp_Mon[ii] + TDebUms.LVp_Mon[ii]
                    BDebUms.VEp_Mon[ii] = BDebUms.VEp_Mon[ii] + TDebUms.VEp_Mon[ii]
                    BDebUms.VVp_Mon[ii] = BDebUms.VVp_Mon[ii] + TDebUms.VVp_Mon[ii].
        END.
    END.

    FOR EACH TDebUms USE-INDEX TDebUms-k1:
        IF iTot = 02                AND
           TDebUms.Knr <= 999999    THEN DO:
            DELETE  TDebUms.
            NEXT.
        END.
        IF T_Umsatz THEN DO:
            IF TDebUms.LEp_Kum = 0   AND
               TDebUms.VEp_Kum = 0   AND
               TDebUms.LVp_Kum = 0   AND
               TDebUms.VVp_Kum = 0   THEN DO:
                DELETE  TDebUms.
                NEXT.
            END.
        END.
        IF TDebUms.Ums_Grp = 999 THEN DO:
            IF TDebUms.Knr > 999999 THEN TDebUms.Kunde = 'Gesamttotal'.
            NEXT.
        END.
        IF TDebUms.RecArt <> 2 THEN NEXT.
        FIND WarenGrp USE-INDEX WarenGrp-k1
                      WHERE WarenGrp.Firma  = TDebUms.Firma
                      AND   WarenGrp.Wgr    = TDebUms.Ums_Grp NO-LOCK NO-ERROR.
        IF NOT AVAILABLE WarenGrp THEN TDebUms.Kunde = '??????????'.
        ELSE                           TDebUms.Kunde = WarenGrp.Bez1.
    END.

    cVorlage    = 'DebUmsMand.xls'.
    cDokument   = 'DebUmsMand.xls'.
    cDaten      = 'DebUmsMand.txt'.

    cDateiName  = cDokument + CHR(01) + cVorlage.
    RUN CREATEDATEI ( INPUT cDateiName ).
    IF RETURN-VALUE BEGINS 'ERROR' THEN RETURN NO-APPLY.
    cDokument   = RETURN-VALUE.

    cDateiName  = cDaten.
    RUN CREATEDATEI ( INPUT cDateiName ).
    IF RETURN-VALUE BEGINS 'ERROR' THEN RETURN NO-APPLY.
    cDaten      = RETURN-VALUE.

    OUTPUT TO VALUE(cDaten).

    cString = '£'.
    DO ii = 1 TO NUM-ENTRIES(cMandanten, ','):
        cString = cString
                + '££££Vorjahr '
                + ENTRY(ii, cMandanten, ',')
                + '£££Laufend '
                + ENTRY(ii, cMandanten, ',').
    END.
    PUT CONTROL '£' CHR(10)
                '£' CHR(10)
                cString                                     CHR(10).
    cString = '£Knr££Kunde'.
    DO ii = 1 TO NUM-ENTRIES(cMandanten, ','):
        cString = cString
                + '£EP£VP£Marge%£EP£VP£Marge%£Diff'.
    END.
    PUT CONTROL cString     CHR(10)
                '£'         CHR(10).

    FOR EACH TDebUms NO-LOCK
                     BREAK BY TDebUms.Knr
                           BY TDebUms.RecArt
                           BY TDebUms.Ums_Grp
                           BY TDebUms.Firma :

        VEp = TDebUms.VEp_Tot.
        VVp = TDebUms.VVp_Tot.
        VMa = 0.
        LEp = TDebUms.LEp_Tot.
        LVp = TDebUms.LVp_Tot.
        LMa = 0.
        IF LEp <> 0     AND
           LVp <> 0     THEN LMa = 100 - (LEp * 100 / LVp).
        IF VEp <> 0     AND
           VVp <> 0     THEN VMa = 100 - (VEp * 100 / VVp).
        IF LMa < 999.99- THEN LMa = 999.99-.
        IF LMa > 999.99+ THEN LMa = 999.99+.
        IF VMa < 999.99- THEN VMa = 999.99-.
        IF VMa > 999.99+ THEN VMa = 999.99+.
        Diff = LVp - VVp.

        IF FIRST-OF ( TDebUms.Ums_Grp )
            THEN cString = '£££' + FILL('£££££££', NUM-ENTRIES(cMandanten, ',')).

        IF TDebUms.Ums_Grp = 999 THEN DO:
            IF TDebUms.Knr <= 999999
                THEN ENTRY(2, cString, '£') = STRING(TDebUms.Knr,'999999').
            ENTRY(4, cString, '£') = TDebUms.Kunde.
        END.
        ELSE DO:
            ENTRY(3, cString, '£') = STRING(TDebUms.Ums_Grp,'999').
            ENTRY(4, cString, '£') = TDebUms.Kunde.
        END.
        ii = LOOKUP(TDebUms.Firma, cMandanten, ',').
        ii = 5 + ((ii - 1) * 7).
        ENTRY(ii + 0, cString, '£') = TRIM(STRING(VEp ,'->>>>>>>>>')).
        ENTRY(ii + 1, cString, '£') = TRIM(STRING(VVp ,'->>>>>>>>>')).
        ENTRY(ii + 2, cString, '£') = TRIM(STRING(VMa ,'->>9.99')).
        ENTRY(ii + 3, cString, '£') = TRIM(STRING(LEp ,'->>>>>>>>>')).
        ENTRY(ii + 4, cString, '£') = TRIM(STRING(LVp ,'->>>>>>>>>')).
        ENTRY(ii + 5, cString, '£') = TRIM(STRING(LMa ,'->>9.99')).
        ENTRY(ii + 6, cString, '£') = TRIM(STRING(Diff,'->>>>>>>>>')).

        IF NOT LAST-OF ( TDebUms.Ums_Grp ) THEN NEXT.
        PUT CONTROL cString CHR(10).

        IF NOT LAST-OF ( TDebUms.Knr ) THEN NEXT.
        IF iTot > 0 THEN PUT CONTROL '£' CHR(10).
    END.

    OUTPUT CLOSE.

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

    RUN OPENEXCEL ( INPUT excelAppl, INPUT cDokument, INPUT '', OUTPUT ja ).
    IF NOT ja THEN DO:
        RUN FEHLER ( INPUT 1040 ).
        DYNAMIC-FUNCTION('RELEASEEXCEL':U, INPUT excelAppl ) NO-ERROR.
        RETURN NO-APPLY.
    END.

    Zelle = 'A1'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:SELECTION:FormulaR1C1 = 'TEXT;' + cDaten.
    excelAppl:APPLICATION:RUN ( 'DateiEinfügen' ).

    RUN KOPF ( INPUT excelAppl ).

    Zelle = 'A1'.
    excelAppl:Range(Zelle):SELECT.
    excelAppl:SELECTION:ColumnWidth = 0.3.
    
    DYNAMIC-FUNCTION('RELEASEEXCEL':U, INPUT excelAppl ) NO-ERROR.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE selectPage gDebitorumsatz 
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 TOOLBAR gDebitorumsatz 
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 WARENGRUPPEN gDebitorumsatz 
PROCEDURE WARENGRUPPEN :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

DEF VAR ii      AS INT                      NO-UNDO.
DEF VAR VEp     AS DEC                      NO-UNDO.
DEF VAR VVp     AS DEC                      NO-UNDO.
DEF VAR LEp     AS DEC                      NO-UNDO.
DEF VAR LVp     AS DEC                      NO-UNDO.

FOR EACH BDebUms USE-INDEX TDebUms-k2
                 WHERE BDebUms.Knr    <= 999999
                 AND   BDebUms.Jahr    = F_Jahr
                 AND   BDebUms.Ums_Grp = 999    NO-LOCK:

    FOR EACH DeArUms USE-INDEX DeArUms-k3
                     WHERE DeArUms.Firma   = BDebUms.Firma
                     AND   DeArUms.Knr     = BDebUms.Knr
                     AND   DeArUms.Jahr   >= F_Jahr - 1
                     AND   DeArUms.Jahr   <= F_Jahr
                     AND  (DeArUms.Ep_Kum <> 0  OR
                           DeArUms.Vp_Kum <> 0)         NO-LOCK,
        FIRST Artst USE-INDEX Artst-k1
                    WHERE Artst.Firma  = DeArUms.Firma
                    AND   Artst.Artnr  = DeArUms.Artnr
                    AND   Artst.Inhalt = DeArUms.Inhalt
                    AND   Artst.Jahr   = DeArUms.Jahrg  NO-LOCK :

        FIND TDebUms USE-INDEX TDebUms-k1
                     WHERE TDebUms.Knr     = BDebUms.Knr
                     AND   TDebUms.Firma   = BDebUms.Firma
                     AND   TDebUms.Jahr    = BDebUms.Jahr
                     AND   TDebUms.Ums_Grp = Artst.Wg_Grp
                     AND   TDebUms.RecArt  = 2 NO-ERROR.
        IF NOT AVAILABLE TDebUms THEN DO:
            CREATE  TDebUms.
            ASSIGN  TDebUms.Knr     = BDebUms.Knr
                    TDebUms.Firma   = BDebUms.Firma
                    TDebUms.Jahr    = BDebUms.Jahr
                    TDebUms.Ums_Grp = Artst.Wg_Grp
                    TDebUms.RecArt  = 2
                    TDebUms.Kunde   = ''.
        END.

        CASE DeArUms.Jahr:

        WHEN F_Jahr THEN
            ASSIGN  TDebUms.LEp_Kum     = TDebUms.LEp_Kum     + DeArUms.Ep_Kum
                    TDebUms.LEp_Mon[01] = TDebUms.LEp_Mon[01] + DeArUms.Ep_Mon[01]
                    TDebUms.LEp_Mon[02] = TDebUms.LEp_Mon[02] + DeArUms.Ep_Mon[02]
                    TDebUms.LEp_Mon[03] = TDebUms.LEp_Mon[03] + DeArUms.Ep_Mon[03]
                    TDebUms.LEp_Mon[04] = TDebUms.LEp_Mon[04] + DeArUms.Ep_Mon[04]
                    TDebUms.LEp_Mon[05] = TDebUms.LEp_Mon[05] + DeArUms.Ep_Mon[05]
                    TDebUms.LEp_Mon[06] = TDebUms.LEp_Mon[06] + DeArUms.Ep_Mon[06]
                    TDebUms.LEp_Mon[07] = TDebUms.LEp_Mon[07] + DeArUms.Ep_Mon[07]
                    TDebUms.LEp_Mon[08] = TDebUms.LEp_Mon[08] + DeArUms.Ep_Mon[08]
                    TDebUms.LEp_Mon[09] = TDebUms.LEp_Mon[09] + DeArUms.Ep_Mon[09]
                    TDebUms.LEp_Mon[10] = TDebUms.LEp_Mon[10] + DeArUms.Ep_Mon[10]
                    TDebUms.LEp_Mon[11] = TDebUms.LEp_Mon[11] + DeArUms.Ep_Mon[11]
                    TDebUms.LEp_Mon[12] = TDebUms.LEp_Mon[12] + DeArUms.Ep_Mon[12]
                    TDebUms.LVp_Kum     = TDebUms.LVp_Kum     + DeArUms.Vp_Kum
                    TDebUms.LVp_Mon[01] = TDebUms.LVp_Mon[01] + DeArUms.Vp_Mon[01]
                    TDebUms.LVp_Mon[02] = TDebUms.LVp_Mon[02] + DeArUms.Vp_Mon[02]
                    TDebUms.LVp_Mon[03] = TDebUms.LVp_Mon[03] + DeArUms.Vp_Mon[03]
                    TDebUms.LVp_Mon[04] = TDebUms.LVp_Mon[04] + DeArUms.Vp_Mon[04]
                    TDebUms.LVp_Mon[05] = TDebUms.LVp_Mon[05] + DeArUms.Vp_Mon[05]
                    TDebUms.LVp_Mon[06] = TDebUms.LVp_Mon[06] + DeArUms.Vp_Mon[06]
                    TDebUms.LVp_Mon[07] = TDebUms.LVp_Mon[07] + DeArUms.Vp_Mon[07]
                    TDebUms.LVp_Mon[08] = TDebUms.LVp_Mon[08] + DeArUms.Vp_Mon[08]
                    TDebUms.LVp_Mon[09] = TDebUms.LVp_Mon[09] + DeArUms.Vp_Mon[09]
                    TDebUms.LVp_Mon[10] = TDebUms.LVp_Mon[10] + DeArUms.Vp_Mon[10]
                    TDebUms.LVp_Mon[11] = TDebUms.LVp_Mon[11] + DeArUms.Vp_Mon[11]
                    TDebUms.LVp_Mon[12] = TDebUms.LVp_Mon[12] + DeArUms.Vp_Mon[12].

        WHEN F_Jahr - 1 THEN
            ASSIGN  TDebUms.VEp_Kum     = TDebUms.VEp_Kum     + DeArUms.Ep_Kum
                    TDebUms.VEp_Mon[01] = TDebUms.VEp_Mon[01] + DeArUms.Ep_Mon[01]
                    TDebUms.VEp_Mon[02] = TDebUms.VEp_Mon[02] + DeArUms.Ep_Mon[02]
                    TDebUms.VEp_Mon[03] = TDebUms.VEp_Mon[03] + DeArUms.Ep_Mon[03]
                    TDebUms.VEp_Mon[04] = TDebUms.VEp_Mon[04] + DeArUms.Ep_Mon[04]
                    TDebUms.VEp_Mon[05] = TDebUms.VEp_Mon[05] + DeArUms.Ep_Mon[05]
                    TDebUms.VEp_Mon[06] = TDebUms.VEp_Mon[06] + DeArUms.Ep_Mon[06]
                    TDebUms.VEp_Mon[07] = TDebUms.VEp_Mon[07] + DeArUms.Ep_Mon[07]
                    TDebUms.VEp_Mon[08] = TDebUms.VEp_Mon[08] + DeArUms.Ep_Mon[08]
                    TDebUms.VEp_Mon[09] = TDebUms.VEp_Mon[09] + DeArUms.Ep_Mon[09]
                    TDebUms.VEp_Mon[10] = TDebUms.VEp_Mon[10] + DeArUms.Ep_Mon[10]
                    TDebUms.VEp_Mon[11] = TDebUms.VEp_Mon[11] + DeArUms.Ep_Mon[11]
                    TDebUms.VEp_Mon[12] = TDebUms.VEp_Mon[12] + DeArUms.Ep_Mon[12]
                    TDebUms.VVp_Kum     = TDebUms.VVp_Kum     + DeArUms.Vp_Kum
                    TDebUms.VVp_Mon[01] = TDebUms.VVp_Mon[01] + DeArUms.Vp_Mon[01]
                    TDebUms.VVp_Mon[02] = TDebUms.VVp_Mon[02] + DeArUms.Vp_Mon[02]
                    TDebUms.VVp_Mon[03] = TDebUms.VVp_Mon[03] + DeArUms.Vp_Mon[03]
                    TDebUms.VVp_Mon[04] = TDebUms.VVp_Mon[04] + DeArUms.Vp_Mon[04]
                    TDebUms.VVp_Mon[05] = TDebUms.VVp_Mon[05] + DeArUms.Vp_Mon[05]
                    TDebUms.VVp_Mon[06] = TDebUms.VVp_Mon[06] + DeArUms.Vp_Mon[06]
                    TDebUms.VVp_Mon[07] = TDebUms.VVp_Mon[07] + DeArUms.Vp_Mon[07]
                    TDebUms.VVp_Mon[08] = TDebUms.VVp_Mon[08] + DeArUms.Vp_Mon[08]
                    TDebUms.VVp_Mon[09] = TDebUms.VVp_Mon[09] + DeArUms.Vp_Mon[09]
                    TDebUms.VVp_Mon[10] = TDebUms.VVp_Mon[10] + DeArUms.Vp_Mon[10]
                    TDebUms.VVp_Mon[11] = TDebUms.VVp_Mon[11] + DeArUms.Vp_Mon[11]
                    TDebUms.VVp_Mon[12] = TDebUms.VVp_Mon[12] + DeArUms.Vp_Mon[12].

        END CASE.
    END.
END.

FOR EACH TDebUms USE-INDEX TDebUms-k1
                 WHERE TDebUms.Knr    <= 999999
                 AND   TDebUms.Jahr    = F_Jahr
                 AND   TDebUms.Ums_Grp < 999    NO-LOCK:

    LEp = 0.
    LVp = 0.
    VEp = 0.
    VVp = 0.
    DO ii = F_VonMonat TO F_BisMonat:
        LEp = LEp + TDebUms.LEp_Mon[ii].
        LVp = LVp + TDebUms.LVp_Mon[ii].
        VEp = VEp + TDebUms.VEp_Mon[ii].
        VVp = VVp + TDebUms.VVp_Mon[ii].
    END.
    ASSIGN  TDebUms.LEp_Tot = LEp
            TDebUms.LVp_Tot = LVp
            TDebUms.VEp_Tot = VEp
            TDebUms.VVp_Tot = VVp.
END.

END PROCEDURE.

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