MNNL#73953 Flags (bedrijfskritisch) bij objecten en die zichtbaar bij objectselectie

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

FAC/FAC_PACX.SRC

@@ -3763,6 +3763,7 @@ AS
       v_perslid_key_beh           ins_deel.prs_perslid_key_beh%TYPE;
       v_externnr                  ins_deel.ins_deel_externnr%TYPE;
       v_externsyncdate            ins_deel.ins_deel_externsyncdate%TYPE;
+      v_flag                      ins_deel.ins_deel_flag%TYPE;
 
       CURSOR c1
       IS
@@ -3802,7 +3803,8 @@ AS
                 id.ins_deel_t_uitvoertijd.eenheid,
                 prs_perslid_key_beh,
                 ins_deel_externnr,
-                ins_deel_externsyncdate
+                ins_deel_externsyncdate,
+                ins_deel_flag
            INTO v_ins_srtdeel_key,
                 v_ins_alg_ruimte_key,
                 v_ins_alg_ruimte_type,
@@ -3830,7 +3832,8 @@ AS
                 v_uitvoertijd_e,
                 v_perslid_key_beh,
                 v_externnr,
-                v_externsyncdate
+                v_externsyncdate,
+                v_flag
            FROM ins_deel id
           WHERE ins_deel_key = p_key;
 
@@ -3862,6 +3865,7 @@ AS
          createxmltagvalue ('opmerking', v_opmerking);
          createxmltagvalue ('externnr', v_externnr);
          mydatetochar ('externsyncdate', v_externsyncdate);
+         createxmltagvalue ('flag', v_flag);
 
          IF NOT p_concise
          THEN