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

LOGC#66278 -- aanpassing aanroep logc_monthly zonder parameters

Browse Source 
svn path=/Customer/trunk/; revision=52266
This commit is contained in:
Norbert Wassink
2021-07-08 12:59:26 +00:00
parent a565d8ec18
commit a0474a520f
1 changed files with 19 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
LOGC/logc.sql
View File

@@ -17,21 +17,19 @@ SET DEFINE OFF
------ payload begin ------
CREATE OR REPLACE PACKAGE LOGC
AS
PROCEDURE tsk_emailrapport (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2);
PROCEDURE tsk_emailrapport (p_applname IN VARCHAR2);
END;
/
CREATE OR REPLACE PACKAGE BODY LOGC
AS
PROCEDURE tsk_emailrapport (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2)
PROCEDURE tsk_emailrapport (p_applname IN VARCHAR2)
AS
v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
oracle_err_mes VARCHAR2 (200);
v_today VARCHAR2 (10);
v_bijlage VARCHAR2(4000);
v_lastRun VARCHAR2 (20);
@@ -46,7 +44,7 @@ AS
THEN
v_bijlage := '/../../Fplace5i/CUST/LOGC/export/mld_export/MLD_LogC_'||to_char(SYSDATE, 'yyyymmdd')||'.csv';
--v_bijlage := '../../Branch20202/CUST/LOGC/export/mld_export/MLD_LogC_'||to_char(SYSDATE, 'yyyymmdd')||'.csv';
INSERT INTO fac_notificatie (fac_srtnotificatie_key,
prs_perslid_key_sender,
fac_notificatie_status,
@@ -56,8 +54,8 @@ AS
fac_notificatie_prioriteit,
fac_notificatie_attachments)
VALUES (
v_notiKey,
3,
v_notiKey,
3,
2,
'gerard.mensink@aareon.nl',
'LogCentre meldingen per '|| TO_CHAR(SYSDATE,'DD-MM-YYYY'),
@@ -66,7 +64,7 @@ AS
v_bijlage);
COMMIT;
END IF;
END IF;
EXCEPTION
WHEN OTHERS
@@ -79,32 +77,20 @@ AS
'Email rapport task afgebroken!: ' || v_errormsg,
v_errorhint);
COMMIT;
END;
END;
/
CREATE OR REPLACE PROCEDURE logc_monthly (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2)
CREATE OR REPLACE PROCEDURE logc_monthly
AS
v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
logc.tsk_emailrapport(p_applname, p_applrun);
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname,
'E',
'Monthly task afgebroken!: ' || v_errormsg,
v_errorhint);
COMMIT;
logc.tsk_emailrapport('LOGC_MONTHLY');
END;
/
@@ -903,7 +889,7 @@ BEGIN
AND UPPER (v_Projectsoort) = 'PROJECTSOORT'
AND UPPER (v_Omschrijving) = 'OMSCHRIJVING'
AND UPPER (v_Status) = 'STATUS'
AND UPPER (v_Debiteur) = 'DEBITEUR'
AND UPPER (v_Debiteur) = 'KLANT'
AND UPPER (v_PlanWorktime) = 'PLAN WORKTIME'
AND UPPER (v_ActualWorktime) = 'ACTUAL WORKTIME'
AND UPPER (v_ActualWorkCosts) = 'ACTUAL WORK COSTS'
@@ -2423,8 +2409,8 @@ CREATE OR REPLACE VIEW logc_v_rap_emmen
)
AS
SELECT
distinct melding_key,
(SELECT ud.fac_usrdata_omschr
distinct melding_key,
(SELECT ud.fac_usrdata_omschr
FROM mld_srtkenmerk sk,
mld_kenmerk k,
mld_kenmerkmelding km,
@@ -2437,7 +2423,7 @@ AS
AND ud.fac_usrdata_key = km.mld_kenmerkmelding_waarde
AND ut.fac_usrtab_key = ud.fac_usrtab_key
AND ut.fac_usrtab_key = 1
AND km.mld_melding_key = melding_key) module,
AND km.mld_melding_key = melding_key) module,
kostenplaats_oms,
subproductgroep,
subproductgroepgroep,
@@ -2459,7 +2445,7 @@ AS
onderwerp,
melding_opmerking,
afdeling_omschrijving,
melding_einddatum_std
melding_einddatum_std
FROM (
SELECT melding_key,
kostenplaats_oms,
@@ -2484,8 +2470,8 @@ AS
melding_opmerking,
afdeling_omschrijving,
melding_einddatum_std
FROM logc_v_mld_emmen mld
WHERE mld.MELDING_DATUM< TO_DATE('01-01-'||to_char(SYSDATE-365,'YYYY'), 'DD-MM-YYYY')
FROM logc_v_mld_emmen mld
WHERE mld.MELDING_DATUM< TO_DATE('01-01-'||to_char(SYSDATE-365,'YYYY'), 'DD-MM-YYYY')
AND mld.MELDING_AFGEMELD > TO_DATE('01-01-'||to_char(SYSDATE-365,'YYYY'), 'DD-MM-YYYY')
UNION
SELECT melding_key,
@@ -2522,8 +2508,8 @@ CREATE OR REPLACE VIEW logc_v_export_open_mld
AS
-- SELECT 'Melding key;Kostenplaat oms;Subproductgroep;Subproductgroepgroep;Melding status;Melding datum;Melding accepted;Plan uitvoertijd sla;Melding afgemeld;Sla Werkdgn;Doorlooptijd werkdgn;Doorlooptijd_uren_gepland;Doorlooptijd_uren;uitvoering_sal_optijd;melder;productgroep;Prioriteittxt;Vertantw_behandelgroep;behandelaar;Onderwerp;Melding opmerking;Afdeling_omschrijving;melding_einddatum_stdring sla', FROM dual
-- UNION
SELECT
melding_key||';'||
SELECT
melding_key||';'||
kostenplaats_oms ||';'||
subproductgroep ||';'||
subproductgroepgroep ||';'||