PCHD#33780 -- Inrichting het Gelders Huis

svn path=/Website/branches/v2016.3/; revision=33870

CUST/PCHA/export/gen_export_exact.bat

@@ -0,0 +1,26 @@
+REM GEN_EXPORT_EXACT.BAT
+REM
+REM PCHA
+REM
+REM Exporteert informatie naar een export-bestand
+REM
+REM Context : roep deze file aan indien nodig, of schedule deze
+REM Verseist: de randvoorwaarde voor het gebruik van gen_export
+REM
+REM $Revision$
+REM $Id$
+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
+CALL ..\..\..\utils\gen_export\gen_export.bat EXACT
+
+if not exist ".\EXACT\*_fac*.xml" goto einde
+cscript sendmail.vbs
+:einde
+
+
+CALL ..\..\..\utils\gen_export\gen_export.bat VERWERK_EXACT

CUST/PCHA/export/sendmail.vbs

@@ -0,0 +1,19 @@
+
+Dim fso, folder, files 
+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
+      Set objEmail = CreateObject("CDO.Message")
+      objEmail.From = "no_reply@pcha.facilitor.nl"
+      objEmail.To = "fa@pch-dienstengroep.nl"
+      objEmail.Subject = "Facilitor: Bestand met inkoopfacturen HGH"
+      objEmail.Textbody = "Automatisch verzonden bestand van geexporteerde facturen."
+      objEmail.AddAttachment "d:\Apps\Facilitor\Fplace5i\CUST\PCHA\export\EXACT\" + folderIdx.Name
+      objEmail.Send
+   End If
+Next  
+
+