GeMIS_WEB/GUI/Tools/UmsatzKontrolle.p

def var ww      as dec                      no-undo.
def var mwst    as dec                      no-undo.
def var rec     as dec                      no-undo.
def var geb     as dec                      no-undo. 
def var netto   as dec                      no-undo.
 
FOR EACH Savko NO-LOCK
        WHERE Savko.Firma      = '2000'
        AND   Savko.Fak_Datum >= 06/01/2015
        AND   Savko.Fak_Datum <= 06/30/2015:
    FOR EACH Savze NO-LOCK
            WHERE Savze.Firma = Savko.Firma
            AND   Savze.Aufnr = Savko.Aufnr
            AND   Savze.Artnr > 0:

        netto = savze.Net_Betr - savze.Auf_Rab - savze.abh_rab - savze.auf_sp_rab.
        if Savze.Mwst_inkl then netto = netto / (100 + savze.Mwst%) * 100.
        ww   = ww   + netto.
        mwst = mwst + (netto * savze.Mwst% / 100).
    END.
    
    FOR EACH SavGKon NO-LOCK
            WHERE SavGKon.Firma = Savko.Firma
            AND   SavGKon.Aufnr = Savko.Aufnr:
        FIND FIRST Wust NO-LOCK USE-INDEX Wust-k2
                WHERE Wust.WuCd  = SavGKon.Mwst_Cd
                AND   Wust.CodeK < 12
                AND   Wust.CodeA < 12.
                
        FIND LAST MwstAns NO-LOCK
                WHERE MwstAns.Mwst_cd  = Wust.Wucd
                AND   MwstAns.datum   <= Savko.Fak_Datum.
                
        IF NOT Wust.Incl THEN DO:
            IF SavGKon.Gebuehr <> 0 THEN rec = rec + SavGKon.Betrag.
            ELSE                         geb = geb + SavGKon.Betrag.
            mwst = mwst + (SavGKon.Betrag * MwstAns.Ansatz / 100).
        END.
        ELSE DO:
            Netto = SavGKon.Betrag / (100 + MwstAns.Ansatz) * 100.
            IF SavGKon.Gebuehr <> 0 THEN rec = rec + netto.
            ELSE                         geb = geb + netto.
            mwst = mwst + (SavGKon.Betrag - netto).
        END.
    END.
END.

message 'Warenwert = ' ww   SKIP
        'Recycling = ' rec  SKIP
        'Gebinde   = ' geb  SKIP
        'Mehrwert  = ' mwst VIEW-AS ALERT-BOX.