AAEN#34001: Kenmerk zichtbaar maken in facturenscherm AAEN-A.

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

FAC/FAC_PACX.SRC

@@ -1222,6 +1222,26 @@ AS
       END IF;
    END;
 
+   PROCEDURE create_prs_relatietype_node (p_key IN NUMBER)
+   AS
+      v_omschrijving         prs_relatietype.prs_relatietype_omschrijving%TYPE;
+   BEGIN
+      IF p_key IS NOT NULL
+      THEN
+         createopentag ('relatietype');
+
+         SELECT prs_relatietype_omschrijving
+           INTO v_omschrijving
+           FROM prs_relatietype
+          WHERE prs_relatietype_key = p_key;
+
+         createxmltagvalue ('key', mynumbertochar (p_key));
+         createxmltagvalue ('omschrijving', v_omschrijving);
+
+         createclosetag ('relatietype');
+      END IF;
+   END;
+
    PROCEDURE create_prs_bedrijf_node (p_bedrijf_key   IN NUMBER,
                                       p_nodename      IN VARCHAR2)
    AS
@@ -1259,6 +1279,7 @@ AS
       v_xmldetails_loc       prs_bedrijf.prs_bedrijf_xmldetails_loc%TYPE;
       v_bes_limiet           prs_bedrijf.prs_bedrijf_bes_limiet%TYPE;
       v_bes_kosten           prs_bedrijf.prs_bedrijf_bes_kosten%TYPE;
+      v_relatietype_key      prs_bedrijf.prs_relatietype_key%TYPE;
 
       CURSOR c1
       IS
@@ -1304,7 +1325,8 @@ AS
                 mld_adres_key_fac,
                 prs_bedrijf_xmldetails_loc,
                 prs_bedrijf_bes_limiet,
-                prs_bedrijf_bes_kosten
+                prs_bedrijf_bes_kosten,
+                prs_relatietype_key
            INTO v_naam,
                 v_post_adres,
                 v_post_postcode,
@@ -1338,7 +1360,8 @@ AS
                 v_mld_adres_key_fac,
                 v_xmldetails_loc,
                 v_bes_limiet,
-                v_bes_kosten
+                v_bes_kosten,
+                v_relatietype_key
            FROM prs_bedrijf
           WHERE prs_bedrijf_key = p_bedrijf_key;
 
@@ -1384,6 +1407,8 @@ AS
             create_prs_contactpersoon_node (rec1.prs_contactpersoon_key);
          END LOOP;
 
+         create_prs_relatietype_node (v_relatietype_key);
+
          createclosetag (p_nodename);
       END IF;
    END;