Index: APPS/LEV/LeverancierService.cls.xml
===================================================================
diff -u -r1073 -r1085
--- APPS/LEV/LeverancierService.cls.xml	(.../LeverancierService.cls.xml)	(revision 1073)
+++ APPS/LEV/LeverancierService.cls.xml	(.../LeverancierService.cls.xml)	(revision 1085)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="APPS.LEV.LeverancierService">
 <Description><![CDATA[
-JBL + 2011-04-18
+JBL + 2011-04-18 
 
 Bij deploy :
 -> Do ##class(APPS.LEV.LeverancierService).InitSubscription()
@@ -45,59 +45,66 @@
 <Implementation><![CDATA[
 	$$$TECHErrorTrapOn
 	Set LeverancierService = ##class(APPS.LEV.LeverancierService).%New()
-	Set LeverancierBestand = ##class(APPS.LEV.dto.LeverancierBestand).%New()
-	Set LeverancierBestand.Leveranciers = ##class(%ListOfObjects).%New()
+	Set dtoLeverancierBestand = ##class(APPS.LEV.dto.LeverancierBestand).%New()
+	Set dtoLeverancierBestand.Leveranciers = ##class(%ListOfObjects).%New()
 	Set Leveranciers = LeverancierService.GeefLeverancierLijst()
 	Set LeverancierIt = ##class(TECH.ListIterator).%New(Leveranciers)
 	While LeverancierIt.HasNext() {
-		Do LeverancierBestand.Leveranciers.Insert(LeverancierIt.Next())
+		Do dtoLeverancierBestand.Leveranciers.Insert(LeverancierIt.Next())
 	}
 	
 	Set Bestandsnaam = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.LEV.LeverancierService.LeverancierBestand")
 	
+	set LeverancierBestand = LeverancierService.ExportXML(dtoLeverancierBestand, Bestandsnaam)
+	
 	$$$TECHErrorTrapOff
-	Quit LeverancierService.ExportXML(LeverancierBestand, Bestandsnaam)
+	Quit LeverancierBestand
 ]]></Implementation>
 </Method>
 
 <Method name="VulLevWijzigingenBestandAan">
 <Description>
 Maak een xml bestand met de gewijzigde leveranciers</Description>
-<FormalSpec>LeverancierNr:%Integer</FormalSpec>
+<FormalSpec>LeverancierNr:%Integer,Bestandsnaam=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	$$$TECHErrorTrapOn
 	$$$chkRequiredParameter(LeverancierNr)
 	
-	Set Bestandsnaam = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.LEV.LeverancierService.LeverancierBestandIncrementeel")
-	Set Datum = ""_$zd($h,3)
-	set $e(Bestandsnaam,$f(Bestandsnaam,"::datum::")-9,$f(Bestandsnaam,"::datum::")-1) = Datum		
-	Set LeverancierBestand = ##class(APPS.LEV.dto.LeverancierBestand).%New()
+	if '$length(Bestandsnaam) {
+		Set Bestandsnaam = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.LEV.LeverancierService.LeverancierBestandIncrementeel")
+		Set Datum = ""_$zd($h,3)
+		set Bestandsnaam = $$Replace^vhLib.String(Bestandsnaam,"::datum::",Datum)
+	}
+	Set dtoLeverancierBestand = ##class(APPS.LEV.dto.LeverancierBestand).%New()
 	Set XMLReader = ##class(%XML.Reader).%New()
 	Set Status=XMLReader.OpenFile(Bestandsnaam)
-	/// Indien er reeds een bestaand bestand is van deze dag.
+	/// Indien er reeds een bestaand bestand is van deze dag. 
 	If $$$ISOK(Status){
 		Do XMLReader.Correlate("LeverancierBestand","APPS.LEV.dto.LeverancierBestand") 
 		Do XMLReader.Next(.Object,.sc)
-		Set LeverancierBestand = Object
+		Set dtoLeverancierBestand = Object
 	}
 	
 	/// Indien de leverancier diezelfde dag al was gewijzigd, de vorige leverancierId eruit halen.
 	/// Want daarin kan reeds een verouderd adres staat.
-	/// Dit voorkomt ook duplicate data in het xml bestand.	
-	For i = 1 : 1 : LeverancierBestand.Leveranciers.Count() {
-		If (LeverancierBestand.Leveranciers.GetAt(i).Nummer = LeverancierNr){
-			Do LeverancierBestand.Leveranciers.RemoveAt(i)
+	/// Dit voorkomt ook duplicate data in het xml bestand.
+	/// 
+	For i = 1 : 1 : dtoLeverancierBestand.Leveranciers.Count() {
+		If (dtoLeverancierBestand.Leveranciers.GetAt(i).Nummer = LeverancierNr){
+			Do dtoLeverancierBestand.Leveranciers.RemoveAt(i)
 		}
 	}	
 	
 	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
 	Set Leverancier = ToeleveringAPI.GeefLeverancier(LeverancierNr)
 	Set dtoLeverancierId = ..Leverancier2LeverancierId(Leverancier)			
-	Do LeverancierBestand.Leveranciers.Insert(dtoLeverancierId)		
+	Do dtoLeverancierBestand.Leveranciers.Insert(dtoLeverancierId)		
 	
+	set LeverancierBestand = ..ExportXML(LeverancierBestand, Bestandsnaam)
+	
 	$$$TECHErrorTrapOff
-	Quit ..ExportXML(LeverancierBestand, Bestandsnaam)
+	Quit LeverancierBestand
 ]]></Implementation>
 </Method>
 
@@ -189,25 +196,13 @@
 <FormalSpec>XML:APPS.LEV.dto.LeverancierBestand,Bestandsnaam:%String=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-		Set FileStream = ##class(%FileCharacterStream).%New()
-		Set FileStream.Filename = Bestandsnaam
-		Set sc=$$ProxyToXMLStream^vhLib(XML,FileStream,"", 1)
-		Quit FileStream.SaveStream()
+	Set FileStream = ##class(%FileCharacterStream).%New()
+	Set FileStream.Filename = Bestandsnaam
+	Set sc=$$ProxyToXMLStream^vhLib(XML,FileStream,"", 1)
+	Quit FileStream.SaveStream()
 ]]></Implementation>
 </Method>
 
-<Method name="AppendToXML">
-<FormalSpec>XML:APPS.LEV.dto.LeverancierBestand,Bestandsnaam:%String=""</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-		Set FileStream = ##class(%FileCharacterStream).%New()
-		Set FileStream.Filename = Bestandsnaam
-		Set sc=$$ProxyToXMLStream^vhLib(XML,FileStream,"", 1)
-		Quit FileStream.SaveStream()
-]]></Implementation>
-</Method>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.LEV.LeverancierServiceD</DataLocation>