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

UWVA#51769 Schonen bijlagen onder Facilitor_DATA

Browse Source 
svn path=/Website/branches/v2017.2/; revision=36566
This commit is contained in:
Maarten van der Heide
2018-01-11 14:59:11 +00:00
parent ea96ccb1a7
commit e89a68849f
1 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
CUST/UWVA/Export/uwva_delete_vertaaldocumenten.js
View File

@@ -9,6 +9,9 @@
var udlstr = WScript.Arguments(0); // udlpath
udlstr = 'File Name='+udlstr;
//dataroot = '../../../../Branch20172_Data/UWVA';
//dataroot = 'd:/Apps/Facilitor/Branch20172_Data/UWVA';
dataroot = 'd:/Apps/Facilitor_DATA/UWVA';
var DIR_vertaal = 'VERTAAL_OPRUIM';
var LOG_vertaal = DIR_vertaal + '/VERTAAL_OPRUIM.LOG';
@@ -29,7 +32,7 @@ function DoLog_start(p_file)
fp_log = fso.OpenTextFile(p_file, 8, true, 0);
DoLog ("");
DoLog ("--------------------" + new Date() + "--------------------");
DoLog ("Oracle connectie: " + udlstr);
DoLog ("Oracle connectie: " + udlstr);
}
function DoLog(p_message)
@@ -45,12 +48,13 @@ function DoLog_end()
// Verwijdert de bestanden (vertaaldocumenten) uit de folder/directory 'p_foldernaam'
function VerwijderDocumentenUitFolder (p_foldernaam)
{
var fso1, f, fc, i;
var folderpad = dataroot + p_foldernaam;
var fso1, f, fc, i;
fso1 = new ActiveXObject("Scripting.FileSystemObject");
i = 0;
if (fso1.FolderExists(p_foldernaam)){
DoLog("Folder: <" + p_foldernaam + ">");
f = fso1.GetFolder(p_foldernaam);
if (fso1.FolderExists(folderpad)){
DoLog("Folder: <" + folderpad + ">");
f = fso1.GetFolder(folderpad);
fc = new Enumerator(f.files);
for (; !fc.atEnd(); fc.moveNext())
{
@@ -61,7 +65,7 @@ function VerwijderDocumentenUitFolder (p_foldernaam)
DoLog("Aantal verwijderde bestanden: " + i);
}
else {
DoLog("Folder: <" + p_foldernaam + "> bestaat NIET!");
DoLog("Folder: <" + folderpad + "> bestaat NIET!");
}
return(i);
}
@@ -82,7 +86,7 @@ try
oRs = Oracle.Execute(sql);
DoLog("---> Vertaaldiensten die zijn verwerkt/uitgevoerd");
while (!oRs.eof)
{
// WScript.Echo("REM Melding '" + oRs("mld_melding_key") + "' ; aangemaakt op " + oRs("mld_melding_datum") + " ; verwerkt op " + oRs("mld_melding_verwerkt"));
@@ -98,7 +102,7 @@ try
oRs = Oracle.Execute(sql);
DoLog("---> Vertaaldiensten die zijn afgewezen / niet zijn verwerkt");
while (!oRs.eof)
{
{
DoLog("-- Melding " + oRs("mld_melding_key") + " ; aangemaakt op " + oRs("mld_melding_datum") + " ; afgewezen op " + oRs("mld_melding_afgewezen"));
VerwijderDocumentenUitFolder (oRs("FolderVertaalDocumenten"));
oRs.MoveNext();