admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FSN#30748: Functionaliteit budgetmutaties fixes

Browse Source 
svn path=/Database/trunk/; revision=23485
This commit is contained in:
Peter Feij
2014-11-27 10:41:01 +00:00
parent 0e7e7dc198
commit 22af24f230
1 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
FAC/FAC_PACX.SRC
View File

@@ -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_omschrijving,
SELECT kpg.prs_kostenplaatsgrp_oms,
kpg.prs_perslid_key,
kpg.prs_kostenplaatsgrp_nr,
k.prs_kostenplaatsgrp_limiet,
k.prs_kostenplaatsgrp_limperiode
kpg.prs_kostenplaatsgrp_limiet,
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);