YAXX#83574 Exact export gaat per regio ipv per district. Regio wordt Rabobank (key 121) en de districten worden kringen. De proforma exports blijven wel op district. Er komt dus per district een menu-item.
svn path=/Customer/trunk/; revision=67346
This commit is contained in:
Arthur Egberink
277
VBXX/vbxx.sql
277
VBXX/vbxx.sql
@@ -39,9 +39,15 @@ AS
|
||||
FUNCTION bepaal_fin_district (p_fin_key IN NUMBER)
|
||||
RETURN NUMBER;
|
||||
|
||||
FUNCTION bepaal_fin_regio (p_fin_key IN NUMBER)
|
||||
RETURN NUMBER;
|
||||
|
||||
FUNCTION bepaal_opdr_district (p_opdr_key IN NUMBER)
|
||||
RETURN NUMBER;
|
||||
|
||||
FUNCTION bepaal_opdr_regio (p_opdr_key IN NUMBER)
|
||||
RETURN NUMBER;
|
||||
|
||||
FUNCTION bepaal_fin_gebouw (p_fin_key IN NUMBER)
|
||||
RETURN NUMBER;
|
||||
|
||||
@@ -344,6 +350,24 @@ AS
|
||||
RETURN v_district_key;
|
||||
END;
|
||||
|
||||
-- deze functie bepaald aan de hand van de factuur_key de regio en daarmee de administratie
|
||||
-- waaronder deze factuur geboekt gaat worden.
|
||||
FUNCTION bepaal_fin_regio (p_fin_key IN NUMBER)
|
||||
RETURN NUMBER
|
||||
AS
|
||||
v_regio_key NUMBER;
|
||||
BEGIN
|
||||
SELECT alg_regio_key
|
||||
INTO v_regio_key
|
||||
FROM fin_factuur f, mld_opdr o, mld_melding m, alg_locatie l, alg_district d
|
||||
WHERE f.fin_factuur_key = p_fin_key
|
||||
AND f.mld_opdr_key = o.mld_opdr_key
|
||||
AND o.mld_melding_key = m.mld_melding_key
|
||||
AND m.mld_alg_locatie_key = l.alg_locatie_key
|
||||
AND l.alg_district_key = d.alg_regio_key;
|
||||
RETURN v_regio_key;
|
||||
END;
|
||||
|
||||
-- deze functie bepaald aan de hand van de opdracht het district
|
||||
FUNCTION bepaal_opdr_district (p_opdr_key IN NUMBER)
|
||||
RETURN NUMBER
|
||||
@@ -359,6 +383,22 @@ AS
|
||||
RETURN v_district_key;
|
||||
END;
|
||||
|
||||
-- deze functie bepaald aan de hand van de opdracht de regio
|
||||
FUNCTION bepaal_opdr_regio (p_opdr_key IN NUMBER)
|
||||
RETURN NUMBER
|
||||
AS
|
||||
v_regio_key NUMBER;
|
||||
BEGIN
|
||||
SELECT alg_regio_key
|
||||
INTO v_regio_key
|
||||
FROM mld_opdr o, mld_melding m, alg_locatie l, alg_district d
|
||||
WHERE o.mld_opdr_key = p_opdr_key
|
||||
AND o.mld_melding_key = m.mld_melding_key
|
||||
AND m.mld_alg_locatie_key = l.alg_locatie_key
|
||||
AND l.alg_district_key = d.alg_district_key;
|
||||
RETURN v_regio_key;
|
||||
END;
|
||||
|
||||
-- deze functie bepaald aan de hand van de factuur_key het gebouw.
|
||||
FUNCTION bepaal_fin_gebouw (p_fin_key IN NUMBER)
|
||||
RETURN NUMBER
|
||||
@@ -2127,8 +2167,7 @@ CREATE OR REPLACE VIEW vbxx_v_frozen_fact
|
||||
bro_id,
|
||||
factuur_naar_sg,
|
||||
aantal,
|
||||
kosten,
|
||||
bps
|
||||
kosten
|
||||
)
|
||||
AS
|
||||
/*
|
||||
@@ -2176,8 +2215,7 @@ AS
|
||||
NULL bro_id,
|
||||
DECODE (kl.prs_kenmerklink_waarde, 1, 'Ja', 'Nee') fact2sg,
|
||||
0 aantal,
|
||||
ud.fac_usrdata_prijs kosten,
|
||||
'X' bps -- X=Don't care!
|
||||
ud.fac_usrdata_prijs kosten
|
||||
FROM fac_usrdata ud,
|
||||
cnt_contract c,
|
||||
prs_bedrijf b,
|
||||
@@ -2255,8 +2293,7 @@ AS
|
||||
SUM ((boi.bes_bestelopdr_item_aantal * COALESCE (boi.bes_bestelopdr_item_inkprijs, boi.bes_bestelopdr_item_prijs)) +
|
||||
COALESCE (bo.bes_bestelopdr_korting, 0) +
|
||||
COALESCE (bo.bes_bestelopdr_levkosten, 0))
|
||||
kosten, -- Netto bedrag, want alle bedragen excl. BTW, toch?
|
||||
DECODE (c.cnt_contract_nummer_intern, 30, 'O', 'X') bps -- 30=Maatwerk-contract met Eurest Catering
|
||||
kosten -- Netto bedrag, want alle bedragen excl. BTW, toch?
|
||||
FROM bes_bestelling b,
|
||||
bes_bestelling_item bbi,
|
||||
bes_bestelopdr_item boi,
|
||||
@@ -2333,8 +2370,7 @@ AS
|
||||
NULL,
|
||||
bo.bes_bestelopdr_id,
|
||||
DECODE (kl.prs_kenmerklink_waarde, 1, 'Ja', 'Nee'),
|
||||
1,
|
||||
DECODE (c.cnt_contract_nummer_intern, 30, 'O', 'X')
|
||||
1
|
||||
UNION ALL -- Variabele kosten uit FROZEN reserveringen op variabele contracten (via fin_verkoopfactuur_id!)
|
||||
SELECT x.prs_afdeling_key,
|
||||
SUBSTR (x.fin_verkoopfactuur_maand, 1, 4) || '-' || SUBSTR (x.fin_verkoopfactuur_maand, 5, 2) maand,
|
||||
@@ -2356,8 +2392,7 @@ AS
|
||||
x.fin_verkoopfactuur_omschr bro_id,
|
||||
DECODE (x.prs_kenmerklink_waarde, 1, 'Ja', 'Nee') fact2sg,
|
||||
1 aantal,
|
||||
SUM (COALESCE (x.verw_prijs, x.prijs, 0)) kosten, -- Netto bedrag, want alle bedragen excl. BTW, toch?
|
||||
DECODE (x.cnt_contract_nummer_intern, 30, 'O', 'X') bps -- 30=Maatwerk-contract met Eurest Catering
|
||||
SUM (COALESCE (x.verw_prijs, x.prijs, 0)) kosten -- Netto bedrag, want alle bedragen excl. BTW, toch?
|
||||
FROM (SELECT pcp.prs_afdeling_key,
|
||||
vf.fin_verkoopfactuur_maand,
|
||||
b.prs_bedrijf_key,
|
||||
@@ -2457,8 +2492,7 @@ AS
|
||||
NULL,
|
||||
x.fin_verkoopfactuur_omschr,
|
||||
DECODE (x.prs_kenmerklink_waarde, 1, 'Ja', 'Nee'),
|
||||
1,
|
||||
DECODE (x.cnt_contract_nummer_intern, 30, 'O', 'X')
|
||||
1
|
||||
UNION ALL -- Variabele kosten uit FROZEN opdrachten op variabele contracten
|
||||
*/
|
||||
SELECT pcp.prs_afdeling_key,
|
||||
@@ -2506,8 +2540,7 @@ AS
|
||||
TO_CHAR (o.mld_melding_key) || '/' || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr) bro_id,
|
||||
DECODE (kl.prs_kenmerklink_waarde, 1, 'Ja', 'Nee'),
|
||||
1 aantal,
|
||||
o.mld_opdr_kosten kosten, -- Netto bedrag, want alle bedragen excl. BTW, toch?
|
||||
DECODE (c.cnt_contract_nummer_intern, 30, DECODE (m.mld_alg_onroerendgoed_keys, 8023, 'B', 'O'), 'X') bps -- 30=Maatwerk-contract met Eurest Catering/8023=Restaurant BPS (TERM-T1-3-R3236)
|
||||
o.mld_opdr_kosten kosten -- Netto bedrag, want alle bedragen excl. BTW, toch?
|
||||
FROM mld_opdr o,
|
||||
cnt_contract c,
|
||||
prs_bedrijf b,
|
||||
@@ -2589,8 +2622,7 @@ AS
|
||||
TO_CHAR (o.mld_melding_key) || '/' || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr) bro_id,
|
||||
DECODE (kl.prs_kenmerklink_waarde, 1, 'Ja', 'Nee'),
|
||||
1 aantal,
|
||||
o.mld_opdr_kosten kosten, -- Netto bedrag, want alle bedragen excl. BTW, toch?
|
||||
DECODE (c.cnt_contract_nummer_intern, 30, DECODE (m.mld_alg_onroerendgoed_keys, 8023, 'B', 'O'), 'X') bps -- 30=Maatwerk-contract met Eurest Catering/8023=Restaurant BPS (TERM-T1-3-R3236)
|
||||
o.mld_opdr_kosten kosten -- Netto bedrag, want alle bedragen excl. BTW, toch?
|
||||
FROM mld_opdr o,
|
||||
cnt_contract c,
|
||||
prs_bedrijf b,
|
||||
@@ -2648,8 +2680,7 @@ CREATE OR REPLACE VIEW vbxx_v_rap_frozen_fact_tot
|
||||
beschrijving,
|
||||
inkoopordernr,
|
||||
aantal,
|
||||
kosten,
|
||||
bps
|
||||
kosten
|
||||
)
|
||||
AS -- Vaste contractkosten over de FROZEN termijnen
|
||||
SELECT prs_afdeling_key,
|
||||
@@ -2662,8 +2693,7 @@ AS -- Vaste contractkosten over de FROZEN termijnen
|
||||
beschrijving,
|
||||
inkoopordernr,
|
||||
SUM (aantal),
|
||||
SUM (kosten),
|
||||
bps
|
||||
SUM (kosten)
|
||||
FROM vbxx_v_frozen_fact
|
||||
GROUP BY prs_afdeling_key,
|
||||
maand,
|
||||
@@ -2673,8 +2703,7 @@ AS -- Vaste contractkosten over de FROZEN termijnen
|
||||
--cnt_contract_key,
|
||||
contractnr,
|
||||
beschrijving,
|
||||
inkoopordernr,
|
||||
bps;
|
||||
inkoopordernr;
|
||||
/*
|
||||
-- KFSG#65747: Rapportage tbv. leverancier-contactpersonen!
|
||||
CREATE OR REPLACE VIEW kfsg_v_rap_frozen_tot_lev
|
||||
@@ -2687,8 +2716,7 @@ CREATE OR REPLACE VIEW kfsg_v_rap_frozen_tot_lev
|
||||
beschrijving,
|
||||
inkoopordernr,
|
||||
aantal,
|
||||
kosten,
|
||||
bps
|
||||
kosten
|
||||
)
|
||||
AS -- Vaste contractkosten over de FROZEN termijnen
|
||||
SELECT cp.prs_perslid_key,
|
||||
@@ -2699,8 +2727,7 @@ AS -- Vaste contractkosten over de FROZEN termijnen
|
||||
v.beschrijving,
|
||||
v.inkoopordernr,
|
||||
SUM (v.aantal),
|
||||
SUM (COALESCE (v.kosten, 0)),
|
||||
v.bps
|
||||
SUM (COALESCE (v.kosten, 0))
|
||||
FROM kfsg_v_frozen_fact v,
|
||||
(SELECT *
|
||||
FROM prs_contactpersoon
|
||||
@@ -2713,8 +2740,7 @@ AS -- Vaste contractkosten over de FROZEN termijnen
|
||||
v.prs_bedrijf_naam,
|
||||
v.contractnr,
|
||||
v.beschrijving,
|
||||
v.inkoopordernr,
|
||||
v.bps;
|
||||
v.inkoopordernr;
|
||||
|
||||
-- Geexporteerde/bevroren variabele bestelopdrachtkosten over voorgaande maanden (details).
|
||||
CREATE OR REPLACE VIEW kfsg_v_rap_frozen_fact_bes
|
||||
@@ -2736,8 +2762,7 @@ CREATE OR REPLACE VIEW kfsg_v_rap_frozen_fact_bes
|
||||
kosten,
|
||||
fclt_f_contractnr,
|
||||
fclt_f_inkoopordernr,
|
||||
fclt_x_district,
|
||||
bps
|
||||
fclt_x_district
|
||||
)
|
||||
AS
|
||||
SELECT v.prs_afdeling_key,
|
||||
@@ -2757,8 +2782,7 @@ AS
|
||||
v.kosten,
|
||||
v.contractnr,
|
||||
v.inkoopordernr,
|
||||
d.alg_district_omschrijving,
|
||||
v.bps
|
||||
d.alg_district_omschrijving
|
||||
FROM kfsg_v_frozen_fact v,
|
||||
bes_bestelopdr bo,
|
||||
(SELECT DISTINCT boi.bes_bestelopdr_key, b.bes_bestelling_key, b.mld_adres_key_lev, b.bes_bestelling_plaats, b.bes_bestelling_datum, b.bes_bestelling_status, td.ins_discipline_omschrijving
|
||||
@@ -2801,8 +2825,7 @@ CREATE OR REPLACE VIEW kfsg_v_rap_frozen_bes_lev
|
||||
kosten,
|
||||
fclt_f_contractnr,
|
||||
fclt_f_inkoopordernr,
|
||||
fclt_x_district,
|
||||
bps
|
||||
fclt_x_district
|
||||
)
|
||||
AS
|
||||
SELECT cp.prs_perslid_key,
|
||||
@@ -2822,8 +2845,7 @@ AS
|
||||
COALESCE (v.kosten, 0),
|
||||
v.contractnr,
|
||||
v.inkoopordernr,
|
||||
d.alg_district_omschrijving,
|
||||
v.bps
|
||||
d.alg_district_omschrijving
|
||||
FROM kfsg_v_frozen_fact v,
|
||||
bes_bestelopdr bo,
|
||||
(SELECT DISTINCT boi.bes_bestelopdr_key, b.bes_bestelling_key, b.mld_adres_key_lev, b.bes_bestelling_plaats, b.bes_bestelling_datum, b.bes_bestelling_status, td.ins_discipline_omschrijving
|
||||
@@ -2872,8 +2894,7 @@ CREATE OR REPLACE VIEW kfsg_v_rap_frozen_fact_res
|
||||
kosten,
|
||||
fclt_f_contractnr,
|
||||
fclt_f_inkoopordernr,
|
||||
fclt_x_district,
|
||||
bps
|
||||
fclt_x_district
|
||||
)
|
||||
AS
|
||||
SELECT v.prs_afdeling_key,
|
||||
@@ -2900,8 +2921,7 @@ AS
|
||||
v.kosten,
|
||||
v.contractnr,
|
||||
v.inkoopordernr,
|
||||
d.alg_district_omschrijving,
|
||||
v.bps
|
||||
d.alg_district_omschrijving
|
||||
FROM kfsg_v_frozen_fact v,
|
||||
res_rsv_ruimte rrr,
|
||||
res_activiteit ra,
|
||||
@@ -2948,8 +2968,7 @@ CREATE OR REPLACE VIEW kfsg_v_rap_frozen_res_lev
|
||||
kosten,
|
||||
fclt_f_contractnr,
|
||||
fclt_f_inkoopordernr,
|
||||
fclt_x_district,
|
||||
bps
|
||||
fclt_x_district
|
||||
)
|
||||
AS
|
||||
SELECT cp.prs_perslid_key,
|
||||
@@ -2976,8 +2995,7 @@ AS
|
||||
COALESCE (v.kosten, 0),
|
||||
v.contractnr,
|
||||
v.inkoopordernr,
|
||||
d.alg_district_omschrijving,
|
||||
v.bps
|
||||
d.alg_district_omschrijving
|
||||
FROM kfsg_v_frozen_fact v,
|
||||
res_rsv_ruimte rrr,
|
||||
res_activiteit ra,
|
||||
@@ -3033,8 +3051,7 @@ CREATE OR REPLACE VIEW vbxx_v_rap_frozen_fact_mld
|
||||
kosten,
|
||||
fclt_f_contractnr,
|
||||
fclt_f_inkoopordernr,
|
||||
fclt_x_district,
|
||||
bps
|
||||
fclt_x_district
|
||||
)
|
||||
AS
|
||||
SELECT v.prs_afdeling_key,
|
||||
@@ -3065,8 +3082,7 @@ AS
|
||||
o.mld_opdr_kosten,
|
||||
v.contractnr,
|
||||
v.inkoopordernr,
|
||||
d.alg_district_omschrijving,
|
||||
v.bps
|
||||
d.alg_district_omschrijving
|
||||
FROM vbxx_v_frozen_fact v,
|
||||
mld_opdr o,
|
||||
mld_statusopdr os,
|
||||
@@ -3116,8 +3132,7 @@ CREATE OR REPLACE VIEW kfsg_v_rap_frozen_mld_lev
|
||||
kosten,
|
||||
fclt_f_contractnr,
|
||||
fclt_f_inkoopordernr,
|
||||
fclt_x_district,
|
||||
bps
|
||||
fclt_x_district
|
||||
)
|
||||
AS
|
||||
SELECT cp.prs_perslid_key,
|
||||
@@ -3148,8 +3163,7 @@ AS
|
||||
COALESCE (o.mld_opdr_kosten, 0),
|
||||
v.contractnr,
|
||||
v.inkoopordernr,
|
||||
d.alg_district_omschrijving,
|
||||
v.bps
|
||||
d.alg_district_omschrijving
|
||||
FROM kfsg_v_frozen_fact v,
|
||||
mld_opdr o,
|
||||
mld_statusopdr os,
|
||||
@@ -3782,6 +3796,9 @@ AS
|
||||
lk.prs_kostenplaats_nr
|
||||
lev_kpn,
|
||||
COALESCE(ml.alg_district_key, cl.alg_district_key) alg_district_key,
|
||||
(SELECT alg_regio_key
|
||||
FROM alg_district di
|
||||
WHERE di.alg_district_key = COALESCE(ml.alg_district_key, cl.alg_district_key) ) alg_regio_key,
|
||||
DECODE (
|
||||
f.cnt_contract_key,
|
||||
NULL, DECODE (
|
||||
@@ -3893,6 +3910,7 @@ CREATE OR REPLACE VIEW vbxx_v_bron_export_exact_xml
|
||||
oms_kop, -- omschrijving in de kopregel
|
||||
fin_factuur_debiteur_nr, -- crediteur debiteurnummer
|
||||
alg_district_key,
|
||||
alg_regio_key,
|
||||
fin_factuur_boekmaand
|
||||
)
|
||||
AS
|
||||
@@ -3927,6 +3945,7 @@ AS
|
||||
SUBSTR(fin_factuur_boekmaand,6,2) oms_kop,
|
||||
fin_factuur_debiteur_nr,
|
||||
alg_district_key,
|
||||
alg_regio_key,
|
||||
fin_factuur_boekmaand
|
||||
FROM ( SELECT g.fin_factuur_key,
|
||||
opdracht_id,
|
||||
@@ -3950,7 +3969,8 @@ AS
|
||||
g.dagboek,
|
||||
g.afw_dagboek,
|
||||
g.afw_kstdrcode,
|
||||
e.alg_district_key,
|
||||
g.alg_district_key,
|
||||
g.alg_regio_key,
|
||||
g.typefactuur
|
||||
FROM vbxx_v_factuur_gegevens g,
|
||||
vbxx_exp_factuur e
|
||||
@@ -3975,7 +3995,8 @@ AS
|
||||
g.dagboek,
|
||||
g.afw_dagboek,
|
||||
g.afw_kstdrcode,
|
||||
e.alg_district_key,
|
||||
g.alg_district_key,
|
||||
g.alg_regio_key,
|
||||
g.typefactuur) fg,
|
||||
prs_bedrijf b
|
||||
WHERE fg.prs_bedrijf_key = b.prs_bedrijf_key
|
||||
@@ -3985,16 +4006,18 @@ AS
|
||||
CREATE OR REPLACE PROCEDURE vbxx_select_exact_xml (p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2,
|
||||
p_dagboek IN VARCHAR2,
|
||||
p_district_key IN NUMBER
|
||||
p_district_key IN NUMBER,
|
||||
p_regio_key IN NUMBER DEFAULT NULL
|
||||
)
|
||||
AS
|
||||
CURSOR c(c_dagboek VARCHAR2)
|
||||
IS
|
||||
SELECT crdnr, factuur_nr, MAX(datum) datum, MAX(oms_kop) oms_kop
|
||||
FROM vbxx_v_bron_export_exact_xml
|
||||
WHERE c_dagboek = dagboek
|
||||
AND (alg_district_key = p_district_key OR p_district_key = -1)
|
||||
GROUP BY crdnr, factuur_nr;
|
||||
SELECT x.crdnr, x.factuur_nr, MAX(x.datum) datum, MAX(x.oms_kop) oms_kop
|
||||
FROM vbxx_v_bron_export_exact_xml x
|
||||
WHERE c_dagboek = x.dagboek
|
||||
AND (x.alg_district_key = p_district_key OR p_district_key IS NULL)
|
||||
AND (x.alg_regio_key = p_regio_key OR p_regio_key IS NULL)
|
||||
GROUP BY x.crdnr, x.factuur_nr;
|
||||
|
||||
CURSOR c_sub (c_crdnr VARCHAR2, c_factuur_nr VARCHAR2)
|
||||
IS
|
||||
@@ -4036,42 +4059,6 @@ BEGIN
|
||||
DELETE fac_rapport
|
||||
WHERE fac_rapport_node = v_bestand;
|
||||
|
||||
-- Bepaling boekmaand
|
||||
--IF TO_NUMBER(TO_CHAR(SYSDATE, 'DD')) < 11
|
||||
--THEN
|
||||
-- v_boekmaand := TRUNC(ADD_MONTHS(SYSDATE,-1));
|
||||
--ELSE
|
||||
-- v_boekmaand := TRUNC(SYSDATE);
|
||||
--END IF;
|
||||
|
||||
-- Verwijder het kenmerk boekstuknummer van de facturen die niet op verwerkt staan
|
||||
DELETE fin_kenmerkfactuur kf
|
||||
WHERE fin_kenmerk_key = 1
|
||||
AND SUBSTR(fin_kenmerkfactuur_waarde, 3,2) = p_dagboek
|
||||
AND fin_factuur_key IN (SELECT fin_factuur_key
|
||||
FROM fin_factuur
|
||||
WHERE fin_factuur_statuses_key <> 7)
|
||||
AND VBXX.bepaal_fin_district(kf.fin_factuur_key) = p_district_key;
|
||||
|
||||
-- Bewaar de factuur keys in een tijdelijke tabel zodat bij het verwerken (nieuwe export)
|
||||
-- deze keys gebruikt kunnen worden.
|
||||
DELETE vbxx_exp_factuur
|
||||
WHERE dagboek = p_dagboek
|
||||
AND alg_district_key = p_district_key;
|
||||
|
||||
INSERT INTO vbxx_exp_factuur (fin_factuur_key, dagboek, alg_district_key)
|
||||
( SELECT DISTINCT fg.fin_factuur_key, fg.dagboek, p_district_key
|
||||
FROM vbxx_v_factuur_gegevens fg,
|
||||
prs_bedrijf b
|
||||
WHERE fg.prs_bedrijf_key = b.prs_bedrijf_key
|
||||
AND b.prs_leverancier_nr IS NOT NULL
|
||||
AND fg.fin_factuur_statuses_key = 6
|
||||
AND fg.fin_factuur_datum > SYSDATE - (5 * 365) -- Check op geldige factuurdatum:
|
||||
AND fg.fin_factuur_datum < SYSDATE + 365 -- facturen mogen niet ouder zijn dan 5 jaar of meer dan <20><>n jaar in de toekomst.
|
||||
AND (fg.alg_district_key = p_district_key OR p_district_key = -1) -- Multi-client heeft een district key. Bij single client is deze -1
|
||||
AND dagboek = p_dagboek
|
||||
);
|
||||
|
||||
-- wat is de key van het kenmerk boekstuknummer?
|
||||
SELECT fin_kenmerk_key
|
||||
INTO v_bkstknr_kenmerk_key
|
||||
@@ -4084,15 +4071,72 @@ BEGIN
|
||||
FROM fin_kenmerk k
|
||||
WHERE k.fin_kenmerk_code = 'FACTUURBESTAND';
|
||||
|
||||
-- Bepaal het boekstuknummer (key 3) met het hoogste nummer van dit jaar
|
||||
-- ## AAIT#36589
|
||||
SELECT MAX(fin_kenmerkfactuur_waarde)
|
||||
INTO v_boekstuknummer
|
||||
FROM fin_kenmerkfactuur kf
|
||||
WHERE fin_kenmerk_key = v_bkstknr_kenmerk_key
|
||||
AND SUBSTR(fin_kenmerkfactuur_waarde,1,2) = TO_CHAR(SYSDATE, 'YY')
|
||||
AND SUBSTR(fin_kenmerkfactuur_waarde,3,2) = p_dagboek
|
||||
AND VBXX.bepaal_fin_district(kf.fin_factuur_key) = p_district_key;
|
||||
IF p_regio_key IS NOT NULL
|
||||
THEN
|
||||
-- Verwijder het kenmerk boekstuknummer van de facturen die niet op verwerkt staan binnen de aangegeven regio
|
||||
DELETE fin_kenmerkfactuur kf
|
||||
WHERE fin_kenmerk_key = 1
|
||||
AND SUBSTR(fin_kenmerkfactuur_waarde, 3,2) = p_dagboek
|
||||
AND fin_factuur_key IN (SELECT fin_factuur_key
|
||||
FROM fin_factuur
|
||||
WHERE fin_factuur_statuses_key <> 7)
|
||||
AND VBXX.bepaal_fin_regio(kf.fin_factuur_key) = p_regio_key;
|
||||
|
||||
-- verwijder de tijdelijke opslag met factuurnummers om in de verwerk te gebruiken
|
||||
DELETE vbxx_exp_factuur e
|
||||
WHERE e.dagboek = p_dagboek
|
||||
AND VBXX.bepaal_fin_regio(e.fin_factuur_key) = p_regio_key;
|
||||
|
||||
-- Bepaal het boekstuknummer (key 3) met het hoogste nummer van dit jaar
|
||||
-- ## AAIT#36589
|
||||
SELECT MAX(fin_kenmerkfactuur_waarde)
|
||||
INTO v_boekstuknummer
|
||||
FROM fin_kenmerkfactuur kf
|
||||
WHERE fin_kenmerk_key = v_bkstknr_kenmerk_key
|
||||
AND SUBSTR(fin_kenmerkfactuur_waarde,1,2) = TO_CHAR(SYSDATE, 'YY')
|
||||
AND SUBSTR(fin_kenmerkfactuur_waarde,3,2) = p_dagboek
|
||||
AND VBXX.bepaal_fin_regio(kf.fin_factuur_key) = p_regio_key;
|
||||
ELSE
|
||||
-- Verwijder het kenmerk boekstuknummer van de facturen die niet op verwerkt staan binnen het aangegeven district
|
||||
DELETE fin_kenmerkfactuur kf
|
||||
WHERE fin_kenmerk_key = 1
|
||||
AND SUBSTR(fin_kenmerkfactuur_waarde, 3,2) = p_dagboek
|
||||
AND fin_factuur_key IN (SELECT fin_factuur_key
|
||||
FROM fin_factuur
|
||||
WHERE fin_factuur_statuses_key <> 7)
|
||||
AND VBXX.bepaal_fin_district(kf.fin_factuur_key) = p_district_key;
|
||||
|
||||
-- verwijder de tijdelijke opslag met factuurnummers om in de verwerk te gebruiken
|
||||
DELETE vbxx_exp_factuur e
|
||||
WHERE e.dagboek = p_dagboek
|
||||
AND e.alg_district_key = p_district_key;
|
||||
|
||||
-- Bepaal het boekstuknummer (key 3) met het hoogste nummer van dit jaar
|
||||
-- ## AAIT#36589
|
||||
SELECT MAX(fin_kenmerkfactuur_waarde)
|
||||
INTO v_boekstuknummer
|
||||
FROM fin_kenmerkfactuur kf
|
||||
WHERE fin_kenmerk_key = v_bkstknr_kenmerk_key
|
||||
AND SUBSTR(fin_kenmerkfactuur_waarde,1,2) = TO_CHAR(SYSDATE, 'YY')
|
||||
AND SUBSTR(fin_kenmerkfactuur_waarde,3,2) = p_dagboek
|
||||
AND VBXX.bepaal_fin_district(kf.fin_factuur_key) = p_district_key;
|
||||
END IF;
|
||||
|
||||
-- Bewaar de factuur keys in een tijdelijke tabel zodat bij het verwerken (nieuwe export)
|
||||
-- deze keys gebruikt kunnen worden.
|
||||
INSERT INTO vbxx_exp_factuur (fin_factuur_key, dagboek, alg_district_key)
|
||||
( SELECT DISTINCT fg.fin_factuur_key, fg.dagboek, p_district_key
|
||||
FROM vbxx_v_factuur_gegevens fg,
|
||||
prs_bedrijf b
|
||||
WHERE fg.prs_bedrijf_key = b.prs_bedrijf_key
|
||||
AND b.prs_leverancier_nr IS NOT NULL
|
||||
AND fg.fin_factuur_statuses_key = 6
|
||||
AND fg.fin_factuur_datum > SYSDATE - (5 * 365) -- Check op geldige factuurdatum:
|
||||
AND fg.fin_factuur_datum < SYSDATE + 365 -- facturen mogen niet ouder zijn dan 5 jaar of meer dan <20><>n jaar in de toekomst.
|
||||
AND (fg.alg_district_key = p_district_key OR p_district_key IS NULL) -- oude klanten zijn gescoped op district
|
||||
AND (fg.alg_regio_key = p_regio_key OR p_regio_key IS NULL) -- de rabobank is gescoped op regio
|
||||
AND fg.dagboek = p_dagboek
|
||||
);
|
||||
|
||||
IF v_boekstuknummer IS NULL
|
||||
THEN
|
||||
@@ -4221,7 +4265,8 @@ CREATE OR REPLACE PROCEDURE vbxx_select_verwerk_exact (
|
||||
p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2,
|
||||
p_dagboek IN VARCHAR2,
|
||||
p_district_key IN NUMBER
|
||||
p_district_key IN NUMBER,
|
||||
p_regio_key IN NUMBER DEFAULT NULL
|
||||
)
|
||||
AS
|
||||
CURSOR c_fact
|
||||
@@ -4232,7 +4277,8 @@ AS
|
||||
WHERE f.fin_factuur_key = fg.fin_factuur_key
|
||||
AND fg.fin_factuur_statuses_key = 6
|
||||
AND f.dagboek = p_dagboek
|
||||
AND (f.alg_district_key = p_district_key OR p_district_key = -1);
|
||||
AND (fg.alg_district_key = p_district_key OR p_district_key IS NULL)
|
||||
AND (fg.alg_regio_key = p_regio_key OR p_regio_key IS NULL);
|
||||
|
||||
v_errormsg VARCHAR (200);
|
||||
oracle_err_num NUMBER;
|
||||
@@ -4296,9 +4342,16 @@ BEGIN
|
||||
END;
|
||||
END LOOP;
|
||||
-- verwijder de enties uit de tijdelijke tabel.
|
||||
DELETE vbxx_exp_factuur
|
||||
WHERE dagboek = p_dagboek
|
||||
AND (alg_district_key = p_district_key OR p_district_key = -1);
|
||||
IF p_district_key IS NOT NULL
|
||||
THEN
|
||||
DELETE vbxx_exp_factuur e
|
||||
WHERE e.dagboek = p_dagboek
|
||||
AND e.alg_district_key = p_district_key;
|
||||
ELSE
|
||||
DELETE vbxx_exp_factuur e
|
||||
WHERE e.dagboek = p_dagboek
|
||||
AND alg_district_key IN (SELECT d.alg_district_key FROM alg_district d WHERE d.alg_regio_key = p_regio_key);
|
||||
END IF;
|
||||
END;
|
||||
/
|
||||
|
||||
@@ -4390,6 +4443,7 @@ AS
|
||||
nietdoorbelasten,
|
||||
o.mld_opdr_key,
|
||||
l.alg_district_key,
|
||||
l.alg_locatie_key fclt_x_locatie,
|
||||
COALESCE(kso.prs_kostensoort_oms, ksm.prs_kostensoort_oms) opdracht_nen_code,
|
||||
COALESCE(kso.prs_kostensoort_refcode, ksm.prs_kostensoort_refcode) opdracht_nen_exact_code,
|
||||
COALESCE(kso.prs_kostensoort_opmerking, ksm.prs_kostensoort_opmerking) opdracht_nen_omschrijving,
|
||||
@@ -4498,7 +4552,8 @@ SELECT fin_verkoopfactuur_omschr meldingnummer,
|
||||
fin_verkoopfactuur_maand boekmaand,
|
||||
mld_opdr_key,
|
||||
kso.prs_kostensoort_oms afw_opdracht_nen_omschrijving,
|
||||
kso.prs_kostensoort_refcode afw_opdracht_nen_code
|
||||
kso.prs_kostensoort_refcode afw_opdracht_nen_code,
|
||||
l.alg_locatie_key fclt_x_locatie
|
||||
FROM fin_verkoopfactuur vf,
|
||||
prs_v_perslid_fullnames_all pf,
|
||||
mld_statuses ms,
|
||||
|
||||
Reference in New Issue
Block a user