GeMIS_WEB/GUI/Tools/UmsatzUmbuchenKnr2FakKnr.p

DEF VAR ii      AS INT                      NO-UNDO.

DEF BUFFER bDebUms      FOR DebUms     .
DEF BUFFER bDeArUms     FOR DeArUms    .

FOR EACH Savko NO-LOCK
        WHERE Savko.Firma      = '1000'
        AND   Savko.Fak_Datum >= 01/01/2016
        AND   Savko.Fak_Knr   <> Savko.Knr
        
        BREAK BY Savko.Firma
              BY Savko.Knr:
                  
   IF NOT FIRST-OF ( Savko.Knr ) THEN NEXT.
   
   FOR EACH DebUms
            WHERE DebUms.Firma = Savko.Firma
            AND   DebUms.Jahr >= 2016
            AND   DebUms.Knr   = Savko.Knr:
        FIND bDebUms
                WHERE bDebUms.Firma   = Savko.Firma
                AND   bDebUms.Jahr    = DebUms.Jahr
                AND   bDebUms.Knr     = Savko.Fak_Knr
                AND   bDebUms.Ums_Grp = DebUms.Ums_Grp NO-ERROR.
        IF NOT AVAILABLE bDebUms THEN DO:
            CREATE  bDebUms.
            ASSIGN  bDebUms.Firma   = Savko.Firma
                    bDebUms.Jahr    = DebUms.Jahr
                    bDebUms.Knr     = Savko.Fak_Knr
                    bDebUms.Ums_Grp = DebUms.Ums_Grp.
        END.
        DO ii = 1 TO 12:
            ASSIGN   bDebUms.Ep_Mon[ii] = bDebUms.Ep_Mon[ii] + DebUms.Ep_Mon[ii]
                     bDebUms.Me_Mon[ii] = bDebUms.Me_Mon[ii] + DebUms.Me_Mon[ii]
                     bDebUms.Vp_Mon[ii] = bDebUms.Vp_Mon[ii] + DebUms.Vp_Mon[ii].
        END.
        ASSIGN  bDebUms.Ep_Kum = bDebUms.Ep_Kum + DebUms.Ep_Kum
                bDebUms.Me_Kum = bDebUms.Me_Kum + DebUms.Me_Kum
                bDebUms.Vp_Kum = bDebUms.Vp_Kum + DebUms.Vp_Kum.
        DELETE  DebUms.
    END.
    
   FOR EACH DeArUms
            WHERE DeArUms.Firma = Savko.Firma
            AND   DeArUms.Jahr >= 2016
            AND   DeArUms.Knr   = Savko.Knr:
        FIND bDeArUms
                WHERE bDeArUms.Firma   = Savko.Firma
                AND   bDeArUms.Jahr    = DeArUms.Jahr
                AND   bDeArUms.Knr     = Savko.Fak_Knr
                AND   bDeArUms.Artnr   = DeArUms.Artnr
                AND   bDeArUms.Inhalt  = DeArUms.Inhalt
                AND   bDeArUms.Jahrg   = DeArUms.Jahrg NO-ERROR.
        IF NOT AVAILABLE bDeArUms THEN DO:
            CREATE  bDeArUms.
            ASSIGN  bDeArUms.Firma   = Savko.Firma
                    bDeArUms.Jahr    = DeArUms.Jahr
                    bDeArUms.Knr     = Savko.Fak_Knr
                    bDeArUms.Artnr   = DeArUms.Artnr
                    bDeArUms.Inhalt  = DeArUms.Inhalt
                    bDeArUms.Jahrg   = DeArUms.Jahrg NO-ERROR.
        END.
        DO ii = 1 TO 12:
            ASSIGN   bDeArUms.Ep_Mon[ii] = bDeArUms.Ep_Mon[ii] + DeArUms.Ep_Mon[ii]
                     bDeArUms.Me_Mon[ii] = bDeArUms.Me_Mon[ii] + DeArUms.Me_Mon[ii]
                     bDeArUms.Li_Mon[ii] = bDeArUms.Li_Mon[ii] + DeArUms.Li_Mon[ii]
                     bDeArUms.Vp_Mon[ii] = bDeArUms.Vp_Mon[ii] + DeArUms.Vp_Mon[ii].
        END.
        ASSIGN  bDeArUms.Ep_Kum = bDeArUms.Ep_Kum + DeArUms.Ep_Kum
                bDeArUms.Me_Kum = bDeArUms.Me_Kum + DeArUms.Me_Kum
                bDeArUms.Li_Kum = bDeArUms.Li_Kum + DeArUms.Li_Kum
                bDeArUms.Vp_Kum = bDeArUms.Vp_Kum + DeArUms.Vp_Kum.
        DELETE  DeArUms.
    END.
    
END.