Index: SGREEP.mac.rou =================================================================== diff -u -r2589 -r4782 --- SGREEP.mac.rou (.../SGREEP.mac.rou) (revision 2589) +++ SGREEP.mac.rou (.../SGREEP.mac.rou) (revision 4782) @@ -214,6 +214,7 @@ Do RECALC^PRODUKT2(NewPRNr) Do BLDIND^PRODUKT2(NewPRNr) Do ZEND^EWPR(NewPRNr) + Do Gemaakt^PRODUKT2(NewPRNr) Quit SetSchaduwPrijs(PRNr) @@ -540,4 +541,8 @@ . Kill:PRNr ^KTO3(TOENr,$P(Rec,D,13,14)_D_LNr) . Set $P(Rec,D,14)="",^KTO(LEVNr,TOENr,LNr)=Rec . Set:PRNr ^KTO3(TOENr,$P(Rec,D,13,14)_D_LNr)="" - Quit \ No newline at end of file + Quit + + + +