Index: AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml
===================================================================
diff -u -r48004 -r48013
--- AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml	(.../PakketReferentiesDixfGenerator.cls.xml)	(revision 48004)
+++ AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml	(.../PakketReferentiesDixfGenerator.cls.xml)	(revision 48013)
@@ -44,6 +44,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ExtArtOmschrFileWriter">
+<Type>TECH.File.FileWriter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ExtArtOmschrStream">
+<Type>%Library.GlobalCharacterStream</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
@@ -52,7 +62,7 @@
 	Set ..ProductFileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
 	Set ..VrijgegProductFileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
 	Set ..WHSReservationHierarchyItemFileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
-	
+	Set ..ExtArtOmschrFileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -64,6 +74,7 @@
 		Set ..ProductStream = ##class(%Library.GlobalCharacterStream).%New()
 		Set ..VrijgegProductStream = ##class(%Library.GlobalCharacterStream).%New()
 		Set ..WHSReservationHierarchyItemStream = ##class(%Library.GlobalCharacterStream).%New()
+		Set ..ExtArtOmschrStream = ##class(%Library.GlobalCharacterStream).%New()
 		
 		Do ..MaakHeaders()
 		
@@ -72,9 +83,9 @@
 		While ..Iterator.HasNext() {
 			#dim Result As %String = ..Iterator.Next()
 			#dim PakketNaam As %String = $Piece(Result,"_",1)
-			#dim KlantNr As %String = $Piece(Result,"_",2)
+			#dim AxKlantNr As %String = ##class(TECH.StringUtils).AddLeadingChar($Piece(Result,"_",2),"0",5)
 			#dim NieuwArticleID As %String = ..ArticleIDGenerator.GeefNieuwArticleID()
-			Set EcoResProductTranslationName = "K"_##class(TECH.StringUtils).AddLeadingChar(KlantNr,"0",5)_"R"_PakketNaam
+			Set EcoResProductTranslationName = "K"_AxKlantNr_"R"_PakketNaam
 			
 			If ($Length(EcoResProductTranslationName) > 25) {
 				#dim Name As %String = EcoResProductTranslationName
@@ -91,6 +102,7 @@
 			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 ..WHSReservationHierarchyItemStream.WriteLine("vhbe;"_NieuwArticleID_";5637144578")
+			Do ..ExtArtOmschrStream.WriteLine("1;"_AxKlantNr_";"_PakketNaam_";;AllBlank;"_NieuwArticleID_";04")
 		}
 		
 		Do ..ProductFileWriter.Open(##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0601c_VHBE_ProductPakketReferenties.csv"),$$$False)
@@ -105,8 +117,13 @@
 		Do ..WHSReservationHierarchyItemFileWriter.WriteStream(..WHSReservationHierarchyItemStream)
 		Do ..WHSReservationHierarchyItemFileWriter.Close()
 		
-		Write !,"Csv's voor migratie 0601c_VHBE_ProductPakketReferenties, 0602c_VHBE_VrijgegProductPakketReferenties, 0603c_VHBE_WHSReservationHierarchyItemPakketReferenties zijn klaar."
+		Do ..ExtArtOmschrFileWriter.Open(##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0605c_VHBE_ExtArtOmschrPakketReferenties.csv"),$$$False)
+		Do ..ExtArtOmschrFileWriter.WriteStream(..ExtArtOmschrStream)
+		Do ..ExtArtOmschrFileWriter.Close()
 		
+		Write !,"Csv's voor migratie 0601c_VHBE_ProductPakketReferenties, 0602c_VHBE_VrijgegProductPakketReferenties, 0603c_VHBE_WHSReservationHierarchyItemPakketReferenties en... "
+		Write !,"0605c_VHBE_ExtArtOmschrPakketReferenties zijn klaar. Aantal minuten: "
+		
 		Write $$TimeFromStart^vhLib()/60
 	} Catch {
 		Write ##class(TECH.ExceptionHandler).Catch().ToString()
@@ -134,6 +151,11 @@
 	Set WHSReservationHierarchyItemEntiteit.DtoPad = "AXdixf.WHSReservationHierarchyItem.WHSReservationHierarchyItem"
 	Do EntiteitLijst.Insert(WHSReservationHierarchyItemEntiteit)
 	
+	Set ExtArtOmschrEntiteit = ##class(AX.Uitgaand.PM.PakketReferenties.dto.AxEntiteitDtoPad).%New()
+	Set ExtArtOmschrEntiteit.Entiteit = "ExtArtOmschr"
+	Set ExtArtOmschrEntiteit.DtoPad = "AXdixf.ExtArtOmschr.ExtArtOmschr"
+	Do EntiteitLijst.Insert(ExtArtOmschrEntiteit)
+	
 	Set EntiteitIterator = ##class(TECH.ListIterator).%New(EntiteitLijst)
 	While EntiteitIterator.HasNext(){
 		#dim Entiteit As AX.Uitgaand.PM.PakketReferenties.dto.AxEntiteitDtoPad = EntiteitIterator.Next()