Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r46292 -r46295
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 46292)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 46295)
@@ -222,6 +222,7 @@
 	Set ..AxProduct.IntraUnit = ..BepaalIntraUnit(Product)
 	Set ..AxProduct.ADULogsteuer = $$$If(Product.Basis.ScanType = "L","1","0")
 	Set ..AxProduct.ADUCountableOrDivisible = ..BepaalADUCountableOrDivisible(Product)
+	Set ..AxProduct.ADUCodexGroup = ..Utils.ConvertADUCodexGroup(Product.Basis.ProductNr)
 ]]></Implementation>
 </Method>
 
Index: vhTest/Mock/AXimpl/Utils.cls.xml
===================================================================
diff -u -r44433 -r46295
--- vhTest/Mock/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 44433)
+++ vhTest/Mock/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 46295)
@@ -8,6 +8,13 @@
 <Super>AXimpl.Utils,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="ConvertADUCodexGroup">
+<FormalSpec>PRNr:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ConvertADUCodexGroup",PRNr)
+]]></Implementation>
+</Method>
+
 <Method name="ConvertDefaultOrderType">
 <FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: AXimpl/Utils.cls.xml
===================================================================
diff -u -r46288 -r46295
--- AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 46288)
+++ AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 46295)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="AXimpl.Utils">
+<IncludeCode>Prod.Product</IncludeCode>
 <Super>TECH.Mockable</Super>
 
 <Property name="BestelImpulsRepository">
@@ -465,6 +466,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertADUCodexGroup">
+<FormalSpec>PRNr:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ADUCodexGroup As %String
+	#dim Type As BL.Legacy.enu.CodexType = ""
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	
+	If ($G(PRNr)&&ProductTypeAPI.IsOrgaluxProduct(PRNr))||(Type = ##class(BL.Legacy.enu.CodexType).Orgalux()) {
+		Set ADUCodexGroup = "OL"
+	} ElseIf ($G(PRNr)&&ProductTypeAPI.IsTAORIndelingProduct(PRNr))||(Type = ##class(BL.Legacy.enu.CodexType).TAOR()) {
+		Set ADUCodexGroup = "TA"
+	} ElseIf $$$PRGet($$$KlassificatieKey)=35 {  ; Subgroep="ZZ-MAG-KAT"
+		Set ADUCodexGroup = "MAL"
+	} Else {
+		Set ADUCodexGroup = "Beslag"
+	}
+	
+	Quit ADUCodexGroup
+]]></Implementation>
+</Method>
+
 <Method name="GeefVoorraadBewegingDatum">
 <FormalSpec>ProductId:%String</FormalSpec>
 <Private>1</Private>
Index: vhTest/Fake/AXimpl/Utils.cls.xml
===================================================================
diff -u -r44433 -r46295
--- vhTest/Fake/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 44433)
+++ vhTest/Fake/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 46295)
@@ -14,6 +14,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertADUCodexGroup">
+<FormalSpec>PRNr:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="ConvertDefaultOrderType">
 <FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml
===================================================================
diff -u -r45167 -r46295
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml	(.../VrijgegProductDixfGenerator.cls.xml)	(revision 45167)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml	(.../VrijgegProductDixfGenerator.cls.xml)	(revision 46295)
@@ -144,6 +144,7 @@
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADULogsteuer","ADULogsteuer")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADUCountableOrDivisible","ADUCountableOrDivisible")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemInventSetupOverride","InventItemInventSetup_Override")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADUCodexGroup","ADUCodexGroup")
 	
 	Set AXProductData.ScheidingsTeken = ";"	
 	Set AXProductData.Iterator = ProductIterator
Index: AXdixf/VrijgegProduct/VrijgegProduct.cls.xml
===================================================================
diff -u -r45167 -r46295
--- AXdixf/VrijgegProduct/VrijgegProduct.cls.xml	(.../VrijgegProduct.cls.xml)	(revision 45167)
+++ AXdixf/VrijgegProduct/VrijgegProduct.cls.xml	(.../VrijgegProduct.cls.xml)	(revision 46295)
@@ -17,6 +17,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="ADUCodexGroup">
+<Type>%String</Type>
+</Property>
+
 <Property name="ADUCountableOrDivisible">
 <Type>%String</Type>
 </Property>