admin/Facilitor
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DENB#51465 BBS_K2F-export incl. rapportages

Browse Source 
svn path=/Website/branches/v2018.1/; revision=38875
This commit is contained in:
Maarten van der Heide
2018-08-21 06:48:55 +00:00
parent edabc2e960
commit f17e54167a
2 changed files with 30 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
CUST/DENB/export/gen_export_K2F.bat
View File

@@ -2,8 +2,8 @@ REM GEN_EXPORT_K2F.BAT
REM REM
REM DENB REM DENB
REM REM
REM "Dummy" export die feitelijk niets exporteert, maar in de nacht na REM Exporteert BBS-verkoopfacturatie vanuit FACILITOR als CSV tbv. K2F.
REM de 15e werkdag van de maand BBS-reserveringen verwerkt. REM Het aangemaakte CSV-bestand wordt gemaild naar de afgesproken persoon.
REM REM
REM Context : roep deze file aan indien nodig, of schedule deze REM Context : roep deze file aan indien nodig, of schedule deze
REM Vereist : de randvoorwaarde voor het gebruik van gen_export REM Vereist : de randvoorwaarde voor het gebruik van gen_export
@@ -14,5 +14,14 @@ REM
REM (c) 2018 Facilitor B.V. REM (c) 2018 Facilitor B.V.
REM 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 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

18
CUST/DENB/export/sendmail_K2F.vbs Normal file
View File

@@ -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