Index: APPS/Halux/common/impl/VerpakteAfmeting.cls.xml
===================================================================
diff -u -r33780 -r36166
--- APPS/Halux/common/impl/VerpakteAfmeting.cls.xml	(.../VerpakteAfmeting.cls.xml)	(revision 33780)
+++ APPS/Halux/common/impl/VerpakteAfmeting.cls.xml	(.../VerpakteAfmeting.cls.xml)	(revision 36166)
@@ -1,31 +1,30 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.common.impl.VerpakteAfmeting">
-<ClassType/>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,TECH.Algo.Stapeling.I3DObject</Super>
-<Inheritance>right</Inheritance>
+<ClassType>serial</ClassType>
+<Super>%Library.SerialObject</Super>
 
-<Property name="Diepte">
+<Property name="Hoogte">
 <Type>%Decimal</Type>
-<Private>1</Private>
+<Parameter name="XMLNAME" value="Hoogte"/>
 </Property>
 
-<Property name="Hoogte">
+<Property name="Breedte">
 <Type>%Decimal</Type>
-<Private>1</Private>
+<Parameter name="XMLNAME" value="Breedte"/>
 </Property>
 
-<Property name="Breedte">
+<Property name="Diepte">
 <Type>%Decimal</Type>
-<Private>1</Private>
+<Parameter name="XMLNAME" value="Lengte"/>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Diepte:%Decimal,Hoogte:%Decimal,Breedte:%Decimal</FormalSpec>
+<FormalSpec>Diepte:TECH.Decimal=0,Hoogte:TECH.Decimal=0,Breedte:TECH.Decimal=0</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..Diepte = Diepte
 	Set ..Breedte = Breedte
@@ -36,22 +35,42 @@
 </Method>
 
 <Method name="GeefDiepte">
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[	Quit ..Diepte
 ]]></Implementation>
 </Method>
 
 <Method name="GeefHoogte">
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[	Quit ..Hoogte
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBreedte">
-<ReturnType>%Float</ReturnType>
+<ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[	Quit ..Breedte
 ]]></Implementation>
 </Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>VerpakteAfmetingState</State>
+<StreamLocation>^APPS.Halux7454.VerpakteAfm1484S</StreamLocation>
+<Data name="VerpakteAfmetingState">
+<Value name="1">
+<Value>Diepte</Value>
+</Value>
+<Value name="2">
+<Value>Hoogte</Value>
+</Value>
+<Value name="3">
+<Value>Breedte</Value>
+</Value>
+<Value name="4">
+<Value>Lengte</Value>
+</Value>
+</Data>
+</Storage>
 </Class>