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