Index: AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml
===================================================================
diff -u -r47970 -r47984
--- AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml	(.../PakketReferentiesDixfGenerator.cls.xml)	(revision 47970)
+++ AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml	(.../PakketReferentiesDixfGenerator.cls.xml)	(revision 47984)
@@ -24,12 +24,23 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VrijgegProductFileWriter">
+<Type>TECH.File.FileWriter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VrijgegProductStream">
+<Type>%Library.GlobalCharacterStream</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..ArticleIDGenerator = ##class(AX.Uitgaand.PM.Product.impl.ArticleIDGenerator).%New()
 	Set ..Iterator = ##class(AX.Uitgaand.PM.PakketReferenties.impl.PakketReferentiesIterator).%New()
 	Set ..ProductFileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	Set ..VrijgegProductFileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -40,6 +51,7 @@
 	Try {
 		Do StartTimer^vhLib
 		Set ..ProductStream = ##class(%Library.GlobalCharacterStream).%New()
+		Set ..VrijgegProductStream = ##class(%Library.GlobalCharacterStream).%New()
 		Do ..MaakHeaders()
 		
 		#dim NameArray As array Of %String = ##class(%ArrayOfDataTypes).%New()
@@ -64,13 +76,19 @@
 			#dim SearchName As %String = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(EcoResProductTranslationName)
 			
 			Do ..ProductStream.WriteLine("2;0;;"_NieuwArticleID_";;"_PakketNaam_";nl-be;"_EcoResProductTranslationName_";WMS;None;Nee;Nee;Product;Artikel;"_SearchName_";")
+			Do ..VrijgegProductStream.WriteLine(";;;;;;;;;1;STK;Batch;;;VHEPN1;Productie;"_NieuwArticleID_";WMS;Batch;;;Nee;1;;VHEPN1;0;;;Nee;;Nee;Nee;1;;VHEPN1;;;Nee;;Nee;;Nee;ATP;;;VHEPN1;;;;Nee;;Nee;Nee;;;;;Nee;;;VHEPN1;Ja;;STK;Ja;0;G3;0;STK;Ja;;G3;STK;;Nee;;"_NieuwArticleID_";CACHE;Artikel;;;SOPR;"_SearchName_";;;;Ja;Stuklijst;;Finish;CACHE;;;;;;;;Handmatig;CACHE;;;;;;;;"_SearchName_";Nee;STK;")
 		}
 		
 		Do ..ProductFileWriter.Open(##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0601c_VHBE_ProductPakketReferenties.csv"),$$$False)
 		Do ..ProductFileWriter.WriteStream(..ProductStream)
 		Do ..ProductFileWriter.Close()
 		
+		Do ..VrijgegProductFileWriter.Open(##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0602c_VHBE_VrijgegProductPakketReferenties.csv"),$$$False)
+		Do ..VrijgegProductFileWriter.WriteStream(..VrijgegProductStream)
+		Do ..VrijgegProductFileWriter.Close()
+		
 		Write !,"Csv voor migratie 0601c_VHBE_ProductPakketReferenties is klaar."
+		Write !,"Csv voor migratie 0602c_VHBE_VrijgegProductPakketReferenties is klaar.",!
 		
 		Write $$TimeFromStart^vhLib()/60
 	} Catch {
@@ -89,6 +107,11 @@
 	Set ProductEntiteit.DtoPad = "AXdixf.Product.Product"
 	Do EntiteitLijst.Insert(ProductEntiteit)
 	
+	Set VrijgegProductEntiteit = ##class(AX.Uitgaand.PM.PakketReferenties.impl.DtoEntiteit).%New()
+	Set VrijgegProductEntiteit.Entiteit = "VrijgegProduct"
+	Set VrijgegProductEntiteit.DtoPad = "AXdixf.VrijgegProduct.VrijgegProduct"
+	Do EntiteitLijst.Insert(VrijgegProductEntiteit)
+	
 	Set EntiteitIterator = ##class(TECH.ListIterator).%New(EntiteitLijst)
 	While EntiteitIterator.HasNext(){
 		#dim Entiteit As AX.Uitgaand.PM.PakketReferenties.impl.DtoEntiteit = EntiteitIterator.Next()
@@ -101,12 +124,12 @@
 		Set UitTeVoerenLijn = "Do .."_EntiteitNaam_"Stream.WriteLine("""
 		For { Set Property = $Order(Properties(Property)) Quit:Property=""
 			#dim Toevoeging As %String = Property
-			#dim UnderscoreLijst As %String = "Name,Description,LanguageId"
+			#dim UnderscoreLijst As %String = "Name,Description,LanguageId,MandatoryInventLocation,HighestQty,InventSiteDefault,LeadTime,LowestQty,MultipleQty,StandardQty,Stopped,MandatoryInventSite,Override,InterCompanyBlocked,EndDisc,PriceUnit,UnitId,OverDeliveryPct,TaxItemGroupId,UnderDeliveryPct,DeliveryDateControlType,ATPTimeFence,CalendarDays"
 			Set StringIterator = ##class(TECH.StringIterator).%New(UnderscoreLijst,",")
 			Set UnderscoreBehoefteGevonden = 0
 			While ((StringIterator.HasNext()) && (UnderscoreBehoefteGevonden = 0)) {
 				#dim UnderscoreWoord As %String = StringIterator.Next()
-				If ((##class(TECH.StringUtils).EndsWith(Property,UnderscoreWoord)) && '(##class(TECH.StringUtils).Equals(Property,"SearchName"))) {
+				If ((##class(TECH.StringUtils).EndsWith(Property,UnderscoreWoord)) && ($Length(Property) > $Length(UnderscoreWoord)) && '(##class(TECH.StringUtils).Equals(Property,"SearchName","BOMUnitId"))) {
 					Set Toevoeging = ##class(TECH.StringUtils).Replace(Toevoeging,UnderscoreWoord,"_"_UnderscoreWoord)
 					Set UnderscoreBehoefteGevonden = 1
 				}
Index: AXdixf/VrijgegProduct/VrijgegProduct.cls.xml
===================================================================
diff -u -r47786 -r47984
--- AXdixf/VrijgegProduct/VrijgegProduct.cls.xml	(.../VrijgegProduct.cls.xml)	(revision 47786)
+++ AXdixf/VrijgegProduct/VrijgegProduct.cls.xml	(.../VrijgegProduct.cls.xml)	(revision 47984)
@@ -7,12 +7,6 @@
 <Default>AXdixf.VrijgegProduct.VrijgegProduct</Default>
 </Parameter>
 
-<Property name="ProductOmschrijving">
-<Description>
-Eerstvolgende property is niet nodig voor migratie, dient enkel ter controle voor ASP'ers</Description>
-<Type>%String</Type>
-</Property>
-
 <Property name="ABCValue">
 <Type>%String</Type>
 </Property>
@@ -25,10 +19,6 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="ADUCostInsuranceFreight">
-<Type>%String</Type>
-</Property>
-
 <Property name="ADUCountableOrDivisible">
 <Type>%String</Type>
 </Property>
@@ -57,10 +47,6 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="AltItemId">
-<Type>%String</Type>
-</Property>
-
 <Property name="BatchNumGroupId">
 <Type>%String</Type>
 </Property>
@@ -101,10 +87,6 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="IntrastatExclude">
-<Type>%String</Type>
-</Property>
-
 <Property name="IntraUnit">
 <Type>%String</Type>
 </Property>
@@ -468,14 +450,6 @@
 <Property name="UOMSeqGroupId">
 <Type>%String</Type>
 </Property>
-
-<Property name="UseAltItemId">
-<Type>%String</Type>
-</Property>
-
-<Property name="WMSLocationId">
-<Type>%String</Type>
-</Property>
 </Class>
 
 
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml
===================================================================
diff -u -r47786 -r47984
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml	(.../VrijgegProductDixfGenerator.cls.xml)	(revision 47786)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml	(.../VrijgegProductDixfGenerator.cls.xml)	(revision 47984)
@@ -125,8 +125,6 @@
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "SearchName","SearchName")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "Stopped","Stopped")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "UOMSeqGroupId","UOMSeqGroupId")
-	//Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "UseAltItemId","UseAltItemId") // Afhankelijk van AltItemId
-	//Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "AltItemId","AltItemId") //Voorlopig on hold (Gilles)
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemSalesDeliveryDateControlType","InventItemSales_DeliveryDateControlType")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemSalesSetupATPTimeFence","InventItemSalesSetup_ATPTimeFence")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "DefaultDimension","DefaultDimension")
Index: AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfGenerator.cls.xml
===================================================================
diff -u -r47786 -r47984
--- AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfGenerator.cls.xml	(.../GenVrijgegProductDixfGenerator.cls.xml)	(revision 47786)
+++ AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfGenerator.cls.xml	(.../GenVrijgegProductDixfGenerator.cls.xml)	(revision 47984)
@@ -43,7 +43,6 @@
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "EcoResStorageDimensionGroupName","EcoResStorageDimensionGroup_Name")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "EcoResTrackingDimensionGroupName","EcoResTrackingDimensionGroup_Name")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "Intracode","Intracode")
-	//Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "IntrastatExclude","IntrastatExclude") // ON HOLD
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemInventMandatoryInventLocation","InventItemInvent_MandatoryInventLocation")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemInventSetupHighestQty","InventItemInventSetup_HighestQty")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemInventSetupInventSiteDefault","InventItemInventSetup_InventSiteDefault")
@@ -80,7 +79,7 @@
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventSetupStopped","InventSetup_Stopped")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventSiteId","InventSiteId")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventTableModuleInventEndDisc","InventTableModuleInvent_EndDisc")
-	//Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventTableModuleInventPriceUnit","InventTableModuleInvent_PriceUnit") // ON HOLD
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventTableModuleInventPriceUnit","InventTableModuleInvent_PriceUnit")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventTableModuleInventUnitId","InventTableModuleInvent_UnitId")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventTableModulePurchEndDisc","InventTableModulePurch_EndDisc")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventTableModulePurchOverDeliveryPct","InventTableModulePurch_OverDeliveryPct")
@@ -126,8 +125,6 @@
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "SearchName","SearchName")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "Stopped","Stopped")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "UOMSeqGroupId","UOMSeqGroupId")
-	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "UseAltItemId","UseAltItemId")
-	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "AltItemId","AltItemId")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemSalesDeliveryDateControlType","InventItemSales_DeliveryDateControlType")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemSalesSetupATPTimeFence","InventItemSalesSetup_ATPTimeFence")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "DefaultDimension","DefaultDimension")
@@ -147,8 +144,6 @@
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADUCountableOrDivisible","ADUCountableOrDivisible")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemInventSetupOverride","InventItemInventSetup_Override")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADUPriceCodexGroupId","ADUPriceCodexGroupId")
-	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "WMSLocationId","WMSLocationId")
-	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADUCostInsuranceFreight","ADUCostInsuranceFreight")
 	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADUPriceUnitNetPrice","ADUPriceUnitNetPrice")
 	
 	Set AXProductData.ScheidingsTeken = ";"	
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r47888 -r47984
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 47888)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 47984)
@@ -216,9 +216,9 @@
 	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.AltItemId = ..BepaalAltItemId(Product)
