YASK#91270 Rabobank proforma exporteren & verwerken van district naar regio
svn path=/Customer/trunk/; revision=70995
This commit is contained in:
Arthur Egberink
114
YASK/yask.sql
114
YASK/yask.sql
@@ -2700,6 +2700,35 @@ BEGIN
|
||||
END;
|
||||
/
|
||||
|
||||
-- Rabobank
|
||||
CREATE OR REPLACE VIEW yask_v_export_pro_forma_r121 (
|
||||
result,
|
||||
result_order,
|
||||
alg_district_key
|
||||
)
|
||||
AS
|
||||
SELECT result, result_order, alg_district_key
|
||||
FROM vbxx_v_export_pro_forma
|
||||
WHERE alg_regio_key = 121 OR alg_regio_key = -1;
|
||||
|
||||
CREATE OR REPLACE PROCEDURE yask_select_pro_forma_r121 (p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2)
|
||||
AS
|
||||
BEGIN
|
||||
vbxx_select_pro_forma (p_applname, p_applrun, 121, NULL);
|
||||
END;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE PROCEDURE yask_select_pro_forma_verw_r121 (p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2)
|
||||
AS
|
||||
BEGIN
|
||||
vbxx_select_pro_forma_verwerk (p_applname, p_applrun, 121, NULL);
|
||||
END;
|
||||
/
|
||||
|
||||
/*
|
||||
|
||||
-- Rabobank Centraal
|
||||
CREATE OR REPLACE VIEW yask_v_export_pro_forma_801 (
|
||||
result,
|
||||
@@ -2727,6 +2756,33 @@ BEGIN
|
||||
END;
|
||||
/
|
||||
|
||||
-- Rabobank Centraal zuid
|
||||
CREATE OR REPLACE VIEW yask_v_export_pro_forma_841 (
|
||||
result,
|
||||
result_order,
|
||||
alg_district_key
|
||||
)
|
||||
AS
|
||||
SELECT result, result_order, alg_district_key
|
||||
FROM vbxx_v_export_pro_forma
|
||||
WHERE alg_district_key = 841;
|
||||
|
||||
CREATE OR REPLACE PROCEDURE yask_select_pro_forma_841 (p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2)
|
||||
AS
|
||||
BEGIN
|
||||
vbxx_select_pro_forma (p_applname, p_applrun, 841);
|
||||
END;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE PROCEDURE yask_select_pro_forma_verw_841 (p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2)
|
||||
AS
|
||||
BEGIN
|
||||
vbxx_select_pro_forma_verwerk (p_applname, p_applrun, 841);
|
||||
END;
|
||||
/
|
||||
|
||||
-- Rabobank Kring 01
|
||||
CREATE OR REPLACE VIEW yask_v_export_pro_forma_802 (
|
||||
result,
|
||||
@@ -3105,7 +3161,7 @@ BEGIN
|
||||
vbxx_select_pro_forma_verwerk (p_applname, p_applrun, 815);
|
||||
END;
|
||||
/
|
||||
|
||||
*/
|
||||
-- De werkwijze van de import is als volgt:
|
||||
-- De importabel bevat alle records die nog geldig zijn
|
||||
-- Een nieuwe import voegt regels toe als de combinatie van velden niet gevonden kan worden.
|
||||
@@ -4779,6 +4835,8 @@ SELECT mld_melding_key,
|
||||
mld_opdr_key,
|
||||
status,
|
||||
alg_gebouw_upper,
|
||||
alg_locatie_omschrijving,
|
||||
alg_district_omschrijving,
|
||||
prs_bedrijf_naam,
|
||||
dienst,
|
||||
subcat,
|
||||
@@ -4812,6 +4870,8 @@ SELECT mld_melding_key,
|
||||
o.mld_opdr_key,
|
||||
ms.mld_statuses_omschrijving status,
|
||||
g.alg_gebouw_upper, --PRP-nummer
|
||||
l.alg_locatie_omschrijving,
|
||||
d.alg_district_omschrijving,
|
||||
u.prs_bedrijf_naam, --Uitvoerende leverancier
|
||||
(SELECT fac_usrdata_omschr
|
||||
FROM fac_usrdata ud, mld_kenmerk k
|
||||
@@ -4869,6 +4929,8 @@ SELECT mld_melding_key,
|
||||
prs_kostensoort ks,
|
||||
alg_v_onroerendgoed_gegevens og,
|
||||
alg_gebouw g,
|
||||
alg_locatie l,
|
||||
alg_district d,
|
||||
prs_bedrijf u,
|
||||
(SELECT 0 offset FROM DUAL UNION ALL SELECT -1 FROM DUAL) p,
|
||||
(SELECT ko.mld_opdr_key, fac.safe_to_number (ko.mld_kenmerkopdr_waarde) opslagperc
|
||||
@@ -4880,6 +4942,8 @@ SELECT mld_melding_key,
|
||||
WHERE o.mld_melding_key = m.mld_melding_key
|
||||
AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
|
||||
AND og.alg_gebouw_key = g.alg_gebouw_key(+)
|
||||
AND m.mld_alg_locatie_key = l.alg_locatie_key
|
||||
AND l.alg_district_key = d.alg_district_key
|
||||
AND o.prs_kostensoort_key = ks.prs_kostensoort_key(+)
|
||||
AND o.mld_opdr_key = k_o.mld_opdr_key(+)
|
||||
AND o.mld_opdr_key = k_v.mld_opdr_key(+)
|
||||
@@ -4887,7 +4951,53 @@ SELECT mld_melding_key,
|
||||
AND o.mld_typeopdr_key = ot.mld_typeopdr_key
|
||||
AND ot.mld_typeopdr_code = 'CONTRACTMUTATIE'
|
||||
AND m.mld_melding_status = ms.mld_statuses_key
|
||||
AND EXTRACT(YEAR FROM startverrekening) <= EXTRACT(YEAR FROM SYSDATE) + p.offset);
|
||||
AND EXTRACT(YEAR FROM COALESCE(startverrekening, SYSDATE)) <= EXTRACT(YEAR FROM SYSDATE) + p.offset);
|
||||
|
||||
-- export / bevriezen contractmutatieopdrachten waarvan de status is afgerond (9)
|
||||
CREATE OR REPLACE PROCEDURE yask_select_verw_contractmut_opdr (p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2)
|
||||
AS
|
||||
CURSOR c
|
||||
IS
|
||||
SELECT *
|
||||
FROM mld_opdr o, mld_typeopdr ot
|
||||
WHERE mld_statusopdr_key = 9 AND o.mld_typeopdr_key = ot.mld_typeopdr_key AND ot.mld_typeopdr_code = 'CONTRACTMUTATIE';
|
||||
|
||||
v_kenmerk_key NUMBER;
|
||||
BEGIN
|
||||
|
||||
FOR rec IN c
|
||||
LOOP
|
||||
v_kenmerk_key := VBXX.get_kenmerk_key('OPD', rec.mld_opdr_key, 'STARTVEREKENING');
|
||||
FLX.setflex('OPD', v_kenmerk_key, rec.mld_opdr_key, TO_CHAR(ADD_MONTHS(TRUNC(SYSDATE, 'MM'),-1), 'dd-mm-yyyy'));
|
||||
MLD.setopdrachtstatus (rec.mld_opdr_key, 7, NULL); -- Verwerkt
|
||||
END;
|
||||
END;
|
||||
/
|
||||
|
||||
-- om de baseline te zetten.
|
||||
CREATE OR REPLACE PROCEDURE yask_select_verw_contractmut_melding (p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2)
|
||||
AS
|
||||
CURSOR c
|
||||
IS
|
||||
SELECT *
|
||||
FROM mld_melding m, mld_stdmelding std
|
||||
WHERE m.mld_stdmelding_key = std.mld_stdmelding_key
|
||||
AND mld_melding_status = 5 -- afgemeld
|
||||
AND mld_melding_afgerond = 1
|
||||
AND std.mld_stdmelding_code = 'CONTRACTMUTATIE'
|
||||
AND NOT EXISTS
|
||||
(SELECT 1
|
||||
FROM mld_opdr o
|
||||
WHERE o.mld_melding_key = m.mld_melding_key AND mld_statusopdr_key NOT IN (1, 2, 7)); -- afgewezen, niet akkoord, verwerkt
|
||||
BEGIN
|
||||
FOR rec IN c
|
||||
LOOP
|
||||
MLD.setmeldingstatus (rec.mld_melding_key, 6, NULL); -- Verwerkt
|
||||
END;
|
||||
END;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE VIEW yask_v_noti_fin_factuur_note
|
||||
(
|
||||
|
||||
Reference in New Issue
Block a user