admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FSN#19935

Browse Source 
svn path=/Customer/trunk/; revision=14736
This commit is contained in:
Peter Feij
2011-04-14 16:08:36 +00:00
parent c384418a7d
commit a49571608f
7 changed files with 409 additions and 409 deletions
Download Patch File Download Diff File Expand all files Collapse all files

136
AA/aaxx.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer generic configuration sql statements for AAFM
-- (c) 2009 SG|facilitor
-- $Revision: 67 $
-- $Modtime: 11-04-11 16:22 $
-- $Revision: 68 $
-- $Modtime: 14-04-11 16:53 $
--
-- Support: +31 53 4800710
@@ -69,7 +69,7 @@ BEGIN
|| p_kenmerk_waarde;
EXECUTE IMMEDIATE sql_stmt INTO v_result;
ELSIF p_kenmerk_type = 'D' THEN
v_result := TO_CHAR (fac.safe_to_date (p_kenmerk_waarde, 'dd-mm-yyyy'), 'yyyy-mm-dd');
ELSE
@@ -78,7 +78,7 @@ BEGIN
return v_result;
END aaxx_get_kenmerkwaarde;
/
CREATE OR REPLACE FUNCTION aaxx_get_cnt_cont_plaats_index (p_contract_plaats_key number
)
@@ -187,12 +187,12 @@ IS
IS
SELECT TO_CHAR (bi.bes_bestelling_item_aantal)
|| 'x '
|| s.ins_srtdeel_omschrijving /* lcl.x()?*/
|| s.bes_srtdeel_omschrijving /* lcl.x()?*/
|| ' ('
|| s.ins_srtdeel_eenheid
|| s.bes_srtdeel_eenheid
|| ') ' besitemdsc
FROM bes_bestelling_item bi, ins_srtdeel s
WHERE bi.ins_srtdeel_key = s.ins_srtdeel_key
FROM bes_bestelling_item bi, bes_srtdeel s
WHERE bi.bes_srtdeel_key = s.bes_srtdeel_key
AND bi.bes_bestelling_key = bes_key;
BEGIN
lret := NULL;
@@ -295,7 +295,7 @@ AS
, 'C' || TO_CHAR (cnt_contract_nummer_intern)
)
opdracht_id,
DECODE (to_char(f.fin_factuur_datum, 'yyyy'),
DECODE (to_char(f.fin_factuur_datum, 'yyyy'),
'2010', to_date('20110102', 'YYYYMMDD'),
f.fin_factuur_datum),
f.fin_factuur_nr,
@@ -349,7 +349,7 @@ AS
k.prs_kostensoort_refcode),
'NS', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), to_char(c.cnt_contract_looptijd_tot,'yyyy')),
'2009', DECODE (substr(k.prs_kostensoort_upper,1,2), 'PR', '1350819' , '1350818'),
'2010', DECODE (substr(k.prs_kostensoort_upper,1,2), 'PR', '1350817' ,
'2010', DECODE (substr(k.prs_kostensoort_upper,1,2), 'PR', '1350817' ,
'MW', '1350823' ,
'1350822'),
k.prs_kostensoort_refcode),
@@ -383,12 +383,12 @@ AS
'STB', '8110521' ,
'AS ', '8110521' ,
'AE ', '8110542'),
'2011', '8' || substr(prs_kostensoort_refcode,2,10),
'2011', '8' || substr(prs_kostensoort_refcode,2,10),
prs_kostensoort_refcode),
'Onbekend') vk_prs_kostensoort_refcode,
k.prs_kostensoort_key,
COALESCE(o.prs_kostenplaats_key,
COALESCE(c.prs_kostenplaats_key,
COALESCE(o.prs_kostenplaats_key,
COALESCE(c.prs_kostenplaats_key,
(SELECT b.prs_kostenplaats_key
FROM bes_bestelling b,
bes_bestelopdr_item boi,
@@ -608,8 +608,8 @@ AS
'' empty24,
'' empty25,
'' empty26,
DECODE (aaxx_get_user, 'IT', (SELECT DECODE(SUBSTR(PRS_KOSTENPLAATS_NR, 1,1), '2', 'KP999999', PRS_KOSTENPLAATS_NR)
FROM prs_kostenplaats kp
DECODE (aaxx_get_user, 'IT', (SELECT DECODE(SUBSTR(PRS_KOSTENPLAATS_NR, 1,1), '2', 'KP999999', PRS_KOSTENPLAATS_NR)
FROM prs_kostenplaats kp
WHERE kp.prs_kostenplaats_key = fg.prs_kostenplaats_key)
, 'KP999999') kstplcode,
'KD999999' kstdrcode,
@@ -651,8 +651,8 @@ BEGIN
INSERT INTO AAXX_EXP_FACTUUR (fin_factuur_key, administratie)
( SELECT DISTINCT fin_factuur_key, p_administratie
FROM aaxx_v_factuur_gegevens
WHERE fin_factuur_statuses_key = 6
FROM aaxx_v_factuur_gegevens
WHERE fin_factuur_statuses_key = 6
AND ( p_administratie IS NULL
OR
(p_administratie = 'FAC' AND lev_kpn = '2000700')
@@ -787,10 +787,10 @@ BEGIN
)
SELECT 'MLD',
v_logdate,
DECODE (aaxx_get_user, 'DSM', aaxx_get_dep_code(k.prs_kostenplaats_nr),
DECODE (aaxx_get_user, 'DSM', aaxx_get_dep_code(k.prs_kostenplaats_nr),
'CE', aaxx_get_dep_code(k.prs_kostenplaats_nr),
SUBSTR (prs_kostenplaats_nr, 1, 30)),
DECODE (aaxx_get_user, 'DSM', aaxx_get_dep_oms(k.prs_kostenplaats_nr),
DECODE (aaxx_get_user, 'DSM', aaxx_get_dep_oms(k.prs_kostenplaats_nr),
'CE', aaxx_get_dep_oms(k.prs_kostenplaats_nr),
SUBSTR(prs_kostenplaats_nr, 1, 30)),
ks.prs_kostensoort_oms || DECODE(TO_CHAR(opdr_datum,'YYYY'), TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE, 'yyyy'))-1), ' VJ','') ,
@@ -928,7 +928,7 @@ BEGIN
AND UPPER (soort_order) = 'CO'
AND UPPER (u.prs_kostensoort_oms) = ks.prs_kostensoort_upper
AND fg.fin_factuur_boekmaand =
TO_CHAR (u.jaar) || '-' || LTRIM (TO_CHAR (u.maand, '00'))), fg.bedrag),
TO_CHAR (u.jaar) || '-' || LTRIM (TO_CHAR (u.maand, '00'))), fg.bedrag),
'CE', fg.bedrag,
'NS', ROUND (fg.bedrag * 1.065,2)),
0 btw, -- deprecated
@@ -974,7 +974,7 @@ BEGIN
AND fg.cnt_contract_key = c.cnt_contract_key
AND fg.fin_factuur_key = f.fin_factuur_key
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
AND c.ins_discipline_key = d.ins_discipline_key
AND c.ins_discipline_key = d.ins_discipline_key
AND fg.prs_kostensoort_key = ks.prs_kostensoort_key(+)
AND ( ( aaxx_get_user = 'DSM' AND (ks.prs_kostensoort_upper LIKE 'AE%'
OR ks.prs_kostensoort_upper LIKE 'AS ONDH%'
@@ -1005,34 +1005,34 @@ BEGIN
BEGIN
-- indien nog niet afgemeld, dan maar even afmelden.
IF rec1.bes_bestelopdr_status = 3 THEN -- in behandeling
UPDATE bes_bestelopdr
SET bes_bestelopdr_status = 4
WHERE bes_bestelopdr_key= rec1.bes_bestelopdr_key
UPDATE bes_bestelopdr
SET bes_bestelopdr_status = 4
WHERE bes_bestelopdr_key= rec1.bes_bestelopdr_key
AND bes_bestelopdr_status = 3;
END IF;
IF rec1.bes_bestelopdr_status = 5 -- bevestigd
IF rec1.bes_bestelopdr_status = 5 -- bevestigd
OR rec1.bes_bestelopdr_status = 4 -- in bestelling
OR rec1.bes_bestelopdr_status = 3 THEN
UPDATE bes_bestelopdr_item B
SET bes_bestelopdr_item_aantalontv = COALESCE(bes_bestelopdr_item_aantal, 0),
bes_bestelopdr_item_ontvangen = SYSDATE
UPDATE bes_bestelopdr_item B
SET bes_bestelopdr_item_aantalontv = COALESCE(bes_bestelopdr_item_aantal, 0),
bes_bestelopdr_item_ontvangen = SYSDATE
WHERE b.bes_bestelopdr_key = rec1.bes_bestelopdr_key;
UPDATE bes_bestelling_item bi
SET bes_bestelling_item_aantalontv = COALESCE(bes_bestelling_item_aantal, 0)
WHERE EXISTS (SELECT bes_bestelopdr_key
SET bes_bestelling_item_aantalontv = COALESCE(bes_bestelling_item_aantal, 0)
WHERE EXISTS (SELECT bes_bestelopdr_key
FROM bes_bestelopdr_item boi
WHERE bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key
AND bes_bestelopdr_key = rec1.bes_bestelopdr_key);
SELECT bes_bestelling_key
SELECT bes_bestelling_key
INTO v_bestelling_key
FROM bes_bestelling_item bi, bes_bestelopdr_item boi
FROM bes_bestelling_item bi, bes_bestelopdr_item boi
WHERE bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key
AND bes_bestelopdr_key = rec1.bes_bestelopdr_key;
bes.updatebestelopdrstatus(rec1.bes_bestelopdr_key, v_aanvrager);
bes.updatebestellingstatus(rec1.bes_bestelopdr_key, v_aanvrager);
@@ -1363,7 +1363,7 @@ BEGIN
SET naar_exact = sysdate
WHERE naar_exact IS NULL
AND opdr_jaar = p_opdr_jaar;
INSERT INTO imp_schedule (imp_schedule_name) VALUES ('EXACT_VERKOOP_VJ');
END;
/
@@ -3087,7 +3087,7 @@ AS
|| alg_locatie_omschrijving
|| '";"'
|| alg_locatie_key
|| '";"'
|| '";"'
|| alg_gebouw_code
|| '";"'
|| alg_gebouw_naam
@@ -3192,7 +3192,7 @@ AS
''),
CHR (10),
'<ret>'),
3
3
FROM (SELECT b.bes_bestelling_key bes_bestelling_key,
b.bes_bestelling_key bestelaanvraagnr,
di.alg_district_omschrijving,
@@ -3297,13 +3297,13 @@ AS
boi.bes_bestelopdr_item_key) bes_opdr,
(SELECT DISTINCT bes_bestelling_key, ins_discipline_key
FROM bes_bestelling_item bi,
ins_srtdeel sd,
ins_srtgroep sg
WHERE bi.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key) cat,
(SELECT mld_adres_key,
max(alg_gebouw_key) alg_gebouw_key
FROM alg_gebouw
bes_srtdeel sd,
bes_srtgroep sg
WHERE bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key) cat,
(SELECT mld_adres_key,
max(alg_gebouw_key) alg_gebouw_key
FROM alg_gebouw
GROUP BY mld_adres_key) adr_geb
WHERE b.prs_perslid_key = p.prs_perslid_key
AND b.prs_kostenplaats_key = k.prs_kostenplaats_key
@@ -3945,8 +3945,8 @@ AS
-- EXPORTFUNCTIE - DWH_BES_ALGEMEEN
-------------------------------------------------------------------------------
CREATE OR REPLACE VIEW AAXX_V_EXPORT_DWH_BES_ALGEMEEN(RESULT, result_order)
AS
SELECT
AS
SELECT
'"BES_BESTELLING_KEY";'||
'"BESTELAANVRAAGNR";'||
'"BESTELDATUM";'||
@@ -4121,7 +4121,7 @@ UNION ALL
wp2.prs_werkplek_aanduiding werkplek,
d.ins_discipline_key ins_discipline_key,
d.ins_discipline_omschrijving catalogus,
sg.ins_srtgroep_omschrijving groep,
sg.bes_srtgroep_omschrijving groep,
TO_CHAR (b.bes_bestelling_leverdatum, 'YYYY-MM-DD')
afleverdatum,
TO_CHAR(fac.count_work_days (
@@ -4138,7 +4138,7 @@ UNION ALL
bdp.bes_ins_discipline_key),
0)
sla_tijd,
sd.ins_srtdeel_nr productcode,
sd.bes_srtdeel_nr productcode,
REPLACE (
TO_CHAR (
bi.bes_bestelling_item_prijs
@@ -4149,7 +4149,7 @@ UNION ALL
prijs,
REPLACE (
TO_CHAR (
NVL (sd.ins_srtdeel_inkprijs,
NVL (sd.bes_srtdeel_inkprijs,
bi.bes_bestelling_item_prijs)
* bi.bes_bestelling_item_aantal,
'9999990.99'),
@@ -4166,8 +4166,8 @@ UNION ALL
WHERE pf.prs_perslid_key = b.bes_bestelling_fiat_user)
gefiatteerddoor,
bo.bes_bestelopdr_id bestelopdrachtnummer,
(SELECT b.prs_bedrijf_naam
FROM prs_bedrijf b
(SELECT b.prs_bedrijf_naam
FROM prs_bedrijf b
WHERE b.prs_bedrijf_key = bo.prs_bedrijf_key) leverancier,
bi.bes_bestelling_item_aantal aantal,
REPLACE (
@@ -4177,13 +4177,13 @@ UNION ALL
itemprijs,
REPLACE (
TO_CHAR (
NVL (sd.ins_srtdeel_inkprijs,
NVL (sd.bes_srtdeel_inkprijs,
bi.bes_bestelling_item_prijs),
'9999990.99'),
'.',
',')
iteminkoopprijs,
sd.ins_srtdeel_omschrijving productomschrijving,
sd.bes_srtdeel_omschrijving productomschrijving,
boi.bes_bestelopdr_item_posnr itemposnr
FROM bes_bestelling b,
prs_perslid p,
@@ -4200,8 +4200,8 @@ UNION ALL
bes_bestelling_item bi,
bes_bestelopdr_item boi,
bes_bestelopdr bo,
ins_srtdeel sd,
ins_srtgroep sg,
bes_srtdeel sd,
bes_srtgroep sg,
ins_tab_discipline d
WHERE b.prs_perslid_key = p.prs_perslid_key
AND b.prs_kostenplaats_key = k.prs_kostenplaats_key
@@ -4212,8 +4212,8 @@ UNION ALL
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 bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
AND sg.ins_discipline_key = d.ins_discipline_key);
-------------------------------------------------------------------------------
@@ -4722,7 +4722,7 @@ BEGIN
p_applrun,
'I',
'Arcadis Aqumen ruimtesoort import version ' || currentversion,
'$Revision: 67 $'
'$Revision: 68 $'
);
SELECT COUNT (*)
@@ -4734,7 +4734,7 @@ BEGIN
p_applrun,
'E',
'Arcadis Aqumen ruimtesoort import bevat geen records',
'$Revision: 67 $'
'$Revision: 68 $'
);
return;
END IF;
@@ -4996,13 +4996,13 @@ BEGIN
v_errormsg := 'Fout opvragen te importeren rij (grootboekrek)'||v_gebouw_code;
fac.imp_getfield (v_newline,
C_FIELDDELIMITOR,
v_grootboekrek
v_grootboekrek
);
--
v_errormsg := 'Fout opvragen te importeren rij (dienst)'||v_gebouw_code;
fac.imp_getfield (v_newline,
C_FIELDDELIMITOR,
v_contractsoort
v_contractsoort
);
--
v_errormsg := 'Fout opvragen te importeren rij (contractcode):'||v_gebouw_code;
@@ -5022,7 +5022,7 @@ BEGIN
C_FIELDDELIMITOR,
v_leveranciernummer
);
-- Insert geformatteerde import record
IF v_ongeldig = 0
THEN
@@ -5115,7 +5115,7 @@ BEGIN
p_applrun,
'I',
'Arcadis Aqumen Contract import version ' || currentversion,
'$Revision: 67 $'
'$Revision: 68 $'
);
SELECT COUNT (*)
@@ -5127,7 +5127,7 @@ BEGIN
p_applrun,
'E',
'Arcadis Aqumen Contract import bevat geen records',
'$Revision: 67 $'
'$Revision: 68 $'
);
return;
END IF;
@@ -5625,7 +5625,7 @@ AS
GROUP BY trunc(sysdate)-trunc(pl.login_datum),
TO_CHAR (pl.login_datum, 'dd-mm-yyyy');
BEGIN adm.systrackscript('$Workfile: aaxx.sql $', '$Revision: 67 $', 0); END;
BEGIN adm.systrackscript('$Workfile: aaxx.sql $', '$Revision: 68 $', 0); END;
/

12
ARBO/arbo.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific db-configuration for ARBO.
-- (c) 2011 SG|facilitor bv
-- $Revision: 5 $
-- $Modtime: 1-04-11 14:47 $
-- $Revision: 6 $
-- $Modtime: 14-04-11 16:53 $
--
-- Support: +31 53 4800700
@@ -1746,15 +1746,15 @@ BEGIN
bes_bestelopdr bo,
bes_bestelling_item bi,
bes_bestelling b,
ins_srtdeel sd,
ins_srtgroep sg,
bes_srtdeel sd,
bes_srtgroep sg,
bes_disc_params bdp
WHERE boi.bes_bestelopdr_key = bo.bes_bestelopdr_key
AND bo.bes_bestelopdr_status = 4 -- In bestelling
AND boi.bes_bestelopdr_item_key = bi.bes_bestelopdr_item_key
AND bi.bes_bestelling_key = b.bes_bestelling_key
AND bi.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
--AND sg.ins_discipline_key = -1
AND sg.ins_discipline_key = bdp.bes_ins_discipline_key
AND bdp.bes_disc_params_noti_dagen IS NOT NULL

76
Denb/denb.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for Denb
-- (c) 2008 SG|facilitor bv
-- $Revision: 8 $
-- $Modtime: 15-12-10 19:09 $
-- $Revision: 9 $
-- $Modtime: 14-04-11 16:55 $
--
-- Support: +31 53 4800700
@@ -2876,7 +2876,7 @@ AS
'dd-mm-yyyy'
)
afgemeld_op,
sd.ins_srtdeel_omschrijving artikel,
sd.bes_srtdeel_omschrijving artikel,
TO_CHAR (bi.bes_bestelling_item_aantal) aantal,
REPLACE (TO_CHAR (bi.bes_bestelling_item_prijs), '.', ',') prijs,
(bi.bes_bestelling_item_aantal * bi.bes_bestelling_item_prijs)
@@ -2887,8 +2887,8 @@ AS
bes_bestelling_item bi,
bes_bestelopdr_item boi,
bes_bestelopdr bo,
ins_srtdeel sd,
ins_srtgroep sg,
bes_srtdeel sd,
bes_srtgroep sg,
ins_tab_discipline d,
prs_perslid p,
prs_v_perslid_fullnames_all pf,
@@ -2900,8 +2900,8 @@ AS
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 bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
AND sg.ins_discipline_key = d.ins_discipline_key
AND b.prs_perslid_key = p.prs_perslid_key
AND p.prs_perslid_key = pf.prs_perslid_key
@@ -3000,10 +3000,10 @@ AS
SELECT extern.dkey,
COALESCE (intern.ins_discipline_omschrijving,
extern.ins_discipline_omschrijving),
extern.ins_srtdeel_nr,
COALESCE (intern.ins_srtdeel_omschrijving,
extern.ins_srtdeel_omschrijving),
COALESCE (intern.ins_srtdeel_prijs, extern.ins_srtdeel_prijs),
extern.bes_srtdeel_nr,
COALESCE (intern.bes_srtdeel_omschrijving,
extern.bes_srtdeel_omschrijving),
COALESCE (intern.bes_srtdeel_prijs, extern.bes_srtdeel_prijs),
extern.vmin,
extern.vmax,
extern.geleverd,
@@ -3026,27 +3026,27 @@ AS
END
extern_gewenst
FROM (SELECT bd.ins_discipline_key dkey, -- INKOOP-key
sd.ins_srtdeel_nr, -- ext. artikelnr
sd.ins_srtdeel_omschrijving,
sd.ins_srtdeel_prijs,
sd.bes_srtdeel_nr, -- ext. artikelnr
sd.bes_srtdeel_omschrijving,
sd.bes_srtdeel_prijs,
bd.ins_discipline_omschrijving, -- ext. catalogusnaam
sd.ins_srtdeel_voorraadmin vmin, -- ext. voorraadmin
sd.ins_srtdeel_voorraadmax vmax, -- ext. voorraadmax
sd.bes_srtdeel_voorraadmin vmin, -- ext. voorraadmin
sd.bes_srtdeel_voorraadmax vmax, -- ext. voorraadmax
(SELECT SUM (bi.bes_bestelling_item_aantal)
FROM bes_bestelling b, bes_bestelling_item bi
WHERE b.bes_bestelling_status IN (2, 3, 4, 5)
AND b.bes_bestelling_key =
bi.bes_bestelling_key
AND bi.ins_srtdeel_key =
sd.ins_srtdeel_key)
AND bi.bes_srtdeel_key =
sd.bes_srtdeel_key)
besteld,
(SELECT SUM (bi.bes_bestelling_item_aantal)
FROM bes_bestelling b, bes_bestelling_item bi
WHERE b.bes_bestelling_status > 5
AND b.bes_bestelling_key =
bi.bes_bestelling_key
AND bi.ins_srtdeel_key =
sd.ins_srtdeel_key)
AND bi.bes_srtdeel_key =
sd.bes_srtdeel_key)
geleverd,
(SELECT SUM (bi.bes_bestelling_item_aantal)
FROM bes_bestelling b, bes_bestelling_item bi
@@ -3054,15 +3054,15 @@ AS
AND b.bes_bestelling_status > 5
AND b.bes_bestelling_key =
bi.bes_bestelling_key
AND bi.ins_srtdeel_key =
sd.ins_srtdeel_key)
AND bi.bes_srtdeel_key =
sd.bes_srtdeel_key)
geleverd_gisteren
FROM ins_srtdeel sd,
ins_srtgroep g,
FROM bes_srtdeel sd,
bes_srtgroep g,
bes_discipline bd,
bes_disc_params dp
WHERE sd.ins_srtdeel_verwijder IS NULL
AND sd.ins_srtgroep_key = g.ins_srtgroep_key
WHERE sd.bes_srtdeel_verwijder IS NULL
AND sd.bes_srtgroep_key = g.bes_srtgroep_key
AND g.ins_discipline_key = bd.ins_discipline_key
AND bd.ins_discipline_key =
dp.bes_ins_discipline_key
@@ -3074,38 +3074,38 @@ AS
extern -- Inkoop artikelen uit externe catalogus!
FULL JOIN
(SELECT dp.bes_ins_discipline_key_inkoop dkey, -- INKOOP-key
sd.ins_srtdeel_nr, -- int. artikelnr
sd.ins_srtdeel_omschrijving,
sd.ins_srtdeel_prijs,
sd.bes_srtdeel_nr, -- int. artikelnr
sd.bes_srtdeel_omschrijving,
sd.bes_srtdeel_prijs,
bd.ins_discipline_omschrijving, -- int. catalogusnaam
(SELECT SUM (bi.bes_bestelling_item_aantal)
FROM bes_bestelling b, bes_bestelling_item bi
WHERE b.bes_bestelling_key =
bi.bes_bestelling_key
AND bi.ins_srtdeel_key =
sd.ins_srtdeel_key)
AND bi.bes_srtdeel_key =
sd.bes_srtdeel_key)
besteld,
(SELECT SUM (bi.bes_bestelling_item_aantal)
FROM bes_bestelling b, bes_bestelling_item bi
WHERE b.bes_bestelling_datum < TRUNC (SYSDATE)
AND b.bes_bestelling_key =
bi.bes_bestelling_key
AND bi.ins_srtdeel_key =
sd.ins_srtdeel_key)
AND bi.bes_srtdeel_key =
sd.bes_srtdeel_key)
besteld_gisteren
FROM ins_srtdeel sd,
ins_srtgroep g,
FROM bes_srtdeel sd,
bes_srtgroep g,
bes_discipline bd,
bes_disc_params dp
WHERE sd.ins_srtdeel_verwijder IS NULL
AND sd.ins_srtgroep_key = g.ins_srtgroep_key
WHERE sd.bes_srtdeel_verwijder IS NULL
AND sd.bes_srtgroep_key = g.bes_srtgroep_key
AND g.ins_discipline_key = bd.ins_discipline_key
AND bd.ins_discipline_key =
dp.bes_ins_discipline_key
AND dp.bes_ins_discipline_key_inkoop IS NOT NULL)
intern -- Verkoop artikelen uit interne catalogus!
ON extern.dkey = intern.dkey
AND extern.ins_srtdeel_nr = intern.ins_srtdeel_nr;
AND extern.bes_srtdeel_nr = intern.bes_srtdeel_nr;
-- Bevat CUST01/02-notificaties (eind van de dag) naar COMM-medewerkers dat
-- 1 of meer producten onder de minimale voorraad zitten!

