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

YKPN#85163 -- Missende export-sql-scripts in ykpn.sql

Browse Source 
svn path=/Customer/trunk/; revision=65948
This commit is contained in:
Arthur Egberink
2024-08-20 09:06:57 +00:00
parent 63330a788c
commit d3c417c1ac
1 changed files with 91 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

103
YKPN/ykpn.sql
View File

@@ -3260,9 +3260,9 @@ BEGIN
YKPN.tsk_bes_geleverd(p_applname, p_applrun);
YKPN.tsk_mld_thuiswerkwinkel(p_applname, p_applrun);
EXCEPTION
WHEN OTHERS
@@ -7944,28 +7944,28 @@ SELECT o.mld_opdr_key key,
NULL sender,
NULL receiver,
'Opdracht '|| m.mld_melding_key||'/'||o.MLD_OPDR_BEDRIJFOPDR_VOLGNR||' is uitgegegeven aan vebego Cleaning Service' text,
(SELECT LISTAGG(cp.prs_contactpersoon_email,';')
(SELECT LISTAGG(cp.prs_contactpersoon_email,';')
from prs_contactpersoon cp, prs_contactpersoon_locatie cpl
where cp.prs_bedrijf_key= b.prs_bedrijf_key
where cp.prs_bedrijf_key= b.prs_bedrijf_key
AND cpl.prs_contactpersoon_key = cp.prs_contactpersoon_key
AND cpl.alg_locatie_key = m.mld_alg_locatie_key
AND cp.prs_contactpersoon_verwijder IS NULL) xemail,
NULL xmobile
FROM mld_opdr o,
FROM mld_opdr o,
mld_melding m,
mld_statusopdr so,
mld_typeopdr ot,
prs_bedrijf b,
fac_tracking ft,
fac_notificatie_job nj
fac_notificatie_job nj
WHERE o.mld_statusopdr_key = so.mld_statusopdr_key
AND so.mld_statusopdr_omschrijving = 'Toegekend'
AND m.mld_melding_key = o.mld_melding_key
AND ot.mld_typeopdr_key = o.mld_typeopdr_key
AND ( UPPER(ot.mld_typeopdr_omschrijving)='CONTRACTOPDR. LEVERANCIERS'
AND ( UPPER(ot.mld_typeopdr_omschrijving)='CONTRACTOPDR. LEVERANCIERS'
OR UPPER(ot.mld_typeopdr_omschrijving)='CONTRACTOPDR. FS')
AND b.prs_bedrijf_key = o.mld_uitvoerende_keys
AND b.prs_leverancier_nr='836034'
AND b.prs_leverancier_nr='836034'
AND ft.fac_tracking_refkey=o.mld_opdr_key
AND ft.FAC_SRTNOTIFICATIE_KEY=61 -- ORDNEW
AND ft.FAC_TRACKING_DATUM > nj.FAC_NOTIFICATIE_JOB_LASTRUN
@@ -13978,6 +13978,85 @@ END;
/
CREATE OR REPLACE PROCEDURE ykpn_select_verwerk_exact_62 (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2
)
AS
BEGIN
ykpn_select_verwerk_exact (p_applname, p_applrun, '62');
END;
/
CREATE OR REPLACE PROCEDURE ykpn_select_verwerk_exact_63 (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2
)
AS
BEGIN
ykpn_select_verwerk_exact (p_applname, p_applrun, '63');
END;
/
CREATE OR REPLACE PROCEDURE ykpn_select_verwerk_exact (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_dagboek IN VARCHAR2
)
AS
CURSOR c_fact
IS
SELECT DISTINCT f.fin_factuur_key
FROM ykpn_exp_factuur f
, ykpn_v_factuur_gegevens fg
WHERE f.fin_factuur_key = fg.fin_factuur_key
AND fg.fin_factuur_statuses_key = 6
AND f.dagboek = p_dagboek;
v_errormsg VARCHAR (200);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_aanvrager NUMBER;
v_bestelling_key NUMBER;
v_bestand VARCHAR2(12);
v_logdate DATE;
v_volgnr NUMBER;
BEGIN
v_errormsg := 'Geen akties';
v_aanvrager := 3; -- Facilitor
v_logdate := SYSDATE;
v_bestand := 'VW_EXACT';
v_volgnr := 1;
-- Eerst opruiming
DELETE fac_rapport
WHERE fac_rapport_node = v_bestand;
FOR rec1 IN c_fact
LOOP
BEGIN
UPDATE fin_factuur f
SET fin_factuur_statuses_key = 7
WHERE f.fin_factuur_key = rec1.fin_factuur_key;
fac.trackaction ('FINVER', rec1.fin_factuur_key, v_aanvrager, NULL, NULL);
INSERT INTO fac_rapport (fac_rapport_node,
fac_rapport_volgnr,
fac_rapport_regel)
VALUES (v_bestand,
v_volgnr,
rec1.fin_factuur_key);
v_volgnr := v_volgnr + 1;
END;
END LOOP;
-- verwijder de enties uit de tijdelijke tabel.
DELETE ykpn_exp_factuur WHERE dagboek = p_dagboek;
END;
/
CREATE OR REPLACE PROCEDURE ykpn_select_verwerk_exact_62 (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2
@@ -17080,11 +17159,11 @@ AS
op.mld_opdr_einddatum,
a.alg_locatie_omschrijving,
a.alg_locatie_code,
(SELECT p.prs_perslid_naam_friendly
FROM prs_v_perslid_fullnames p
(SELECT p.prs_perslid_naam_friendly
FROM prs_v_perslid_fullnames p
WHERE p.prs_perslid_key=op.prs_perslid_key) behandelaar,
(SELECT p.prs_perslid_email
FROM prs_perslid p
(SELECT p.prs_perslid_email
FROM prs_perslid p
WHERE p.prs_perslid_key=op.prs_perslid_key) behandelaar_email
FROM mld_opdr op,
mld_melding m,