Index: EXT/Optima/CalculPrix/impl/RequestVerwerker.cls.xml
===================================================================
diff -u -r32100 -r32127
--- EXT/Optima/CalculPrix/impl/RequestVerwerker.cls.xml	(.../RequestVerwerker.cls.xml)	(revision 32100)
+++ EXT/Optima/CalculPrix/impl/RequestVerwerker.cls.xml	(.../RequestVerwerker.cls.xml)	(revision 32127)
@@ -116,13 +116,21 @@
 	Do ConvertDataTAX.Add("LadeBinnenKleur",)
 	Do ConvertDataTAX.Add("FrontEindkapKleur",)
 	Do ConvertDataTAX.Add("HeeftDiepteVerstelling",)
-	Do ConvertDataTAX.Add("KoppelingType",)
+	Do ConvertDataTAX.Add("KoppelingType",,"Set Output=##class(EXT.Optima.CalculPrix.impl.RequestVerwerker).GeefInterneWaardeKoppelingType(Input)")
 	;Do ConvertDataTAX.AddOnlyForValidation("NietMeeleverenGeleider")
 	;Do ConvertDataTAX.AddOnlyForValidation("NietMeeleverenFrontbevestiging")
 	
 	Quit ConvertDataTAX
 ]]></Implementation>
 </Method>
+
+<Method name="GeefInterneWaardeKoppelingType">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ExterneWaarde:%String</FormalSpec>
+<ReturnType>DOM.PM.enu.TAORKoppelingType</ReturnType>
+<Implementation><![CDATA[	Quit $CASE(ExterneWaarde, "S":##class(DOM.PM.enu.TAORKoppelingType).Schroef(), "D":##class(DOM.PM.enu.TAORKoppelingType).Drevel(), :ExterneWaarde)
+]]></Implementation>
+</Method>
 </Class>