NYBU#65494: Financeel | kostenplaats, kostenplaatsgroep en mandatering
svn path=/Customer/trunk/; revision=51487
This commit is contained in:
Suzan Wiegerinck
822
NYBU/nybu.sql
822
NYBU/nybu.sql
@@ -1,4 +1,4 @@
|
||||
/* Formatted on 8-1-2021 11:55:54 (QP5 v5.336) */
|
||||
/* Formatted on 17-5-2021 17:01:14 (QP5 v5.336) */
|
||||
--
|
||||
-- $Id$
|
||||
--
|
||||
@@ -50,6 +50,8 @@ AS
|
||||
p_cursor OUT t_cursor);
|
||||
|
||||
PROCEDURE mld_after_insert (p_melding_key IN NUMBER);
|
||||
|
||||
PROCEDURE mandatering;
|
||||
END nybu;
|
||||
/
|
||||
|
||||
@@ -582,7 +584,7 @@ AS
|
||||
AND p.prs_perslid_key = student.prs_perslid_key
|
||||
AND student.mld_melding_key = startm.mld_melding_key
|
||||
AND sleutel.prs_perslid_key(+) = student.prs_perslid_key;
|
||||
|
||||
|
||||
v_kenmerk_key NUMBER;
|
||||
BEGIN
|
||||
FOR rec IN C
|
||||
@@ -598,9 +600,80 @@ AS
|
||||
rec.mld_melding_key,
|
||||
rec.sleutel);
|
||||
END LOOP;
|
||||
|
||||
|
||||
COMMIT;
|
||||
END;
|
||||
|
||||
PROCEDURE mandatering
|
||||
AS
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
v_errormsg VARCHAR2 (200);
|
||||
|
||||
CURSOR C IS
|
||||
SELECT p.prs_perslid_key,
|
||||
a.prs_afdeling_key,
|
||||
kpg.prs_kostenplaatsgrp_nr,
|
||||
kpg.prs_kostenplaatsgrp_oms,
|
||||
kp.prs_kostenplaats_key,
|
||||
kp.prs_kostenplaats_nr,
|
||||
kp.prs_kostenplaats_omschrijving
|
||||
FROM prs_perslid p,
|
||||
prs_afdeling a,
|
||||
prs_kenmerklink kl,
|
||||
prs_kenmerk k,
|
||||
prs_kostenplaatsgrp kpg,
|
||||
prs_kostenplaats kp
|
||||
WHERE p.prs_afdeling_key = a.prs_afdeling_key
|
||||
AND a.prs_afdeling_key = kl.prs_link_key
|
||||
AND kl.prs_kenmerk_key = k.prs_kenmerk_key
|
||||
AND kl.prs_kenmerklink_niveau = 'A'
|
||||
AND k.prs_kenmerk_upper = 'KOSTENPLAATSGROEP'
|
||||
AND kl.prs_kenmerklink_waarde =
|
||||
kpg.prs_kostenplaatsgrp_key
|
||||
AND kp.prs_kostenplaatsgrp_key =
|
||||
kpg.prs_kostenplaatsgrp_key
|
||||
AND kp.prs_kostenplaats_verwijder IS NULL
|
||||
AND ( kp.prs_kostenplaats_eind IS NULL
|
||||
OR kp.prs_kostenplaats_eind > TRUNC (SYSDATE))
|
||||
AND p.prs_perslid_verwijder IS NULL
|
||||
AND NOT EXISTS
|
||||
(SELECT *
|
||||
FROM prs_perslidkostenplaats m
|
||||
WHERE m.prs_kostenplaats_key =
|
||||
kp.prs_kostenplaats_key
|
||||
AND m.prs_perslid_key = p.prs_perslid_key);
|
||||
BEGIN
|
||||
FOR rec IN c
|
||||
LOOP
|
||||
INSERT INTO prs_perslidkostenplaats (
|
||||
prs_perslid_key,
|
||||
prs_kostenplaats_key,
|
||||
prs_perslidkostenplaats_boeken,
|
||||
prs_perslidkostenplaats_aanmk)
|
||||
VALUES (rec.prs_perslid_key,
|
||||
rec.prs_kostenplaats_key,
|
||||
1,
|
||||
SYSDATE);
|
||||
|
||||
COMMIT;
|
||||
END LOOP;
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
||||
v_errormsg :=
|
||||
'OTHERS (error '
|
||||
|| oracle_err_num
|
||||
|| '/'
|
||||
|| oracle_err_mes
|
||||
|| ')';
|
||||
fac.writelog ('Mandaten',
|
||||
'E',
|
||||
v_errormsg,
|
||||
'');
|
||||
END;
|
||||
END nybu;
|
||||
/
|
||||
|
||||
@@ -8424,7 +8497,7 @@ AS
|
||||
AND k.mld_srtkenmerk_key = 2321
|
||||
AND ud.fac_usrdata_key = km.mld_kenmerkmelding_waarde)
|
||||
roommate_achter
|
||||
WHERE m.mld_stdmelding_key in ( 2381, 2941)
|
||||
WHERE m.mld_stdmelding_key IN (2381, 2941)
|
||||
AND m.mld_melding_status IN (0,
|
||||
2,
|
||||
3,
|
||||
@@ -11564,7 +11637,8 @@ BEGIN
|
||||
fin_verkoopfactuur_c5,
|
||||
fin_verkoopfactuur_d1,
|
||||
fin_verkoopfactuur_d2)
|
||||
VALUES (v_verkoopfactuurkop_key,
|
||||
VALUES (
|
||||
v_verkoopfactuurkop_key,
|
||||
TO_CHAR (SYSDATE, 'YYYY-MM-DD'),
|
||||
NULL,
|
||||
rec.omschrijving,
|
||||
@@ -11587,7 +11661,9 @@ BEGIN
|
||||
rec.klant,
|
||||
rec.referentie,
|
||||
'catering',
|
||||
v_van || ' - '||v_tot,
|
||||
TO_CHAR (v_van, 'DD-MM-YYYY')
|
||||
|| ' - '
|
||||
|| TO_CHAR (v_tot, 'DD-MM-YYYY'),
|
||||
rec.res_rsv_ruimte_van,
|
||||
v_tot);
|
||||
END LOOP;
|
||||
@@ -11620,368 +11696,391 @@ END nybu_select_res_cat;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE PROCEDURE nybu_select_res_cat_5w (p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2)
|
||||
p_applrun IN VARCHAR2)
|
||||
AS
|
||||
v_aanduiding VARCHAR2 (200);
|
||||
v_errorhint VARCHAR2 (1000);
|
||||
v_errormsg VARCHAR2 (1000);
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
v_aanduiding VARCHAR2 (200);
|
||||
v_errorhint VARCHAR2 (1000);
|
||||
v_errormsg VARCHAR2 (1000);
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
|
||||
CURSOR c (c_tot DATE)
|
||||
IS
|
||||
SELECT klant,
|
||||
res_rsv_ruimte_van,
|
||||
periode,
|
||||
grootboek,
|
||||
kostenplaats_key,
|
||||
kostenplaats,
|
||||
deb_nr,
|
||||
proj_key,
|
||||
proj,
|
||||
btw,
|
||||
prs_kostensoort_btw,
|
||||
res_key,
|
||||
res_volgnr,
|
||||
referentie,
|
||||
res_rsv_ruimte_key,
|
||||
descr,
|
||||
aantal,
|
||||
omschrijving,
|
||||
soort,
|
||||
btw_code,
|
||||
SUM (prijs_ex) prijs_ex,
|
||||
SUM (prijs_inc) prijs_inc,
|
||||
SUM (btw_laag) btw_laag,
|
||||
SUM (btw_hoog) btw_hoog,
|
||||
SUM (korting) korting,
|
||||
SUM (inex) inex
|
||||
FROM (SELECT k.prs_kostenplaats_omschrijving klant,
|
||||
rr.res_rsv_ruimte_van,
|
||||
TO_CHAR (rr.res_rsv_ruimte_van, 'YYYYMM') periode,
|
||||
ks.prs_kostensoort_oms grootboek,
|
||||
kg.prs_kostenplaatsgrp_key kostenplaats_key,
|
||||
TRIM (SUBSTR (kg.prs_kostenplaatsgrp_oms, 1, 7))
|
||||
kostenplaats,
|
||||
k.prs_kostenplaats_nr deb_nr,
|
||||
k.prs_kostenplaats_key proj_key,
|
||||
k.prs_kostenplaats_nr proj,
|
||||
CASE
|
||||
WHEN btw.perc > 9
|
||||
THEN
|
||||
btw.perc
|
||||
WHEN (btw.perc = 6 OR btw.perc = 9)
|
||||
THEN
|
||||
CASE
|
||||
WHEN rra.res_rsv_artikel_levering <
|
||||
TO_DATE ('1-1-2019', 'dd-mm-yyyy')
|
||||
THEN
|
||||
6
|
||||
ELSE
|
||||
9
|
||||
END
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
btw,
|
||||
ks.prs_kostensoort_btw,
|
||||
CASE
|
||||
WHEN btw.perc > 9
|
||||
THEN
|
||||
btw.btw_code
|
||||
WHEN (btw.perc = 6 OR btw.perc = 9)
|
||||
THEN
|
||||
CASE
|
||||
WHEN rra.res_rsv_artikel_levering <
|
||||
TO_DATE ('1-1-2019', 'dd-mm-yyyy')
|
||||
THEN
|
||||
'VL'
|
||||
ELSE
|
||||
btw.btw_code
|
||||
END
|
||||
ELSE
|
||||
btw.btw_code
|
||||
END
|
||||
btw_code,
|
||||
rr.res_reservering_key res_key,
|
||||
rr.res_rsv_ruimte_volgnr res_volgnr,
|
||||
NULL referentie,
|
||||
rr.res_reservering_key
|
||||
|| '/'
|
||||
|| rr.res_rsv_ruimte_volgnr
|
||||
reservering,
|
||||
rr.res_rsv_ruimte_key,
|
||||
rr.res_rsv_ruimte_omschrijving descr,
|
||||
1 aantal,
|
||||
NVL (
|
||||
(SELECT r.res_ruimte_nr
|
||||
FROM res_ruimte_opstelling ro, res_ruimte r
|
||||
WHERE ro.res_ruimte_opstel_key =
|
||||
rr.res_ruimte_opstel_key
|
||||
AND r.res_ruimte_key = ro.res_ruimte_key), ---- NVL ipv coalesce aangepast nav Oracle bug #55835
|
||||
(SELECT 'Kamer '
|
||||
|| alg_ruimte_nr
|
||||
|| ' ('
|
||||
|| alg_ruimte_omschrijving
|
||||
|| ')'
|
||||
FROM alg_v_ruimte_gegevens rg
|
||||
WHERE rg.alg_ruimte_key = rr.alg_ruimte_key))
|
||||
omschrijving,
|
||||
'catering' soort,
|
||||
(rra.res_rsv_artikel_prijs
|
||||
/ ( (CASE
|
||||
WHEN btw.perc > 9
|
||||
THEN
|
||||
btw.perc
|
||||
WHEN (btw.perc = 6 OR btw.perc = 9)
|
||||
THEN
|
||||
CASE
|
||||
WHEN rra.res_rsv_artikel_levering <
|
||||
TO_DATE ('1-1-2019',
|
||||
'dd-mm-yyyy')
|
||||
THEN
|
||||
CURSOR c (c_tot DATE)
|
||||
IS
|
||||
SELECT klant,
|
||||
res_rsv_ruimte_van,
|
||||
periode,
|
||||
grootboek,
|
||||
kostenplaats_key,
|
||||
kostenplaats,
|
||||
deb_nr,
|
||||
proj_key,
|
||||
proj,
|
||||
btw,
|
||||
prs_kostensoort_btw,
|
||||
res_key,
|
||||
res_volgnr,
|
||||
referentie,
|
||||
res_rsv_ruimte_key,
|
||||
descr,
|
||||
aantal,
|
||||
omschrijving,
|
||||
soort,
|
||||
btw_code,
|
||||
SUM (prijs_ex) prijs_ex,
|
||||
SUM (prijs_inc) prijs_inc,
|
||||
SUM (btw_laag) btw_laag,
|
||||
SUM (btw_hoog) btw_hoog,
|
||||
SUM (korting) korting,
|
||||
SUM (inex) inex
|
||||
FROM (SELECT k.prs_kostenplaats_omschrijving
|
||||
klant,
|
||||
rr.res_rsv_ruimte_van,
|
||||
TO_CHAR (rr.res_rsv_ruimte_van, 'YYYYMM')
|
||||
periode,
|
||||
ks.prs_kostensoort_oms
|
||||
grootboek,
|
||||
kg.prs_kostenplaatsgrp_key
|
||||
kostenplaats_key,
|
||||
TRIM (SUBSTR (kg.prs_kostenplaatsgrp_oms, 1, 7))
|
||||
kostenplaats,
|
||||
k.prs_kostenplaats_nr
|
||||
deb_nr,
|
||||
k.prs_kostenplaats_key
|
||||
proj_key,
|
||||
k.prs_kostenplaats_nr
|
||||
proj,
|
||||
CASE
|
||||
WHEN btw.perc > 9
|
||||
THEN
|
||||
btw.perc
|
||||
WHEN (btw.perc = 6 OR btw.perc = 9)
|
||||
THEN
|
||||
CASE
|
||||
WHEN rra.res_rsv_artikel_levering <
|
||||
TO_DATE ('1-1-2019', 'dd-mm-yyyy')
|
||||
THEN
|
||||
6
|
||||
ELSE
|
||||
ELSE
|
||||
9
|
||||
END
|
||||
ELSE
|
||||
0
|
||||
END)
|
||||
+ 100))
|
||||
* 100
|
||||
prijs_ex,
|
||||
rra.res_rsv_artikel_prijs prijs_inc,
|
||||
DECODE (
|
||||
btw.perc,
|
||||
9,
|
||||
rra.res_rsv_artikel_prijs
|
||||
* (CASE
|
||||
WHEN rra.res_rsv_artikel_levering <
|
||||
TO_DATE ('1-1-2019', 'dd-mm-yyyy')
|
||||
THEN
|
||||
6
|
||||
ELSE
|
||||
9
|
||||
END)
|
||||
/ (100
|
||||
+ (CASE
|
||||
WHEN rra.res_rsv_artikel_levering <
|
||||
TO_DATE ('1-1-2019', 'dd-mm-yyyy')
|
||||
THEN
|
||||
6
|
||||
ELSE
|
||||
9
|
||||
END)),
|
||||
0)
|
||||
btw_laag,
|
||||
DECODE (
|
||||
btw.perc,
|
||||
21,
|
||||
rra.res_rsv_artikel_prijs
|
||||
* btw.perc
|
||||
/ (100 + btw.perc),
|
||||
0)
|
||||
btw_hoog,
|
||||
0 korting,
|
||||
0 inex
|
||||
FROM res_rsv_ruimte rr,
|
||||
prs_kostenplaats k,
|
||||
prs_kostenplaatsgrp kg,
|
||||
res_rsv_artikel rra,
|
||||
res_artikel ra,
|
||||
res_discipline di,
|
||||
prs_kostensoort ks,
|
||||
(SELECT fac.safe_to_number (fac_usrdata_upper) perc,
|
||||
fac_usrdata_omschr btw_code
|
||||
FROM fac_usrdata
|
||||
WHERE fac_usrtab_key = 42
|
||||
AND fac_usrdata_verwijder IS NULL) btw
|
||||
WHERE COALESCE (k.prs_kostenplaats_extern, 0) = 0
|
||||
AND kg.prs_kostenplaatsgrp_key =
|
||||
END
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
btw,
|
||||
ks.prs_kostensoort_btw,
|
||||
CASE
|
||||
WHEN btw.perc > 9
|
||||
THEN
|
||||
btw.btw_code
|
||||
WHEN (btw.perc = 6 OR btw.perc = 9)
|
||||
THEN
|
||||
CASE
|
||||
WHEN rra.res_rsv_artikel_levering <
|
||||
TO_DATE ('1-1-2019', 'dd-mm-yyyy')
|
||||
THEN
|
||||
'VL'
|
||||
ELSE
|
||||
btw.btw_code
|
||||
END
|
||||
ELSE
|
||||
btw.btw_code
|
||||
END
|
||||
btw_code,
|
||||
rr.res_reservering_key
|
||||
res_key,
|
||||
rr.res_rsv_ruimte_volgnr
|
||||
res_volgnr,
|
||||
NULL
|
||||
referentie,
|
||||
rr.res_reservering_key
|
||||
|| '/'
|
||||
|| rr.res_rsv_ruimte_volgnr
|
||||
reservering,
|
||||
rr.res_rsv_ruimte_key,
|
||||
rr.res_rsv_ruimte_omschrijving
|
||||
descr,
|
||||
1
|
||||
aantal,
|
||||
NVL (
|
||||
(SELECT r.res_ruimte_nr
|
||||
FROM res_ruimte_opstelling ro, res_ruimte r
|
||||
WHERE ro.res_ruimte_opstel_key =
|
||||
rr.res_ruimte_opstel_key
|
||||
AND r.res_ruimte_key = ro.res_ruimte_key), ---- NVL ipv coalesce aangepast nav Oracle bug #55835
|
||||
(SELECT 'Kamer '
|
||||
|| alg_ruimte_nr
|
||||
|| ' ('
|
||||
|| alg_ruimte_omschrijving
|
||||
|| ')'
|
||||
FROM alg_v_ruimte_gegevens rg
|
||||
WHERE rg.alg_ruimte_key = rr.alg_ruimte_key))
|
||||
omschrijving,
|
||||
'catering'
|
||||
soort,
|
||||
( rra.res_rsv_artikel_prijs
|
||||
/ ( (CASE
|
||||
WHEN btw.perc > 9
|
||||
THEN
|
||||
btw.perc
|
||||
WHEN (btw.perc = 6 OR btw.perc = 9)
|
||||
THEN
|
||||
CASE
|
||||
WHEN rra.res_rsv_artikel_levering <
|
||||
TO_DATE ('1-1-2019',
|
||||
'dd-mm-yyyy')
|
||||
THEN
|
||||
6
|
||||
ELSE
|
||||
9
|
||||
END
|
||||
ELSE
|
||||
0
|
||||
END)
|
||||
+ 100))
|
||||
* 100
|
||||
prijs_ex,
|
||||
rra.res_rsv_artikel_prijs
|
||||
prijs_inc,
|
||||
DECODE (
|
||||
btw.perc,
|
||||
9, rra.res_rsv_artikel_prijs
|
||||
* (CASE
|
||||
WHEN rra.res_rsv_artikel_levering <
|
||||
TO_DATE ('1-1-2019', 'dd-mm-yyyy')
|
||||
THEN
|
||||
6
|
||||
ELSE
|
||||
9
|
||||
END)
|
||||
/ ( 100
|
||||
+ (CASE
|
||||
WHEN rra.res_rsv_artikel_levering <
|
||||
TO_DATE ('1-1-2019',
|
||||
'dd-mm-yyyy')
|
||||
THEN
|
||||
6
|
||||
ELSE
|
||||
9
|
||||
END)),
|
||||
0)
|
||||
btw_laag,
|
||||
DECODE (
|
||||
btw.perc,
|
||||
21, rra.res_rsv_artikel_prijs
|
||||
* btw.perc
|
||||
/ (100 + btw.perc),
|
||||
0)
|
||||
btw_hoog,
|
||||
0
|
||||
korting,
|
||||
0
|
||||
inex
|
||||
FROM res_rsv_ruimte rr,
|
||||
prs_kostenplaats k,
|
||||
prs_kostenplaatsgrp kg,
|
||||
res_rsv_artikel rra,
|
||||
res_artikel ra,
|
||||
res_discipline di,
|
||||
prs_kostensoort ks,
|
||||
(SELECT fac.safe_to_number (fac_usrdata_upper)
|
||||
perc,
|
||||
fac_usrdata_omschr
|
||||
btw_code
|
||||
FROM fac_usrdata
|
||||
WHERE fac_usrtab_key = 42
|
||||
AND fac_usrdata_verwijder IS NULL) btw
|
||||
WHERE COALESCE (k.prs_kostenplaats_extern, 0) = 0
|
||||
AND kg.prs_kostenplaatsgrp_key =
|
||||
k.prs_kostenplaatsgrp_key
|
||||
AND rr.prs_kostenplaats_key = k.prs_kostenplaats_key
|
||||
AND rr.res_rsv_ruimte_dirtlevel = 0
|
||||
AND rr.res_rsv_ruimte_afgerond = 1
|
||||
AND rr.res_rsv_ruimte_verwijder IS NULL
|
||||
AND rra.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
|
||||
AND rra.res_artikel_key = ra.res_artikel_key
|
||||
AND ra.res_discipline_key = di.ins_discipline_key
|
||||
AND ks.prs_kostensoort_key = di.prs_kostensoort_key
|
||||
AND di.ins_discipline_key NOT IN (462, 581, 741) -- hotelkamers, inhuur voorzieningen, linnen
|
||||
AND ra.res_artikel_btw = btw.perc
|
||||
AND rra.res_rsv_artikel_prijs <> 0
|
||||
AND rra.res_rsv_artikel_levering < c_tot
|
||||
AND NOT EXISTS -- flag reservering bevat catering op externe kostenplaats is niet gezet.
|
||||
(SELECT res_kenmerkwaarde_key
|
||||
FROM res_kenmerkwaarde kw, res_kenmerk k
|
||||
WHERE kw.res_kenmerk_key = k.res_kenmerk_key
|
||||
AND k.res_srtkenmerk_key = 321 -- Reservering bevat catering op externe kostenpaats.
|
||||
AND kw.res_rsv_ruimte_key =
|
||||
rr.res_rsv_ruimte_key
|
||||
AND fac.safe_to_number (
|
||||
kw.res_kenmerkreservering_waarde) =
|
||||
1)
|
||||
AND NOT EXISTS -- entry komt nog niet voor in de verkoopfactuurtabel
|
||||
(SELECT fin_verkoopfactuur_key
|
||||
FROM fin_verkoopfactuur vf
|
||||
WHERE vf.fin_verkoopfactuur_xmlnode =
|
||||
'reservering'
|
||||
AND vf.fin_verkoopfactuur_refkey =
|
||||
rr.res_rsv_ruimte_key
|
||||
AND COALESCE (vf.fin_verkoopfactuur_c4,
|
||||
'NOP') = 'catering'))
|
||||
GROUP BY klant,
|
||||
res_rsv_ruimte_van,
|
||||
periode,
|
||||
grootboek,
|
||||
kostenplaats_key,
|
||||
kostenplaats,
|
||||
deb_nr,
|
||||
proj_key,
|
||||
proj,
|
||||
btw,
|
||||
prs_kostensoort_btw,
|
||||
res_key,
|
||||
res_volgnr,
|
||||
referentie,
|
||||
res_rsv_ruimte_key,
|
||||
descr,
|
||||
aantal,
|
||||
omschrijving,
|
||||
soort,
|
||||
btw_code
|
||||
ORDER BY res_rsv_ruimte_key, btw_code;
|
||||
AND rr.prs_kostenplaats_key = k.prs_kostenplaats_key
|
||||
AND rr.res_rsv_ruimte_dirtlevel = 0
|
||||
AND rr.res_rsv_ruimte_afgerond = 1
|
||||
AND rr.res_rsv_ruimte_verwijder IS NULL
|
||||
AND rra.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
|
||||
AND rra.res_artikel_key = ra.res_artikel_key
|
||||
AND ra.res_discipline_key = di.ins_discipline_key
|
||||
AND ks.prs_kostensoort_key = di.prs_kostensoort_key
|
||||
AND di.ins_discipline_key NOT IN (462, 581, 741) -- hotelkamers, inhuur voorzieningen, linnen
|
||||
AND ra.res_artikel_btw = btw.perc
|
||||
AND rra.res_rsv_artikel_prijs <> 0
|
||||
AND rra.res_rsv_artikel_levering < c_tot
|
||||
AND NOT EXISTS -- flag reservering bevat catering op externe kostenplaats is niet gezet.
|
||||
(SELECT res_kenmerkwaarde_key
|
||||
FROM res_kenmerkwaarde kw, res_kenmerk k
|
||||
WHERE kw.res_kenmerk_key =
|
||||
k.res_kenmerk_key
|
||||
AND k.res_srtkenmerk_key = 321 -- Reservering bevat catering op externe kostenpaats.
|
||||
AND kw.res_rsv_ruimte_key =
|
||||
rr.res_rsv_ruimte_key
|
||||
AND fac.safe_to_number (
|
||||
kw.res_kenmerkreservering_waarde) =
|
||||
1)
|
||||
AND NOT EXISTS -- entry komt nog niet voor in de verkoopfactuurtabel
|
||||
(SELECT fin_verkoopfactuur_key
|
||||
FROM fin_verkoopfactuur vf
|
||||
WHERE vf.fin_verkoopfactuur_xmlnode =
|
||||
'reservering'
|
||||
AND vf.fin_verkoopfactuur_refkey =
|
||||
rr.res_rsv_ruimte_key
|
||||
AND COALESCE (
|
||||
vf.fin_verkoopfactuur_c4,
|
||||
'NOP') =
|
||||
'catering'))
|
||||
GROUP BY klant,
|
||||
res_rsv_ruimte_van,
|
||||
periode,
|
||||
grootboek,
|
||||
kostenplaats_key,
|
||||
kostenplaats,
|
||||
deb_nr,
|
||||
proj_key,
|
||||
proj,
|
||||
btw,
|
||||
prs_kostensoort_btw,
|
||||
res_key,
|
||||
res_volgnr,
|
||||
referentie,
|
||||
res_rsv_ruimte_key,
|
||||
descr,
|
||||
aantal,
|
||||
omschrijving,
|
||||
soort,
|
||||
btw_code
|
||||
ORDER BY res_rsv_ruimte_key, btw_code;
|
||||
|
||||
v_teller NUMBER;
|
||||
v_rap_count NUMBER;
|
||||
v_kenmerk_key_laatste NUMBER;
|
||||
v_ruimte_key_prev NUMBER;
|
||||
v_verkoopfactuurkop_key NUMBER;
|
||||
v_tot DATE;
|
||||
v_van DATE;
|
||||
v_teller NUMBER;
|
||||
v_rap_count NUMBER;
|
||||
v_kenmerk_key_laatste NUMBER;
|
||||
v_ruimte_key_prev NUMBER;
|
||||
v_verkoopfactuurkop_key NUMBER;
|
||||
v_tot DATE;
|
||||
v_van DATE;
|
||||
BEGIN
|
||||
v_teller := 0;
|
||||
v_rap_count := 0;
|
||||
v_teller := 0;
|
||||
v_rap_count := 0;
|
||||
|
||||
v_aanduiding := 'Init';
|
||||
v_errormsg := 'Periode bepalen';
|
||||
v_aanduiding := 'Init';
|
||||
v_errormsg := 'Periode bepalen';
|
||||
|
||||
SELECT TRUNC (MAX (fin_verkoopfactuur_d2))
|
||||
INTO v_van
|
||||
FROM fin_verkoopfactuur
|
||||
WHERE fin_verkoopfactuur_datum IS NOT NULL
|
||||
AND fin_verkoopfactuur_c4 = 'catering';
|
||||
SELECT TRUNC (MAX (fin_verkoopfactuur_d2))
|
||||
INTO v_van
|
||||
FROM fin_verkoopfactuur
|
||||
WHERE fin_verkoopfactuur_datum IS NOT NULL
|
||||
AND fin_verkoopfactuur_c4 = 'catering';
|
||||
|
||||
-- We rekenen hier met periodes van 5 weken.
|
||||
v_tot := v_van + 35;
|
||||
-- We rekenen hier met periodes van 5 weken.
|
||||
v_tot := v_van + 35;
|
||||
|
||||
DELETE imp_log
|
||||
WHERE imp_log_applicatie = p_applname;
|
||||
DELETE imp_log
|
||||
WHERE imp_log_applicatie = p_applname;
|
||||
|
||||
-- verwijder regels die nog niet verwerkt zijn
|
||||
DELETE fin_verkoopfactuurkop
|
||||
WHERE fin_verkoopfactuurkop_key IN
|
||||
(SELECT fin_verkoopfactuurkop_key
|
||||
FROM fin_verkoopfactuur
|
||||
WHERE fin_verkoopfactuur_datum IS NULL
|
||||
AND fin_verkoopfactuur_c4 = 'catering');
|
||||
-- verwijder regels die nog niet verwerkt zijn
|
||||
DELETE fin_verkoopfactuurkop
|
||||
WHERE fin_verkoopfactuurkop_key IN
|
||||
(SELECT fin_verkoopfactuurkop_key
|
||||
FROM fin_verkoopfactuur
|
||||
WHERE fin_verkoopfactuur_datum IS NULL
|
||||
AND fin_verkoopfactuur_c4 = 'catering');
|
||||
|
||||
DELETE fin_verkoopfactuur
|
||||
WHERE fin_verkoopfactuur_datum IS NULL
|
||||
AND fin_verkoopfactuur_c4 = 'catering';
|
||||
DELETE fin_verkoopfactuur
|
||||
WHERE fin_verkoopfactuur_datum IS NULL
|
||||
AND fin_verkoopfactuur_c4 = 'catering';
|
||||
|
||||
v_ruimte_key_prev := -1;
|
||||
v_ruimte_key_prev := -1;
|
||||
|
||||
FOR rec IN c (v_tot)
|
||||
LOOP
|
||||
IF rec.res_rsv_ruimte_key <> v_ruimte_key_prev
|
||||
THEN
|
||||
v_ruimte_key_prev := rec.res_rsv_ruimte_key;
|
||||
FOR rec IN c (v_tot)
|
||||
LOOP
|
||||
IF rec.res_rsv_ruimte_key <> v_ruimte_key_prev
|
||||
THEN
|
||||
v_ruimte_key_prev := rec.res_rsv_ruimte_key;
|
||||
|
||||
INSERT INTO fin_verkoopfactuurkop (fin_verkoopfactuurkop_id)
|
||||
VALUES (rec.res_key || '/' || rec.res_volgnr || '-c')
|
||||
RETURNING fin_verkoopfactuurkop_key
|
||||
INTO v_verkoopfactuurkop_key;
|
||||
END IF;
|
||||
INSERT INTO fin_verkoopfactuurkop (fin_verkoopfactuurkop_id)
|
||||
VALUES (rec.res_key || '/' || rec.res_volgnr || '-c')
|
||||
RETURNING fin_verkoopfactuurkop_key
|
||||
INTO v_verkoopfactuurkop_key;
|
||||
END IF;
|
||||
|
||||
INSERT INTO fin_verkoopfactuur (fin_verkoopfactuurkop_key,
|
||||
fin_verkoopfactuur_id,
|
||||
fin_verkoopfactuur_datum,
|
||||
fin_verkoopfactuur_omschr,
|
||||
fin_verkoopfactuur_xmlnode,
|
||||
fin_verkoopfactuur_refkey,
|
||||
prs_kostenplaats_nr,
|
||||
prs_kostenplaats_omschrijving,
|
||||
prs_kostenplaatsgrp_oms,
|
||||
prs_kostensoort_oms,
|
||||
prs_debiteur_naam,
|
||||
fin_verkoopfactuur_bedrag,
|
||||
fin_verkoopfactuur_btw,
|
||||
fin_btwtabelwaarde_code,
|
||||
fin_btwtabelwaarde_oms,
|
||||
fin_btwtabelwaarde_perc,
|
||||
fin_verkoopfactuur_maand,
|
||||
fin_verkoopfactuur_n1,
|
||||
fin_verkoopfactuur_n2,
|
||||
fin_verkoopfactuur_c1,
|
||||
fin_verkoopfactuur_c2,
|
||||
fin_verkoopfactuur_c3,
|
||||
fin_verkoopfactuur_c4,
|
||||
fin_verkoopfactuur_c5,
|
||||
fin_verkoopfactuur_d1,
|
||||
fin_verkoopfactuur_d2)
|
||||
VALUES (v_verkoopfactuurkop_key,
|
||||
TO_CHAR (SYSDATE, 'YYYY-MM-DD'),
|
||||
NULL,
|
||||
rec.omschrijving,
|
||||
'reservering',
|
||||
rec.res_rsv_ruimte_key,
|
||||
rec.proj,
|
||||
rec.proj,
|
||||
rec.kostenplaats,
|
||||
rec.grootboek,
|
||||
rec.deb_nr,
|
||||
rec.prijs_ex,
|
||||
rec.btw_hoog + rec.btw_laag,
|
||||
rec.btw_code,
|
||||
rec.btw_code,
|
||||
rec.btw,
|
||||
rec.periode,
|
||||
rec.inex,
|
||||
0, -- debet
|
||||
rec.res_key || '/' || rec.res_volgnr,
|
||||
rec.klant,
|
||||
rec.referentie,
|
||||
'catering',
|
||||
v_van || ' - '||v_tot,
|
||||
rec.res_rsv_ruimte_van,
|
||||
v_tot);
|
||||
END LOOP;
|
||||
INSERT INTO fin_verkoopfactuur (fin_verkoopfactuurkop_key,
|
||||
fin_verkoopfactuur_id,
|
||||
fin_verkoopfactuur_datum,
|
||||
fin_verkoopfactuur_omschr,
|
||||
fin_verkoopfactuur_xmlnode,
|
||||
fin_verkoopfactuur_refkey,
|
||||
prs_kostenplaats_nr,
|
||||
prs_kostenplaats_omschrijving,
|
||||
prs_kostenplaatsgrp_oms,
|
||||
prs_kostensoort_oms,
|
||||
prs_debiteur_naam,
|
||||
fin_verkoopfactuur_bedrag,
|
||||
fin_verkoopfactuur_btw,
|
||||
fin_btwtabelwaarde_code,
|
||||
fin_btwtabelwaarde_oms,
|
||||
fin_btwtabelwaarde_perc,
|
||||
fin_verkoopfactuur_maand,
|
||||
fin_verkoopfactuur_n1,
|
||||
fin_verkoopfactuur_n2,
|
||||
fin_verkoopfactuur_c1,
|
||||
fin_verkoopfactuur_c2,
|
||||
fin_verkoopfactuur_c3,
|
||||
fin_verkoopfactuur_c4,
|
||||
fin_verkoopfactuur_c5,
|
||||
fin_verkoopfactuur_d1,
|
||||
fin_verkoopfactuur_d2)
|
||||
VALUES (
|
||||
v_verkoopfactuurkop_key,
|
||||
TO_CHAR (SYSDATE, 'YYYY-MM-DD'),
|
||||
NULL,
|
||||
rec.omschrijving,
|
||||
'reservering',
|
||||
rec.res_rsv_ruimte_key,
|
||||
rec.proj,
|
||||
rec.proj,
|
||||
rec.kostenplaats,
|
||||
rec.grootboek,
|
||||
rec.deb_nr,
|
||||
rec.prijs_ex,
|
||||
rec.btw_hoog + rec.btw_laag,
|
||||
rec.btw_code,
|
||||
rec.btw_code,
|
||||
rec.btw,
|
||||
rec.periode,
|
||||
rec.inex,
|
||||
0, -- debet
|
||||
rec.res_key || '/' || rec.res_volgnr,
|
||||
rec.klant,
|
||||
rec.referentie,
|
||||
'catering',
|
||||
TO_CHAR (v_van, 'DD-MM-YYYY')
|
||||
|| ' - '
|
||||
|| TO_CHAR (v_tot, 'DD-MM-YYYY'),
|
||||
rec.res_rsv_ruimte_van,
|
||||
v_tot);
|
||||
END LOOP;
|
||||
|
||||
|
||||
fac.writelog (p_applname,
|
||||
'S',
|
||||
'Factuurregels gegenereerd',
|
||||
'');
|
||||
fac.writelog (p_applname,
|
||||
'S',
|
||||
'Factuurregels gegenereerd',
|
||||
'');
|
||||
|
||||
COMMIT;
|
||||
COMMIT;
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
||||
v_errormsg :=
|
||||
v_errorhint
|
||||
|| ' ORACLE (error '
|
||||
|| oracle_err_num
|
||||
|| '/'
|
||||
|| oracle_err_mes
|
||||
|| ')';
|
||||
fac.writelog (p_applname,
|
||||
'E',
|
||||
v_aanduiding || v_errormsg,
|
||||
'Onbekende fout!');
|
||||
COMMIT;
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
||||
v_errormsg :=
|
||||
v_errorhint
|
||||
|| ' ORACLE (error '
|
||||
|| oracle_err_num
|
||||
|| '/'
|
||||
|| oracle_err_mes
|
||||
|| ')';
|
||||
fac.writelog (p_applname,
|
||||
'E',
|
||||
v_aanduiding || v_errormsg,
|
||||
'Onbekende fout!');
|
||||
COMMIT;
|
||||
END nybu_select_res_cat_5w;
|
||||
/
|
||||
|
||||
@@ -12018,8 +12117,8 @@ AS
|
||||
|| TO_CHAR (fin_verkoopfactuur_d2 - 28, 'dd/mm/yyyy')
|
||||
|| ' - '
|
||||
|| TO_CHAR (fin_verkoopfactuur_d2 - 1, 'dd/mm/yyyy')),
|
||||
v.fin_verkoopfactuur_c5,
|
||||
v.fin_verkoopfactuur_d2
|
||||
v.fin_verkoopfactuur_c5,
|
||||
v.fin_verkoopfactuur_d2
|
||||
FROM fin_verkoopfactuur v,
|
||||
res_rsv_ruimte r,
|
||||
(SELECT l.alg_locatie_key,
|
||||
@@ -12088,7 +12187,9 @@ AS
|
||||
datum_tot
|
||||
FROM nybu_v_exp_res_cat
|
||||
WHERE UPPER (opmerking) LIKE '%VERMAAT%'
|
||||
GROUP BY btwcode, opmerking,omschr_periode,
|
||||
GROUP BY btwcode,
|
||||
opmerking,
|
||||
omschr_periode,
|
||||
datum_tot;
|
||||
|
||||
CREATE OR REPLACE VIEW nybu_v_rap_doorbelasting_cat
|
||||
@@ -12137,7 +12238,10 @@ AS
|
||||
omschr_periode,
|
||||
datum_tot
|
||||
FROM nybu_v_exp_res_cat
|
||||
GROUP BY kostensoort, opmerking,omschr_periode,datum_tot;
|
||||
GROUP BY kostensoort,
|
||||
opmerking,
|
||||
omschr_periode,
|
||||
datum_tot;
|
||||
|
||||
CREATE OR REPLACE VIEW nybu_v_rap_doorbelasting_res
|
||||
(
|
||||
@@ -12180,7 +12284,11 @@ AS
|
||||
omschr_periode,
|
||||
datum_tot
|
||||
FROM nybu_v_exp_res_cat
|
||||
GROUP BY reservering, kostensoort, opmerking,omschr_periode,datum_tot;
|
||||
GROUP BY reservering,
|
||||
kostensoort,
|
||||
opmerking,
|
||||
omschr_periode,
|
||||
datum_tot;
|
||||
|
||||
-- Zet status van de met RES_CODA ge<67>xporteerde reserveringen op Verwerkt.
|
||||
-- res_srtkenmerk 202 Exportdatum
|
||||
@@ -20071,7 +20179,15 @@ CREATE OR REPLACE VIEW nybu_v_kostenplaatsgroep
|
||||
AS
|
||||
SELECT kpg.prs_kostenplaatsgrp_key, kpg.prs_kostenplaatsgrp_oms
|
||||
FROM prs_kostenplaatsgrp kpg;
|
||||
|
||||
|
||||
CREATE OR REPLACE PROCEDURE nybu_daily_task
|
||||
AS
|
||||
BEGIN
|
||||
-- automatische mandatering obv kostenplaats.
|
||||
nybu.mandatering ();
|
||||
END;
|
||||
/
|
||||
|
||||
------ payload end ------
|
||||
|
||||
SET DEFINE OFF
|
||||
|
||||
Reference in New Issue
Block a user