GeMIS_WEB/GUI/v8/f-umsatzanzeige.w

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


/* Temp-Table and Buffer definitions                                    */
DEFINE TEMP-TABLE TUmsatz NO-UNDO LIKE Umsatz.



&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS F-Frame-Win 
/*------------------------------------------------------------------------

  File: 

  Description: from cntnrfrm.w - ADM SmartFrame Template

  Input Parameters:
      <none>

  Output Parameters:
      <none>

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

/* Create an unnamed pool to store all the widgets created 
     by this procedure. This is a good default which assures
     that this procedure's triggers and internal procedures 
     will execute in this procedure's storage, and that proper
     cleanup will occur on deletion of the procedure. */

CREATE WIDGET-POOL.

/* ***************************  Definitions  ************************** */

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */


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

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

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


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

/* ********************  Preprocessor Definitions  ******************** */

&Scoped-define PROCEDURE-TYPE SmartFrame
&Scoped-define DB-AWARE no

&Scoped-define ADM-CONTAINER FRAME

/* Name of designated FRAME-NAME and/or first browse and/or first query */
&Scoped-define FRAME-NAME F-Main
&Scoped-define BROWSE-NAME Br_TUmsatz

/* Internal Tables (found by Frame, Query & Browse Queries)             */
&Scoped-define INTERNAL-TABLES TUmsatz

/* Definitions for BROWSE Br_TUmsatz                                    */
&Scoped-define FIELDS-IN-QUERY-Br_TUmsatz TUmsatz.Jahr TUmsatz.Vp_Kum ~
TUmsatz.Vp_Mon[1] TUmsatz.Vp_Mon[2] TUmsatz.Vp_Mon[3] TUmsatz.Vp_Mon[4] ~
TUmsatz.Vp_Mon[5] TUmsatz.Vp_Mon[6] TUmsatz.Vp_Mon[7] TUmsatz.Vp_Mon[8] ~
TUmsatz.Vp_Mon[9] TUmsatz.Vp_Mon[10] TUmsatz.Vp_Mon[11] TUmsatz.Vp_Mon[12] 
&Scoped-define ENABLED-FIELDS-IN-QUERY-Br_TUmsatz 
&Scoped-define QUERY-STRING-Br_TUmsatz FOR EACH TUmsatz ~
      WHERE TUmsatz.Firma = GVFirma NO-LOCK
&Scoped-define OPEN-QUERY-Br_TUmsatz OPEN QUERY Br_TUmsatz FOR EACH TUmsatz ~
      WHERE TUmsatz.Firma = GVFirma NO-LOCK.
&Scoped-define TABLES-IN-QUERY-Br_TUmsatz TUmsatz
&Scoped-define FIRST-TABLE-IN-QUERY-Br_TUmsatz TUmsatz


/* Definitions for FRAME F-Main                                         */

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS RECT-32 Br_TUmsatz RS_Anzeige Bt_Rechnen 
&Scoped-Define DISPLAYED-OBJECTS RS_Anzeige 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */

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



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


/* Definitions of the field level widgets                               */
DEFINE BUTTON Bt_Rechnen 
     LABEL "&Rechnen" 
     SIZE 16.8 BY 1.

DEFINE VARIABLE RS_Anzeige AS INTEGER 
     VIEW-AS RADIO-SET VERTICAL
     RADIO-BUTTONS 
          "Gesamt-Umsatz", 1,
"", 2
     SIZE 42.2 BY 1.67 NO-UNDO.

DEFINE RECTANGLE RECT-32
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE 134 BY 16.05.

/* Query definitions                                                    */
&ANALYZE-SUSPEND
DEFINE QUERY Br_TUmsatz FOR 
      TUmsatz SCROLLING.
&ANALYZE-RESUME

