Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r44433 -r44843
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 44433)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 44843)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Intracode">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="InventItemPurchSetupLeadTimeHLX">
 <Type>%String</Type>
 <Private>1</Private>
@@ -113,6 +118,7 @@
 	Set ..AxProduct.EcoResStorageDimensionGroupName = "WMS"
 	Set ..AxProduct.EcoResTrackingDimensionGroupName = "Batch"
 	Set ..AxProduct.Intracode = ..BepaalIntracode(Product)
+	Set ..Intracode = ..AxProduct.Intracode
 	Set ..AxProduct.InventItemInventMandatoryInventLocation = "Nee"
 	Set ..AxProduct.InventItemInventSetupHighestQty = ""
 	Set ..AxProduct.InventItemInventSetupLeadTime = "0"
@@ -193,8 +199,6 @@
 	Set ..AxProduct.SearchName = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(Product.Basis.KortTekst)
 	Set ..AxProduct.Stopped = "Nee"
 	Set ..AxProduct.UOMSeqGroupId = ..Utils.ConvertUOMSeqGroupId(Product)
-	Set ..AxProduct.AltItemId = ..BepaalAltItemId(Product)
-	Set ..AltItemId = ..AxProduct.AltItemId
 	Set ..AxProduct.UseAltItemId = ..BepaalUseAltItemId(Product)
 	Set ..AxProduct.ADUProductVersion = "1"
 	Set ..AxProduct.InventItemInventSetupCalendarDays = "1"
@@ -205,6 +209,7 @@
 	Set ..AxProduct.ADUPriceContrMargineId = ..BepaalADUPriceContrMargineId(Product)
 	Set ..AxProduct.standardPalletQuantity = $$$If(Product.Basis.LeverancierNummer = "5005",Product.Basis.PalletAantal,"")
 	Set ..AxProduct.ABCValue = Product.Basis.ABCTransport
+	Set ..AxProduct.IntraUnit = ..BepaalIntraUnit(Product)
 ]]></Implementation>
 </Method>
 
@@ -237,7 +242,6 @@
 	Set ..AxProduct.InventItemSalesSetupATPTimeFence = ..BepaalInventItemSalesSetupATPTimeFenceVH(Product)
 	Set ..AxProduct.InventItemSalesSetupOverride = ..BepaalInventItemSalesSetupOverride(Product) // Heeft ..InventItemSalesDeliveryDateControlType nodig
 	Set ..AxProduct.PdsVendorCheckItem = ..BepaalPdsVendorCheckItemVH(Product)
-	/*Set ..AxProduct.IntraUnit = ..BepaalIntraUnit(Product)*/
 ]]></Implementation>
 </Method>
 
@@ -268,7 +272,6 @@
 	Set ..AxProduct.InventItemSalesSetupATPTimeFence = ..BepaalInventItemSalesSetupATPTimeFenceHLX(Product)
 	Set ..AxProduct.InventItemSalesSetupOverride = ..BepaalInventItemSalesSetupOverride(Product) // Heeft ..InventItemSalesDeliveryDateControlType nodig
 	Set ..AxProduct.PdsVendorCheckItem = ..BepaalPdsVendorCheckItemHLX(Product)
-	/*Set ..AxProduct.IntraUnit = ..BepaalIntraUnit(Product)*/
 ]]></Implementation>
 </Method>