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

TWYN#52191 Rapport BMUt_NUM

Browse Source 
svn path=/Database/trunk/; revision=37118
This commit is contained in:
Erik Groener
2018-02-21 12:08:13 +00:00
parent 53e4b266a1
commit 0e6c267f88
1 changed files with 30 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
FAC/FAC_PACX.SRC
View File

@@ -1215,13 +1215,18 @@ AS
PROCEDURE create_bgt_budgetmutatie_node (p_budget_key IN NUMBER, p_mutatie_key IN NUMBER)
AS
v_datum bgt_budgetmutatie.bgt_budgetmutatie_datum%TYPE;
v_omschrijving bgt_budgetmutatie.bgt_budgetmutatie_omschrijving%TYPE;
v_key_van bgt_budgetmutatie.bgt_budget_key_van%TYPE;
v_key_naar bgt_budgetmutatie.bgt_budget_key_naar%TYPE;
v_bedrag_van bgt_budgetmutatie.bgt_budget_bedrag_van%TYPE;
v_bedrag_naar bgt_budgetmutatie.bgt_budget_bedrag_naar%TYPE;
v_persoon prs_perslid.prs_perslid_key%TYPE;
v_datum bgt_budgetmutatie.bgt_budgetmutatie_datum%TYPE;
v_omschrijving bgt_budgetmutatie.bgt_budgetmutatie_omschrijving%TYPE;
v_key_van bgt_budgetmutatie.bgt_budget_key_van%TYPE;
v_key_naar bgt_budgetmutatie.bgt_budget_key_naar%TYPE;
v_bedrag_van bgt_budgetmutatie.bgt_budget_bedrag_van%TYPE;
v_btwbedrag_van bgt_budgetmutatie.bgt_budget_btwbedrag_van%TYPE;
v_bedrag_naar bgt_budgetmutatie.bgt_budget_bedrag_naar%TYPE;
v_btwbedrag_naar bgt_budgetmutatie.bgt_budget_btwbedrag_naar%TYPE;
v_reserve bgt_budgetmutatie.bgt_budgetmutatie_reserve%TYPE;
v_volgnr bgt_budgetmutatie.bgt_budgetmutatie_volgnr%TYPE;
v_code bgt_budgetmutatie.bgt_budgetmutatie_code%TYPE;
v_persoon prs_perslid.prs_perslid_key%TYPE;
BEGIN
IF p_mutatie_key IS NOT NULL
THEN
@@ -1231,25 +1236,41 @@ AS
, bgt_budget_key_van
, bgt_budget_key_naar
, bgt_budget_bedrag_van
, bgt_budgetbtwbedrag_van
, bgt_budget_bedrag_naar
, bgt_budget_btwbedrag_naar
, bgt_budgetmutatie_reserve
, bgt_budgetmutatie_volgnr
, bgt_budgetmutatie_code
INTO v_datum
, v_omschrijving
, v_persoon
, v_key_van
, v_key_naar
, v_bedrag_van
, v_btwbedrag_van
, v_bedrag_naar
, v_btwbedrag_naar
, v_reserve
, v_volgnr
, v_code
FROM bgt_budgetmutatie
WHERE bgt_budgetmutatie_key = p_mutatie_key;
createopentag ('mutation');
createxmltagvalue ('key', mynumbertochar (p_mutatie_key));
mydatetochar ('date', v_datum);
createxmltagvalue ('remark', v_omschrijving);
IF (p_budget_key = v_key_van) THEN
createxmltagvalue ('amount', mynumbertochar (v_bedrag_van));
createxmltagvalue ('amount', mynumbertochar (v_bedrag_van));
createxmltagvalue ('amountvat', mynumbertochar (v_btwbedrag_van));
END IF;
IF (p_budget_key = v_key_naar) THEN
createxmltagvalue ('amount', mynumbertochar (v_bedrag_naar));
createxmltagvalue ('amount', mynumbertochar (v_bedrag_naar));
createxmltagvalue ('amountvat', mynumbertochar (v_btwbedrag_naar));
END IF;
createxmltagvalue ('reserve', mynumbertochar (v_reserve));
createxmltagvalue ('sequence', mynumbertochar (v_volgnr));
createxmltagvalue ('code', v_code);
createclosetag ('mutation');
END IF;
END;