AAVL#36393 dienst niet (altijd) invullen bij wijzigen opdracht

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

APPL/MLD/mld_edit_opdr.asp

@@ -185,9 +185,17 @@ if (opdr_key > 0)
       + " WHERE prs_bedrijf_key = " + mld_opdr.uitvoerende_key
       + "   AND (alg_locatie_key = " + mld_melding.loc_key + " OR alg_locatie_key IS NULL)"
       + "   AND (alg_gebouw_key = " + mld_melding.bld_key + " OR alg_gebouw_key IS NULL)"
+
+  // Als er <20><>n geldige dienst dan deze invullen. Anders leeglaten
+  var sqlcnt = "SELECT COUNT ( * ) nrdienst"
+             + "  FROM ("  + sql + ")";      
+             
+  var oRs2 = Oracle.Execute(sqlcnt);
+  var nrdienst = oRs2("nrdienst").Value;
+  oRs2.close();        
   oRs = Oracle.Execute(sql);
   if (!oRs.eof)
-    stdm_prs_dienst_key = oRs("prs_dienst_key").Value;
+    stdm_prs_dienst_key =  (nrdienst == 1 ? oRs("prs_dienst_key").Value : -1);
 
   // Registratiedatum opdracht bepalen.
   sql = "SELECT fac.gettrackingdate('ORDNEW', " + opdr_key + ") registratiedatum FROM DUAL"