Index: EWTOE.mac.rou
===================================================================
diff -u -r4548 -r4734
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 4548)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 4734)
@@ -202,7 +202,6 @@
  ...Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr)
  ...//Backorder lijn aangemaakt
  ...Do ProductOrderLijnGemaakt^FLOWORD2(KLNr,ORDNr,OLNr)
- ...Do InvoerUitvoerLinkAangemaakt^FLOWTOE2(LEVNr,TOENr,TLNr)
  ...If $D(^KTOK(LEVNr,TOENr,TLNr)) Set $P(^KTOK(LEVNr,TOENr,TLNr),D,5)=OLNr
  ...Set Rec=^KTO(LEVNr,TOENr,TLNr)
  ...New r Set r=$P(Rec,D,28),$P(r,";")=OLNr,$P(Rec,D,28)=r
@@ -232,6 +231,7 @@
  ..Set OLUNr=$P(Rec,D,15)
  ..If LEVNr=$$$LevHalux Do:OLUNr MergeOLUNrs^FLOWORD6(ORDNr,OLUNr)
  .Do REMOVE^vhLock("^KOD(KLNr,""F"",ORDNr)")
+ .If AantBo Do InvoerUitvoerLinkAangemaakt^FLOWTOE2(LEVNr,TOENr,TLNr)
  Do REMOVE^vhLock("^KPR(PRNr)")
  Do REMOVE^vhLock("^KTO(LEVNr,TOENr)")
  Quit
@@ -672,3 +672,6 @@
 UPAANTNOK ;"Aantal in toelevering te weinig "_TOENr_";"_TLUNr_" "_TAantal_" - "_Aantal
 UPTRAP ;"TRAP "_TOENr_";"_TLUNr_";"_Error
  ;
+
+
+