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>