Index: Prod/GADef/emKadBeslag.cls.xml
===================================================================
diff -u -r55009 -r55028
--- Prod/GADef/emKadBeslag.cls.xml	(.../emKadBeslag.cls.xml)	(revision 55009)
+++ Prod/GADef/emKadBeslag.cls.xml	(.../emKadBeslag.cls.xml)	(revision 55028)
@@ -79,17 +79,17 @@
 <Method name="VBAGeefAventosHKXSOffsetDK">
 <Description>
 Extra Offset D+K in mm bij AVENTOS HK-XS. </Description>
-<ReturnType>%Numeric</ReturnType>
-<Implementation><![CDATA[	Quit +(..GeefPositieParameter(..#ppAventosHKXSOffsetDK))
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefPositieParameter(..#ppAventosHKXSOffsetDK)
 ]]></Implementation>
 </Method>
 
 <Method name="VBAGeefAventosHKXSOndiepeCorpusInMM">
 <Description>
 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))
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefPositieParameter(..#ppAventosHKXSOndiepeCorpus)
 ]]></Implementation>
 </Method>
 
@@ -124,9 +124,9 @@
 	#dim Waarde As %CacheString = ""
 	#dim KeyValuePair As TECH.KeyValuePair = ..PositieParameters.FindByKey(ParamNaam)
 	If $IsObject(KeyValuePair) {
-		Set ExtraOffset = KeyValuePair.Value
+		Set Waarde = KeyValuePair.Value
 	}
-	Quit ExtraOffset
+	Quit Waarde
 ]]></Implementation>
 </Method>
 
@@ -379,9 +379,6 @@
 #define CalcOpdekX   ##class(Prod.GADef.emKadBeslag).GetOpdekFromPos(emBeslagPos.AfstandRand, %this.Beslag.ConstructAfm.GetAt("OFFSOPDEKX"),) 
 #define CalcOpdekY   ##class(Prod.GADef.emKadBeslag).GetOpdekFromPos(Pos, %this.Beslag.ConstructAfm.GetAt("OFFSOPDEKY"), %this.WandDikte)
 #define CalcVoegY    ##class(Prod.GADef.emKadBeslag).GetVoegFromPos(Pos, %this.Beslag.ConstructAfm.GetAt("OFFSOPDEKY"))
- ; OLD
-#define CalcOpdekXold   emBeslagPos.AfstandRand-%this.Beslag.ConstructAfm.GetAt("OFFSOPDEKX")
-#define CalcOpdekYold   Pos-%this.Beslag.ConstructAfm.GetAt("OFFSOPDEKY")+%this.WandDikte
 
  New Key,emBeslagPos,Pos,BType,param1,param2,KadVertaler,VertaalKey,TekstAlignering
  Set KadVertaler=##class(Prod.GADef.KadVertaler).%New(Taal)