Index: BL/Sys/FOP/CommonTasks.cls.xml
===================================================================
diff -u -r2038 -r3196
--- BL/Sys/FOP/CommonTasks.cls.xml	(.../CommonTasks.cls.xml)	(revision 2038)
+++ BL/Sys/FOP/CommonTasks.cls.xml	(.../CommonTasks.cls.xml)	(revision 3196)
@@ -340,6 +340,41 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefUniekePlaceholderZTS">
+<Description><![CDATA[
+Unieke naam met placeholder wordt zo doorgegeven voor de FTP-transfert van bestand. 
+Via de placeholder kunnen alle bestanden met dezelfde naam (placeholder --> "*") verwijderd worden. ]]></Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "[zts:"_$TR($zts,",.","")_"]"
+]]></Implementation>
+</Method>
+
+<Method name="VervangPlaceholderZTSDoorWaarde">
+<Description>
+Deze method is gerelateerd aan GeefUniekeNaamMetPlaceholder() 
+Via deze method kan de placeholder vervangen worden door :    
+ - ofwel zijn voorziene waarde : parameter "VervangWaarde" moet leeg zijn 
+ - ofwel de opgegeven parameter VervangWaarde : moet ingevuld zijn        </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>NaamMetPlaceholder:%String,VervangWaarde:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Naam=""
+	If (NaamMetPlaceholder [ "[zts:") {
+		Set PlaceholderWaarde=$$$TextBetween(NaamMetPlaceholder,"[zts:","]")
+		If VervangWaarde="" {
+			Set VervangWaarde=PlaceholderWaarde
+		}
+		Set Naam=$$$Replace(NaamMetPlaceholder,"[zts:"_PlaceholderWaarde_"]",VervangWaarde)
+	}
+	Else {
+		Set Naam=NaamMetPlaceholder
+	}
+	Quit Naam
+]]></Implementation>
+</Method>
+
 <Method name="LoggedOnUserPath">
 <Description>
 Geeft het pad van de gebruiker die aangelogd is op het systeem via TELNET sessie</Description>
Index: BL/EC/Data.cls.xml
===================================================================
diff -u -r2667 -r3196
--- BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 2667)
+++ BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 3196)
@@ -2975,6 +2975,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VervangPlaceholder">
+<FormalSpec>NaamMetPlaceholder:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(BL.Sys.FOP.CommonTasks).VervangPlaceholderZTSDoorWaarde(NaamMetPlaceholder)
+]]></Implementation>
+</Method>
+
+<Method name="GeefUniekeNaamVoorFTP">
+<FormalSpec>GedeelteNaarBase64:%String,GedeelteLetterlijk:%String,Extensie:%String="pdf"</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set DeelEncoded=$TR($System.Encryption.Base64Encode(GedeelteNaarBase64),"+="_$C(10,13),"_")
+	Set Placeholder=##class(BL.Sys.FOP.CommonTasks).GeefUniekePlaceholderZTS()
+	Quit DeelEncoded_Placeholder_GedeelteLetterlijk_"."_$TR(Extensie,".","")
+]]></Implementation>
+</Method>
+
 <Method name="GetDocumentURL">
 <Description>
 s x=##class(BL.EC.Data).%New().GetDocumentURL("XX","MN:PL","CHK","",1239)</Description>
@@ -2993,46 +3012,52 @@
 	. Set Status=##class(BL.Flow.Factuur.Doc).ValidateFactNr("F",DocNr,KlantNr)
 	. Quit:($$$ISERR(Status))
 	. If RecordType=$$$rtPDF Do
-	. . Set FileName=$TR($System.Encryption.Base64Encode(URLKey),"+="_$C(10,13),"_")_"FAC"_DocNr_".pdf"
-	. . Set Status=##class(BL.Flow.Factuur.Doc).RenderAndFtpDoc(DocNr,,,$$$vHisieDownloadIntern,,FileName) 
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"FAC"_DocNr,"pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set Status=##class(BL.Flow.Factuur.Doc).RenderAndFtpDoc(DocNr,,,$$$vHisieDownloadIntern,,FileNameMetPlaceholder) 
 	. . Set:($$$ISOK(Status)) DocURL=$$$vHisieDownloadExtern_"/"_FileName
 	;Order
 	Else  If (Toegang=$$$tgOrder) || (Toegang=$$$tgContractOrder) Do
 	. Set Status=##class(BL.Flow.Order.Doc).ValidateORDNr(DocNr,KlantNr)
 	. Quit:($$$ISERR(Status))
 	. If RecordType=$$$rtPDF Do
