FSN#38016 Sleutel heeft vervaldatum en status inactief maar is toch uit te geven

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

APPL/SLE/sle.inc

@@ -14,6 +14,10 @@ sle = {func_enabled_slecil: // Wat mag ik zoal op dit specifieke sleutel/cilinde
                         + ", d.ins_alg_ruimte_key_org"
                         + ", sd.ins_srtgroep_key"
                         + ", d.ins_deel_actief"
+                        + ", CASE WHEN d.ins_deel_vervaldatum < SYSDATE"
+                        + "    THEN 1"
+                        + "    ELSE 0"
+                        + "  END vervallen"
                         + "  FROM ins_deel d"
                         + ", ins_srtdeel sd"
                         + " WHERE d.ins_srtdeel_key = sd.ins_srtdeel_key"
@@ -24,6 +28,7 @@ sle = {func_enabled_slecil: // Wat mag ik zoal op dit specifieke sleutel/cilinde
                var uitgegeven = ioRs("ins_alg_ruimte_key_org").value != null;
                var sletype = (ioRs("ins_srtgroep_key").value == S("sle_ins_srt_groep_key")? "S" : "C")
                var actief = ioRs("ins_deel_actief").Value == 1;
+               var vervallen = ioRs("vervallen").Value == 1;
                ioRs.Close();
 
                // Autorisatie niet van discipline afhankelijk. En ook niet van persoon.
@@ -38,7 +43,7 @@ sle = {func_enabled_slecil: // Wat mag ik zoal op dit specifieke sleutel/cilinde
                // Voor het uitgeven en innemen van sleutels gelden WEB_SLEFOF rechten
                // Voor het uitgeven en innemen van cilinders gelden WEB_SLEBOF rechten
                var canWrite = (sletype == "S"? iresult.canFOWrite : iresult.canBOWrite)
-               iresult.canUitgeven = canWrite && !uitgegeven && actief; // Uitgeven
+               iresult.canUitgeven = canWrite && !uitgegeven && actief && !vervallen; // Uitgeven
                iresult.canInnemen = canWrite && uitgegeven; // Innemen
                iresult.canDelete = canWrite;
 

APPL/SLE/slecil_list.inc

@@ -339,7 +339,7 @@ function slecil_list (params)
 
       function fncolActief(oRs)
       {
-        return (oRs("ins_deel_actief").Value == 1 ? "" : L("lcl_ins_not_active"));
+        return (oRs("ins_deel_actief").Value == 1 ? L("lcl_ins_active") : L("lcl_ins_not_active"));
       }
 
       var addurl = "appl/ins/ins_deel.asp?urole=bo"