Index: AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml
===================================================================
diff -u -r47937 -r47970
--- AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml	(.../PakketReferentiesDixfGenerator.cls.xml)	(revision 47937)
+++ AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml	(.../PakketReferentiesDixfGenerator.cls.xml)	(revision 47970)
@@ -2,6 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="AX.Uitgaand.PM.PakketReferenties.impl.PakketReferentiesDixfGenerator">
 <Super>TECH.RegisteredObject</Super>
+<DependsOn>AX.Uitgaand.PM.PakketReferenties.impl.DtoEntiteit</DependsOn>
 
 <Property name="ArticleIDGenerator">
 <Type>AX.Uitgaand.PM.Product.impl.ArticleIDGenerator</Type>
@@ -41,17 +42,27 @@
 		Set ..ProductStream = ##class(%Library.GlobalCharacterStream).%New()
 		Do ..MaakHeaders()
 		
+		#dim NameArray As array Of %String = ##class(%ArrayOfDataTypes).%New()
+		#dim EcoResProductTranslationName As %String
 		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
+			Set EcoResProductTranslationName = "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 Name As %String = EcoResProductTranslationName
+				Set Name = $Extract(Name,1,23)
+				If NameArray.IsDefined(Name) {
+					Do NameArray.SetAt((##class(TECH.StringUtils).AddLeadingChar(NameArray.GetAt(Name) + 1,"0",2)), Name)
+				} Else {
+					Do NameArray.SetAt("01", Name)
+				}
+				Set EcoResProductTranslationName = Name_NameArray.GetAt(Name)
 			}
 			#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_";")
 		}