Index: Prod/GADef/emKadBeslag.cls.xml
===================================================================
diff -u -r55007 -r55009
--- Prod/GADef/emKadBeslag.cls.xml	(.../emKadBeslag.cls.xml)	(revision 55007)
+++ Prod/GADef/emKadBeslag.cls.xml	(.../emKadBeslag.cls.xml)	(revision 55009)
@@ -22,11 +22,16 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Super>%Library.SerialObject</Super>
 
-<Parameter name="ppAventosHKXSOffsetY">
+<Parameter name="ppAventosHKXSOffsetDK">
 <Type>%String</Type>
-<Default>AVHKXS:OffsetY:D+K+[25]</Default>
+<Default>AVHKXS:OffsetY:D+K</Default>
 </Parameter>
 
+<Parameter name="ppAventosHKXSOndiepeCorpus">
+<Type>%String</Type>
+<Default>AVHKXS:OffsetY:OndiepeCorpus</Default>
+</Parameter>
+
 <Property name="Beslag">
 <Type>Res.PI.Beslag</Type>
 </Property>
@@ -61,44 +66,67 @@
 <Private>1</Private>
 </Property>
 
-<Method name="VBAGeefExtraOffsetAventosHKXS">
+<Method name="VBAZetExtraOffsetAventosHKXS">
 <Description>
 Facade-method voor oproepen vanuit VBA of VB6 </Description>
+<FormalSpec>OffsetDK:%Numeric,OndiepeCorpusInMM:%Numeric</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ZetPositieParameter(..#ppAventosHKXSOffsetDK, OffsetDK)
+	Do ..ZetPositieParameter(..#ppAventosHKXSOndiepeCorpus, OndiepeCorpusInMM)
+]]></Implementation>
+</Method>
+
+<Method name="VBAGeefAventosHKXSOffsetDK">
+<Description>
+Extra Offset D+K in mm bij AVENTOS HK-XS. </Description>
 <ReturnType>%Numeric</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefExtraOffsetAventosHKXS()
+<Implementation><![CDATA[	Quit +(..GeefPositieParameter(..#ppAventosHKXSOffsetDK))
 ]]></Implementation>
 </Method>
 
-<Method name="VBAZetExtraOffsetAventosHKXS">
+<Method name="VBAGeefAventosHKXSOndiepeCorpusInMM">
 <Description>
-Facade-method voor oproepen vanuit VBA of VB6 </Description>
-<FormalSpec>ExtraOffset:%Numeric</FormalSpec>
-<Implementation><![CDATA[	Do ..ZetExtraOffsetAventosHKXS(ExtraOffset)
+Extra Offset (5mm) indien ondiepe corpus bij AVENTOS HK-XS. 
+Deze bevat de offset-waarde, en dus niet de diepte van de corpus! </Description>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit +(..GeefPositieParameter(..#ppAventosHKXSOndiepeCorpus))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefExtraOffsetAventosHKXS">
 <ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
-	#dim ExtraOffset As %Numeric = 0
-	#dim KeyValuePair As TECH.KeyValuePair = ..PositieParameters.FindByKey(..#ppAventosHKXSOffsetY)
+	#dim OffsetDK As %Numeric = +(..GeefPositieParameter(..#ppAventosHKXSOffsetDK))
+	#dim OndiepeCorpusInMM As %Numeric = +(..GeefPositieParameter(..#ppAventosHKXSOndiepeCorpus))
+	Quit OffsetDK + OndiepeCorpusInMM
+]]></Implementation>
+</Method>
+
+<Method name="ZetPositieParameter">
+<FormalSpec>ParamNaam:%String,Waarde:%CacheString</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KeyValuePair As TECH.KeyValuePair = ..PositieParameters.FindByKey(ParamNaam)
 	If $IsObject(KeyValuePair) {
-		Set ExtraOffset = KeyValuePair.Value
+		Set KeyValuePair.Value = Waarde
 	}
-	Quit ExtraOffset
+	Else {
+		Do ..PositieParameters.InsertKeyValue(ParamNaam, Waarde)
+	}
 ]]></Implementation>
 </Method>
 
-<Method name="ZetExtraOffsetAventosHKXS">
-<FormalSpec>ExtraOffset:%Numeric</FormalSpec>
+<Method name="GeefPositieParameter">
+<FormalSpec>ParamNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
-	#dim KeyValuePair As TECH.KeyValuePair = ..PositieParameters.FindByKey(..#ppAventosHKXSOffsetY)
+	#dim Waarde As %CacheString = ""
+	#dim KeyValuePair As TECH.KeyValuePair = ..PositieParameters.FindByKey(ParamNaam)
 	If $IsObject(KeyValuePair) {
 		Set ExtraOffset = KeyValuePair.Value
 	}
-	Else {
-		Do ..PositieParameters.InsertKeyValue(..#ppAventosHKXSOffsetY, ExtraOffset)
-	}
+	Quit ExtraOffset
 ]]></Implementation>
 </Method>