Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r73004 -r73008
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 73004)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 73008)
@@ -70,7 +70,7 @@
 		
 		#dim SuffixId As %String = ..GeefSuffixId(AantalUitSublijstenUitvoeringInfo, IndexUitvoeringInfoLijstGesplitst)
 		#dim BatchData As %ListOfObjects = ..GenereerBatchDataVoorUitvoeringInfoLijst(UitvoeringInfoLijst, SuffixId)
-		Do ..ExporteerDataNaarXmlDocument(BatchData, IndexUitvoeringInfoLijstGesplitst)
+		Do ..ExporteerDataNaarXmlDocument(BatchData, SuffixId)
 		
 		Set IndexUitvoeringInfoLijstGesplitst = $Increment(IndexUitvoeringInfoLijstGesplitst)
 	}
@@ -251,8 +251,10 @@
 		}
 	}
 	
-	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie, BatchId _ "_" _ BatchIndex _ "_" _ GesplitsteIndex _ "." _ Extensie)
-	
+	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie, BatchId _ "_" _ BatchIndex)
+	Set:$$$HasLength(GesplitsteIndex) BestandVolledigeNaam = BestandVolledigeNaam _ "_" _ GesplitsteIndex
+	Set BestandVolledigeNaam = BestandVolledigeNaam _ "." _ Extensie
+	Do ##class(Tools.Wlip).%New(26).String("Bestandsnaam: " _ BestandVolledigeNaam)
 	Quit BestandVolledigeNaam
 ]]></Implementation>
 </Method>