TRIGGER PROCEDURE FOR WRITE OF BesEing
    NEW BUFFER nBesEing
    OLD BUFFER oBesEing.
    
    FIND Besze
        WHERE Besze.Firma = nBesEing.Firma
        AND   Besze.Besnr = nBesEing.Besnr
        AND   Besze.Pos   = nBesEing.Pos.
    ASSIGN  Besze.Eingang = Besze.Eingang - oBesEing.Eingang + nBesEing.Eingang
            Besze.MRuek   = Besze.MRuek   + oBesEing.Eingang - nBesEing.Eingang
            Besze.GGeb_EG = Besze.GGeb_EG - oBesEing.GGeb_EG + nBesEing.GGeb_EG
            Besze.VGeb_EG = Besze.VGeb_EG - oBesEing.VGeb_EG + nBesEing.VGeb_EG
            Besze.KGeb_EG = Besze.KGeb_EG - oBesEing.KGeb_EG + nBesEing.KGeb_EG
            .