+	;Set ..AltItemId = ..AxProduct.AltItemId
+	;Set ..AxProduct.UseAltItemId = ..BepaalUseAltItemId(Product)
 	Set ..AxProduct.ADUProductVersion = "1"
 	Set ..AxProduct.SalesInventLocationId = "CACHE"
 	Set ..AxProduct.SalesSetupHighestQty = ""
Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r47888 -r47984
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47888)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 47984)
@@ -85,7 +85,6 @@
 	
 	#dim ConvertedProduct As AXdixf.VrijgegProduct.VrijgegProduct = Converter.Convert(AxProduct,Firma)
 	
-	Do $$$AssertEquals(ConvertedProduct.AltItemId,"1234")
 	Do $$$AssertEquals(ConvertedProduct.BatchNumGroupId,"Batch")
 	Do $$$AssertEquals(ConvertedProduct.BOMUnitId,"STK")
 	Do $$$AssertEquals(ConvertedProduct.CostGroupId,"")
@@ -1516,7 +1515,7 @@
 <Method name="Test: AltItemId staat on hold Zie Gilles">
 </Method>
 
-<Method name="Test: UseAltItemId is Altijd als AltItemId NIET leeg is">
+<Method name="zTest: UseAltItemId is Altijd als AltItemId NIET leeg is">
 <Implementation><![CDATA[
 	#dim IdentNummerLijst As %List = $ListBuild("1234")
 	Set ..DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
@@ -1538,7 +1537,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: UseAltItemId is Nooit als AltItemId leeg is">
+<Method name="zTest: UseAltItemId is Nooit als AltItemId leeg is">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
@@ -1556,7 +1555,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als er geen alias gevonden is dan moet AltItemId leeg zijn">
+<Method name="zTest: Als er geen alias gevonden is dan moet AltItemId leeg zijn">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
@@ -1574,7 +1573,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als er meerdere aliassen gevonden zijn dan moet AltItemId kommaseperated ingevuld worden">
+<Method name="zTest: Als er meerdere aliassen gevonden zijn dan moet AltItemId kommaseperated ingevuld worden">
 <Implementation><![CDATA[
 	#dim IdentNummerLijst As %List = $ListBuild("1234","5678","9123")
 	Set ..DataDefinitieService = ##class(vhTest.Mock.BL.Prod.Kenmerk.DataDefinitieService).%New()
Index: AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r47786 -r47984
--- AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter.cls.xml	(.../GenVrijgegProductDixfConverter.cls.xml)	(revision 47786)
+++ AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter.cls.xml	(.../GenVrijgegProductDixfConverter.cls.xml)	(revision 47984)
@@ -48,15 +48,13 @@
 	Set ..AxProduct = ##class(AXdixf.VrijgegProduct.VrijgegProduct).%New()
 	Set ..AxProduct.ABCValue = ""
 	Set ..AxProduct.ADUPriceCodexGroupId = "STD"
-	Set ..AxProduct.ADUCostInsuranceFreight = ""
 	Set ..AxProduct.ADUCountableOrDivisible = ..BepaalADUCountableOrDivisible(Product)
 	Set ..AxProduct.ADULogsteuer = ""
 	Set ..AxProduct.ADUPriceContrMargineId = $$$If(Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),..AXimplFormatter.FormatADUPriceContrMargineId(Product.Prijs.DBPerc),"")
 	Set ..AxProduct.ADUProductGroupId = ..BepaalADUProductGroupId(Product)
 	Set ..AxProduct.ADUProductMainGroupId = ..BepaalADUProductMainGroupId(Product)
 	Set ..AxProduct.ADUProductSubGroupId = ..BepaalADUProductSubGroupId(Product)
 	Set ..AxProduct.ADUProductVersion = "1"
-	Set ..AxProduct.AltItemId = ""
 	Set ..AxProduct.BatchNumGroupId = "Batch"
 	Set ..AxProduct.BOMUnitId = "STK"
 	Set ..AxProduct.CostGroupId = ""
@@ -67,7 +65,6 @@
 	Set ..AxProduct.EcoResStorageDimensionGroupName = "WMS"
 	Set ..AxProduct.EcoResTrackingDimensionGroupName = "None"
 	Set ..AxProduct.Intracode = ..BepaalIntracode(Product)
-	//Set ..AxProduct.IntrastatExclude = "" // ON HOLD
 	Set ..AxProduct.IntraUnit = $$$If(##class(TECH.StringUtils).Equals(..AxProduct.Intracode,"84659500","85043180","90172039"),"1","")
 	Set ..AxProduct.InventItemInventMandatoryInventLocation = "Nee"
 	Set ..AxProduct.InventItemInventSetupCalendarDays = "1"
@@ -110,7 +107,7 @@
 	Set ..AxProduct.InventSetupStopped = ""
 	Set ..AxProduct.InventSiteId = $$$If(Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),"VHEPN1","HLXEPN1")
 	Set ..AxProduct.InventTableModuleInventEndDisc = "Ja"
-	//Set ..AxProduct.InventTableModuleInventPriceUnit = "" // ON HOLD
+	Set ..AxProduct.InventTableModuleInventPriceUnit = "" // ON HOLD
 	Set ..AxProduct.InventTableModuleInventUnitId = "STK"
 	Set ..AxProduct.InventTableModulePurchEndDisc = "Ja"
 	Set ..AxProduct.InventTableModulePurchOverDeliveryPct = "0"
@@ -159,8 +156,6 @@
 	Set ..AxProduct.standardPalletQuantity = ""
 	Set ..AxProduct.Stopped = "Nee"
 	Set ..AxProduct.UOMSeqGroupId = "STK"
-	Set ..AxProduct.UseAltItemId = "Nooit"
-	Set ..AxProduct.WMSLocationId = ""
 	Set ..AxProduct.ADUPriceUnitNetPrice = ..AxProduct.InventTableModuleSalesPriceUnit
 	
 	Quit ..AxProduct