Index: FLOWORD.mac.rou
===================================================================
diff -u -r1733 -r2015
--- FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 1733)
+++ FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 2015)
@@ -443,6 +443,8 @@
  {
 	 Set BesteldProduct = BesteldeProductenIterator.Next()
 	 Do PINSERT("","",BesteldProduct.GeefPRNr(),BesteldProduct.GeefAantal())
+	 Set OLNr=Detail(@DL(1)@(6))
+	 Set $Piece(^KOD(KLNr,"F",ORDNr,OLNr),"\",5) = BesteldProduct.GeefProjectReferentie()
  }
  
  Do BesteldeProducten.%DeleteId(BesteldeProducten.%Id())