Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r4590 -r4990
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 4590)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 4990)
@@ -378,6 +378,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsGeldigeLadecodeVoorDesign">
+<Description>
+Oproepen via  
+  s bln=##class(BL.PR.GA.TandemBox).IsGeldigeLadecodeVoorDesign("DM/Z","WA") </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LadeCodeID:%String,DesignID:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set LadeCode=##class(Prod.GAMeta.BT.LadeCode).%OpenId(LadeCodeID)
+	Quit LadeCode.IsGeldigVoorDesign(DesignID)
+]]></Implementation>
+</Method>
+
 <Method name="BuildBeperkTPCode">
 <Description>
 Bouwt een array op van de TBDesign-elementen met de BeperkTemplateCode.
Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r1807 -r4990
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 1807)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 4990)
@@ -3315,13 +3315,15 @@
  ;=============================================================================
 
 gbeLCodeIDsFromBasis
- new lbKenm,lbCrit,Key,i,BTVal,blnAccept,LCodeID,lbIDs
+ new lbKenm,lbCrit,Key,i,BTVal,blnAccept,LCodeID,lbIDs,DS
  Set lbKenm=""
  Do gbeAddTolbKenm("TBKlasse")
  Do gbeAddTolbKenm("TBGlijderType")
  Do gbeAddTolbKenm("TBLadeType")
  Do gbeAddTolbKenm("TBZijwand")
  Do gbeAddTolbKenm("TBRugHoogte")
+ 
+ Set DS=..blTBox.BTValues.GetAt("TBDesign")
 
  ; Volgend algoritme is analoog aan de BeperkViaKenmerk() methods.
  Set lbIDs=""
@@ -3333,11 +3335,11 @@
  ..  If $G(..blTBox.LookUp("LCodeLU",LCodeID,$LI(lbCrit,1)))'=$LI(lbCrit,2) Do
  ...   Set blnAccept=0
  ...   Set i=$LL(lbKenm)   ; Quit For immediatly
+ . Set blnAccept = (blnAccept) && (##class(BL.PR.GA.TandemBox).IsGeldigeLadecodeVoorDesign(LCodeID,DS))
  . Set:(blnAccept) lbIDs=lbIDs_$LB(LCodeID)
 
  ; Set LCodeIDs:
  Do:($LL(lbIDs)=1) ..cboLadeCode.SelectByKey($LI(lbIDs,1))
- ;Do ..CtrlFillLadeCodeLB(lbIDs)
  Quit
 
 gbeAddTolbKenm(BT)
Index: Prod/GAMeta/BT/LadeCode.cls.xml
===================================================================
diff -u -r1074 -r4990
--- Prod/GAMeta/BT/LadeCode.cls.xml	(.../LadeCode.cls.xml)	(revision 1074)
+++ Prod/GAMeta/BT/LadeCode.cls.xml	(.../LadeCode.cls.xml)	(revision 4990)
@@ -48,6 +48,24 @@
 <Unique>0</Unique>
 </Index>
 
+<Method name="IsGeldigVoorDesign">
+<FormalSpec>DesignID:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#define WrapDelimiter(%v)   (";"_%v_";")
+
+	Set IsGeldig=0
+	If ..BeperkDesign="*" {
+		Set IsGeldig=1
+	}
+	ElseIf ($$$WrapDelimiter(..BeperkDesign)) [ ($$$WrapDelimiter(DesignID))  {
+		Set IsGeldig=1
+	}
+	Quit IsGeldig
+]]></Implementation>
+</Method>
+
 <Method name="ExtentSortClose">
 <Final>0</Final>
 <ClassMethod>1</ClassMethod>