Index: vhUnitTest/AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter/Test.cls.xml
===================================================================
diff -u -r46128 -r46129
--- vhUnitTest/AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 46128)
+++ vhUnitTest/AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 46129)
@@ -182,6 +182,111 @@
 	Do $$$AssertEquals(AxCustomerCodexRelation.CodexSetupId,"8 Beslag Groot")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Voor het 2e record is CodexSetupId 1 MAL Cons excBTW als GeefPrijsCodexStandaard 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 = 2
+	
+	Do KlantStub.IndienMethodCall("GeefCode").DanReturn("Dummycode1234")
+	Do KlantStub.IndienMethodCall("GeefPrijsCodexStandaard").DanReturn("C")
+	
+	#dim AxCustomerCodexRelation As AXdixf.CustomerCodexRelation.CustomerCodexRelation = Converter.Convert(KlantStub,Record)
+	
+	Do $$$AssertEquals(AxCustomerCodexRelation.CodexSetupId,"1 MAL Cons excBTW")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 2e record is CodexSetupId 3 MAL Plus als GeefPrijsCodexStandaard 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 = 2
+	
+	Do KlantStub.IndienMethodCall("GeefCode").DanReturn("Dummycode1234")
+	Do KlantStub.IndienMethodCall("GeefPrijsCodexStandaard").DanReturn("P")
+	
+	#dim AxCustomerCodexRelation As AXdixf.CustomerCodexRelation.CustomerCodexRelation = Converter.Convert(KlantStub,Record)
+	
+	Do $$$AssertEquals(AxCustomerCodexRelation.CodexSetupId,"3 MAL Plus")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 2e record is CodexSetupId 4 MAL Lijst als GeefPrijsCodexStandaard 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 = 2
+	
+	Do KlantStub.IndienMethodCall("GeefCode").DanReturn("Dummycode1234")
+	Do KlantStub.IndienMethodCall("GeefPrijsCodexStandaard").DanReturn("L")
+	
+	#dim AxCustomerCodexRelation As AXdixf.CustomerCodexRelation.CustomerCodexRelation = Converter.Convert(KlantStub,Record)
+	
+	Do $$$AssertEquals(AxCustomerCodexRelation.CodexSetupId,"4 MAL Lijst")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 2e record is CodexSetupId 5 MAL Rabat als GeefPrijsCodexStandaard 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 = 2
+	
+	Do KlantStub.IndienMethodCall("GeefCode").DanReturn("Dummycode1234")
+	Do KlantStub.IndienMethodCall("GeefPrijsCodexStandaard").DanReturn("R")
+	
+	#dim AxCustomerCodexRelation As AXdixf.CustomerCodexRelation.CustomerCodexRelation = Converter.Convert(KlantStub,Record)
+	
+	Do $$$AssertEquals(AxCustomerCodexRelation.CodexSetupId,"5 MAL Rabat")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 2e record is CodexSetupId 6 MAL Spil als GeefPrijsCodexStandaard 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 = 2
+	
+	Do KlantStub.IndienMethodCall("GeefCode").DanReturn("Dummycode1234")
+	Do KlantStub.IndienMethodCall("GeefPrijsCodexStandaard").DanReturn("S")
+	
+	#dim AxCustomerCodexRelation As AXdixf.CustomerCodexRelation.CustomerCodexRelation = Converter.Convert(KlantStub,Record)
+	
+	Do $$$AssertEquals(AxCustomerCodexRelation.CodexSetupId,"6 MAL Spil")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 2e record is CodexSetupId 7 MAL Basis als GeefPrijsCodexStandaard 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 = 2
+	
+	Do KlantStub.IndienMethodCall("GeefCode").DanReturn("Dummycode1234")
+	Do KlantStub.IndienMethodCall("GeefPrijsCodexStandaard").DanReturn("B")
+	
+	#dim AxCustomerCodexRelation As AXdixf.CustomerCodexRelation.CustomerCodexRelation = Converter.Convert(KlantStub,Record)
+	
+	Do $$$AssertEquals(AxCustomerCodexRelation.CodexSetupId,"7 MAL Basis")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 2e record is CodexSetupId 8 MAL Groot als GeefPrijsCodexStandaard 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 = 2
+	
+	Do KlantStub.IndienMethodCall("GeefCode").DanReturn("Dummycode1234")
+	Do KlantStub.IndienMethodCall("GeefPrijsCodexStandaard").DanReturn("G")
+	
+	#dim AxCustomerCodexRelation As AXdixf.CustomerCodexRelation.CustomerCodexRelation = Converter.Convert(KlantStub,Record)
+	
+	Do $$$AssertEquals(AxCustomerCodexRelation.CodexSetupId,"8 MAL Groot")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter.cls.xml
===================================================================
diff -u -r46128 -r46129
--- AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter.cls.xml	(.../CustomerCodexRelationDixfConverter.cls.xml)	(revision 46128)
+++ AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter.cls.xml	(.../CustomerCodexRelationDixfConverter.cls.xml)	(revision 46129)
@@ -85,7 +85,27 @@
 <FormalSpec>CustomerCodexRelation:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit CustomerCodexRelation.GeefPrijsCodexStandaard()
+<Implementation><![CDATA[
+	#dim CodexSetupId2 As %String = ""
+	#dim Prijsklasse As %String = CustomerCodexRelation.GeefPrijsCodexStandaard()
+	
+	If (Prijsklasse = "C") {
+		Set CodexSetupId2 = "1 MAL Cons excBTW"
+	} ElseIf (Prijsklasse = "P") {
+		Set CodexSetupId2 = "3 MAL Plus"
+	} ElseIf (Prijsklasse = "L") {
+		Set CodexSetupId2 = "4 MAL Lijst"
+	} ElseIf (Prijsklasse = "R") {
+		Set CodexSetupId2 = "5 MAL Rabat"
+	} ElseIf (Prijsklasse = "S") {
+		Set CodexSetupId2 = "6 MAL Spil"
+	} ElseIf (Prijsklasse = "B") {
+		Set CodexSetupId2 = "7 MAL Basis"
+	} ElseIf (Prijsklasse = "G") {
+		Set CodexSetupId2 = "8 MAL Groot"
+	}
+	
+	Quit CodexSetupId2
 ]]></Implementation>
 </Method>