116
Hout/hout.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for Hout
-- (c) 2007 Facilitor Software Nederland/Dijkoraad IT bv
-- $Revision: 36 $
-- $Modtime: 16-08-10 14:48 $
-- $Revision: 37 $
-- $Modtime: 14-04-11 16:57 $
--
-- Support: +31 53 4800700
@@ -40,7 +40,7 @@ CREATE OR REPLACE PROCEDURE hout_import_prs (
v_count_error NUMBER(10);
v_count_tot NUMBER(10);
v_count_import NUMBER(10);
-- De importvelden:
v_alg_locatie_code VARCHAR2(256); -- 01
v_alg_gebouw_code VARCHAR2(256);
@@ -63,9 +63,9 @@ CREATE OR REPLACE PROCEDURE hout_import_prs (
v_alg_verdieping_volgnr_num NUMBER(3);
v_prs_werkplek_volgnr_num NUMBER(3);
v_prs_werkplek_omschrijving VARCHAR2(256);
v_prs_werkplek_volgnr VARCHAR2(256);
v_prs_werkplek_volgnr VARCHAR2(256);
v_prs_perslid_wachtwoord VARCHAR2(256);
-- PRS_BEDRIJF
CURSOR c1(p_imp_file_applicatie VARCHAR2)
IS
@@ -115,10 +115,10 @@ BEGIN
c_first_import,
'Controle importbestand wat betreft aantal mutaties wordt overgeslagen.'
);
COMMIT;
COMMIT;
ELSE
DELETE FROM imp_log WHERE imp_log_applicatie = p_applname;
END IF;
END IF;
DELETE FROM hout_imp_prs;
@@ -140,7 +140,7 @@ BEGIN
EXIT WHEN c1%NOTFOUND;
v_newline := rec1. fac_imp_file_line;
v_count_tot := v_count_tot + 1;
IF (v_count_tot = 1) THEN
-- Sla header-regel over
FETCH c1 INTO rec1;
@@ -576,43 +576,43 @@ BEGIN
IF v_ongeldig = 0
THEN
v_errormsg := 'Fout bij toevoegen te importeren bedrijf/afdeling ['||v_prs_afdeling_naam||']';
INSERT INTO HOUT_IMP_PRS (
alg_locatie_code
,alg_gebouw_code
,alg_verdieping_volgnr
,alg_ruimte_nr
,prs_afdeling_naam
,prs_perslid_naam
,prs_perslid_tussenvoegsel
,prs_perslid_voorletters
,prs_perslid_voornaam
,prs_perslid_titel
,prs_perslid_telefoonnr
,prs_perslid_mobiel
,prs_perslid_email
,prs_srtperslid_omschrijving
,prs_perslid_nr
,prs_perslid_oslogin
) VALUES (
v_alg_locatie_code
,v_alg_gebouw_code
,v_alg_verdieping_volgnr
,v_alg_ruimte_nr
,v_prs_afdeling_naam
,v_prs_perslid_naam
,v_prs_perslid_tussenvoegsel
,v_prs_perslid_voorletters
,v_prs_perslid_voornaam
,v_prs_perslid_titel
,v_prs_perslid_telefoonnr
,v_prs_perslid_mobiel
,v_prs_perslid_email
,v_prs_srtperslid_omschrijving
,v_prs_perslid_nr
INSERT INTO HOUT_IMP_PRS (
alg_locatie_code
,alg_gebouw_code
,alg_verdieping_volgnr
,alg_ruimte_nr
,prs_afdeling_naam
,prs_perslid_naam
,prs_perslid_tussenvoegsel
,prs_perslid_voorletters
,prs_perslid_voornaam
,prs_perslid_titel
,prs_perslid_telefoonnr
,prs_perslid_mobiel
,prs_perslid_email
,prs_srtperslid_omschrijving
,prs_perslid_nr
,prs_perslid_oslogin
) VALUES (
v_alg_locatie_code
,v_alg_gebouw_code
,v_alg_verdieping_volgnr
,v_alg_ruimte_nr
,v_prs_afdeling_naam
,v_prs_perslid_naam
,v_prs_perslid_tussenvoegsel
,v_prs_perslid_voorletters
,v_prs_perslid_voornaam
,v_prs_perslid_titel
,v_prs_perslid_telefoonnr
,v_prs_perslid_mobiel
,v_prs_perslid_email
,v_prs_srtperslid_omschrijving
,v_prs_perslid_nr
,v_prs_perslid_oslogin
);
);
commit;
v_count_import := v_count_import + 1;
@@ -626,7 +626,7 @@ BEGIN
END LOOP;
END IF;
fac.imp_writelog ( p_applname,
@@ -2115,8 +2115,8 @@ BEGIN
bes_bestelopdr_item boi,
bes_bestelling_item bi,
bes_bestelling b,
ins_srtdeel sd,
ins_srtgroep sg,
bes_srtdeel sd,
bes_srtgroep sg,
bes_disc_params bdp
WHERE bo.bes_bestelopdr_status = 3
AND bo.bes_bestelopdr_key =
@@ -2124,8 +2124,8 @@ BEGIN
AND boi.bes_bestelopdr_item_key =
bi.bes_bestelopdr_item_key
AND bi.bes_bestelling_key = b.bes_bestelling_key
AND bi.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
AND sg.ins_discipline_key = 1041 -- repro-bestellingen
AND sg.ins_discipline_key =
bdp.bes_ins_discipline_key
@@ -2145,16 +2145,16 @@ BEGIN
bes_bestelopdr bo,
bes_bestelling_item bi,
bes_bestelling b,
ins_srtdeel sd,
ins_srtgroep sg,
bes_srtdeel sd,
bes_srtgroep sg,
bes_disc_params bdp
WHERE boi.bes_bestelopdr_key = bo.bes_bestelopdr_key
AND bo.bes_bestelopdr_status = 4
AND boi.bes_bestelopdr_item_key =
bi.bes_bestelopdr_item_key
AND bi.bes_bestelling_key = b.bes_bestelling_key
AND bi.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
AND sg.ins_discipline_key = 1041 -- repro-bestellingen
AND sg.ins_discipline_key =
bdp.bes_ins_discipline_key
@@ -2171,11 +2171,11 @@ BEGIN
WHERE bes_bestelling_item_key IN
(SELECT bes_bestelling_item_key
FROM bes_bestelling_item bi,
ins_srtdeel sd,
ins_srtgroep sg,
bes_srtdeel sd,
bes_srtgroep sg,
bes_bestelopdr_item boi
WHERE bi.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
WHERE bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
AND sg.ins_discipline_key = 1041 -- repro-bestellingen
AND bi.bes_bestelling_item_aantal <>
NVL (bi.bes_bestelling_item_aantalontv, 0)
@@ -3072,7 +3072,7 @@ AS
/

18
KING/king.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific db-configuration for KING.
-- (c) 2011 SG|facilitor bv
-- $Revision: 1 $
-- $Modtime: 8-02-11 16:00 $
-- $Revision: 2 $
-- $Modtime: 14-04-11 16:54 $
--
-- Support: +31 53 4800700
@@ -107,8 +107,8 @@ AS
k.prs_kostenplaats_nr kostenplaats,
TO_CHAR (b.bes_bestelling_key) bestelnummer,
TO_CHAR (b.bes_bestelling_datum, 'dd-mm-yyyy') besteld_op,
sd.ins_srtdeel_code artikelnummer,
sd.ins_srtdeel_omschrijving artikelomschrijving,
sd.bes_srtdeel_code artikelnummer,
sd.bes_srtdeel_omschrijving artikelomschrijving,
TO_CHAR (bi.bes_bestelling_item_aantal) aantal,
REPLACE (TO_CHAR (bi.bes_bestelling_item_prijs), '.', ',') prijs,
(bi.bes_bestelling_item_aantal * bi.bes_bestelling_item_prijs)
@@ -116,16 +116,16 @@ AS
p.prs_afdeling_key
FROM bes_bestelling b,
bes_bestelling_item bi,
ins_srtdeel sd,
ins_srtgroep sg,
bes_srtdeel sd,
bes_srtgroep sg,
ins_tab_discipline d,
prs_perslid p,
prs_v_perslid_fullnames_all pf,
prs_v_afdeling a,
prs_kostenplaats k
WHERE b.bes_bestelling_key = bi.bes_bestelling_key
AND bi.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
AND sg.ins_discipline_key = d.ins_discipline_key
AND b.prs_perslid_key = p.prs_perslid_key
AND p.prs_perslid_key = pf.prs_perslid_key
@@ -134,7 +134,7 @@ AS
AND a.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND b.bes_bestelling_status <> 1;
BEGIN adm.systrackscript('$Workfile: king.sql $', '$Revision: 1 $', 0); END;
BEGIN adm.systrackscript('$Workfile: king.sql $', '$Revision: 2 $', 0); END;
/
BEGIN fac.registercustversion('KING', 0); END;
/

14
NFIT/nfit.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for NFIT Nefit Buderus Deventer
-- (c) 2010-2006 SG|facilitor bv
-- $Revision: 28 $
-- $Modtime: 20-07-10 14:51 $
-- $Revision: 29 $
-- $Modtime: 14-04-11 16:57 $
--
-- Support: +31 53 4800700
@@ -104,15 +104,15 @@ AS
bes_bestelling_item bi,
bes_bestelopdr_item boi,
bes_bestelopdr bo,
ins_srtdeel isd,
ins_srtgroep isg,
bes_srtdeel isd,
bes_srtgroep isg,
ins_tab_discipline itd
WHERE 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 isd.ins_srtdeel_key = bi.ins_srtdeel_key
AND isd.bes_srtdeel_key = bi.bes_srtdeel_key
AND itd.ins_discipline_key = isg.ins_discipline_key
AND isg.ins_srtgroep_key = isd.ins_srtgroep_key
AND isg.bes_srtgroep_key = isd.bes_srtgroep_key
AND bo.bes_bestelopdr_status IN (4, 6)
AND (SELECT fud.fac_usrdata_omschr
FROM bes_kenmerkbestell kbl, fac_usrdata fud, bes_kenmerk bk
@@ -762,7 +762,7 @@ BEGIN
INTO currentversion
FROM fac_module;
fac.imp_writelog (p_applname, p_applrun, 'I', 'Facilitor Crediteuren import version ' || currentversion, '$Revision: 28 $');
fac.imp_writelog (p_applname, p_applrun, 'I', 'Facilitor Crediteuren import version ' || currentversion, '$Revision: 29 $');
-- #Import
SELECT DECODE (COUNT (*), 0, 1, COUNT (*)) -- DECODE ivm vermijden deling door 0

446
PZHO/pzho.sql
View File

File diff suppressed because it is too large Load Diff