GDZW#22341 Implementatie GDZW

svn path=/Customer/trunk/; revision=16190
This commit is contained in:
Peter Koerhuis
2012-12-03 15:35:10 +00:00
parent 57c2d6beda
commit 37ad662ed1

View File

@@ -1423,9 +1423,78 @@ BEGIN
END gdzw_update_prs;
/
-- Rappelnotificaties naar contractbeheerder en -eigenaar.
-- (Notificatie naar eigenaar alleen als dit niet ook de beheerder is)
-- Dagelijks schedulen; rapporteert alleen de contracten die vandaag de rappeltermijn ingaan.
CREATE OR REPLACE VIEW gdzw_v_noti_cntreminder
(
CODE,
SENDER,
RECEIVER,
TEXT,
KEY,
PAR1,
PAR2,
XKEY
)
AS
SELECT code,
sender,
beh receiver,
text,
key,
par1,
par2,
xkey
FROM gdzw_v_noti_cntreminder_geg
WHERE beh IS NOT NULL
UNION ALL
SELECT code,
sender,
eig receiver,
text,
key,
par1,
par2,
xkey
FROM gdzw_v_noti_cntreminder_geg
WHERE eig IS NOT NULL
AND eig != beh;
CREATE OR REPLACE VIEW gdzw_v_noti_cntreminder_geg
AS
SELECT 'CNTMAI' code,
'' sender,
c.prs_perslid_key_beh beh,
c.prs_perslid_key_eig eig,
cnt.cnt_getrappeldatum (c.cnt_contract_key) rap,
cnt.cnt_getopzegdatum (c.cnt_contract_key) opz,
'Rappel: Contract '
|| c.cnt_contract_nummer_intern
|| ' ('
|| c.cnt_contract_omschrijving
|| ' '
|| b.prs_bedrijf_naam
|| ')'
|| ' moet uiterlijk per '
|| TO_CHAR (cnt.cnt_getopzegdatum (c.cnt_contract_key),
'DD-MM-YYYY')
|| ' worden verlengd of opgezegd.' text,
c.cnt_contract_key key,
c.cnt_contract_nummer_intern par1,
cnt.cnt_getopzegdatum (c.cnt_contract_key) par2,
NULL xkey
FROM cnt_v_aanwezigcontract c, prs_bedrijf b
WHERE b.prs_bedrijf_key = c.cnt_prs_bedrijf_key
AND cnt_contract_verwijder IS NULL
AND cnt_contract_status = 0
AND TRUNC(SYSDATE) = TRUNC(cnt.cnt_getrappeldatum(c.cnt_contract_key));
BEGIN adm.systrackscript('$Workfile: gdzw.sql $', '$Revision$', 0); END;
/
BEGIN fac.registercustversion ('GDZW', 1); END;
BEGIN fac.registercustversion ('GDZW', 2); END;
/
COMMIT;