-	. . Set FileName=$TR($System.Encryption.Base64Encode(URLKey),"+="_$C(10,13),"_")_"ORD"_DocNr_".pdf"
-	. . Set Status=##class(BL.Flow.Order.Doc).RenderAndFtpDoc(DocNr,$$$vHisieDownloadIntern,,FileName) 
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"ORD"_DocNr,"pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set Status=##class(BL.Flow.Order.Doc).RenderAndFtpDoc(DocNr,$$$vHisieDownloadIntern,,FileNameMetPlaceholder) 
 	. . Set:($$$ISOK(Status)) DocURL=$$$vHisieDownloadExtern_"/"_FileName
 	;Offerte
 	Else  If Toegang=$$$tgOfferte Do
 	. Set Status=##class(BL.Flow.Offerte.Doc).ValidateOFFNr(DocNr,KlantNr)
 	. Quit:($$$ISERR(Status))
 	. If RecordType=$$$rtPDF Do
-	. . Set FileName=$TR($System.Encryption.Base64Encode(URLKey),"+="_$C(10,13),"_")_"OFF"_DocNr_".pdf"
-	. . Set Status=##class(BL.Flow.Offerte.Doc).RenderAndFtpDoc("O-"_DocNr,$$$vHisieDownloadIntern,,FileName) 
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"OFF"_DocNr,"pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set Status=##class(BL.Flow.Offerte.Doc).RenderAndFtpDoc("O-"_DocNr,$$$vHisieDownloadIntern,,FileNameMetPlaceholder) 
 	. . Set:($$$ISOK(Status)) DocURL=$$$vHisieDownloadExtern_"/"_FileName
 	;Uitlevering
 	Else  If Toegang=$$$tgUitlevering Do
 	. Set Status=##class(BL.Flow.Levering.Doc).ValidateBONNr(DocNr,KlantNr)
 	. Quit:($$$ISERR(Status))
 	. If RecordType=$$$rtPDF Do
-	. . Set FileName=$TR($System.Encryption.Base64Encode(URLKey),"+="_$C(10,13),"_")_"LEV"_DocNr_".pdf"
-	. . Set Status=##class(BL.Flow.Levering.Doc).RenderAndFtpDoc(DocNr,$$$vHisieDownloadIntern,,FileName) 
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"LEV"_DocNr,"pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set Status=##class(BL.Flow.Levering.Doc).RenderAndFtpDoc(DocNr,$$$vHisieDownloadIntern,,FileNameMetPlaceholder) 
 	. . Set:($$$ISOK(Status)) DocURL=$$$vHisieDownloadExtern_"/"_FileName
 	;Prijslijst
 	Else  If Toegang=$$$tgPrijsLijst Do
 	. If RecordType=$$$rtPDF Do 
 	. . // Converteren van gearchiveerde prijslijst XML naar PDF 
 	. .	Set XMLPad=..GeefXMLPadVoorActuelePrijslijst(KlantNr) 
-	. . Set FileName=$TR($System.Encryption.Base64Encode(URLKey),"+="_$C(10,13),"_")_"PL.pdf"
-	. . Set Status=##class(BL.Flow.PrijsLijst.Doc).RenderAndFtpFromXML(XMLPad,$$$vHisieDownloadIntern,,FileName) 
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"PL","pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set Status=##class(BL.Flow.PrijsLijst.Doc).RenderAndFtpFromXML(XMLPad,$$$vHisieDownloadIntern,,FileNameMetPlaceholder) 
 	. . Set:($$$ISOK(Status)) DocURL=$$$vHisieDownloadExtern_"/"_FileName
 	. Else  If RecordType=$$$rtXML Do
 	. . // Converteren van gearchiveerde prijslijst XML naar XML voor XLS 
 	. .	Set XMLPad=..GeefXMLPadVoorActuelePrijslijst(KlantNr) 
