FSN#33404 relaties beperken tot 5 diep

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

FAC/FAC_PACX.SRC

@@ -4107,7 +4107,8 @@ AS
    -- * create_MLD_MELDING_node
 
    PROCEDURE create_mld_melding_node (p_key            IN NUMBER,
-                                      p_withchildren   IN BOOLEAN)
+                                      p_withchildren   IN BOOLEAN,
+                                      p_withrelated    IN NUMBER DEFAULT 0)
    AS
       v_meldbron_nr              mld_melding.mld_meldbron_nr%TYPE;
       v_datum                    mld_melding.mld_melding_datum%TYPE;
@@ -4376,9 +4377,12 @@ AS
 
          -- Deze melding kan betrekking hebben op een (andere) BROC
          -- Dan zal het wenselijk zijn daarvan hier ook info op te nemen
-         IF v_kto_key IS NOT NULL
+         -- Om oneindigheid te voorkomen doen we dat een maximaal aantal keer voor meldingen
+         IF v_kto_key IS NOT NULL AND p_withrelated < 5
          THEN
            createopentag ('referentie');
+           -- Weet niet wat je hier mee zou willen, maar het kost ook niks en biedt helderheid
+           createxmltagvalue ('referencelevel', p_withrelated+1);
            CASE v_kto_type
              WHEN 'B'
              THEN
@@ -4394,7 +4398,7 @@ AS
                 create_cnt_contract_node (v_kto_key, TRUE);
              WHEN 'M'
              THEN
-                create_mld_melding_node (v_kto_key, FALSE);
+                create_mld_melding_node (v_kto_key, FALSE, p_withrelated + 1);
              WHEN 'X'
              THEN
                 create_bes_bestelopdr_node (v_kto_key, TRUE);