| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980 |
- 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.
|
