Index: FLOWTOER.mac.rou
===================================================================
diff -u -r2782 -r3289
--- FLOWTOER.mac.rou	(.../FLOWTOER.mac.rou)	(revision 2782)
+++ FLOWTOER.mac.rou	(.../FLOWTOER.mac.rou)	(revision 3289)
@@ -144,6 +144,7 @@
  Quit:R'="V"
  For  Do ADD^vhLock("^KPR(PRNr)") Quit:%TC  Do LDISP^vhLock("^KPR(PRNr)","Produkt "_$P(^KPR(PRNr,0),D))
  Do KWNODE^FLOWTOE(LEVNr,TOENr,TLLNr)
+ Do InvoerUitvoerLinkVerbroken^FLOWTOE2(LEVNr,TOENr,TLLNr)
  Set Rec=^KTO(LEVNr,TOENr,TLLNr),$P(Rec,D,27,28)=D,^KTO(LEVNr,TOENr,TLLNr)=Rec
  Do SWNODE^FLOWTOE(LEVNr,TOENr,TLLNr)
  For  Do ADD^vhLock("^KOD(KLNr,""F"",ORDNr)") Quit:%TC  Do LDISP^vhLock("^KOD(KLNr,""F"",ORDNr)","Order "_ORDNr)
@@ -208,7 +209,7 @@
  ;
 RCVLINE(TOENr,TLLNr,Receive,BackOrd) 
  New %TC,R,Rec,LEVNr,PRNr,ABLNr,Besteld,KLNr,ORDNr,OLNr,OLUNr,RDate,PR,CifPPL,ASAP
- New LijstPr,LevTA,LevTB,LevTW,IDNr,Decimals,IsEuro,TLUNr,IsWerkVl,DefMag,RTemp
+ New LijstPr,LevTA,LevTB,LevTW,IDNr,Decimals,IsEuro,TLUNr,IsWerkVl,DefMag,RTemp,OldAantal
  Do COPY^EWTOE(TOENr)
  Set LEVNr=$P($G(^KTO1(TOENr)),D) Quit:'LEVNr
  Set Rec=^KTO(LEVNr,TOENr,TLLNr),(PRNr,PR)=$P(Rec,D,2) Quit:'PRNr
@@ -253,16 +254,16 @@
  .Set KLNr=$P(^KO1(ORDNr,"F"),D)
  .For  Do ADD^vhLock("^KOD(KLNr,""F"",ORDNr)") Quit:%TC  Do LDISP^vhLock("^KOD(KLNr,""F"",ORDNr)","Order "_ORDNr)
  .Do KWNODE^FLOWORD(KLNr,ORDNr,OLNr)
- .Set Rec=^KOD(KLNr,"F",ORDNr,OLNr)
- .Quit:'$P(Rec,D,3)
+ .Set Rec=^KOD(KLNr,"F",ORDNr,OLNr),OldAantal=$P(Rec,D,3)
+ .Quit:'OldAantal
  .Set ASAP=$P(^KOD(KLNr,"F",ORDNr,1),D,28)
  .Set $P(Rec,D,9)=$J(($P(Rec,D,9)/$P(Rec,D,3)*Receive),0,2)
  .Set $P(Rec,D,10)=$J(($P(Rec,D,10)/$P(Rec,D,3)*Receive),0,2)
  .Set $P(Rec,D,16)=$J(($P(Rec,D,16)/$P(Rec,D,3)*Receive),0,2)
  .Set $P(Rec,D,3)=Receive,$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:Receive'=OldAantal ProductOrderLijnGewijzigd^FLOWORD2(KLNr,ORDNr,OLNr,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
  .Do:ASAP ASAP^EWTOE(ORDNr)
  .Set OLUNr=$P(Rec,D,15)
  .If LEVNr=$$$LevHalux Do:OLUNr MergeOLUNrs^FLOWORD6(ORDNr,OLUNr)
@@ -275,6 +276,7 @@
  .Set $P(Rec,D,3)=BackOrd
  .Set ^KTO(LEVNr,TOENr,TLLNr)=Rec
  .Do SWNODE^FLOWTOE(LEVNr,TOENr,TLLNr)
+ .Do ProductToeleveringLijnGewijzigd^FLOWTOE2(LEVNr,TOENr,TLLNr,##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Aantal())
  .If ORDNr Do
  ..Quit:'$D(^KO1(ORDNr,"F"))
  ..For  Do ADD^vhLock("^KOD(KLNr,""F"",ORDNr)") Quit:%TC  Do LDISP^vhLock("^KOD(KLNr,""F"",ORDNr)","Order "_ORDNr)