Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml
===================================================================
diff -u -r46295 -r46417
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml	(.../VrijgegProductDixfGenerator.cls.xml)	(revision 46295)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfGenerator.cls.xml	(.../VrijgegProductDixfGenerator.cls.xml)	(revision 46417)
@@ -21,7 +21,7 @@
 		Do StartTimer^vhLib
 		#dim ProductIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductIterator).%New(,Vestiging)
 		do ..Generate(ProductIterator)
-		Write !,"Csv voor migratie 0602 Vrijgegeven Producten voor "_Vestiging_" is klaar. Aantal minuten: " 
+		Write !,"Csv voor migratie 0602a Vrijgegeven Producten voor "_Vestiging_" is klaar. Aantal minuten: " 
 		write $$TimeFromStart^vhLib()/60
 	} Catch {
 		Write ##class(TECH.ExceptionHandler).Catch().ToString()
@@ -148,7 +148,7 @@
 	
 	Set AXProductData.ScheidingsTeken = ";"	
 	Set AXProductData.Iterator = ProductIterator
-	Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0602VrijgegProduct"_..Vestiging_".csv")
+	Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0602aVrijgegProduct"_..Vestiging_".csv")
 	
 	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
 	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
Index: AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductIteratorFilter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductIteratorFilter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductIteratorFilter.cls.xml	(revision 46417)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.GenVrijgegProduct.impl.GenVrijgegProductIteratorFilter">
+<Super>TECH.RegisteredObject,TECH.Filter</Super>
+
+<Property name="SoprIteratorFilter">
+<Type>AX.Uitgaand.PM.impl.SoprIteratorFilter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..SoprIteratorFilter = ##class(AX.Uitgaand.PM.impl.SoprIteratorFilter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsValid">
+<FormalSpec>Item:TECH.ResultSet</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(Item.GetData(1))
+	
+	Quit ..SoprIteratorFilter.IsValid(Product)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXdixf/VrijgegProduct/VrijgegProduct.cls.xml
===================================================================
diff -u -r46295 -r46417
--- AXdixf/VrijgegProduct/VrijgegProduct.cls.xml	(.../VrijgegProduct.cls.xml)	(revision 46295)
+++ AXdixf/VrijgegProduct/VrijgegProduct.cls.xml	(.../VrijgegProduct.cls.xml)	(revision 46417)
@@ -21,6 +21,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="ADUCostInsuranceFreight">
+<Type>%String</Type>
+</Property>
+
 <Property name="ADUCountableOrDivisible">
 <Type>%String</Type>
 </Property>
@@ -93,6 +97,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="IntrastatExclude">
+<Type>%String</Type>
+</Property>
+
 <Property name="IntraUnit">
 <Type>%String</Type>
 </Property>
@@ -456,6 +464,10 @@
 <Property name="UseAltItemId">
 <Type>%String</Type>
 </Property>
+
+<Property name="WMSLocationId">
+<Type>%String</Type>
+</Property>
 </Class>
 
 
Index: AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductIterator.cls.xml	(revision 46417)
@@ -0,0 +1,97 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.GenVrijgegProduct.impl.GenVrijgegProductIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="MigratieProductVolgensAxEntiteitRepository">
+<Type>AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vestiging">
+<Type>AXimpl.InterneFirmaInitialen</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DynIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.PM.GenVrijgegProduct.impl.GenVrijgegProductDixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:AXimpl.InterneFirmaInitialen,MigratieProductVolgensAxEntiteitRepository:AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..MigratieProductVolgensAxEntiteitRepository = $$$Inject(MigratieProductVolgensAxEntiteitRepository,##class(AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository).%New())
+	Do ..MigratieProductVolgensAxEntiteitRepository.VerwijderVolgensAxEntiteit("GenVrijgegProduct", Vestiging)
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Set ..Vestiging = Vestiging
+	Do ..VoerUitQuery()
+	//Set Filter = ##class(AX.Uitgaand.PM.GenVrijgegProduct.impl.GenVrijgegProductIteratorFilter).%New()
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
+	Set ..DynIterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator,,)
+	Set ..Converter = ##class(AX.Uitgaand.PM.GenVrijgegProduct.impl.GenVrijgegProductDixfConverter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = "SELECT ID FROM Prod.Product WHERE KortTekst like 'GEN%'  AND (NonAktief IS null OR NonAktief = '2') AND LeverancierNummer = '6332'"
+	/*
+	// Filter voor beperkt resultaat:
+	_" and ID in (33139,542989,675436,865733,896399,1226125,1674256)"
+	*/
+	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..DynIterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXdixf.VrijgegProduct.VrijgegProduct</ReturnType>
+<Implementation><![CDATA[
+	Set GenVrijgegProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..DynIterator.Next().GetData(1))
+	#dim ConvertedGenVrijgegProduct As AXdixf.VrijgegProduct.VrijgegProduct = ..Converter.Convert(GenVrijgegProduct, ..Vestiging)
+	
+	#dim ProductNr As %String = GenVrijgegProduct.Basis.ProductNr
+	#dim AxEntiteit As %String = "GenVrijgegProduct"
+	#dim Vestiging As %String = ..Vestiging
+	If $$$Not(..MigratieProductVolgensAxEntiteitRepository.BestaatVolgensProductFilter(ProductNr, AxEntiteit, Vestiging)) {
+		Set MigratieProductVolgensAxEntiteit = ##class(AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteit).%New()
+		Set MigratieProductVolgensAxEntiteit.AxEntiteit = AxEntiteit
+		Set MigratieProductVolgensAxEntiteit.ProductNr = ProductNr
+		Set MigratieProductVolgensAxEntiteit.Vestiging = Vestiging
+		Do MigratieProductVolgensAxEntiteit.Save()
+	}	
+	Quit ConvertedGenVrijgegProduct
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfConverter.cls.xml	(revision 46417)
@@ -0,0 +1,229 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.GenVrijgegProduct.impl.GenVrijgegProductDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AXimplFormatter">
+<Type>AXimpl.Formatter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxProduct">
+<Type>AXdixf.VrijgegProduct.VrijgegProduct</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>AXimplFormatter:AXimpl.Formatter</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..AXimplFormatter = $$$Inject(AXimplFormatter,##class(AXimpl.Formatter).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
+<ReturnType>AXdixf.VrijgegProduct.VrijgegProduct</ReturnType>
+<Implementation><![CDATA[
+	If ($$$Not(Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()) && $$$Not(Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv())) {
+		Write !,"Geef als parameter ofwel VHBE, ofwel HLX mee! Huidige parameter is: "_Vestiging
+	}
+	
+	Set ..AxProduct = ##class(AXdixf.VrijgegProduct.VrijgegProduct).%New()
+	Set ..AxProduct.ABCValue = ""
+	Set ..AxProduct.ADUCodexGroup = "Beslag"
+	Set ..AxProduct.ADUCostInsuranceFreight = ""
+	Set ..AxProduct.ADUCountableOrDivisible = ..BepaalADUCountableOrDivisible(Product)
+	Set ..AxProduct.ADULogsteuer = ""
+	Set ..AxProduct.ADUPriceContrMargineId = ..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 = ""
+	Set ..AxProduct.DefaultDimension = ""
+	Set ..AxProduct.DefaultInventSiteId = $$$If(Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),"VHEPN1","HLXEPN1")
+	Set ..AxProduct.DefaultOrderType = $$$If(Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),"Aankoop","Productie")
+	Set ..AxProduct.DisplayProductNumber = Product.Basis.IdentNummer
+	Set ..AxProduct.EcoResStorageDimensionGroupName = "WMS"
+	Set ..AxProduct.EcoResTrackingDimensionGroupName = "Batch"
+	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"
+	Set ..AxProduct.InventItemInventSetupHighestQty = ""
+	Set ..AxProduct.InventItemInventSetupInventSiteDefault = $$$If(Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),"VHEPN1","HLXEPN1")
+	Set ..AxProduct.InventItemInventSetupLeadTime = "0"
+	Set ..AxProduct.InventItemInventSetupLowestQty = "0"
+	Set ..AxProduct.InventItemInventSetupMultipleQty = "0"
+	Set ..AxProduct.InventItemInventSetupStandardQty = ""
+	Set ..AxProduct.InventItemInventSetupStopped = "Nee"
+	Set ..AxProduct.InventItemInventSetupOverride = "Nee"
+	Set ..AxProduct.InventItemPurchMandatoryInventLocation = "Nee"
+	Set ..AxProduct.InventItemPurchSetupCalendarDays = "1"
+	Set ..AxProduct.InventItemPurchSetupHighestQty = ""
+	Set ..AxProduct.InventItemPurchSetupInventSiteDefault = $$$If(Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),"VHEPN1","HLXEPN1")
+	Set ..AxProduct.InventItemPurchSetupLeadTime = ""
+	Set ..AxProduct.InventItemPurchSetupLowestQty = ""
+	Set ..AxProduct.InventItemPurchSetupMandatoryInventSite = "Nee"
+	Set ..AxProduct.InventItemPurchSetupMultipleQty = ""
+	Set ..AxProduct.InventItemPurchSetupOverride = "Nee"
+	Set ..AxProduct.InventItemPurchSetupStandardQty = ""
+	Set ..AxProduct.InventItemPurchSetupStopped = "Nee"
+	Set ..AxProduct.InventItemSalesDeliveryDateControlType = "CTP"
+	Set ..AxProduct.InventItemSalesSetupATPTimeFence = ""
+	Set ..AxProduct.InventItemSalesSetupHighestQty = ""
+	Set ..AxProduct.InventItemSalesSetupInventSiteDefault = $$$If(Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),"VHEPN1","HLXEPN1")
+	Set ..AxProduct.InventItemSalesSetupLeadTime = ""
+	Set ..AxProduct.InventItemSalesSetupLowestQty = ""
+	Set ..AxProduct.InventItemSalesSetupMultipleQty = ""
+	Set ..AxProduct.InventItemSalesSetupOverride = "Nee"
+	Set ..AxProduct.InventItemSalesSetupStandardQty = ""
+	Set ..AxProduct.InventModulePurchInterCompanyBlocked = "Nee"
+	Set ..AxProduct.InventModuleSalesInterCompanyBlocked = "Nee"
+	Set ..AxProduct.InventSetupHighestQty = ""
+	Set ..AxProduct.InventSetupLeadTime = ""
+	Set ..AxProduct.InventSetupLowestQty = ""
+	Set ..AxProduct.InventSetupMultipleQty = ""
+	Set ..AxProduct.InventSetupOverride = "Nee"
+	Set ..AxProduct.InventSetupStandardQty = ""
+	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.InventTableModuleInventUnitId = "STK"
+	Set ..AxProduct.InventTableModulePurchEndDisc = "Ja"
+	Set ..AxProduct.InventTableModulePurchOverDeliveryPct = "0"
+	Set ..AxProduct.InventTableModulePurchTaxItemGroupId = "G3"
+	Set ..AxProduct.InventTableModulePurchUnderDeliveryPct = "0"
+	Set ..AxProduct.InventTableModulePurchUnitId = "STK"
+	Set ..AxProduct.InventTableModuleSalesEndDisc = "Ja"
+	Set ..AxProduct.InventTableModuleSalesPriceUnit = $Piece($$PRIJSGEG^KPRIJS(Product.Basis.ProductNr),"\",9)
+	Set ..AxProduct.InventTableModuleSalesTaxItemGroupId = "G3"
+	Set ..AxProduct.InventTableModuleSalesUnitId = "STK"
+	Set ..AxProduct.ItemBuyerGroupId = ""
+	Set ..AxProduct.ItemDimCostPrice = "Ja"
+	Set ..AxProduct.ItemGroupId = "HG"
+	Set ..AxProduct.ItemId = Product.Basis.IdentNummer
+	Set ..AxProduct.ItemInventLocationId = "CACHE"
+	Set ..AxProduct.ItemType = "Artikel"
+	Set ..AxProduct.LowestQty = ""
+	Set ..AxProduct.MinimumPalletQuantity = ""
+	Set ..AxProduct.ModelGroupId = "SOPR"
+	Set ..AxProduct.NameAlias = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(Product.Basis.KortTekst)
+	Set ..AxProduct.NetWeight = ""
+	Set ..AxProduct.OrigCountryRegionId = ""
+	Set ..AxProduct.PdsVendorCheckItem = ""
+	Set ..AxProduct.PrimaryVendorId = $$$If(Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),"06332","")
+	Set ..AxProduct.ProdFlushingPrincip = "Finish"
+	Set ..AxProduct.PurchInventLocationId = "CACHE"
+	Set ..AxProduct.PurchSetupHighestQty = ""
+	Set ..AxProduct.PurchSetupLeadTime = ""
+	Set ..AxProduct.PurchSetupLowestQty = ""
+	Set ..AxProduct.PurchSetupMultipleQty = ""
+	Set ..AxProduct.PurchSetupOverride = ""
+	Set ..AxProduct.PurchSetupStandardQty = ""
+	Set ..AxProduct.PurchSetupStopped = ""
+	Set ..AxProduct.PmfProductType = $$$If(Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),"Geen","Stuklijst")
+	Set ..AxProduct.ReqGroupId = $$$If(Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),"BTO","MTO")
+	Set ..AxProduct.SalesInventLocationId = "CACHE"
+	Set ..AxProduct.SalesSetupHighestQty = ""
+	Set ..AxProduct.SalesSetupLeadTime = ""
+	Set ..AxProduct.SalesSetupLowestQty = ""
+	Set ..AxProduct.SalesSetupMultipleQty = ""
+	Set ..AxProduct.SalesSetupOverride = ""
+	Set ..AxProduct.SalesSetupStandardQty = ""
+	Set ..AxProduct.SalesSetupStopped = ""
+	Set ..AxProduct.SearchName = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(Product.Basis.KortTekst)
+	Set ..AxProduct.standardPalletQuantity = ""
+	Set ..AxProduct.Stopped = "Nee"
+	Set ..AxProduct.UOMSeqGroupId = "STK"
+	Set ..AxProduct.UseAltItemId = "Nooit"
+	Set ..AxProduct.WMSLocationId = ""
+	
+	Quit ..AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="BepaalADUCountableOrDivisible">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ADUCountableOrDivisible As %String = ""
+	
+	If $$$Not(Product.Basis.Telbaar = ""){
+		Set ADUCountableOrDivisible = $Replace(+Product.Basis.Telbaar,".",",")
+	}
+	
+	Quit ADUCountableOrDivisible
+]]></Implementation>
+</Method>
+
+<Method name="BepaalADUProductGroupId">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ADUProductGroupId As %String
+	#dim SubGroep As %String = Product.Klassificatie.SubGroep
+	
+	Set ADUProductGroupId = $Extract(SubGroep,3,4)_"-"_$Extract(SubGroep,7,9)
+	
+	Quit ADUProductGroupId
+]]></Implementation>
+</Method>
+
+<Method name="BepaalADUProductMainGroupId">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ADUProductMainGroupId As %String
+	#dim SubGroep As %String = Product.Klassificatie.SubGroep
+	
+	Set ADUProductMainGroupId = $Extract(SubGroep,3,4)
+	
+	Quit ADUProductMainGroupId
+]]></Implementation>
+</Method>
+
+<Method name="BepaalADUProductSubGroupId">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ADUProductSubGroupId As %String
+	#dim SubGroep As %String = Product.Klassificatie.SubGroep
+	
+	Set ADUProductSubGroupId = $Extract(SubGroep,3,4)_"-"_$Extract(SubGroep,7,9)_"-"_$Extract(SubGroep,12,17)
+	
+	Quit ADUProductSubGroupId
+]]></Implementation>
+</Method>
+
+<Method name="BepaalIntracode">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BepaalIntracode As %String
+	#dim IntrastadID As %String = Product.Basis.IntrastatID
+	
+    Set BepaalIntracode = $Piece($Get(^INTRAST(2,IntrastadID_" ")),"\",1)
+	Set BepaalIntracode = $Zstrip(BepaalIntracode,"*",".")
+	Quit BepaalIntracode
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/impl/RunAll2a.cls.xml
===================================================================
diff -u -r46346 -r46417
--- AX/Uitgaand/PM/impl/RunAll2a.cls.xml	(.../RunAll2a.cls.xml)	(revision 46346)
+++ AX/Uitgaand/PM/impl/RunAll2a.cls.xml	(.../RunAll2a.cls.xml)	(revision 46417)
@@ -11,8 +11,10 @@
 <Implementation><![CDATA[
 	Do ##class(AX.Uitgaand.PM.Product.impl.ProductDixfGenerator).%New().GenerateAll() 												// 0601a- PRODUCTEN
 	Do ##class(AX.Uitgaand.PM.ProductMaster.impl.ProductMasterDixfGenerator).%New().GenerateAll() 									// 0601b- PRODUCTMASTER
-	Do ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfGenerator).%New().GenerateAll("VHBE") 							// 0602 - VRIJGEGEVEN PRODUCTEN
-	Do ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfGenerator).%New().GenerateAll("HLX") 							// 0602 - VRIJGEGEVEN PRODUCTEN
+	Do ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfGenerator).%New().GenerateAll("VHBE") 							// 0602a- VRIJGEGEVEN PRODUCTEN
+	Do ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfGenerator).%New().GenerateAll("HLX") 							// 0602a- VRIJGEGEVEN PRODUCTEN
+	Do ##class(AX.Uitgaand.PM.GenVrijgegProduct.impl.GenVrijgegProductDixfGenerator).%New().GenerateAll("VHBE")						// 0602b- GENERISCHE VRIJGEGEVEN PRODUCTEN
+	Do ##class(AX.Uitgaand.PM.GenVrijgegProduct.impl.GenVrijgegProductDixfGenerator).%New().GenerateAll("HLX")						// 0602b- GENERISCHE VRIJGEGEVEN PRODUCTEN
 	Do ##class(AX.Uitgaand.PM.WHSReservationHierarchyItem.impl.WHSReservationHierarchyItemDixfGenerator).%New().GenerateAll("VHBE") // 0603 - WHSReservationHierarchyItem
 	Do ##class(AX.Uitgaand.PM.WHSReservationHierarchyItem.impl.WHSReservationHierarchyItemDixfGenerator).%New().GenerateAll("HLX") 	// 0603 - WHSReservationHierarchyItem
 	Do ##class(AX.Uitgaand.PM.TMSInventEnabled.impl.TMSInventEnabledDixfGenerator).%New().GenerateAll() 							// 0604 - TMSInventEnabled
