Index: EWTOE.mac.rou =================================================================== diff -u -r2782 -r2960 --- EWTOE.mac.rou (.../EWTOE.mac.rou) (revision 2782) +++ EWTOE.mac.rou (.../EWTOE.mac.rou) (revision 2960) @@ -224,6 +224,7 @@ ..Set $P(Rec,D,27,28)="\KOM" ..Set ^KOD(KLNr,"F",ORDNr,OLNr)=Rec ..Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr) + ..Do ProductOrderLijnGewijzigd^FLOWORD2(KLNr,ORDNr,OLNr,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal()) ..Do:ASAP ASAP(ORDNr,NoAsk) ..Set OLUNr=$P(Rec,D,15) ..If LEVNr=$$$LevHalux Do:OLUNr MergeOLUNrs^FLOWORD6(ORDNr,OLUNr)