Index: AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml	(revision 47937)
@@ -0,0 +1,116 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.PakketReferenties.impl.PakketReferentiesDixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ArticleIDGenerator">
+<Type>AX.Uitgaand.PM.Product.impl.ArticleIDGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Iterator">
+<Type>AX.Uitgaand.PM.PakketReferenties.impl.PakketReferentiesIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductFileWriter">
+<Type>TECH.File.FileWriter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductStream">
+<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()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenerateAll">
+<Implementation><![CDATA[
+	Try {
+		Do StartTimer^vhLib
+		Set ..ProductStream = ##class(%Library.GlobalCharacterStream).%New()
+		Do ..MaakHeaders()
+		
+		While ..Iterator.HasNext() {
+			#dim Result As %String = ..Iterator.Next()
+			#dim PakketNaam As %String = $Piece(Result,"_",1)
+			#dim KlantNr As %String = $Piece(Result,"_",2)
+			#dim NieuwArticleID As %String = ..ArticleIDGenerator.GeefNieuwArticleID()
+			#dim EcoResProductTranslationName As %String = "K"_##class(TECH.StringUtils).AddLeadingChar(KlantNr,"0",5)_"R"_PakketNaam
+			If ($Length(EcoResProductTranslationName) > 25) {
+				Set EcoResProductTranslationName = $Extract(EcoResProductTranslationName,1,23)
+				W !,"EcoResProductTranslationName van meer dan 25 karakters => nog te fixen!"
+			}
+			#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 ..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()
+		
+		Write !,"Csv voor migratie 0601c_VHBE_ProductPakketReferenties is klaar."
+		
+		Write $$TimeFromStart^vhLib()/60
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakHeaders">
+<CodeMode>objectgenerator</CodeMode>
+<Implementation><![CDATA[
+	Set EntiteitLijst = ##class(%ListOfDataTypes).%New()
+	
+	Set ProductEntiteit = ##class(AX.Uitgaand.PM.PakketReferenties.impl.DtoEntiteit).%New()
+	Set ProductEntiteit.Entiteit = "Product"
+	Set ProductEntiteit.DtoPad = "AXdixf.Product.Product"
+	Do EntiteitLijst.Insert(ProductEntiteit)
+	
+	Set EntiteitIterator = ##class(TECH.ListIterator).%New(EntiteitLijst)
+	While EntiteitIterator.HasNext(){
+		#dim Entiteit As AX.Uitgaand.PM.PakketReferenties.impl.DtoEntiteit = EntiteitIterator.Next()
+		#dim EntiteitNaam As %String = Entiteit.Entiteit
+		#dim DtoPad As %String = Entiteit.DtoPad
+		#dim Properties
+		#dim UitTeVoerenLijn, Property As %String = ""
+		#dim UnderscoreBehoefteGevonden As %Boolean
+		Do arrProperties^vhLib.Class(DtoPad,.Properties,"A","A","A",1)
+		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"
+			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"))) {
+					Set Toevoeging = ##class(TECH.StringUtils).Replace(Toevoeging,UnderscoreWoord,"_"_UnderscoreWoord)
+					Set UnderscoreBehoefteGevonden = 1
+				}
+			}
+			Set UitTeVoerenLijn = UitTeVoerenLijn_Toevoeging_";"
+		}
+		Set UitTeVoerenLijn = ##class(TECH.StringUtils).RightTrim(UitTeVoerenLijn,";")
+		Set UitTeVoerenLijn = UitTeVoerenLijn_""")"
+		Do %code.WriteLine($$$TAB_UitTeVoerenLijn)
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/PakketReferenties/impl/DtoEntiteit.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/PakketReferenties/impl/DtoEntiteit.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/PakketReferenties/impl/DtoEntiteit.cls.xml	(revision 47937)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.PakketReferenties.impl.DtoEntiteit">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLTYPE">
+<Default>AX.Uitgaand.PM.PakketReferenties.impl.DtoEntiteit</Default>
+</Parameter>
+
+<Property name="Entiteit">
+<Type>%String</Type>
+</Property>
+
+<Property name="DtoPad">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesIterator.cls.xml	(revision 47937)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.PakketReferenties.impl.PakketReferentiesIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<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>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Do ..VoerUitQuery()
+	;Set Filter = ##class(AX.Uitgaand.PM.PakketReferenties.impl.PakketReferentiesIteratorFilter).%New() // Not yet implemented and needed
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
+	Set ..DynIterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator,,)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = "SELECT Naam,KlantNr,Type,Pakket.PakketNummer FROM DOM_PM_impl_DataM.Pakket AS Pakket "
+	_"LEFT JOIN DOM_PM_impl_DataM.PakketOnderdeel As PakketOnderdeel ON Pakket.PakketNummer = PakketOnderdeel.PakketNummer "
+	_"WHERE Pakket.Type <> 'E' AND PakketOnderdeel.Aantal > 1 GROUP BY Pakket.Naam"
+	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>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Result = ..DynIterator.Next()
+	#dim PakketNaamKlantNummer As String = Result.GetData(1)_"_"_Result.GetData(2)
+	Quit PakketNaamKlantNummer
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>