263 lines
14 KiB
Plaintext
263 lines
14 KiB
Plaintext
#ifdef BES // 03-11-2000 PF
|
|
/*
|
|
* $Revision: 33 $
|
|
* $Modtime: 6-09-10 15:11 $
|
|
*/
|
|
|
|
CREATE_VIEW(bes_discipline, 0)
|
|
AS
|
|
SELECT * FROM ALL_discipline WHERE ins_discipline_module = 'BES';
|
|
|
|
DEFINIEER_VIEW_AANWEZIG(bes_discipline, ins_discipline_verwijder,
|
|
bes_v_aanwezigdiscipline,0);
|
|
|
|
CREATE_VIEW(bes_v_aanwezigsrtgroep, 0)
|
|
AS
|
|
SELECT * FROM ins_srtgroep WHERE ins_srtgroep_module='BES' AND ins_srtgroep_verwijder IS NULL;
|
|
|
|
CREATE_VIEW(bes_v_aanwezigsrtdeel, 0)
|
|
AS
|
|
SELECT * FROM ins_srtdeel WHERE ins_srtdeel_module='BES'
|
|
AND ins_srtdeel_verwijder IS NULL;
|
|
|
|
CREATE_VIEW(bes_v_catalogus_prijsverschil,0)
|
|
( prijsverschil,
|
|
fclt_f_pn,
|
|
omschrijving,
|
|
nieuwe_prijs,
|
|
huidige_prijs,
|
|
fclt_f_catalogus ) AS
|
|
SELECT NUMBER_TO_CHAR ( ABS (f.ins_srtdeel_prijs - i.ins_srtdeel_prijs)
|
|
/ i.ins_srtdeel_prijs
|
|
* 100,
|
|
'9990.00'
|
|
),
|
|
DECODE(SIGN(f.ins_srtdeel_prijs - i.ins_srtdeel_prijs), -1, 'NEG', 0, 'NUL', 1, 'POS', 'def'),
|
|
i.ins_srtdeel_omschrijving,
|
|
NUMBER_TO_CHAR (f.ins_srtdeel_prijs, '99990.00'),
|
|
NUMBER_TO_CHAR (i.ins_srtdeel_prijs, '99990.00'), f.fac_imp_catalogus_id
|
|
FROM fac_imp_catalogus f, ins_srtdeel i, ins_srtgroep g
|
|
WHERE i.ins_srtdeel_nr = f.ins_srtdeel_nr
|
|
AND i.ins_srtgroep_key = g.ins_srtgroep_key
|
|
AND g.ins_discipline_key = f.ins_discipline_key
|
|
AND i.ins_srtdeel_prijs <> f.ins_srtdeel_prijs
|
|
AND i.ins_srtdeel_prijs <> 0
|
|
AND i.ins_srtdeel_verwijder IS NULL
|
|
;
|
|
|
|
CREATE_VIEW(bes_v_catalogus_verschilovz,0)
|
|
( omschrijving,aantal, fclt_f_catalogus ) AS
|
|
SELECT '1. aantal artikelen huidige catalogus: ', TO_CHAR (COUNT (*)),
|
|
f.fac_imp_catalogus_id
|
|
FROM (SELECT b.fac_imp_catalogus_id, b.ins_discipline_key
|
|
FROM fac_imp_catalogus b
|
|
GROUP BY b.fac_imp_catalogus_id, b.ins_discipline_key) f,
|
|
bes_v_aanwezigsrtdeel i,
|
|
ins_srtgroep g
|
|
WHERE i.ins_srtgroep_key = g.ins_srtgroep_key
|
|
AND g.ins_discipline_key = f.ins_discipline_key
|
|
GROUP BY f.fac_imp_catalogus_id
|
|
UNION
|
|
SELECT '2. aantal artikelen nieuwe catalogus: ', TO_CHAR (COUNT (*)),
|
|
f.fac_imp_catalogus_id
|
|
FROM fac_imp_catalogus f
|
|
GROUP BY f.fac_imp_catalogus_id
|
|
UNION
|
|
SELECT '3. aantal artikelen in beide catalogi: ', TO_CHAR (COUNT (*)),
|
|
fac_imp_catalogus_id
|
|
FROM (SELECT i.ins_srtdeel_nr, g.ins_discipline_key, fac_imp_catalogus_id
|
|
FROM bes_v_aanwezigsrtdeel i, ins_srtgroep g, fac_imp_catalogus f
|
|
WHERE i.ins_srtgroep_key = g.ins_srtgroep_key
|
|
AND g.ins_discipline_key = f.ins_discipline_key
|
|
AND i.ins_srtdeel_nr = f.ins_srtdeel_nr)
|
|
GROUP BY fac_imp_catalogus_id
|
|
UNION
|
|
SELECT '4. aantal gewijzigde artikelen(prijs): ', TO_CHAR (COUNT (*)),
|
|
f.fac_imp_catalogus_id
|
|
FROM bes_v_aanwezigsrtdeel i, ins_srtgroep g, fac_imp_catalogus f
|
|
WHERE i.ins_srtgroep_key = g.ins_srtgroep_key
|
|
AND g.ins_discipline_key = f.ins_discipline_key
|
|
AND i.ins_srtdeel_nr = f.ins_srtdeel_nr
|
|
AND i.ins_srtdeel_prijs <> f.ins_srtdeel_prijs
|
|
GROUP BY f.fac_imp_catalogus_id
|
|
UNION
|
|
SELECT '5. aantal gewijzigde artikelen(omschrijving): ',
|
|
TO_CHAR (COUNT (*)), f.fac_imp_catalogus_id
|
|
FROM bes_v_aanwezigsrtdeel i, ins_srtgroep g, fac_imp_catalogus f
|
|
WHERE i.ins_srtgroep_key = g.ins_srtgroep_key
|
|
AND g.ins_discipline_key = f.ins_discipline_key
|
|
AND i.ins_srtdeel_nr = f.ins_srtdeel_nr
|
|
AND i.ins_srtdeel_omschrijving <> f.ins_srtdeel_omschrijving
|
|
GROUP BY f.fac_imp_catalogus_id
|
|
UNION
|
|
SELECT '6. aantal gewijzigde artikelen(vervaldatum): ', TO_CHAR (COUNT (*)),
|
|
f.fac_imp_catalogus_id
|
|
FROM bes_v_aanwezigsrtdeel i, ins_srtgroep g, fac_imp_catalogus f
|
|
WHERE i.ins_srtgroep_key = g.ins_srtgroep_key
|
|
AND g.ins_discipline_key = f.ins_discipline_key
|
|
AND i.ins_srtdeel_nr = f.ins_srtdeel_nr
|
|
AND i.ins_srtdeel_vervaldatum <> f.ins_srtdeel_vervaldatum
|
|
GROUP BY f.fac_imp_catalogus_id
|
|
UNION
|
|
SELECT '7. aantal artikelengroepen huidige catalogus: ',
|
|
TO_CHAR (COUNT (DISTINCT (ins_srtgroep_omschrijving))),
|
|
f.fac_imp_catalogus_id
|
|
FROM (SELECT b.fac_imp_catalogus_id, b.ins_discipline_key
|
|
FROM fac_imp_catalogus b
|
|
GROUP BY b.fac_imp_catalogus_id, b.ins_discipline_key) f,
|
|
bes_v_aanwezigsrtgroep g
|
|
WHERE g.ins_discipline_key = f.ins_discipline_key
|
|
GROUP BY f.fac_imp_catalogus_id
|
|
UNION
|
|
SELECT '8. aantal artikelgroepen nieuwe catalogus: ',
|
|
TO_CHAR (COUNT (DISTINCT (ins_srtgroep_omschrijving))),
|
|
f.fac_imp_catalogus_id
|
|
FROM fac_imp_catalogus f
|
|
GROUP BY f.fac_imp_catalogus_id
|
|
UNION
|
|
SELECT '9. aantal artikelgroepen in beide catalogi: ',
|
|
TO_CHAR (COUNT (DISTINCT (ins_srtgroep_omschrijving))),
|
|
fac_imp_catalogus_id
|
|
FROM (SELECT g.ins_srtgroep_omschrijving, g.ins_discipline_key,
|
|
fac_imp_catalogus_id
|
|
FROM bes_v_aanwezigsrtgroep g, fac_imp_catalogus f
|
|
WHERE g.ins_discipline_key = f.ins_discipline_key
|
|
AND g.ins_srtgroep_upper = UPPER (f.ins_srtgroep_omschrijving))
|
|
GROUP BY fac_imp_catalogus_id;
|
|
|
|
CREATE_VIEW(bes_v_qvw_algemeen, 0) (bes_bestelling_key,
|
|
bestelaanvraagnr,
|
|
besteldatum,
|
|
besteller,
|
|
invoerder,
|
|
kostensoortgroep,
|
|
kostensoort,
|
|
kpn,
|
|
kpn_omschrijving,
|
|
prs_bedrijf_key,
|
|
afdeling_code,
|
|
afdeling_omschrijving,
|
|
alg_locatie_key,
|
|
locatie_code,
|
|
district_omschijving,
|
|
afleveradres,
|
|
mandaat,
|
|
personeelsnr,
|
|
werkplek,
|
|
ins_discipline_key,
|
|
catalogus,
|
|
groep,
|
|
afleverdatum,
|
|
doorlooptijd_werkdgn,
|
|
sla_tijd,
|
|
productcode,
|
|
prijs,
|
|
inkoopprijs,
|
|
status,
|
|
gefiatteerddoor,
|
|
bestelopdrachtnummer,
|
|
aantal,
|
|
itemprijs,
|
|
iteminkoopprijs,
|
|
productomschrijving,
|
|
itemposnr
|
|
)
|
|
AS
|
|
SELECT bes_bestelling_key, bestelaanvraagnr, besteldatum, besteller, invoerder, kostensoortgroep,kostensoort, kpn, kpn_omschrijving, prs_bedrijf_key,
|
|
afdeling_code, afdeling_omschrijving, alg_locatie_key, locatie_code, district_omschijving, afleveradres, mandaat,
|
|
personeelsnr, werkplek, ins_discipline_key, catalogus, groep, afleverdatum, doorlooptijd_werkdgn, sla_tijd,
|
|
productcode, prijs, inkoopprijs, status, gefiatteerddoor, bestelopdrachtnummer, aantal, itemprijs, iteminkoopprijs, productomschrijving, itemposnr
|
|
FROM (SELECT b.bes_bestelling_key bes_bestelling_key, 'A-' || b.bes_bestelling_key bestelaanvraagnr,
|
|
TO_CHAR (b.bes_bestelling_datum, 'YYYY-MM-DD') besteldatum,
|
|
(SELECT prs_perslid_naam_full
|
|
FROM prs_v_perslid_fullnames_all pf
|
|
WHERE pf.prs_perslid_key = p.prs_perslid_key) besteller,
|
|
(SELECT prs_perslid_naam_full
|
|
FROM prs_v_perslid_fullnames_all pf
|
|
WHERE pf.prs_perslid_key = fac.gettrackinguserkey ('BESAP2', b.bes_bestelling_key)) invoerder,
|
|
(select ksg.prs_kostensoortgrp_oms
|
|
from prs_kostensoortgrp ksg, prs_kostensoort ks
|
|
where ksg.PRS_KOSTENSOORTGRP_KEY = ks.PRS_KOSTENSOORTGRP_KEY
|
|
and ks.PRS_KOSTENSOORT_KEY = (select disc.PRS_KOSTENSOORT_KEY
|
|
from bes_discipline disc
|
|
where disc.ins_DISCIPLINE_KEY = d.ins_discipline_key)) kostensoortgroep,
|
|
(select ks.prs_kostensoort_oms
|
|
from prs_kostensoort ks
|
|
where ks.PRS_KOSTENSOORT_KEY = (select disc.PRS_KOSTENSOORT_KEY
|
|
from bes_discipline disc
|
|
where disc.ins_DISCIPLINE_KEY = d.ins_discipline_key)) kostensoort,
|
|
k.prs_kostenplaats_nr kpn,
|
|
k.prs_kostenplaats_omschrijving kpn_omschrijving,
|
|
(SELECT prs_bedrijf_key
|
|
FROM prs_v_afdeling pva
|
|
WHERE pva.prs_afdeling_key = a.prs_afdeling_key) prs_bedrijf_key,
|
|
a.prs_afdeling_naam afdeling_code,
|
|
a.prs_afdeling_omschrijving afdeling_omschrijving,
|
|
ma.alg_locatie_key alg_locatie_key,
|
|
(SELECT alg_locatie_code
|
|
FROM alg_locatie l
|
|
WHERE l.alg_locatie_key = ma.alg_locatie_key) locatie_code,
|
|
(SELECT alg_district_omschrijving
|
|
FROM alg_locatie l, alg_district d
|
|
WHERE l.alg_district_key = d.alg_district_key
|
|
AND l.alg_locatie_key = ma.alg_locatie_key) district_omschijving,
|
|
ma.mld_adres_naam afleveradres, NVL ((SELECT pr.fac_profiel_limiet
|
|
FROM fac_profiel pr
|
|
WHERE p.fac_profiel_key = pr.fac_profiel_key), 0) mandaat,
|
|
prs_perslid_nr personeelsnr, wp2.prs_werkplek_aanduiding werkplek,
|
|
d.ins_discipline_key ins_discipline_key,
|
|
d.ins_discipline_omschrijving catalogus,
|
|
sg.ins_srtgroep_omschrijving groep,
|
|
TO_CHAR (b.bes_bestelling_leverdatum, 'YYYY-MM-DD') afleverdatum,
|
|
TO_CHAR (fac.count_work_days (b.bes_bestelling_datum, NVL (fac.gettrackingdate ('BESOTV', b.bes_bestelling_key), SYSDATE))
|
|
) doorlooptijd_werkdgn,
|
|
NVL ((SELECT bdp.bes_disc_params_leverdagen
|
|
FROM bes_disc_params bdp
|
|
WHERE d.ins_discipline_key = bdp.bes_ins_discipline_key), 0) sla_tijd,
|
|
sd.ins_srtdeel_nr productcode,
|
|
REPLACE (TO_CHAR (bi.bes_bestelling_item_prijs * bi.bes_bestelling_item_aantal, '9999990.99'), '.', ',') prijs,
|
|
REPLACE (TO_CHAR (NVL(sd.ins_srtdeel_inkprijs, bi.bes_bestelling_item_prijs) * bi.bes_bestelling_item_aantal, '9999990.99'), '.', ',') inkoopprijs,
|
|
(SELECT bes_bestellingstatuses_omschr
|
|
FROM bes_bestellingstatuses bs
|
|
WHERE bs.bes_bestellingstatuses_key = b.bes_bestelling_status) status,
|
|
(SELECT prs_perslid_naam_full
|
|
FROM prs_v_perslid_fullnames_all pf
|
|
WHERE pf.prs_perslid_key = b.bes_bestelling_fiat_user) gefiatteerddoor,
|
|
'O-' || bo.bes_bestelopdr_id bestelopdrachtnummer, bi.bes_bestelling_item_aantal aantal,
|
|
REPLACE (TO_CHAR (bi.bes_bestelling_item_prijs, '9999990.99'), '.', ',') itemprijs,
|
|
REPLACE (TO_CHAR (NVL(sd.ins_srtdeel_inkprijs, bi.bes_bestelling_item_prijs), '9999990.99'), '.', ',') iteminkoopprijs,
|
|
sd.ins_srtdeel_omschrijving productomschrijving,
|
|
boi.bes_bestelopdr_item_posnr itemposnr
|
|
FROM bes_bestelling b,
|
|
prs_perslid p,
|
|
prs_kostenplaats k,
|
|
prs_afdeling a,
|
|
mld_adres ma,
|
|
(SELECT pw.prs_perslid_key,
|
|
MIN (prs_werkplek_aanduiding) || DECODE (COUNT (*), 1, '', '...') prs_werkplek_aanduiding
|
|
FROM prs_v_werkplek_gegevens wp, prs_perslidwerkplek pw
|
|
WHERE wp.prs_werkplek_key = pw.prs_werkplek_key
|
|
GROUP BY pw.prs_perslid_key) wp2,
|
|
bes_bestelling_item bi,
|
|
bes_bestelopdr_item boi,
|
|
bes_bestelopdr bo,
|
|
ins_srtdeel sd,
|
|
ins_srtgroep sg,
|
|
ins_tab_discipline d
|
|
WHERE b.prs_perslid_key = p.prs_perslid_key
|
|
AND b.prs_kostenplaats_key = k.prs_kostenplaats_key
|
|
AND p.prs_afdeling_key = a.prs_afdeling_key
|
|
AND b.mld_adres_key_lev = ma.mld_adres_key
|
|
AND wp2.prs_perslid_key(+) = p.prs_perslid_key
|
|
AND b.bes_bestelling_key = bi.bes_bestelling_key
|
|
AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key(+)
|
|
AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key(+)
|
|
AND bi.ins_srtdeel_key = sd.ins_srtdeel_key
|
|
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
|
|
AND sg.ins_discipline_key = d.ins_discipline_key);
|
|
|
|
REGISTERRUN('$Workfile: BES_VIE.SRC $','$Revision: 33 $')
|
|
|
|
|
|
#endif // BES
|