-	. . Set FileName=$TR($System.Encryption.Base64Encode(URLKey),"+="_$C(10,13),"_")_"PL.xml"
-	. . Set Status=##class(BL.Flow.PrijsLijst.Doc).TransformToXMLAndFtpFromXML(XMLPad,$$$vHisieDownloadIntern,,FileName) 
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"PL","xml")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set Status=##class(BL.Flow.PrijsLijst.Doc).TransformToXMLAndFtpFromXML(XMLPad,$$$vHisieDownloadIntern,,FileNameMetPlaceholder) 
 	. . Set:($$$ISOK(Status)) DocURL=$$$vHisieDownloadExtern_"/"_FileName
 	. Else  If RecordType=$$$rtCHECK Do
 	. . // Alleen controleren of er een gearchiveerde prijslijst XML bestaat 
@@ -3054,8 +3079,9 @@
 	. If objOfferte.Controle="P" Do  Quit
 	. . Set Status=$$$ERROR($$$GeneralError,"Er zijn fouten opgetreden tijdens controle van offerte '"_DocNr_"' ("_objOfferte.Commentaar_").") 
 	. If RecordType=$$$rtPDF Do
-	. . Set FileName=$TR($System.Encryption.Base64Encode(URLKey),"+="_$C(10,13),"_")_"F"_DocNr_".pdf"
-	. . Set Status=##class(BL.Flow.Offerte.Doc).RenderAndFtpDoc(DocNr,$$$vHisieDownloadIntern,,FileName) 
+	. . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"F"_DocNr,"pdf")
+	. . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder)
+	. . Set Status=##class(BL.Flow.Offerte.Doc).RenderAndFtpDoc(DocNr,$$$vHisieDownloadIntern,,FileNameMetPlaceholder) 
 	. . Set:($$$ISOK(Status)) DocURL=$$$vHisieDownloadExtern_"/"_FileName
 	Else  Do
 	. Set Status=$$$ERROR($$$GeneralError,"Toegang '"_Toegang_"' is onbekend")
Index: BL/Sys/FOP/Test.cls.xml
===================================================================
diff -u -r2337 -r3196
--- BL/Sys/FOP/Test.cls.xml	(.../Test.cls.xml)	(revision 2337)
+++ BL/Sys/FOP/Test.cls.xml	(.../Test.cls.xml)	(revision 3196)
@@ -634,7 +634,23 @@
 	If DebugFtp Do
 	. If 'Ftp.GetDirectory(.CurDir) Do WL^vhDBG("FTP: Can not get current dir!")  Quit
  	. Do WL^vhDBG("CurDir is now: "_CurDir)
