Index: cspBasis/GAProdTBox/tmpDev.mac.rou
===================================================================
diff -u -r549 -r553
--- cspBasis/GAProdTBox/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 549)
+++ cspBasis/GAProdTBox/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 553)
@@ -10,10 +10,10 @@
  Quit
  
  
-StdLadeArray(KLNr,arStdL)   ; Parameters:KLNr,arStdL  (arStdL als .local doorgeven)
+StdLadeArray(KLNr,TBDesign,arStdL)   ; Parameters:KLNr,arStdL  (arStdL als .local doorgeven)
  Kill arStdL
  New wsID,WSOrd,i,tmpAr,arWSStdL,arMDRow,lbNoMatch,MatchResult,node,NoMTransl
- Set wsID=##class(cspBasis.GAProdTBox).WSOrderIDStdLadeViaKLNr(KLNr)
+ Set wsID=##class(cspBasis.GAProdTBox).WSOrderIDStdLadeViaKLNr(KLNr,TBDesign)
  Set WSOrd=""
  Set:($L(wsID)) WSOrd=##class(WS.TBX.Order).%OpenId(wsID)
  Set:('WSOrd) arStdL=##class(cspBasis.GAProdTBox).WebTextValue("StdLNoVERW",Taal,"O")_"."   ; "Geen Standaard Laden (uit stock) voor deze verwerker." 
Index: WS/TBX/KlantSpecifiekeStandaardLade.cls.xml
===================================================================
diff -u -r230 -r553
--- WS/TBX/KlantSpecifiekeStandaardLade.cls.xml	(.../KlantSpecifiekeStandaardLade.cls.xml)	(revision 230)
+++ WS/TBX/KlantSpecifiekeStandaardLade.cls.xml	(.../KlantSpecifiekeStandaardLade.cls.xml)	(revision 553)
@@ -6,19 +6,26 @@
 <Super>%Persistent</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Index name="KlantID">
-<Properties>KlantID</Properties>
-<Unique>1</Unique>
-</Index>
-
 <Property name="KlantID">
 <Type>%String</Type>
 </Property>
 
+<Property name="TBDesign">
+<Description>
+ID van Prod.GAMeta.BT.TBDesign</Description>
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
 <Property name="OrderID">
 <Type>WS.TBX.Order</Type>
 </Property>
 
+<Index name="idxKlantEnDesign">
+<Properties>KlantID,TBDesign</Properties>
+<Unique>1</Unique>
+</Index>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^WS.TBX.KlantSpecifiAFAD</DataLocation>
@@ -38,6 +45,9 @@
 <Value name="3">
 <Value>OrderID</Value>
 </Value>
+<Value name="4">
+<Value>TBDesign</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r549 -r553
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 549)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 553)
@@ -1413,19 +1413,19 @@
 Met GetSet="SET" wordt het ID van het WSOrd met definities van de Standaard-laden voor KLNr opgeslagen in de global.
 Met GetSet="GET" (default) geeft de method het ID terug.</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>KLNr:%String,GetSet:%String="GET",newID:%String</FormalSpec>
+<FormalSpec>KLNr:%String,TBDesign:%String,GetSet:%String="GET",newID:%String</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set OrderID = ""
 	if GetSet="GET" {
-		set rsKlantSpecifiekeStandaardLade = $$ExecDynQuery^vhQUERYLIB("SELECT OrderID FROM WS_TBX.KlantSpecifiekeStandaardLade WHERE KlantID = ?",$listbuild(KLNr))
+		set rsKlantSpecifiekeStandaardLade = $$ExecDynQuery^vhQUERYLIB("SELECT OrderID FROM WS_TBX.KlantSpecifiekeStandaardLade WHERE (KlantID = ?) and (TBDesign = ?) ",$listbuild(KLNr,TBDesign))
 		while rsKlantSpecifiekeStandaardLade.Next() {
 			set OrderID = rsKlantSpecifiekeStandaardLade.Get("OrderID")
 		}
 	} else {
-		do ExecDynQuery^vhQUERYLIB("DELETE FROM WS_TBX.KlantSpecifiekeStandaardLade WHERE KlantID = ?",$listbuild(KLNr))
-		do ExecDynQuery^vhQUERYLIB("INSERT INTO WS_TBX.KlantSpecifiekeStandaardLade (KlantID , OrderID) VALUES (?,?)",$listbuild(KLNr,newID))
+		do ExecDynQuery^vhQUERYLIB("DELETE FROM WS_TBX.KlantSpecifiekeStandaardLade WHERE (KlantID = ?) and (TBDesign = ?) ",$listbuild(KLNr,TBDesign))
+		do ExecDynQuery^vhQUERYLIB("INSERT INTO WS_TBX.KlantSpecifiekeStandaardLade (KlantID , OrderID, TBDesign) VALUES (?,?,?)",$listbuild(KLNr,newID,TBDesign))
 		set OrderID = newID
 	}
 	
@@ -1434,8 +1434,6 @@
 </Method>
 
 <Method name="OLProdCodeViaPRNr">
-<Description>
-Met GetSet="GET" (default) geeft de method het ID terug.</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
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
+