/* Browse definitions                                                   */
DEFINE BROWSE Br_TUmsatz
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS Br_TUmsatz F-Frame-Win _STRUCTURED
  QUERY Br_TUmsatz DISPLAY
      TUmsatz.Jahr FORMAT "9999":U
      TUmsatz.Vp_Kum COLUMN-LABEL "VP Jahr" FORMAT "->>,>>>,>>9":U
      TUmsatz.Vp_Mon[1] COLUMN-LABEL "VP Jan" FORMAT "->>>,>>9":U
      TUmsatz.Vp_Mon[2] COLUMN-LABEL "VP Feb" FORMAT "->>>,>>9":U
      TUmsatz.Vp_Mon[3] COLUMN-LABEL "VP Mar" FORMAT "->>>,>>9":U
      TUmsatz.Vp_Mon[4] COLUMN-LABEL "VP Apr" FORMAT "->>>,>>9":U
      TUmsatz.Vp_Mon[5] COLUMN-LABEL "VP Mai" FORMAT "->>>,>>9":U
      TUmsatz.Vp_Mon[6] COLUMN-LABEL "VP Jun" FORMAT "->>>,>>9":U
      TUmsatz.Vp_Mon[7] COLUMN-LABEL "VP Jul" FORMAT "->>>,>>9":U
      TUmsatz.Vp_Mon[8] COLUMN-LABEL "VP Aug" FORMAT "->>>,>>9":U
      TUmsatz.Vp_Mon[9] COLUMN-LABEL "VP Sep" FORMAT "->>>,>>9":U
      TUmsatz.Vp_Mon[10] COLUMN-LABEL "VP Okt" FORMAT "->>>,>>9":U
      TUmsatz.Vp_Mon[11] COLUMN-LABEL "VP Nov" FORMAT "->>>,>>9":U
      TUmsatz.Vp_Mon[12] COLUMN-LABEL "VP Dez" FORMAT "->>>,>>9":U
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
    WITH NO-ROW-MARKERS SEPARATORS SIZE 132 BY 13.33
         BGCOLOR 15 .


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

DEFINE FRAME F-Main
     Br_TUmsatz AT ROW 1.48 COL 3
     RS_Anzeige AT ROW 15.19 COL 13.8 NO-LABEL
     Bt_Rechnen AT ROW 15.19 COL 118.2
     RECT-32 AT ROW 1.24 COL 2
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY 
         SIDE-LABELS NO-UNDERLINE THREE-D 
         AT COL 1 ROW 1 SCROLLABLE .


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

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartFrame
   Allow: Basic,Browse,DB-Fields,Query,Smart
   Other Settings: PERSISTENT-ONLY COMPILE
   Temp-Tables and Buffers:
      TABLE: TUmsatz T "?" NO-UNDO AnaDat Umsatz
   END-TABLES.
 */

/* This procedure should always be RUN PERSISTENT.  Report the error,  */
/* then cleanup and return.                                            */
IF NOT THIS-PROCEDURE:PERSISTENT THEN DO:
  MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT.":U
          VIEW-AS ALERT-BOX ERROR BUTTONS OK.
  RETURN.
END.

&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

/* *************************  Create Window  ************************** */

&ANALYZE-SUSPEND _CREATE-WINDOW
/* DESIGN Window definition (used by the UIB) 
  CREATE WINDOW F-Frame-Win ASSIGN
         HEIGHT             = 16.43
         WIDTH              = 136.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB F-Frame-Win 
/* ************************* Included-Libraries *********************** */

{src/adm/method/containr.i}

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




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

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW F-Frame-Win
  VISIBLE,,RUN-PERSISTENT                                               */
/* SETTINGS FOR FRAME F-Main
   NOT-VISIBLE FRAME-NAME Size-to-Fit                                   */
/* BROWSE-TAB Br_TUmsatz RECT-32 F-Main */
ASSIGN 
       FRAME F-Main:SCROLLABLE       = FALSE.

/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


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

&ANALYZE-SUSPEND _QUERY-BLOCK BROWSE Br_TUmsatz
/* Query rebuild information for BROWSE Br_TUmsatz
     _TblList          = "AnaDat.TUmsatz"
     _Where[1]         = "TUmsatz.Firma = GVFirma"
     _FldNameList[1]   = Temp-Tables.TUmsatz.Jahr
     _FldNameList[2]   > Temp-Tables.TUmsatz.Vp_Kum
"TUmsatz.Vp_Kum" "VP Jahr" "->>,>>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[3]   > Temp-Tables.TUmsatz.Vp_Mon[1]
"TUmsatz.Vp_Mon[1]" "VP Jan" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[4]   > Temp-Tables.TUmsatz.Vp_Mon[2]
"TUmsatz.Vp_Mon[2]" "VP Feb" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[5]   > Temp-Tables.TUmsatz.Vp_Mon[3]
"TUmsatz.Vp_Mon[3]" "VP Mar" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[6]   > Temp-Tables.TUmsatz.Vp_Mon[4]
"TUmsatz.Vp_Mon[4]" "VP Apr" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[7]   > Temp-Tables.TUmsatz.Vp_Mon[5]
"TUmsatz.Vp_Mon[5]" "VP Mai" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[8]   > Temp-Tables.TUmsatz.Vp_Mon[6]
"TUmsatz.Vp_Mon[6]" "VP Jun" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[9]   > Temp-Tables.TUmsatz.Vp_Mon[7]
"TUmsatz.Vp_Mon[7]" "VP Jul" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[10]   > Temp-Tables.TUmsatz.Vp_Mon[8]
"TUmsatz.Vp_Mon[8]" "VP Aug" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[11]   > Temp-Tables.TUmsatz.Vp_Mon[9]
"TUmsatz.Vp_Mon[9]" "VP Sep" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[12]   > Temp-Tables.TUmsatz.Vp_Mon[10]
"TUmsatz.Vp_Mon[10]" "VP Okt" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[13]   > Temp-Tables.TUmsatz.Vp_Mon[11]
"TUmsatz.Vp_Mon[11]" "VP Nov" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _FldNameList[14]   > Temp-Tables.TUmsatz.Vp_Mon[12]
"TUmsatz.Vp_Mon[12]" "VP Dez" "->>>,>>9" "decimal" ? ? ? ? ? ? no ? no no ? yes no no "U" "" "" "" "" "" "" 0 no 0 no no
     _Query            is NOT OPENED
*/  /* BROWSE Br_TUmsatz */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _QUERY-BLOCK FRAME F-Main
/* Query rebuild information for FRAME F-Main
     _Options          = ""
     _Query            is NOT OPENED
*/  /* FRAME F-Main */
&ANALYZE-RESUME

 



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