+	
+	; De placeholder vervangen 
+	Set NaamMetPlaceholder=DestFName
+	Set NaamMetWildcard=##class(BL.Sys.FOP.CommonTasks).VervangPlaceholderZTSDoorWaarde(NaamMetPlaceholder,"*")
+	Set NaamZonderPlaceholder=##class(BL.Sys.FOP.CommonTasks).VervangPlaceholderZTSDoorWaarde(NaamMetPlaceholder)
+	Set DestFName=NaamZonderPlaceholder
+	Set IsPlaceholderVervangen = (NaamMetWildcard'=NaamZonderPlaceholder)
+	
+	 d WLIP^vhDBG(97,"FTP before Delete Files")
+	 d WLIP^vhDBG(97,NaamMetWildcard)
 
+	; if placeholder, then kill previous files with similar name 
+	Set MagFilesVerwijderen=(IsPlaceholderVervangen)&&(NaamMetWildcard["*")
+	If MagFilesVerwijderen {
+		Set scDelete=##class(BL.Sys.FOP.Test).VerwijderFilesViaPatternOnFtp(NaamMetWildcard,Ftp,0)   ; Alternatieve methode is minder efficient, maar werkt wel 
+	}
+	
 	; Send File to FTP
 	If ('Ftp.Store(DestFName,SrcStream)) Do  Quit sc
 	. Set sc=$$$ERROR($$$GeneralError,"FTP: Failed to store file on FTP Server")  
@@ -667,6 +683,84 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderFilesViaPatternOnFtp">
+<Description>
+Bestanden op de FTP-site verwijderen volgens NaamMetWildcard 
+Dit is MDelete: een lijst ophalen via wildcard (pattern) + de files hiervan één voor één verwijderen via Ftp.Delete 
+Het ophalen van de lijst verloopt in-line, het verwijderen kan ge-jobbed worden (TO DO) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>NaamMetWildcard:%String,FtpClient:%Net.FtpSession,RunInNewJob:%Boolean=0</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set LijstBestandenTeVerwijderen=##class(BL.Sys.FOP.Test).GeefLijstFilesViaPatternOnFtp(NaamMetWildcard,FtpClient)
+	If RunInNewJob {
+		// Run in new job required parameter passing 
+		Set sc=NotImplemented
+	}
+	Else {
+		Set sc=##class(BL.Sys.FOP.Test).VerwijderFilesOnFtp(LijstBestandenTeVerwijderen,FtpClient)
+	}
+	Quit sc
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstFilesViaPatternOnFtp">
+<Description>
+Geeft een lijst met bestanden terug die voldoen aan de opgegeven pattern (NaamMetWildcard) 
+               
+BELANGRIJK !!! 
+==========     
+Er zijn 2 veronderstellingen : 
+ - er mogen geen spaties in de filenames staan (op de ftp-server) 
+ - in de lijst die FTP teruggeeft staat de bestandsnaam in de laatste kolom; OPGELET : als dit verschillend is op andere systeem/omgeving, dan moet de code meer generiek gemaakt worden.
+
+Een alternatieve methode is Ftp.NameList(Path) , maar deze ondersteunt geen "wildcard matching".</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>NaamMetWildcard:%String,FtpClient:%Net.FtpSession</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set LijstBestanden=##class(%ListOfDataTypes).%New()
+	Set StreamFromFTP=""
+	Set ResultOK=FtpClient.List(NaamMetWildcard,.StreamFromFTP)
+	If ResultOK {
+		Do StreamFromFTP.Rewind()
+		While ('StreamFromFTP.AtEnd) {
+			Set TekstLijn=StreamFromFTP.ReadLine()
+			  ;d WLIP^vhDBG(97,TekstLijn)
+			Set BestandNaam=$$$LastPiece(TekstLijn," ")
+			If ##class(TECH.StringUtils).MatchesPattern(BestandNaam,NaamMetWildcard) {
+				Do LijstBestanden.Insert(BestandNaam)
+			}
+		}
+	}
+	Else {
+		; Throw error 
+	}
+	Quit LijstBestanden
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderFilesOnFtp">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LijstBestandenTeVerwijderen:%ListOfDataTypes,FtpClient:%Net.FtpSession</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set IsVerwijderd=0
+	Set BestandenIterator=##class(TECH.ListIterator).%New(LijstBestandenTeVerwijderen)
+	While (BestandenIterator.HasNext()) {
+		Set BestandTeVerwijderen=BestandenIterator.Next()
+		Set IsVerwijderd=FtpClient.Delete(BestandTeVerwijderen)
+		 d WLIP^vhDBG(97,"FTP result voor Delete "_BestandTeVerwijderen_" : "_IsVerwijderd)
+		If 'IsVerwijderd {
+			Set scWarning=$$$ERROR($$$GeneralError,"FTP: "_FtpClient.ReturnMessage)   ; Warning, is geen kritieke fout. 
+			d WLIP^vhDBG(97,"FTP Delete failed : "_$$ParseStatus^vhLib(scWarning))
+			; TO DO : Loggen via vhLibLogger 
+		}
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="SimulateAll">
 <Description>
  s sc=##class(BL.Sys.FOP.Test).SimulateAll()   w $$ParseStatus^vhLib(sc)</Description>
Index: WV FOP DocBase.prj.xml
===================================================================
diff -u -r3188 -r3196
--- WV FOP DocBase.prj.xml	(.../WV FOP DocBase.prj.xml)	(revision 3188)
+++ WV FOP DocBase.prj.xml	(.../WV FOP DocBase.prj.xml)	(revision 3196)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV FOP DocBase" LastModified="2011-11-28 09:42:59" TargetType="0" HttpServer="http://Cache02:1972">
+<Project name="WV FOP DocBase" LastModified="2011-11-28 11:27:04" TargetType="0" HttpServer="http://Cache02:1972">
   <Items>
     <ProjectItem name="/csp/admin1/FOPQueue.csp" type="CSP"/>
     <ProjectItem name="/csp/admin1/FOPTask.csp" type="CSP"/>