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

PCHD#33780 -- Inrichting het Gelders Huis

Browse Source 
svn path=/Website/branches/v2017.1/; revision=34580
This commit is contained in:
Arthur Egberink
2017-07-10 14:44:14 +00:00
parent 2a89bfdf0a
commit 6df1208db7
2 changed files with 14 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
CUST/PCHA/export/gen_export_exact.bat
View File

@@ -13,22 +13,22 @@ REM
REM (c) 2010, SG|facilitor bv, +31 (53) 4800700, support@sgfacilitor.nl
REM
copy .\EXACT\*_fac*.xml .\EXACT\backup
del .\EXACT\*_fac*.log
del .\EXACT\*_fac*.xml
copy .\EXACT\PCHA_exact2*.xml .\EXACT\backup
del .\EXACT\PCHA_exact2*.log
del .\EXACT\PCHA_exact2*.xml
CALL ..\..\..\utils\gen_export\gen_export.bat EXACT
if not exist ".\EXACT\*_fac*.xml" goto einde
cscript sendmail.vbs
if not exist ".\EXACT\PCHA_exact2*.xml" goto einde
cscript sendmail.vbs "PCHA_exact2"
:einde
copy .\EXACT\*_fac*.xml .\EXACT\backup
del .\EXACT\*_fac*.log
del .\EXACT\*_fac*.xml
copy .\EXACT\PCHA_exact650*.xml .\EXACT\backup
del .\EXACT\PCHA_exact650*.log
del .\EXACT\PCHA_exact650*.xml
CALL ..\..\..\utils\gen_export\gen_export.bat EXACT650
if not exist ".\EXACT\*_fac*.xml" goto einde
cscript sendmail.vbs
if not exist ".\EXACT\PCHA_exact650*.xml" goto einde
cscript sendmail.vbs "PCHA_exact650"
:einde
CALL ..\..\..\utils\gen_export\gen_export.bat VERWERK_EXACT

6
CUST/PCHA/export/sendmail.vbs
View File

@@ -1,11 +1,13 @@
Dim fso, folder, files
Dim fso, folder, files, filename
Set filename = WScript.Arguments(0)
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("d:\Apps\Facilitor\Fplace5i\CUST\PCHA\export\EXACT")
Set files = folder.Files
For each folderIdx In files
If InStrRev(folderIdx.Name, ".xml") > 0 Then
If InStrRev(folderIdx.Name, filename) > 0 AND InStrRev(folderIdx.Name, ".xml") > 0 Then
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "no_reply@pcha.facilitor.nl"
objEmail.To = "fa@pch-dienstengroep.nl"