Index: vhUnitTest/AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter/Test.cls.xml
===================================================================
diff -u -r46129 -r46130
--- vhUnitTest/AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 46129)
+++ vhUnitTest/AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 46130)
@@ -287,6 +287,111 @@
 	Do $$$AssertEquals(AxCustomerCodexRelation.CodexSetupId,"8 MAL Groot")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Voor het 3e record is CodexSetupId 1 OL Cons excBTW als GeefPrijsCodexOrgalux C geeft">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.CustomerCodexRelation.impl.CustomerCodexRelationDixfConverter).%New()
+	Set KlantStub = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	#dim Record As %Integer = 3
+	
+	Do KlantStub.IndienMethodCall("GeefCode").DanReturn("Dummycode1234")
+	Do KlantStub.IndienMethodCall("GeefPrijsCodexOrgalux").DanReturn("C")
+	
+	#dim AxCustomerCodexRelation As AXdixf.CustomerCodexRelation.CustomerCodexRelation = Converter.Convert(KlantStub,Record)
+	
+	Do $$$AssertEquals(AxCustomerCodexRelation.CodexSetupId,"1 OL Cons excBTW")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 3e record is CodexSetupId 3 OL Cons excBTW als GeefPrijsCodexOrgalux P geeft">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.CustomerCodexRelation.impl.CustomerCodexRelationDixfConverter).%New()
+	Set KlantStub = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	#dim Record As %Integer = 3
+	
+	Do KlantStub.IndienMethodCall("GeefCode").DanReturn("Dummycode1234")
+	Do KlantStub.IndienMethodCall("GeefPrijsCodexOrgalux").DanReturn("P")
+	
+	#dim AxCustomerCodexRelation As AXdixf.CustomerCodexRelation.CustomerCodexRelation = Converter.Convert(KlantStub,Record)
+	
+	Do $$$AssertEquals(AxCustomerCodexRelation.CodexSetupId,"3 OL Cons excBTW")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 3e record is CodexSetupId 4 OL Lijst als GeefPrijsCodexOrgalux L geeft">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.CustomerCodexRelation.impl.CustomerCodexRelationDixfConverter).%New()
+	Set KlantStub = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	#dim Record As %Integer = 3
+	
+	Do KlantStub.IndienMethodCall("GeefCode").DanReturn("Dummycode1234")
+	Do KlantStub.IndienMethodCall("GeefPrijsCodexOrgalux").DanReturn("L")
+	
+	#dim AxCustomerCodexRelation As AXdixf.CustomerCodexRelation.CustomerCodexRelation = Converter.Convert(KlantStub,Record)
+	
+	Do $$$AssertEquals(AxCustomerCodexRelation.CodexSetupId,"4 OL Lijst")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 3e record is CodexSetupId 5 OL Rabat als GeefPrijsCodexOrgalux R geeft">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.CustomerCodexRelation.impl.CustomerCodexRelationDixfConverter).%New()
+	Set KlantStub = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	#dim Record As %Integer = 3
+	
+	Do KlantStub.IndienMethodCall("GeefCode").DanReturn("Dummycode1234")
+	Do KlantStub.IndienMethodCall("GeefPrijsCodexOrgalux").DanReturn("R")
+	
+	#dim AxCustomerCodexRelation As AXdixf.CustomerCodexRelation.CustomerCodexRelation = Converter.Convert(KlantStub,Record)
+	
+	Do $$$AssertEquals(AxCustomerCodexRelation.CodexSetupId,"5 OL Rabat")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 3e record is CodexSetupId 6 OL Spil als GeefPrijsCodexOrgalux S geeft">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.CustomerCodexRelation.impl.CustomerCodexRelationDixfConverter).%New()
+	Set KlantStub = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	#dim Record As %Integer = 3
+	
+	Do KlantStub.IndienMethodCall("GeefCode").DanReturn("Dummycode1234")
+	Do KlantStub.IndienMethodCall("GeefPrijsCodexOrgalux").DanReturn("S")
+	
+	#dim AxCustomerCodexRelation As AXdixf.CustomerCodexRelation.CustomerCodexRelation = Converter.Convert(KlantStub,Record)
+	
+	Do $$$AssertEquals(AxCustomerCodexRelation.CodexSetupId,"6 OL Spil")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 3e record is CodexSetupId 7 OL Basis als GeefPrijsCodexOrgalux B geeft">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.CustomerCodexRelation.impl.CustomerCodexRelationDixfConverter).%New()
+	Set KlantStub = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	#dim Record As %Integer = 3
+	
+	Do KlantStub.IndienMethodCall("GeefCode").DanReturn("Dummycode1234")
+	Do KlantStub.IndienMethodCall("GeefPrijsCodexOrgalux").DanReturn("B")
+	
+	#dim AxCustomerCodexRelation As AXdixf.CustomerCodexRelation.CustomerCodexRelation = Converter.Convert(KlantStub,Record)
+	
+	Do $$$AssertEquals(AxCustomerCodexRelation.CodexSetupId,"7 OL Basis")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 3e record is CodexSetupId 8 OL Groot als GeefPrijsCodexOrgalux G geeft">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.CustomerCodexRelation.impl.CustomerCodexRelationDixfConverter).%New()
+	Set KlantStub = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	#dim Record As %Integer = 3
+	
+	Do KlantStub.IndienMethodCall("GeefCode").DanReturn("Dummycode1234")
+	Do KlantStub.IndienMethodCall("GeefPrijsCodexOrgalux").DanReturn("G")
+	
+	#dim AxCustomerCodexRelation As AXdixf.CustomerCodexRelation.CustomerCodexRelation = Converter.Convert(KlantStub,Record)
+	
+	Do $$$AssertEquals(AxCustomerCodexRelation.CodexSetupId,"8 OL Groot")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter.cls.xml
===================================================================
diff -u -r46129 -r46130
--- AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter.cls.xml	(.../CustomerCodexRelationDixfConverter.cls.xml)	(revision 46129)
+++ AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter.cls.xml	(.../CustomerCodexRelationDixfConverter.cls.xml)	(revision 46130)
@@ -113,7 +113,27 @@
 <FormalSpec>CustomerCodexRelation:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit CustomerCodexRelation.GeefPrijsCodexOrgalux()
+<Implementation><![CDATA[
+	#dim CodexSetupId3 As %String = ""
+	#dim Prijsklasse As %String = CustomerCodexRelation.GeefPrijsCodexOrgalux()
+	
+	If (Prijsklasse = "C") {
+		Set CodexSetupId3 = "1 OL Cons excBTW"
+	} ElseIf (Prijsklasse = "P") {
+		Set CodexSetupId3 = "3 OL Cons excBTW"
+	} ElseIf (Prijsklasse = "L") {
+		Set CodexSetupId3 = "4 OL Lijst"
+	} ElseIf (Prijsklasse = "R") {
+		Set CodexSetupId3 = "5 OL Rabat"
+	} ElseIf (Prijsklasse = "S") {
+		Set CodexSetupId3 = "6 OL Spil"
+	} ElseIf (Prijsklasse = "B") {
+		Set CodexSetupId3 = "7 OL Basis"
+	} ElseIf (Prijsklasse = "G") {
+		Set CodexSetupId3 = "8 OL Groot"
+	}
+	
+	Quit CodexSetupId3
 ]]></Implementation>
 </Method>