صفحهٔ اصلی گشت‌و‌گذار راهنما
ثبت نام ورود
AnalytikDataPRiME
/
GeMIS_WEB
3
0
انشعاب 0
پرونده‌ها مشکلات 0 درخواست واکشی 0 ویکی
درخت: 5e9e701408
شاخه‌ها تگ‌ها
GeMIS_WEB
/
GUI
/
TRIGGERS
/
t-beseing-write.p

t-beseing-write.p 659 B
تاريخچه خام

123456789101112131415 
  1. TRIGGER PROCEDURE FOR WRITE OF BesEing
    2. 

  2.     NEW BUFFER nBesEing
    3. 

  3.     OLD BUFFER oBesEing.
    4. 

  4.     
    5. 

  5.     FIND Besze
    6. 

  6.         WHERE Besze.Firma = nBesEing.Firma
    7. 

  7.         AND   Besze.Besnr = nBesEing.Besnr
    8. 

  8.         AND   Besze.Pos   = nBesEing.Pos.
    9. 

  9.     ASSIGN  Besze.Eingang = Besze.Eingang - oBesEing.Eingang + nBesEing.Eingang
    10. 

  10.             Besze.MRuek   = Besze.MRuek   + oBesEing.Eingang - nBesEing.Eingang
    11. 

  11.             Besze.GGeb_EG = Besze.GGeb_EG - oBesEing.GGeb_EG + nBesEing.GGeb_EG
    12. 

  12.             Besze.VGeb_EG = Besze.VGeb_EG - oBesEing.VGeb_EG + nBesEing.VGeb_EG
    13. 

  13.             Besze.KGeb_EG = Besze.KGeb_EG - oBesEing.KGeb_EG + nBesEing.KGeb_EG
    14. 

  14.             .
    15. 

  15.         
    16.