Index: Prod/GAMeta/BT/PlaatMat.cls.xml
===================================================================
diff -u -r2 -r504
--- Prod/GAMeta/BT/PlaatMat.cls.xml	(.../PlaatMat.cls.xml)	(revision 2)
+++ Prod/GAMeta/BT/PlaatMat.cls.xml	(.../PlaatMat.cls.xml)	(revision 504)
@@ -101,8 +101,8 @@
 <DataLocation>^Res.PI.Items("PR;GA;PM")</DataLocation>
 <DefaultData>PlaatMatDefaultData</DefaultData>
 <IdLocation>^Res.PI.Items("PR;GA;PM")</IdLocation>
-<IndexLocation>^Res.PI.Items("PR;GA;PMI")</IndexLocation>
-<StreamLocation>^Prod.GAM.PlaatMatS</StreamLocation>
+<IndexLocation>^Res.PI.Items("index","PR;GA;PM")</IndexLocation>
+<StreamLocation>^Res.PI.Items("stream","PR;GA;PM")</StreamLocation>
 <Data name="PlaatMatClassName">
 <Attribute>%%CLASSNAME</Attribute>
 <Structure>node</Structure>
Index: Prod/GAMeta/BT/TBOpvullijstKleur.cls.xml
===================================================================
diff -u
--- Prod/GAMeta/BT/TBOpvullijstKleur.cls.xml	(revision 0)
+++ Prod/GAMeta/BT/TBOpvullijstKleur.cls.xml	(revision 504)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Prod.GAMeta.BT.TBOpvullijstKleur">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>0</ProcedureBlock>
+<Super>%Library.Persistent,Res.PI.Abstract,Prod.GAMeta.BT.TBAbstract</Super>
+<Inheritance>right</Inheritance>
+
+<Index name="PrimaryKey">
+<Extent>0</Extent>
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>ItemID</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^Res.PI.Items("PR;GA;TBKLROPVL")</DataLocation>
+<DefaultData>TBOpvullijstKleurDefaultData</DefaultData>
+<IdLocation>^Res.PI.Items("PR;GA;TBKLROPVL")</IdLocation>
+<IndexLocation>^Res.PI.Items("index","PR;GA;TBKLROPVL")</IndexLocation>
+<StreamLocation>^Res.PI.Items("stream","PR;GA;TBKLROPVL")</StreamLocation>
+<Data name="BeperkGUI">
+<Attribute>BeperkGUI</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"BPG"</Subscript>
+</Data>
+<Data name="ProductKenmerken">
+<Attribute>ProductKenmerken</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"PKM"</Subscript>
+</Data>
+<Data name="TBOpvullijstKleurDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>ItemCode</Value>
+</Value>
+<Value name="3">
+<Value>Omschrijving</Value>
+</Value>
+<Value name="4">
+<Value>KortTekstCode</Value>
+</Value>
+<Value name="5">
+<Value>VolgNr</Value>
+</Value>
+<Value name="6">
+<Value>FilterDC</Value>
+</Value>
+</Data>
+<Data name="TaalOms">
+<Attribute>TaalOms</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"TO"</Subscript>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: Prod/GAMeta/BT/Verpakking.cls.xml
===================================================================
diff -u -r2 -r504
--- Prod/GAMeta/BT/Verpakking.cls.xml	(.../Verpakking.cls.xml)	(revision 2)
+++ Prod/GAMeta/BT/Verpakking.cls.xml	(.../Verpakking.cls.xml)	(revision 504)
@@ -19,8 +19,8 @@
 <DataLocation>^Res.PI.Items("PR;GA;VPK")</DataLocation>
 <DefaultData>VerpakkingDefaultData</DefaultData>
 <IdLocation>^Res.PI.Items("PR;GA;VPK")</IdLocation>
-<IndexLocation>^Res.PI.Items("PR;GA;VPKI")</IndexLocation>
-<StreamLocation>^Prod.GAM.VerpakkingS</StreamLocation>
+<IndexLocation>^Res.PI.Items("index","PR;GA;VPK")</IndexLocation>
+<StreamLocation>^Res.PI.Items("stream","PR;GA;VPK")</StreamLocation>
 <Data name="TaalOms">
 <Attribute>TaalOms</Attribute>
 <Structure>subnode</Structure>
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>