MARX#63145 nog wat finetunes

svn path=/Database/trunk/; revision=47700

FAC/FAC_PACX.SRC

@@ -7624,6 +7624,7 @@ AS
       v_opmerking        res_deel.res_deel_opmerking%TYPE;
       v_verwijder        res_deel.res_deel_verwijder%TYPE;
       v_alg_level        res_deel.res_deel_alg_level%TYPE;
+      v_prs_perslid_key  res_deel.res_prs_perslid_key%TYPE;
    BEGIN
       createopentag ('res_deel');
 
@@ -7638,6 +7639,7 @@ AS
                 res_deel_opmerking,
              res_discipline_key,
              res_deel_verwijder,
+             res_prs_perslid_key,
              res_deel_alg_level
         INTO v_ins_deel_key,
              v_omschrijving,
@@ -7647,6 +7649,7 @@ AS
              v_opmerking,
              v_discipline_key,
              v_verwijder,
+             v_prs_perslid_key,
              v_alg_level
         FROM res_deel rd
        WHERE rd.res_deel_key = p_key;
@@ -7660,6 +7663,7 @@ AS
       createxmltagvalue ('prijsvast', v_prijs_vast);
       createxmltagvalue ('opmerking', v_opmerking);
       mydatetochar ('verwijder', v_verwijder);
+      create_prs_perslid_node (v_prs_perslid_key, 'persoon', TRUE);
       createxmltagvalue ('alglevel', v_alg_level);
       createclosetag ('res_deel');
    END;
@@ -7957,6 +7961,7 @@ AS
       v_afgerond               res_rsv_ruimte.res_rsv_ruimte_afgerond%TYPE;
       v_externnr               res_rsv_ruimte.res_rsv_ruimte_externnr%TYPE;
       v_cat_appr               res_rsv_ruimte.res_rsv_ruimte_cat_appr%TYPE;
+      v_mld_opdr_key           res_rsv_ruimte.mld_opdr_key%TYPE;
 
       CURSOR c2d
       IS
@@ -8022,7 +8027,8 @@ AS
              res_rsv_ruimte_cvab_mode,
              res_rsv_ruimte_afgerond,
              res_rsv_ruimte_externnr,
-             res_rsv_ruimte_cat_appr
+             res_rsv_ruimte_cat_appr,
+             rr.mld_opdr_key
         INTO v_reservering_key,
              v_ruimte_opstel_key,
              v_activiteit_key,
@@ -8054,7 +8060,8 @@ AS
              v_cvab_mode,
              v_afgerond,
              v_externnr,
-             v_cat_appr
+             v_cat_appr,
+             v_mld_opdr_key
         FROM res_rsv_ruimte rr, res_status_fo sf, res_status_bo sb
        WHERE rr.res_status_bo_key = sb.res_status_bo_key(+)
          AND rr.res_status_fo_key = sf.res_status_fo_key(+)
@@ -8109,6 +8116,7 @@ AS
          createxmltagvalue ('externnr', v_externnr);
          createxmltagvalue ('cat_appr', v_cat_appr);
          createxmltagvalue ('dirtlevel', v_dirtlevel);
+         create_mld_opdr_node(v_mld_opdr_key, NULL, TRUE);
          create_res_kenmerken (p_key);
          create_fac_tracking_node ('reservering', p_key);