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

FSN#39055 BCS/2000 functionaliteit in FACILITOR - customization

Browse Source 
svn path=/Database/trunk/; revision=33387
This commit is contained in:
Erik Groener
2017-04-03 09:42:43 +00:00
parent 8a58059009
commit b2f07b5fe4
1 changed files with 38 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
FAC/FAC_PACX.SRC
View File

@@ -113,6 +113,7 @@ AS
PROCEDURE create_cnt_contract_node (p_key IN NUMBER, p_concise IN BOOLEAN);
PROCEDURE create_fin_factuur_node (p_key IN NUMBER, p_concise IN BOOLEAN);
PROCEDURE create_bgt_discipline_node (p_key IN NUMBER);
PROCEDURE create_bgt_budget_node (p_key IN NUMBER);
PROCEDURE xml_node (p_xmlnode IN VARCHAR2,
p_key IN NUMBER,
@@ -1025,23 +1026,20 @@ AS
createclosetag ('kostenplaats');
END IF;
END;
/*
PROCEDURE create_prs_kostensoortgrp_node (p_key IN NUMBER)
PROCEDURE create_prs_kostensoort_node (p_key IN NUMBER, p_concise IN BOOLEAN DEFAULT FALSE)
AS
BEGIN
IF p_key IS NOT NULL
THEN
createopentag ('kostensoortgroep');
CURSOR c_factuur
IS
SELECT fin_factuur_key
FROM fin_factuur
WHERE prs_kostensoort_key = p_key;
CURSOR c_budget
IS
SELECT bgt_budget_key
FROM bgt_budget
WHERE prs_kostensoort_key = p_key;
SELECT
INTO v_
FROM
createclosetag ('kostensoortgroep');
END IF;
END;
*/
PROCEDURE create_prs_kostensoort_node (p_key IN NUMBER)
AS
v_omschrijving prs_kostensoort.prs_kostensoort_oms%TYPE;
v_omschrijving_alt prs_kostensoort.prs_kostensoort_altcode%TYPE;
v_groep prs_kostensoortgrp.prs_kostensoortgrp_oms%TYPE;
@@ -1086,6 +1084,17 @@ AS
createxmltagvalue ('btw', v_btw);
--
-- van hier naar mld_opdr als p_concise = true
IF p_concise THEN
FOR rec1 IN c_factuur
LOOP
create_fin_factuur_node (rec1.fin_factuur_key, FALSE);
END LOOP;
--
FOR rec2 IN c_budget
LOOP
create_bgt_budget_node (rec2.bgt_budget_key);
END LOOP;
END IF;
--
-- dit ook koppelen aan budget
--
@@ -4399,7 +4408,7 @@ AS
mydatetochar ('begindatum', v_datum);
createxmltagvalue ('onderwerp', v_onderwerp);
createxmltagvalue ('omschrijving', v_omschrijving);
createxmltagvalue ('behandelwijze', fac.getsetting('mld_note_mode')); //1=oldstyle via opmerking, 2=newstyle via notes
createxmltagvalue ('behandelwijze', fac.getsetting('mld_note_mode')); --1=oldstyle via opmerking, 2=newstyle via notes
createxmltagvalue ('opmerking', v_opmerking);
createxmltagvalue ('geprint', v_geprint);
createxmltagvalue ('kosten_klant', v_kosten_klant);
@@ -8447,7 +8456,7 @@ AS
createxmltagvalue ('name', v_oms);
FOR rec1 IN c_soort
LOOP
create_prs_kostensoort_node (rec1.prs_kostensoort_key);
create_prs_kostensoort_node (rec1.prs_kostensoort_key, TRUE);
END LOOP;
createclosetag ('group');
END IF;
@@ -8459,6 +8468,13 @@ AS
SELECT prs_kostensoortgrp_key
FROM prs_kostensoortgrp
WHERE bgt_kostenrubriek_key = p_key;
CURSOR c_budget
IS
SELECT bgt_budget_key
FROM bgt_budget
WHERE bgt_kostenrubriek_key = p_key;
v_code bgt_kostenrubriek.bgt_kostenrubriek_code%TYPE;
v_oms bgt_kostenrubriek.bgt_kostenrubriek_oms%TYPE;
BEGIN
@@ -8478,6 +8494,10 @@ AS
LOOP
create_prs_kostensoortgrp_node (rec1.prs_kostensoortgrp_key);
END LOOP;
FOR rec2 IN c_budget
LOOP
create_bgt_budget_node (rec2.bgt_budget_key);
END LOOP;
createclosetag ('category');
END IF;
END;
@@ -8780,7 +8800,7 @@ AS
p_key,
FALSE,
p_concise);
WHEN 'project'
WHEN 'budget'
THEN
create_bgt_discipline_node (p_key);
ELSE