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
 				}