FSN#30662 Eigen tabel kan niet verwijderd worden.

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

APPL/FAC/fac_kenmerkdomein.asp

@@ -211,6 +211,7 @@ else
           sql = "SELECT fac_usrtab_key"
               + "     , " + lcl.xsqla("fac_usrtab_naam", "fac_usrtab_key")
               + "  FROM fac_usrtab"
+              + " WHERE fac_usrtab_verwijder IS NULL"
               + " ORDER BY UPPER(" + lcl.xsql("fac_usrtab_naam", "fac_usrtab_key") + ")";
 
           FCLTselector("usrtabkey",

APPL/facmgtVB/fac_usrtabgrid.asp

@@ -121,6 +121,7 @@ Sub UserTabGrid_Show()
 '-------------------------------
 
 
+  sWhere = " WHERE fac_usrtab_verwijder is null"
   
 '-------------------------------
 ' Build ORDER BY statement

APPL/facmgtVB/fac_usrtabrecord1.asp

@@ -219,9 +219,14 @@ Sub UserTabRecordAction(sAction)
     case "delete"
 '-------------------------------
 ' UserTabRecord Delete Event begin
+sSql = "update fac_usrtab "&_
+       "set fac_usrtab_verwijder = sysdate "&_
+       "where fac_usrtab_key="&pPKFAC_USRTAB_KEY
 ' UserTabRecord Delete Event end
 '-------------------------------
+      if sSQL = "" then
       sSQL = "delete from FAC_USRTAB where " & sWhere
+      end if
   end select
 '-------------------------------
 '-------------------------------