&Scoped-define SELF-NAME Bt_Rechnen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Bt_Rechnen F-Frame-Win
ON CHOOSE OF Bt_Rechnen IN FRAME F-Main /* Rechnen */
DO:
    DISABLE Bt_Rechnen WITH FRAME {&FRAME-NAME}.
    RUN NEU_RECHNEN.
    RUN OPEN_BROWSER.
    ENABLE  Bt_Rechnen WITH FRAME {&FRAME-NAME}.
END.

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


&Scoped-define BROWSE-NAME Br_TUmsatz
&UNDEFINE SELF-NAME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK F-Frame-Win 


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

&IF DEFINED(UIB_IS_RUNNING) <> 0 &THEN
   /* Now enable the interface  if in test mode - otherwise this happens when
      the object is explicitly initialized from its container. */
   RUN dispatch IN THIS-PROCEDURE ('initialize':U).
&ENDIF

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


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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects F-Frame-Win  _ADM-CREATE-OBJECTS
PROCEDURE adm-create-objects :
/*------------------------------------------------------------------------------
  Purpose:     Create handles for all SmartObjects used in this procedure.
               After SmartObjects are initialized, then SmartLinks are added.
  Parameters:  <none>
------------------------------------------------------------------------------*/

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-row-available F-Frame-Win  _ADM-ROW-AVAILABLE
PROCEDURE adm-row-available :
/*------------------------------------------------------------------------------
  Purpose:     Dispatched to this procedure when the Record-
               Source has a new row available.  This procedure
               tries to get the new row (or foriegn keys) from
               the Record-Source and process it.
  Parameters:  <none>
------------------------------------------------------------------------------*/

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

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

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI F-Frame-Win  _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 F-Main.
  IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI F-Frame-Win  _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 RS_Anzeige 
      WITH FRAME F-Main.
  ENABLE RECT-32 Br_TUmsatz RS_Anzeige Bt_Rechnen 
      WITH FRAME F-Main.
  {&OPEN-BROWSERS-IN-QUERY-F-Main}
END PROCEDURE.

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

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

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

    RUN OPEN_BROWSER.

END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE NEU_RECHNEN F-Frame-Win 
PROCEDURE NEU_RECHNEN :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEF VAR iJahr       AS INT                      NO-UNDO.
    DEF VAR dNetto      AS DEC  DECIMALS 4          NO-UNDO.

    iJahr = YEAR(TODAY) - 1. 
    FOR EACH Umsatz USE-INDEX Umsatz-k1
            WHERE Umsatz.Firma   = GVFirma
            AND   Umsatz.Ums_Art = 'TOTAL'
            AND   Umsatz.Jahr   >= iJahr:
        ASSIGN  Umsatz.Vp_Kum   = 0
                Umsatz.Vp_Mon   = 0
                Umsatz.Ep_Kum   = 0
                Umsatz.Ep_Mon   = 0.
    END.
    
    FOR EACH Savko USE-INDEX Savko-k1
            WHERE Savko.Firma = GVFirma NO-LOCK:
        IF Savko.Fak_Datum = ? THEN LVDat = Savko.Lief_Datum.
        ELSE                        LVDat = Savko.Fak_Datum.
        IF LVDat = ? THEN LVDat = 01/01/1900.
        
        i1 = YEAR (LVDat).
        i2 = MONTH(LVDat).
        IF i1 < iJahr THEN NEXT.
        
        FIND Umsatz USE-INDEX Umsatz-k1
                WHERE Umsatz.Firma    = Savko.Firma
                AND   Umsatz.Ums_Art  = 'TOTAL'
                AND   Umsatz.Jahr     = i1
                AND   Umsatz.Grp_01   = 0 NO-ERROR.
        IF NOT AVAILABLE Umsatz THEN DO:
            CREATE  Umsatz.
            ASSIGN  Umsatz.Firma    = Savko.Firma
                    Umsatz.Ums_Art  = 'TOTAL'
                    Umsatz.Jahr     = i1
                    Umsatz.Grp_01   = 0.
        END.
        
        FOR EACH Savze OF Savko NO-LOCK
                WHERE Savze.Artnr     > 0
                AND   Savze.Net_Betr <> 0:
            dNetto = Savze.Net_Betr
                   - Savze.Auf_Rab
                   - Savze.Abh_Rab
                   - Savze.Auf_Sp_Rab.
            IF Savze.MWSt_Inkl THEN dNetto = dNetto * 100 / (100 + Savze.MWST%).
            Umsatz.VP_Mon[i2] = Umsatz.VP_Mon[i2] + dNetto.
            Umsatz.VP_Kum     = Umsatz.VP_Kum     + dNetto.
            Umsatz.EP_Mon[i2] = Umsatz.EP_Mon[i2]
                              + ( Savze.MGeli * Savze.Ep ).
            Umsatz.EP_Kum     = Umsatz.EP_Kum
                              + ( Savze.MGeli * Savze.Ep ).
        END.
    END.
    
