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

GVBA#64318 -- Mandaten en vrijstellingen verlengen

Browse Source 
svn path=/Customer/trunk/; revision=48456
This commit is contained in:
Arthur Egberink
2020-10-13 11:50:46 +00:00
parent 5086613296
commit 6bbe1cfdf4
1 changed files with 19 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
GVBA/gvba.sql
View File

@@ -112,6 +112,8 @@ CREATE OR REPLACE PACKAGE gvba AS
PROCEDURE set_mandaat_vrijstelling;
PROCEDURE verleng_mandaat_vrijstelling (p_deel_key NUMBER, p_user_key NUMBER);
END gvba;
/
@@ -1121,7 +1123,18 @@ CREATE OR REPLACE PACKAGE BODY gvba AS
COMMIT;
END;
--
PROCEDURE verleng_mandaat_vrijstelling (p_deel_key NUMBER, p_user_key NUMBER)
AS
BEGIN
UPDATE ins_deel
SET ins_deel_omschrijving = REPLACE (ins_deel_omschrijving,
'-' || to_char(SYSDATE, 'YY') || ' ',
'-' || to_char(SYSDATE+365, 'YY') || ' '),
ins_deel_vervaldatum = TO_DATE('3112' || TO_CHAR(SYSDATE+365, 'YY'), 'DDMMYY')
WHERE ins_deel_key = p_deel_key;
fac.trackaction ('INSUPD', p_deel_key, p_user_key, SYSDATE, '#Mandaat/Vrijstelling is verlengd');
END;
--
END gvba;
/
@@ -3238,6 +3251,7 @@ SELECT d.ins_deel_key,
ins_srtdeel_upper,
ins_deel_omschrijving,
prs_perslid_volnaam,
d.prs_perslid_key,
ins_deel_vervaldatum,
ins_deel_aanmaak,
(SELECT prs_bedrijf_naam
@@ -3264,12 +3278,14 @@ SELECT d.ins_deel_key,
WHERE kmd.ins_deel_key = d.ins_deel_key AND kmd.ins_kenmerk_key = 61)
afw_contact,
m.mld_melding_key,
s.mld_statuses_omschrijving
s.mld_statuses_omschrijving,
DECODE(SUBSTR(ins_deel_omschrijving, INSTR(ins_deel_omschrijving, '-')+1, INSTR(ins_deel_omschrijving, ' ') - INSTR(ins_deel_omschrijving, '-') - 1), TO_CHAR(SYSDATE, 'YY'), 'Verlengen', 'Verlengd') Verlengstatus
FROM ins_v_deel_gegevens d, mld_melding_object mo, mld_melding m, mld_statuses s
WHERE ins_discipline_key = 641 AND ins_deel_vervaldatum > SYSDATE
AND d.ins_deel_key = mo.ins_deel_key(+)
AND mo.mld_melding_key = m.mld_melding_key(+)
AND m.mld_melding_status = s.mld_statuses_key(+);
AND m.mld_melding_status = s.mld_statuses_key(+)
AND SUBSTR(ins_deel_omschrijving, INSTR(ins_deel_omschrijving, '-')+1, INSTR(ins_deel_omschrijving, ' ') - INSTR(ins_deel_omschrijving, '-') - 1) = TO_CHAR(SYSDATE, 'YY');
------ payload end ------