Index: vhUnitTest/AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter/Test.cls.xml
===================================================================
diff -u -r46127 -r46128
--- vhUnitTest/AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 46127)
+++ vhUnitTest/AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 46128)
@@ -77,6 +77,111 @@
 	Do KlantMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Voor het 1e record is CodexSetupId 1 Beslag 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 = 1
+	
+	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 Beslag Cons excBTW")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 1e record is CodexSetupId 3 Beslag 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 = 1
+	
+	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 Beslag Plus")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 1e record is CodexSetupId 4 Beslag 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 = 1
+	
+	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 Beslag Lijst")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 1e record is CodexSetupId 5 Beslag 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 = 1
+	
+	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 Beslag Rabat")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 1e record is CodexSetupId 6 Beslag 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 = 1
+	
+	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 Beslag Spil")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 1e record is CodexSetupId 7 Beslag 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 = 1
+	
+	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 Beslag Basis")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor het 1e record is CodexSetupId 8 Beslag 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 = 1
+	
+	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 Beslag Groot")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter.cls.xml
===================================================================
diff -u -r46127 -r46128
--- AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter.cls.xml	(.../CustomerCodexRelationDixfConverter.cls.xml)	(revision 46127)
+++ AX/Uitgaand/VKP/CustomerCodexRelation/impl/CustomerCodexRelationDixfConverter.cls.xml	(.../CustomerCodexRelationDixfConverter.cls.xml)	(revision 46128)
@@ -57,7 +57,27 @@
 <FormalSpec>CustomerCodexRelation:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit CustomerCodexRelation.GeefPrijsCodexStandaard()
+<Implementation><![CDATA[
+	#dim CodexSetupId1 As %String = ""
+	#dim Prijsklasse As %String = CustomerCodexRelation.GeefPrijsCodexStandaard()
+	
+	If (Prijsklasse = "C") {
+		Set CodexSetupId1 = "1 Beslag Cons excBTW"
+	} ElseIf (Prijsklasse = "P") {
+		Set CodexSetupId1 = "3 Beslag Plus"
+	} ElseIf (Prijsklasse = "L") {
+		Set CodexSetupId1 = "4 Beslag Lijst"
+	} ElseIf (Prijsklasse = "R") {
+		Set CodexSetupId1 = "5 Beslag Rabat"
+	} ElseIf (Prijsklasse = "S") {
+		Set CodexSetupId1 = "6 Beslag Spil"
+	} ElseIf (Prijsklasse = "B") {
+		Set CodexSetupId1 = "7 Beslag Basis"
+	} ElseIf (Prijsklasse = "G") {
+		Set CodexSetupId1 = "8 Beslag Groot"
+	}
+	
+	Quit CodexSetupId1
 ]]></Implementation>
 </Method>