Index: DOM/PM/Maatwerk/Calc/HF/impl/RVG/Halffab/HalffabPlaatmateriaal.cls.xml
===================================================================
diff -u -r70095 -r74651
--- DOM/PM/Maatwerk/Calc/HF/impl/RVG/Halffab/HalffabPlaatmateriaal.cls.xml	(.../HalffabPlaatmateriaal.cls.xml)	(revision 70095)
+++ DOM/PM/Maatwerk/Calc/HF/impl/RVG/Halffab/HalffabPlaatmateriaal.cls.xml	(.../HalffabPlaatmateriaal.cls.xml)	(revision 74651)
@@ -8,7 +8,8 @@
 <Super>DOM.PM.Maatwerk.Calc.HF.Halffab</Super>
 
 <Property name="Kleur">
-<Type>TECH.String</Type>
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="100"/>
 </Property>
 
 <Index name="BitRVGPlaatmateriaalKleur">
Index: DOM/PM/Maatwerk/Calc/HF/impl/RVG/HalffabClassNameFactory.cls.xml
===================================================================
diff -u -r74478 -r74651
--- DOM/PM/Maatwerk/Calc/HF/impl/RVG/HalffabClassNameFactory.cls.xml	(.../HalffabClassNameFactory.cls.xml)	(revision 74478)
+++ DOM/PM/Maatwerk/Calc/HF/impl/RVG/HalffabClassNameFactory.cls.xml	(.../HalffabClassNameFactory.cls.xml)	(revision 74651)
@@ -13,7 +13,7 @@
 	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.RVG.Halffab.HalffabPlaatmateriaal", "Plaatmateriaal")
 	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.RVG.Halffab.HalffabPlaatmateriaal", ##class(DOM.PM.Maatwerk.Calc.HF.enu.RVGRol).PlaatmateriaalFront())
 	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.RVG.Halffab.HalffabPlaatmateriaal", ##class(DOM.PM.Maatwerk.Calc.HF.enu.RVGRol).PlaatmateriaalPocket())
-	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.RVG.Halffab.HalffabPlaatmateriaal", "Kantenband")
+	Do ..KlasseNamen.SetAt("DOM.PM.Maatwerk.Calc.HF.impl.RVG.Halffab.HalffabKantenband", "Kantenband")
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: DOM/PM/Maatwerk/Calc/HF/impl/RVG/Halffab/HalffabKantenband.cls.xml
===================================================================
diff -u -r74478 -r74651
--- DOM/PM/Maatwerk/Calc/HF/impl/RVG/Halffab/HalffabKantenband.cls.xml	(.../HalffabKantenband.cls.xml)	(revision 74478)
+++ DOM/PM/Maatwerk/Calc/HF/impl/RVG/Halffab/HalffabKantenband.cls.xml	(.../HalffabKantenband.cls.xml)	(revision 74651)
@@ -9,6 +9,7 @@
 
 <Property name="Kleur">
 <Type>%String</Type>
+<Parameter name="MAXLEN" value="100"/>
 </Property>
 
 <Index name="BitRVGKantenbandKleur">
@@ -28,7 +29,6 @@
 <Type>%Library.CacheStorage</Type>
 <DefaultData>HalffabKantenbandDefaultData</DefaultData>
 <Data name="HalffabKantenbandDefaultData">
-<Structure>listnode</Structure>
 <Subscript>"HalffabKantenband"</Subscript>
 <Value name="1">
 <Value>Kleur</Value>