156 lines
6.3 KiB
SQL
156 lines
6.3 KiB
SQL
-- Script containing customer specific db-configuration for KING.
|
|
-- (c) 2011 SG|facilitor bv
|
|
-- $Revision: 6 $
|
|
-- $Modtime: 4-07-11 15:04 $
|
|
--
|
|
-- Support: +31 53 4800700
|
|
|
|
set echo on
|
|
|
|
spool xking.lst
|
|
|
|
/* Formatted on 16-5-2011 11:14:25 (QP5 v5.115.810.9015) */
|
|
CREATE OR REPLACE VIEW king_v_rap_inkoop_vs_budget
|
|
(
|
|
FCLT_F_JAAR,
|
|
FCLT_F_AANVRAGER,
|
|
KOSTENPLAATS,
|
|
JAARBUDGET,
|
|
INKOOP,
|
|
PERCENTAGE,
|
|
FCLT_3D_AFDELING_KEY
|
|
)
|
|
AS
|
|
SELECT COALESCE (y1.jaar, TO_CHAR (SYSDATE, 'yyyy')),
|
|
x.aanvrager,
|
|
x.kostenplaats,
|
|
COALESCE (y3.jaarbudget, y2.jaarbudget, 0),
|
|
y1.inkoop,
|
|
REPLACE (
|
|
TO_CHAR (
|
|
ROUND (
|
|
(COALESCE (y1.inkoop, 0)
|
|
/ COALESCE (y3.jaarbudget, y2.jaarbudget, 1))
|
|
* 100,
|
|
2
|
|
),
|
|
'990D99'
|
|
),
|
|
'.',
|
|
','
|
|
),
|
|
x.prs_afdeling_key
|
|
FROM (SELECT p.prs_perslid_key,
|
|
p.prs_afdeling_key,
|
|
pf.prs_perslid_naam_full aanvrager,
|
|
k.prs_kostenplaats_nr kostenplaats
|
|
FROM prs_perslid p,
|
|
prs_v_perslid_fullnames_all pf,
|
|
prs_v_afdeling a,
|
|
prs_kostenplaats k
|
|
WHERE UPPER (p.prs_perslid_voornaam) LIKE '%BUDGET%'
|
|
AND p.prs_perslid_key = pf.prs_perslid_key
|
|
AND p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND a.prs_kostenplaats_key =
|
|
k.prs_kostenplaats_key(+)) x
|
|
LEFT JOIN
|
|
( SELECT p.prs_perslid_key,
|
|
TO_CHAR (b.bes_bestelling_datum, 'yyyy') jaar,
|
|
ROUND (
|
|
SUM(bi.bes_bestelling_item_aantal
|
|
* bi.bes_bestelling_item_prijs),
|
|
2
|
|
)
|
|
inkoop
|
|
FROM bes_bestelling b,
|
|
bes_bestelling_item bi,
|
|
prs_perslid p
|
|
WHERE b.bes_bestelling_key = bi.bes_bestelling_key
|
|
AND b.prs_perslid_key = p.prs_perslid_key
|
|
AND UPPER (p.prs_perslid_voornaam) LIKE
|
|
'%BUDGET%'
|
|
AND b.bes_bestelling_status <> 1
|
|
GROUP BY p.prs_perslid_key,
|
|
TO_CHAR (b.bes_bestelling_datum, 'yyyy')) y1
|
|
ON x.prs_perslid_key = y1.prs_perslid_key
|
|
LEFT JOIN
|
|
(SELECT p.prs_perslid_key,
|
|
pgb.fac_profiel_limiet jaarbudget
|
|
FROM prs_perslid p, fac_profiel pgb
|
|
WHERE p.fac_profiel_key = pgb.fac_profiel_key) y2
|
|
ON x.prs_perslid_key = y2.prs_perslid_key
|
|
LEFT JOIN
|
|
(SELECT kl.prs_link_key,
|
|
fac.safe_to_number (kl.prs_kenmerklink_waarde)
|
|
jaarbudget
|
|
FROM prs_v_aanwezigkenmerklink kl
|
|
WHERE kl.prs_kenmerk_key = 1000 -- Jaarbudget?
|
|
AND kl.prs_kenmerklink_niveau = 'P') y3
|
|
ON x.prs_perslid_key = y3.prs_link_key;
|
|
|
|
/* Formatted on 26-5-2011 15:10:05 (QP5 v5.115.810.9015) */
|
|
CREATE OR REPLACE VIEW king_v_rap_inkoop_tbv_regie
|
|
(
|
|
FCLT_F_MAAND,
|
|
FCLT_F_AANVRAGER,
|
|
KOSTENPLAATS,
|
|
BESTELNR,
|
|
BESTELD_OP,
|
|
ARTIKEL_NR,
|
|
ARTIKEL,
|
|
AANTAL,
|
|
PRIJS,
|
|
PRIJS_TOT,
|
|
FCLT_3D_AFDELING_KEY
|
|
)
|
|
AS
|
|
SELECT NVL2 (y.bes_bestelling_datum,
|
|
TO_CHAR (y.bes_bestelling_datum, 'yyyy-mm'),
|
|
TO_CHAR (SYSDATE, 'yyyy-mm')),
|
|
x.aanvrager,
|
|
x.kostenplaats,
|
|
TO_CHAR (y.bes_bestelling_key) bestelnummer,
|
|
TO_CHAR (y.bes_bestelling_datum, 'dd-mm-yyyy') besteld_op,
|
|
y.bes_srtdeel_code artikelnummer,
|
|
y.bes_srtdeel_omschrijving artikelomschrijving,
|
|
TO_CHAR (y.bes_bestelling_item_aantal) aantal,
|
|
REPLACE (TO_CHAR (y.bes_bestelling_item_prijs), '.', ',') prijs,
|
|
(y.bes_bestelling_item_aantal * y.bes_bestelling_item_prijs)
|
|
prijs_tot,
|
|
x.prs_afdeling_key
|
|
FROM (SELECT p.prs_perslid_key,
|
|
p.prs_afdeling_key,
|
|
pf.prs_perslid_naam_full aanvrager,
|
|
k.prs_kostenplaats_nr kostenplaats
|
|
FROM prs_perslid p,
|
|
prs_v_perslid_fullnames_all pf,
|
|
prs_v_afdeling a,
|
|
prs_kostenplaats k
|
|
WHERE UPPER (p.prs_perslid_voornaam) LIKE '%REGIE%'
|
|
AND p.prs_perslid_key = pf.prs_perslid_key
|
|
AND p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND a.prs_kostenplaats_key =
|
|
k.prs_kostenplaats_key(+)) x
|
|
LEFT JOIN
|
|
(SELECT b.prs_perslid_key,
|
|
b.bes_bestelling_key,
|
|
b.bes_bestelling_datum,
|
|
sd.bes_srtdeel_code,
|
|
sd.bes_srtdeel_omschrijving,
|
|
bi.bes_bestelling_item_aantal,
|
|
bi.bes_bestelling_item_prijs
|
|
FROM bes_bestelling b,
|
|
bes_bestelling_item bi,
|
|
bes_srtdeel sd
|
|
WHERE b.bes_bestelling_key = bi.bes_bestelling_key
|
|
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
|
|
AND b.bes_bestelling_status <> 1) y
|
|
ON x.prs_perslid_key = y.prs_perslid_key;
|
|
|
|
BEGIN adm.systrackscript('$Workfile: king.sql $', '$Revision: 6 $', 0); END;
|
|
/
|
|
BEGIN fac.registercustversion('KING', 2); END;
|
|
/
|
|
COMMIT;
|
|
spool off
|