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

PCHD#30428 -- Klantspecifieke aanpassingen voor XD-portal

Browse Source 
svn path=/Website/branches/v5.4.2/; revision=23145
This commit is contained in:
Arthur Egberink
2014-10-28 15:10:55 +00:00
parent a0ddf2140a
commit d05aab4134
9 changed files with 141 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
CUST/PCHH/export/gen_export_exact.bat Normal file
View File

@@ -0,0 +1,26 @@
REM GEN_EXPORT_EXACT.BAT
REM
REM PCHH
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\PCHH*.xml .\EXACT\backup
del .\EXACT\PCHH*.log
del .\EXACT\PCHH*.xml
CALL ..\..\..\utils\gen_export\gen_export.bat EXACT
if not exist ".\EXACT\PCHH*.xml" goto einde
cscript sendmail.vbs
:einde
CALL ..\..\..\utils\gen_export\gen_export.bat VERWERK_EXACT

19
CUST/PCHH/export/sendmail.vbs Normal file
View File

@@ -0,0 +1,19 @@
Dim fso, folder, files
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("d:\Apps\Facilitor\Fplace5i\CUST\PCHH\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@pchh.facilitor.nl"
objEmail.To = "fa@pch-dienstengroep.nl;a.egberink@sgfacilitor.nl"
objEmail.Subject = "Facilitor: Bestand met inkoopfacturen (Holding)"
objEmail.Textbody = "Automatisch verzonden bestand van geexporteerde facturen."
objEmail.AddAttachment "d:\Apps\Facilitor\Fplace5i\CUST\PCHH\export\EXACT\" + folderIdx.Name
objEmail.Send
End If
Next

4
CUST/PCHH/import/import_factuur.bat
View File

@@ -1,6 +1,6 @@
REM Import van factuurbestandsnamen naar FACILITOR
move d:\Apps\Facilitor\Webdav\Pchd\*.csv .
move d:\Apps\Facilitor\Webdav\Pchd\0100*.csv .
cscript ..\..\..\utils\gen_import\gen_import.wsf PCHD FACTUUR >>genimport.log 2>>&1
cscript ..\..\..\utils\gen_import\gen_import.wsf PCHX FACTUUR >>genimport.log 2>>&1

26
CUST/PCHP/export/gen_export_exact.bat Normal file
View File

@@ -0,0 +1,26 @@
REM GEN_EXPORT_EXACT.BAT
REM
REM PCHP
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\PCHP*.xml .\EXACT\backup
del .\EXACT\PCHP*.log
del .\EXACT\PCHP*.xml
CALL ..\..\..\utils\gen_export\gen_export.bat EXACT
if not exist ".\EXACT\PCHP*.xml" goto einde
cscript sendmail.vbs
:einde
CALL ..\..\..\utils\gen_export\gen_export.bat VERWERK_EXACT

19
CUST/PCHP/export/sendmail.vbs Normal file
View File

@@ -0,0 +1,19 @@
Dim fso, folder, files
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("d:\Apps\Facilitor\Fplace5i\CUST\PCHP\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@pchp.facilitor.nl"
objEmail.To = "fa@pch-dienstengroep.nl;a.egberink@sgfacilitor.nl"
objEmail.Subject = "Facilitor: Bestand met inkoopfacturen (Parkeren)"
objEmail.Textbody = "Automatisch verzonden bestand van geexporteerde facturen."
objEmail.AddAttachment "d:\Apps\Facilitor\Fplace5i\CUST\PCHP\export\EXACT\" + folderIdx.Name
objEmail.Send
End If
Next

4
CUST/PCHP/import/import_factuur.bat
View File

@@ -1,6 +1,6 @@
REM Import van factuurbestandsnamen naar FACILITOR
move d:\Apps\Facilitor\Webdav\Pchd\*.csv .
move d:\Apps\Facilitor\Webdav\Pchd\0250*.csv .
cscript ..\..\..\utils\gen_import\gen_import.wsf PCHD FACTUUR >>genimport.log 2>>&1
cscript ..\..\..\utils\gen_import\gen_import.wsf PCHX FACTUUR >>genimport.log 2>>&1

26
CUST/PCHS/export/gen_export_exact.bat Normal file
View File

@@ -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_FAC
if not exist ".\EXACT\*_fac*.xml" goto einde
cscript sendmail.vbs
:einde
CALL ..\..\..\utils\gen_export\gen_export.bat VERWERK_EXACT_FAC

19
CUST/PCHS/export/sendmail.vbs Normal file
View File

@@ -0,0 +1,19 @@
Dim fso, folder, files
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("d:\Apps\Facilitor\Fplace5i\CUST\PCHD\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@pchd.facilitor.nl"
objEmail.To = "fa@pch-dienstengroep.nl;a.egberink@sgfacilitor.nl"
objEmail.Subject = "Facilitor: Bestand met inkoopfacturen"
objEmail.Textbody = "Automatisch verzonden bestand van geexporteerde facturen."
objEmail.AddAttachment "d:\Apps\Facilitor\Fplace5i\CUST\PCHD\export\EXACT\" + folderIdx.Name
objEmail.Send
End If
Next

4
CUST/PCHS/import/import_factuur.bat
View File

@@ -1,6 +1,6 @@
REM Import van factuurbestandsnamen naar FACILITOR
move d:\Apps\Facilitor\Webdav\Pchd\*.csv .
move d:\Apps\Facilitor\Webdav\Pchd\0300*.csv .
cscript ..\..\..\utils\gen_import\gen_import.wsf PCHD FACTUUR >>genimport.log 2>>&1
cscript ..\..\..\utils\gen_import\gen_import.wsf PCHX FACTUUR >>genimport.log 2>>&1