KFST#52897 -- Koppeling met Exact

svn path=/Website/branches/v2017.3/; revision=37781

CUST/KFST/export/gen_export_exact.bat

@@ -0,0 +1,26 @@
+REM GEN_EXPORT_EXACT.BAT
+REM
+REM PCHD
+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/KFST/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\KFST\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@kfst.facilitor.nl"
+      objEmail.To = "	factuurpsb@kien-fm.nl"
+      objEmail.Subject = "Facilitor: Bestand met inkoopfacturen"
+      objEmail.Textbody = "Automatisch verzonden bestand van geexporteerde facturen."
+      objEmail.AddAttachment "d:\Apps\Facilitor\Fplace5i\CUST\KFST\export\EXACT\" + folderIdx.Name
+      objEmail.Send
+   End If
+Next
+
+