FSN#36602 Import backupfolder registreren in fac_import_backupdir (verder doen we er nog niets mee)

svn path=/Website/trunk/; revision=30384

APPL/IMP/imp_shared.js

@@ -46,12 +46,14 @@ function impReadStream(fileStream, import_app_key, params)
 
         // Hadden we nog iets openstaan voor deze import_app_key? Dan wissen we die eerst
         // We ondersteunen namelijk geen *twee* openstaande imports van dezelfde functie
-        // TODO: Saved files mee cascaderen
         var sql = "DELETE FROM fac_import"
                 + " WHERE " + this_import_where
                 + "   AND fac_import_datum_verwerkt IS NULL";
         Oracle.Execute(sql); // cascadeert vanzelf FAC_IMP_LOG en FAC_IMP_FILE
 
+        // Merk op: verwerkte FAC_IMPORT records blijven eeuwig bestaan
+        // TODO: Ooit saved files opruimen op basis van fac_import_backupdir
+
         // Ook: *alle* oude FAC_IMP_FILE voor deze import gaan nu weg
         var sql = "DELETE FROM fac_imp_file"
                 + " WHERE fac_import_key IN"
@@ -117,6 +119,11 @@ function impReadStream(fileStream, import_app_key, params)
     oRs.Close();
 
     var backDir = backupfolder(import_app, folder, import_key);
+    // Registeren (ook al doen we er verder nog niets mee)
+    sql = "UPDATE fac_import"
+        + "   SET fac_import_backupdir = " + safe.quoted_sql(backDir)
+        + " WHERE fac_import_key = " + import_key;
+    Oracle.Execute(sql);
 
     if (backDir && params.keep_backup)
     {