Index: EWTOE.mac.rou
===================================================================
diff -u -r2985 -r3289
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 2985)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 3289)
@@ -137,7 +137,7 @@
  Quit
  ;
 TOELINE(RCPNr,TOENr,TLUNr,RCPODate,AantWMS,AantBo,HistRef,NoAsk,WMS,OverKind)
- New R,Rec,LEVNr,TLNr,PRNr,ABLNr,Besteld,KLNr,ORDNr,OLNr,OLUNr,CifPPL,LevTA,LevTB,LevTW,RCPDate,Decimals,RCPPRNr,ZRRCP,ZRKTO,ASAP,LevRef,BLKLNr,BLFactuurNr,BLFactuurDatum,TOEPRNr,ORDPRNr
+ New R,Rec,LEVNr,TLNr,PRNr,ABLNr,Besteld,KLNr,ORDNr,OLNr,OLUNr,CifPPL,LevTA,LevTB,LevTW,RCPDate,Decimals,RCPPRNr,ZRRCP,ZRKTO,ASAP,LevRef,BLKLNr,BLFactuurNr,BLFactuurDatum,TOEPRNr,ORDPRNr,OldAantal
  Set RCPODate=$G(RCPODate,$H),OverKind=$G(OverKind)
  Do COPY(TOENr)
  Set LEVNr=$P($G(^KTO1(TOENr)),D) Quit:'LEVNr
@@ -164,6 +164,7 @@
  Set CifPPL=$$CifPPL(PRNr)
  Do HIST(LEVNr,TOENr,TLUNr,PRNr,AantWMS,RCPODate,HistRef,.WMS,,,OverKind)
  Do KWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
+ Do ProductToeleveringLijnIngeboekt^EWRCPS2(LEVNr,TOENr,TLNr)
  For  Do ADD^vhLock("^KSPW(PRNr)") Quit:%TC  Hang 1
  Set Decimals=$$MUNT^vhRtn1(,4),R=TOENr
  For  Quit:'$D(^KSPW(PRNr,LevTW,R))  Set R=R+.1
@@ -182,6 +183,7 @@
  ..Set:ORDPRNr'=TOEPRNr $P(Rec,D,27,28)=D
  .Set ^KTO(LEVNr,TOENr,TLNr)=Rec
  .Do SWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
+ .Do ProductToeleveringLijnGemaakt^FLOWTOE2(LEVNr,TOENr,TLNr)
  .If ORDNr Do
  ..Quit:'$D(^KO1(ORDNr,"F"))
  ..Set KLNr=$P(^KO1(ORDNr,"F"),D)
@@ -212,19 +214,19 @@
  ..If NoAsk Hang 5
  ..Else  Do LDISP^vhLock("^KOD(KLNr,""F"",ORDNr)","Order "_ORDNr)
  .Do KWNODE^FLOWORD(KLNr,ORDNr,OLNr)
- .Set Rec=^KOD(KLNr,"F",ORDNr,OLNr),ORDPRNr=$P(Rec,D,2)
- .Do:$P(Rec,D,3)
+ .Set Rec=^KOD(KLNr,"F",ORDNr,OLNr),ORDPRNr=$P(Rec,D,2),OldAantal=$P(Rec,D,3)
+ .Do:OldAantal
  ..Set ASAP=$P(^KOD(KLNr,"F",ORDNr,1),D,28)
  ..Do:ORDPRNr=TOEPRNr
  ...Set AantWMS=$$WijzigAantalIndienKind(AantWMS,PRNr,ORDPRNr)
- ...Set $P(Rec,D,9)=$J(($P(Rec,D,9)/$P(Rec,D,3)*AantWMS),0,2)
- ...Set $P(Rec,D,10)=$J(($P(Rec,D,10)/$P(Rec,D,3)*AantWMS),0,2)
- ...Set $P(Rec,D,16)=$J(($P(Rec,D,16)/$P(Rec,D,3)*AantWMS),0,2)
+ ...Set $P(Rec,D,9)=$J(($P(Rec,D,9)/OldAantal*AantWMS),0,2)
+ ...Set $P(Rec,D,10)=$J(($P(Rec,D,10)/OldAantal*AantWMS),0,2)
+ ...Set $P(Rec,D,16)=$J(($P(Rec,D,16)/OldAantal*AantWMS),0,2)
  ...Set $P(Rec,D,3)=AantWMS
  ..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:OldAantal'=$P(Rec,D,3) 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)