FOR EACH TUmsatz BREAK BY TUmsatz.Knr
                           BY TUmsatz.Wgr:
        IF FIRST-OF (TUmsatz.Wgr) THEN DO:
            RUN FIND_WARENGRP ( INPUT TUmsatz.Wgr, OUTPUT xWgr ).
            IF xWgr = '?' THEN xWgr = '??????????'.
            ELSE               xWgr = ENTRY(2, xWgr, CHR(01)).
        END.
        FIND FIRST gUmsatz
                WHERE gUmsatz.Knr = TUmsatz.Knr
                AND   gUmsatz.Wgr = TUmsatz.Wgr NO-ERROR.
        IF NOT AVAILABLE gUmsatz THEN DO:
            CREATE  gUmsatz.
            ASSIGN  gUmsatz.Knr     = TUmsatz.Knr
                    gUmsatz.Wgr     = TUmsatz.Wgr
                    gUmsatz.Adresse = TUmsatz.Adresse
                    gUmsatz.cWgr    = xWgr.
        END.
        ASSIGN  gUmsatz.Me_Lf = gUmsatz.Me_Lf + TUmsatz.Me_Lf
                gUmsatz.Li_Lf = gUmsatz.Li_Lf + TUmsatz.Li_Lf
                gUmsatz.Ep_Lf = gUmsatz.Ep_Lf + TUmsatz.Ep_Lf
                gUmsatz.Vp_Lf = gUmsatz.Vp_Lf + TUmsatz.Vp_Lf
                gUmsatz.Me_Vj = gUmsatz.Me_Vj + TUmsatz.Me_Vj
                gUmsatz.Li_Vj = gUmsatz.Li_Vj + TUmsatz.Li_Vj
                gUmsatz.Ep_Vj = gUmsatz.Ep_Vj + TUmsatz.Ep_Vj
                gUmsatz.Vp_Vj = gUmsatz.Vp_Vj + TUmsatz.Vp_Vj.
        FIND FIRST gUmsatz
                WHERE gUmsatz.Knr = 9999999
                AND   gUmsatz.Wgr = TUmsatz.Wgr NO-ERROR.
        IF NOT AVAILABLE gUmsatz THEN DO:
            CREATE  gUmsatz.
            ASSIGN  gUmsatz.Knr     = 9999999
                    gUmsatz.Wgr     = TUmsatz.Wgr
                    gUmsatz.Adresse = 'Total Warengruppe'
                    gUmsatz.cWgr    = xWgr.
        END.
        ASSIGN  gUmsatz.Me_Lf = gUmsatz.Me_Lf + TUmsatz.Me_Lf
                gUmsatz.Li_Lf = gUmsatz.Li_Lf + TUmsatz.Li_Lf
                gUmsatz.Ep_Lf = gUmsatz.Ep_Lf + TUmsatz.Ep_Lf
                gUmsatz.Vp_Lf = gUmsatz.Vp_Lf + TUmsatz.Vp_Lf
                gUmsatz.Me_Vj = gUmsatz.Me_Vj + TUmsatz.Me_Vj
                gUmsatz.Li_Vj = gUmsatz.Li_Vj + TUmsatz.Li_Vj
                gUmsatz.Ep_Vj = gUmsatz.Ep_Vj + TUmsatz.Ep_Vj
                gUmsatz.Vp_Vj = gUmsatz.Vp_Vj + TUmsatz.Vp_Vj.
        FIND FIRST gUmsatz
                WHERE gUmsatz.Knr = TUmsatz.Knr
                AND   gUmsatz.Wgr = 999 NO-ERROR.
        IF NOT AVAILABLE gUmsatz THEN DO:
            CREATE  gUmsatz.
            ASSIGN  gUmsatz.Knr     = TUmsatz.Knr
                    gUmsatz.Wgr     = 999
                    gUmsatz.Adresse = TUmsatz.Adresse
                    gUmsatz.cWgr    = ''.
        END.
        ASSIGN  gUmsatz.Me_Lf = gUmsatz.Me_Lf + TUmsatz.Me_Lf
                gUmsatz.Li_Lf = gUmsatz.Li_Lf + TUmsatz.Li_Lf
                gUmsatz.Ep_Lf = gUmsatz.Ep_Lf + TUmsatz.Ep_Lf
                gUmsatz.Vp_Lf = gUmsatz.Vp_Lf + TUmsatz.Vp_Lf
                gUmsatz.Me_Vj = gUmsatz.Me_Vj + TUmsatz.Me_Vj
                gUmsatz.Li_Vj = gUmsatz.Li_Vj + TUmsatz.Li_Vj
                gUmsatz.Ep_Vj = gUmsatz.Ep_Vj + TUmsatz.Ep_Vj
                gUmsatz.Vp_Vj = gUmsatz.Vp_Vj + TUmsatz.Vp_Vj.
        FIND FIRST gUmsatz
                WHERE gUmsatz.Knr = 9999999
                AND   gUmsatz.Wgr = 999 NO-ERROR.
        IF NOT AVAILABLE gUmsatz THEN DO:
            CREATE  gUmsatz.
            ASSIGN  gUmsatz.Knr     = 9999999
                    gUmsatz.Wgr     = 999
                    gUmsatz.Adresse = 'Gesamttotal'
                    gUmsatz.cWgr    = ''.
        END.
        ASSIGN  gUmsatz.Me_Lf = gUmsatz.Me_Lf + TUmsatz.Me_Lf
                gUmsatz.Li_Lf = gUmsatz.Li_Lf + TUmsatz.Li_Lf
                gUmsatz.Ep_Lf = gUmsatz.Ep_Lf + TUmsatz.Ep_Lf
                gUmsatz.Vp_Lf = gUmsatz.Vp_Lf + TUmsatz.Vp_Lf
                gUmsatz.Me_Vj = gUmsatz.Me_Vj + TUmsatz.Me_Vj
                gUmsatz.Li_Vj = gUmsatz.Li_Vj + TUmsatz.Li_Vj
                gUmsatz.Ep_Vj = gUmsatz.Ep_Vj + TUmsatz.Ep_Vj
                gUmsatz.Vp_Vj = gUmsatz.Vp_Vj + TUmsatz.Vp_Vj.
    END.