Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r819 -r828
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 819)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 828)
@@ -51,7 +51,7 @@
 	Set OrderDesignID=WS.Lijnen.GetNext("").ItemDS   ; Get design from first line - it shoud be the same for all other 
 	If OrderDesignID="" Do
 	. Set blnCheckDesign=(BeperkDesignCode="")
-	. Set OrderDesignID=..DesignFromLadeKleur(WSLn.ItemKL,"")
+	. Set OrderDesignID=..DesignFromLadeKleur(klID,BeperkDesignCode)
 	Else  If $L(BeperkDesignCode) Do   ;  !!!  TEMPORARY PATCH  for F-Design  !!!      (added by WimV on 13/03/2009)
 	. Set blnCheckDesign=0
 	. Set OrderDesignID=..DesignFromLadeKleur(klID,BeperkDesignCode)