Index: AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/GenVrijgegProduct/impl/GenVrijgegProductDixfGenerator.cls.xml	(revision 46417)
@@ -0,0 +1,164 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.GenVrijgegProduct.impl.GenVrijgegProductDixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vestiging">
+<Type>AXimpl.InterneFirmaInitialen</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GenerateAll">
+<FormalSpec>Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
+<Implementation><![CDATA[
+	Set ..Vestiging = Vestiging
+	Try {
+		Do StartTimer^vhLib
+		#dim ProductIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.GenVrijgegProduct.impl.GenVrijgegProductIterator).%New(,Vestiging)
+		do ..Generate(ProductIterator)
+		Write !,"Csv voor migratie 0602b Generische Vrijgegeven Producten voor "_Vestiging_" is klaar. Aantal minuten: " 
+		write $$TimeFromStart^vhLib()/60
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>ProductIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	#dim AXProductData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXProductData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "BatchNumGroupId","BatchNumGroupId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "BOMUnitId","BOMUnitId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "CostGroupId","CostGroupId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "DefaultInventSiteId","DefaultInventSiteId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "DefaultOrderType","DefaultOrderType")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "DisplayProductNumber","DisplayProductNumber")
+	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")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemInventSetupLeadTime","InventItemInventSetup_LeadTime")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemInventSetupLowestQty","InventItemInventSetup_LowestQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemInventSetupMultipleQty","InventItemInventSetup_MultipleQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemInventSetupStandardQty","InventItemInventSetup_StandardQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemInventSetupStopped","InventItemInventSetup_Stopped")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemPurchMandatoryInventLocation","InventItemPurch_MandatoryInventLocation")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemPurchSetupHighestQty","InventItemPurchSetup_HighestQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemPurchSetupInventSiteDefault","InventItemPurchSetup_InventSiteDefault")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemPurchSetupLeadTime","InventItemPurchSetup_LeadTime")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemPurchSetupLowestQty","InventItemPurchSetup_LowestQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemPurchSetupMandatoryInventSite","InventItemPurchSetup_MandatoryInventSite")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemPurchSetupMultipleQty","InventItemPurchSetup_MultipleQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemPurchSetupOverride","InventItemPurchSetup_Override")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemPurchSetupStandardQty","InventItemPurchSetup_StandardQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemPurchSetupStopped","InventItemPurchSetup_Stopped")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemSalesSetupHighestQty","InventItemSalesSetup_HighestQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemSalesSetupInventSiteDefault","InventItemSalesSetup_InventSiteDefault")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemSalesSetupLeadTime","InventItemSalesSetup_LeadTime")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemSalesSetupLowestQty","InventItemSalesSetup_LowestQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemSalesSetupMultipleQty","InventItemSalesSetup_MultipleQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemSalesSetupOverride","InventItemSalesSetup_Override")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemSalesSetupStandardQty","InventItemSalesSetup_StandardQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventModulePurchInterCompanyBlocked","InventModulePurch_InterCompanyBlocked")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventModuleSalesInterCompanyBlocked","InventModuleSales_InterCompanyBlocked")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventSetupHighestQty","InventSetup_HighestQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventSetupLeadTime","InventSetup_LeadTime")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventSetupLowestQty","InventSetup_LowestQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventSetupMultipleQty","InventSetup_MultipleQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventSetupOverride","InventSetup_Override")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventSetupStandardQty","InventSetup_StandardQty")
+	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", "InventTableModuleInventUnitId","InventTableModuleInvent_UnitId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventTableModulePurchEndDisc","InventTableModulePurch_EndDisc")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventTableModulePurchOverDeliveryPct","InventTableModulePurch_OverDeliveryPct")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventTableModulePurchTaxItemGroupId","InventTableModulePurch_TaxItemGroupId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventTableModulePurchUnderDeliveryPct","InventTableModulePurch_UnderDeliveryPct")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventTableModulePurchUnitId","InventTableModulePurch_UnitId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventTableModuleSalesEndDisc","InventTableModuleSales_EndDisc")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventTableModuleSalesPriceUnit","InventTableModuleSales_PriceUnit")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventTableModuleSalesTaxItemGroupId","InventTableModuleSales_TaxItemGroupId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventTableModuleSalesUnitId","InventTableModuleSales_UnitId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ItemDimCostPrice","ItemDimCostPrice")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ItemGroupId","ItemGroupId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ItemId","ItemId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ItemInventLocationId","ItemInventLocationId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ItemType","ItemType")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "LowestQty","LowestQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "MinimumPalletQuantity","MinimumPalletQuantity")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ModelGroupId","ModelGroupId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "NameAlias","NameAlias")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "NetWeight","NetWeight")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "OrigCountryRegionId","OrigCountryRegionId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "PmfProductType","PmfProductType")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "PrimaryVendorId","PrimaryVendorId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ProdFlushingPrincip","ProdFlushingPrincip")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "PurchInventLocationId","PurchInventLocationId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "PurchSetupHighestQty","PurchSetup_HighestQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "PurchSetupLeadTime","PurchSetup_LeadTime")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "PurchSetupLowestQty","PurchSetup_LowestQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "PurchSetupMultipleQty","PurchSetup_MultipleQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "PurchSetupOverride","PurchSetup_Override")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "PurchSetupStandardQty","PurchSetup_StandardQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "PurchSetupStopped","PurchSetup_Stopped")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ReqGroupId","ReqGroupId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "SalesInventLocationId","SalesInventLocationId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "SalesSetupHighestQty","SalesSetup_HighestQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "SalesSetupLeadTime","SalesSetup_LeadTime")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "SalesSetupLowestQty","SalesSetup_LowestQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "SalesSetupMultipleQty","SalesSetup_MultipleQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "SalesSetupOverride","SalesSetup_Override")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "SalesSetupStandardQty","SalesSetup_StandardQty")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "SalesSetupStopped","SalesSetup_Stopped")
+	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")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "standardPalletQuantity","standardPalletQuantity")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "IntraUnit","IntraUnit")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ABCValue","ABCValue")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ItemBuyerGroupId","ItemBuyerGroupId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "PdsVendorCheckItem","PdsVendorCheckItem")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADUProductVersion","ADUProductVersion")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemPurchSetupCalendarDays","InventItemPurchSetup_CalendarDays")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "InventItemInventSetupCalendarDays","InventItemInventSetup_CalendarDays")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADUProductMainGroupId","ADUProductMainGroupId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADUProductGroupId","ADUProductGroupId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADUProductSubGroupId","ADUProductSubGroupId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADUPriceContrMargineId","ADUPriceContrMargineId")	
+	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")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "WMSLocationId","WMSLocationId")
+	Do AXProductData.VoegToeVeld("AXdixf.VrijgegProduct.VrijgegProduct", "ADUCostInsuranceFreight","ADUCostInsuranceFreight")
+	
+	Set AXProductData.ScheidingsTeken = ";"	
+	Set AXProductData.Iterator = ProductIterator
+	Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0602bGenVrijgegProduct"_..Vestiging_".csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXProductData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>