FSN#30748: Functionaliteit budgetmutaties fixes

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

FAC/FAC_PACX.SRC

@@ -91,7 +91,7 @@ AS
 
    PROCEDURE create_prs_bedrijf_node (p_bedrijf_key IN NUMBER, p_nodename IN VARCHAR2);
 
-   PROCEDURE create_prs_kostenplaatsgrp_node (p_key IN NUMBER);
+   PROCEDURE create_prs_kostenpltsgrp_node (p_key IN NUMBER);
 
    PROCEDURE create_prs_kostenplaats_node (p_key IN NUMBER, p_concise IN BOOLEAN);
 
@@ -900,9 +900,9 @@ AS
    -- * PRS
    -- *
 
-   PROCEDURE create_prs_kostenplaatsgrp_node (p_key IN NUMBER)
+   PROCEDURE create_prs_kostenpltsgrp_node (p_key IN NUMBER)
    AS
-      v_omschrijving      prs_kostenplaatsgrp.prs_kostenplaatsgrp_omschrijving%TYPE;
+      v_omschrijving      prs_kostenplaatsgrp.prs_kostenplaatsgrp_oms%TYPE;
       v_prs_perslid_key   prs_kostenplaatsgrp.prs_perslid_key%TYPE;
       v_nr                prs_kostenplaatsgrp.prs_kostenplaatsgrp_nr%TYPE;
       v_limiet            prs_kostenplaatsgrp.prs_kostenplaatsgrp_limiet%TYPE;
@@ -911,12 +911,11 @@ AS
       IF p_key IS NOT NULL
       THEN
          createopentag ('kostenplaatsgrp');
-
+         SELECT kpg.prs_kostenplaatsgrp_oms,
-         SELECT kpg.prs_kostenplaatsgrp_omschrijving,
                 kpg.prs_perslid_key,
                 kpg.prs_kostenplaatsgrp_nr,
-                k.prs_kostenplaatsgrp_limiet,
+                kpg.prs_kostenplaatsgrp_limiet,
-                k.prs_kostenplaatsgrp_limperiode
+                kpg.prs_kostenplaatsgrp_limperiode
            INTO v_omschrijving,
                 v_prs_perslid_key,
                 v_nr,
@@ -924,7 +923,6 @@ AS
                 v_limperiode
            FROM prs_kostenplaatsgrp kpg
           WHERE kpg.prs_kostenplaatsgrp_key = p_key;
-
          createxmltagvalue ('key', mynumbertochar (p_key));
          createxmltagvalue ('omschrijving', v_omschrijving);
          create_prs_perslid_node (v_prs_perslid_key, 'budgethouder', FALSE);
@@ -932,6 +930,7 @@ AS
          createxmltagvalue ('limiet', v_limiet);
          createxmltagvalue ('limietperiode', v_limperiode);
          createclosetag ('kostenplaatsgrp');
+     END IF;
    END;
 
    PROCEDURE create_prs_kostenplaats_node (p_key IN NUMBER, p_concise IN BOOLEAN)
@@ -945,11 +944,11 @@ AS
       v_limiet            prs_kostenplaats.prs_kostenplaats_limiet%TYPE;
       v_limietperiode     prs_kostenplaats.prs_kostenplaats_limietperiode%TYPE;
       v_extern            prs_kostenplaats.prs_kostenplaats_extern%TYPE;
+      v_kostenplaatsgrp_key prs_kostenplaats.prs_kostenplaatsgrp_key%TYPE;
    BEGIN
       IF p_key IS NOT NULL
       THEN
          createopentag ('kostenplaats');
-
          SELECT k.prs_kostenplaats_nr,
                 k.prs_kostenplaats_omschrijving,
                 k.prs_perslid_key,
@@ -958,7 +957,8 @@ AS
                 k.prs_kostenplaats_module,
                 k.prs_kostenplaats_limiet,
                 k.prs_kostenplaats_limietperiode,
-                k.prs_kostenplaats_extern
+                k.prs_kostenplaats_extern,
+                k.prs_kostenplaatsgrp_key
            INTO v_nr,
                 v_omschrijving,
                 v_prs_perslid_key,
@@ -967,10 +967,10 @@ AS
                 v_module,
                 v_limiet,
                 v_limietperiode,
-                v_extern
+                v_extern,
+                v_kostenplaatsgrp_key
            FROM prs_kostenplaats k
           WHERE prs_kostenplaats_key = p_key;
-
          createxmltagvalue ('key', mynumbertochar (p_key));
          createxmltagvalue ('nr', v_nr);
          createxmltagvalue ('omschrijving', v_omschrijving);
@@ -980,7 +980,7 @@ AS
          createxmltagvalue ('limiet', v_limiet);
          createxmltagvalue ('limietperiode', v_limietperiode);
          createxmltagvalue ('extern', v_extern);
-         create_prs_kostenplaatsgrp_node (prs_kostenplaatsgrp_key);
+         create_prs_kostenpltsgrp_node (v_kostenplaatsgrp_key);
          IF NOT p_concise
          THEN
             create_prs_perslid_node (v_prs_perslid_key, 'budgethouder', TRUE);