Index: Prod/GAMeta/BT/LadeCode.cls.xml
===================================================================
diff -u -r2 -r504
--- Prod/GAMeta/BT/LadeCode.cls.xml	(.../LadeCode.cls.xml)	(revision 2)
+++ Prod/GAMeta/BT/LadeCode.cls.xml	(.../LadeCode.cls.xml)	(revision 504)
@@ -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>