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

BAUS#79594 Implementatie Bausch & Lomb, notificatie periodieke taken over 6 weken ipv 1 maand

Browse Source 
svn path=/Customer/trunk/; revision=62016
This commit is contained in:
Suzan Wiegerinck
2023-10-03 14:40:26 +00:00
parent a50e9d4149
commit eb433742a8
1 changed files with 0 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
BAUS/baus.sql
View File

@@ -356,92 +356,7 @@ AS
WHERE ctr.ins_deel_key = last_insp.ins_deel_key(+)
AND TRUNC (ctr.ins_deelsrtcontrole_datum) < TRUNC (SYSDATE + 42);
CREATE OR REPLACE PACKAGE BAUS
AS
PROCEDURE baus_noti_per_controle;
END;
/
CREATE OR REPLACE PACKAGE BODY BAUS
AS
PROCEDURE baus_noti_per_controle
AS
p_applname VARCHAR2 (50) := 'NOTIFICATIE_PERIODIEKE_TAAK';
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errorhint VARCHAR2 (100);
v_aanduiding VARCHAR2 (100);
BEGIN
v_errorhint := 'init';
v_aanduiding := 'Maandelijkse notificatie periodieke taken';
INSERT INTO fac_notificatie (fac_srtnotificatie_key,
fac_notificatie_status,
prs_perslid_key_receiver,
fac_notificatie_receiver_email,
fac_notificatie_oms,
fac_notificatie_refkey,
prs_perslid_key_sender,
fac_notificatie_prioriteit,
fac_notificatie_lang)
SELECT fac_srtnotificatie_key,
2,
101,
'Iwan.Broekhuis@bausch.com',
'Taken voor de maand '
|| LOWER (TO_CHAR (SYSDATE, 'Month')),
(SELECT fac_usrrap_key
FROM fac_usrrap
WHERE UPPER (fac_usrrap_view_name) = 'BAUS_V_RAP_TAKEN'), ---- refkey: is het rapport
4,
2,
'NL'
FROM fac_srtnotificatie sn
WHERE fac_srtnotificatie_code = 'CUST01';
fac.writelog (p_applname,
'I',
'Mail naar Iwan Broekhuis',
'Maandelijkse notificatie periodieke taken');
EXCEPTION
WHEN OTHERS
THEN
v_errorhint := 'Maandelijkse notificatie periodieke taken';
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
fac.writelog (
p_applname,
'E',
'Error ' || oracle_err_num || '/' || oracle_err_mes,
v_errorhint);
END baus_noti_per_controle;
END;
/
CREATE OR REPLACE PROCEDURE baus_monthly
AS
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
baus.baus_noti_per_controle;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog ('Monthly',
'E',
'Proces afgebroken!',
v_errormsg);
END baus_monthly;
/
------ payload end ------