Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml	(revision 59393)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH">
+<Super>TECH.Svg.Basis.DomElement</Super>
+
+<Parameter name="XMLNAME">
+<Default>crossvh</Default>
+</Parameter>
+
+<Property name="HorizontalLine">
+<Type>TECH.Svg.Basis.Line</Type>
+<Parameter name="XMLNAME" value="line"/>
+</Property>
+
+<Property name="VerticalLine">
+<Type>TECH.Svg.Basis.Line</Type>
+<Parameter name="XMLNAME" value="line"/>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..HorizontalLine = (##class(TECH.Svg.Basis.Line).%New(MidX-(Width/2),MidY,MidX+(Width/2),MidY))
+	Set ..VerticalLine = (##class(TECH.Svg.Basis.Line).%New(MidX,MidY-(Height/2),MidX,MidY+(Height/2)))
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<Data name="DomElementState">
+<Value name="1">
+<Value>Fill</Value>
+</Value>
+<Value name="2">
+<Value>Stroke</Value>
+</Value>
+<Value name="3">
+<Value>StrokeWidth</Value>
+</Value>
+<Value name="4">
+<Value>StrokeDashArray</Value>
+</Value>
+<Value name="5">
+<Value>Overflow</Value>
+</Value>
+<Value name="6">
+<Value>Opacity</Value>
+</Value>
+<Value name="7">
+<Value>HorizontalLine</Value>
+</Value>
+<Value name="8">
+<Value>VerticalLine</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml	(revision 59393)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag">
+<Super>TECH.Svg.Basis.DomElement</Super>
+
+<Parameter name="XMLNAME">
+<Default>crossdiag</Default>
+</Parameter>
+
+<Property name="TopLine">
+<Type>TECH.Svg.Basis.Line</Type>
+<Parameter name="XMLNAME" value="line"/>
+</Property>
+
+<Property name="BottomLine">
+<Type>TECH.Svg.Basis.Line</Type>
+<Parameter name="XMLNAME" value="line"/>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..TopLine = (##class(TECH.Svg.Basis.Line).%New((MidX-(Width/2)),(MidY-(Height/2)),(MidX+(Width/2)),(MidY+(Height/2))))
+	Set ..BottomLine = (##class(TECH.Svg.Basis.Line).%New((MidX-(Width/2)),(MidY+(Height/2)),(MidX+(Width/2)),(MidY-(Height/2))))
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<Data name="DomElementState">
+<Value name="1">
+<Value>Fill</Value>
+</Value>
+<Value name="2">
+<Value>Stroke</Value>
+</Value>
+<Value name="3">
+<Value>StrokeWidth</Value>
+</Value>
+<Value name="4">
+<Value>StrokeDashArray</Value>
+</Value>
+<Value name="5">
+<Value>Overflow</Value>
+</Value>
+<Value name="6">
+<Value>Opacity</Value>
+</Value>
+<Value name="7">
+<Value>TopLine</Value>
+</Value>
+<Value name="8">
+<Value>BottomLine</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml	(revision 59393)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross">
+<Super>TECH.Svg.Basis.DomElement</Super>
+
+<Parameter name="XMLNAME">
+<Default>tcross</Default>
+</Parameter>
+
+<Property name="HorizontalLine">
+<Type>TECH.Svg.Basis.Line</Type>
+<Parameter name="XMLNAME" value="line"/>
+</Property>
+
+<Property name="VerticalLine">
+<Type>TECH.Svg.Basis.Line</Type>
+<Parameter name="XMLNAME" value="line"/>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..HorizontalLine = (##class(TECH.Svg.Basis.Line).%New(MidX,(MidY-(Height\2)),MidX,(MidY+(Height\2))))
+	Set ..VerticalLine = (##class(TECH.Svg.Basis.Line).%New(MidX,MidY,MidX+Width,MidY))
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>TCrossState</State>
+<StreamLocation>^APPS.Halux.PPS.ALUFB584.TCrossS</StreamLocation>
+<Data name="TCrossState">
+<Value name="1">
+<Value>HorizontalLine</Value>
+</Value>
+<Value name="2">
+<Value>VerticalLine</Value>
+</Value>
+<Value name="3">
+<Value>Fill</Value>
+</Value>
+<Value name="4">
+<Value>Stroke</Value>
+</Value>
+<Value name="5">
+<Value>StrokeWidth</Value>
+</Value>
+<Value name="6">
+<Value>StrokeDashArray</Value>
+</Value>
+<Value name="7">
+<Value>Overflow</Value>
+</Value>
+<Value name="8">
+<Value>Opacity</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/VKP/enu/PrijsUitzonderingNiveau.cls.xml
===================================================================
diff -u -r29059 -r59393
--- APPS/VKP/enu/PrijsUitzonderingNiveau.cls.xml	(.../PrijsUitzonderingNiveau.cls.xml)	(revision 29059)
+++ APPS/VKP/enu/PrijsUitzonderingNiveau.cls.xml	(.../PrijsUitzonderingNiveau.cls.xml)	(revision 59393)
@@ -15,28 +15,28 @@
 
 <Method name="Hoofdgroep">
 <ClassMethod>1</ClassMethod>
-<ReturnType>%String</ReturnType>
+<ReturnType>APPS.VKP.enu.PrijsUitzonderingNiveau</ReturnType>
 <Implementation><![CDATA[	quit "H"
 ]]></Implementation>
 </Method>
 
 <Method name="Groep">
 <ClassMethod>1</ClassMethod>
-<ReturnType>%String</ReturnType>
+<ReturnType>APPS.VKP.enu.PrijsUitzonderingNiveau</ReturnType>
 <Implementation><![CDATA[	quit "G"
 ]]></Implementation>
 </Method>
 
 <Method name="Subgroep">
 <ClassMethod>1</ClassMethod>
-<ReturnType>%String</ReturnType>
+<ReturnType>APPS.VKP.enu.PrijsUitzonderingNiveau</ReturnType>
 <Implementation><![CDATA[	quit "S"
 ]]></Implementation>
 </Method>
 
 <Method name="Product">
 <ClassMethod>1</ClassMethod>
-<ReturnType>%String</ReturnType>
+<ReturnType>APPS.VKP.enu.PrijsUitzonderingNiveau</ReturnType>
 <Implementation><![CDATA[	quit "P"
 ]]></Implementation>
 </Method>