Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r547 -r553
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 547)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 553)
@@ -507,7 +507,7 @@
 bfwCalcProdStdL
  New VKPrs
  If OrdStdL="LoadMeNow" Do   ; Execute only once
- . Set OrdStdL=$$bfwGetStdLadeOrder(sDomKLNr)   ; ($S(sDomVERW="HEIN":sDomKLNr, 1:""))
+ . Set OrdStdL=$$bfwGetStdLadeOrder(sDomKLNr,WSLn.ItemDS)   ; ($S(sDomVERW="HEIN":sDomKLNr, 1:""))
  . Do:(OrdStdL) OrdStdL.DataArrayFromWS(.arWSStdL)
  Set VKPrs=""
  Set:(OrdStdL) VKPrs=$$bfwGetPrijsFromMatchLn(WSLn, .arWSStdL)
@@ -523,9 +523,9 @@
  .   ;d TTrace("WSOrd ln("_i_"): "_$C(13,10)_"Std Lade")
  d WL^vhDBG("Tijd voor StdLade matchLn : "_$$RestartTimer^vhLib)
  Quit
-bfwGetStdLadeOrder(KLNr)
+bfwGetStdLadeOrder(KLNr,TBDesign)
  New wsID
- Set wsID=##class(cspBasis.GAProdTBox).WSOrderIDStdLadeViaKLNr(KLNr)
+ Set wsID=##class(cspBasis.GAProdTBox).WSOrderIDStdLadeViaKLNr(KLNr,TBDesign)
  Quit:($L(wsID)) ##class(WS.TBX.Order).%OpenId(wsID)
  Quit ""
 bfwGetPrijsFromMatchLn(WSLn,arWSStdL)
@@ -565,4 +565,4 @@
 	d TTrace(.msg)
 	;w msg,!
 	Quit
- 
\ No newline at end of file
+