DENB#51465 BBS_K2F-export incl. rapportages

svn path=/Website/branches/v2018.1/; revision=38875

CUST/DENB/export/gen_export_K2F.bat

@@ -2,8 +2,8 @@ REM GEN_EXPORT_K2F.BAT
 REM
 REM DENB
 REM
-REM "Dummy" export die feitelijk niets exporteert, maar in de nacht na
-REM de 15e werkdag van de maand BBS-reserveringen verwerkt.
+REM Exporteert BBS-verkoopfacturatie vanuit FACILITOR als CSV tbv. K2F.
+REM Het aangemaakte CSV-bestand wordt gemaild naar de afgesproken persoon.
 REM
 REM Context : roep deze file aan indien nodig, of schedule deze
 REM Vereist : de randvoorwaarde voor het gebruik van gen_export
@@ -14,5 +14,14 @@ REM
 REM (c) 2018 Facilitor B.V.
 REM
 
-REM ================================================== create exportfile
+REM === cleanup
+copy .\K2F\BBS_K2F*.csv .\ADDD\Backup
+del .\K2F\BBS_K2F*.csv
+
+REM === create exportfile
 CALL ..\..\..\utils\gen_export\gen_export.bat BBS_K2F
+
+REM === mail
+if not exist ".\K2F\BBS_K2F*.csv" goto einde
+cscript sendmail_K2F.vbs
+:einde

CUST/DENB/export/sendmail_K2F.vbs

@@ -0,0 +1,18 @@
+Dim fso, folder, Files
+Set fso = CreateObject("Scripting.FileSystemObject")
+
+Set folder = fso.GetFolder("d:\Apps\Facilitor\Fplace5i\CUST\DENB\export\K2F")
+Set files = folder.Files
+For each folderIdx In Files
+   If InStrRev(folderIdx.Name, ".csv") > 0 And folderIdx.Size > 0 Then
+      Set objEmail = CreateObject("CDO.Message")
+      objEmail.From = "no_reply@denb.facilitor.nl"
+      ' objEmail.To = "m.vanderheide@facilitor.nl"
+      ' objEmail.To = "debiteuren@s-hertogenbosch.nl"
+      objEmail.To = "j.paymans@s-hertogenbosch.nl"
+      objEmail.Subject = "Facilitor: Maandelijkse aanlevering K2F-bestand"
+      objEmail.Textbody = "Automatisch verzonden K2F-bestand."
+      objEmail.AddAttachment "d:\Apps\Facilitor\Fplace5i\CUST\DENB\export\K2F\" + folderIdx.Name
+      objEmail.Send
+   End If
+Next