END PROCEDURE.

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE OPEN_BROWSER F-Frame-Win 
PROCEDURE OPEN_BROWSER :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

DO WITH FRAME {&FRAME-NAME}:
    ASSIGN  RS_Anzeige.
    
    DO WHILE TRUE:
        IF NUM-RESULTS("{&BROWSE-NAME}":U) = ? THEN LEAVE.
        CLOSE QUERY {&BROWSE-NAME}.
        LEAVE.
    END.
    
    EMPTY TEMP-TABLE TUmsatz.
    
    CASE RS_Anzeige:
    
        WHEN 1 THEN DO:
            FOR EACH Umsatz USE-INDEX Umsatz-k1
                            WHERE Umsatz.Firma   = GVFirma
                            AND   Umsatz.Ums_Art = "TOTAL" NO-LOCK.
                CREATE  TUmsatz.
                BUFFER-COPY Umsatz TO TUmsatz.
            END.
        END.
        
    END CASE.
    
    FOR EACH Aufko USE-INDEX Aufko-k1
            WHERE Aufko.Firma = GVFirma
            AND   NOT Aufko.AlsOfferte NO-LOCK:
        IF Aufko.Fak_Datum = ? THEN LVDat = Aufko.Lief_Datum.
        ELSE                        LVDat = Aufko.Fak_Datum.
        IF LVDat = ? THEN LVDat = TODAY.
        
        i1 = YEAR (LVDat).
        i2 = MONTH(LVDat).
        
        FIND TUmsatz USE-INDEX Umsatz-k1
                     WHERE TUmsatz.Firma    = Aufko.Firma
                     AND   TUmsatz.Ums_Art  = 'TOTAL'
                     AND   TUmsatz.Jahr     = i1
                     AND   TUmsatz.Grp_01   = 0 NO-ERROR.
        IF NOT AVAILABLE TUmsatz THEN DO:
            CREATE  TUMsatz.
            ASSIGN  TUmsatz.Firma    = Aufko.Firma
                    TUmsatz.Ums_Art  = 'TOTAL'
                    TUmsatz.Jahr     = i1
                    TUmsatz.Grp_01   = 0.
        END.
        
        FOR EACH Aufze OF Aufko NO-LOCK:
            IF Aufze.Artnr = 0 THEN NEXT.
            TUmsatz.VP_Mon[i2] = TUmsatz.VP_Mon[i2]
                               + Aufze.Net_Betr
                               - Aufze.Auf_Rab
                               - Aufze.Abh_Rab
                               - Aufze.Auf_Sp_Rab.
            TUmsatz.VP_Kum     = TUmsatz.VP_Kum
                               + Aufze.Net_Betr
                               - Aufze.Auf_Rab
                               - Aufze.Abh_Rab
                               - Aufze.Auf_Sp_Rab.
            TUmsatz.EP_Mon[i2] = TUmsatz.EP_Mon[i2]
                               + ( Aufze.MGeli * Aufze.Ep ).
            TUmsatz.EP_Kum     = TUmsatz.EP_Kum
                               + ( Aufze.MGeli * Aufze.Ep ).
        END.
    END.
    
    OPEN QUERY {&BROWSE-NAME}
         FOR EACH TUmsatz USE-INDEX Umsatz-k1 NO-LOCK.

END.

END PROCEDURE.

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

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

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

  /* For each requested table, put it's ROWID in the output list.      */
  {src/adm/template/snd-list.i "TUmsatz"}

  /* Deal with any unexpected table requests before closing.           */
  {src/adm/template/snd-end.i}

END PROCEDURE.

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

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

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