YKPN#40909 -- Foutmeldingen T&V koppeling

svn path=/Website/branches/v2017.1/; revision=34318

CUST/YKPN/export/bookVC.js

@@ -95,8 +95,16 @@ try {
       while (!oRs_res.eof)
       {
         v_reservering_key = oRs_res("res_reservering_key").Value;
-        v_vertrouwelijk = oRs_res("vertrouwelijk").Value;
 
+        // het kan zo zijn dat er een nieuwe deelreservering toegevoegd wordt die nog geen vc_id heeft.
+        sql = "SELECT SUM (vertrouwelijk) vertrouwelijk, MAX(vc_id) vc_id "
+            + "  FROM ykpn_v_vc_gegevens "  
+            + " WHERE res_reservering_key = " + v_reservering_key 
+        var oRs_id = Oracle.Execute(sql);
+
+        v_vertrouwelijk = oRs_id("vertrouwelijk").Value;
+        v_vc_id = oRs_id("vc_id").Value;
+           
          sql = "SELECT t_van, "
              + "       t_tot, "
              + "       omschrijving, "
@@ -134,7 +142,7 @@ try {
            v_idNummerTnF = oRs_rsv("idNummerTnF").Value;
            v_sip_ip = oRs_rsv("sip_ip").Value;
            v_ipadres = oRs_rsv("ipadres").Value; 
-           v_vc_id = oRs_rsv("vc_id").Value;       
+       
            
            WScript.Echo("v_rsv_ruimte_key = " + v_rsv_ruimte_key);