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

AAFM#39453 -- Omgevingen AAHU, AALB, AANS, AAVL en ASMS ontmantelen.

Browse Source 
svn path=/Customer/trunk/; revision=36180
This commit is contained in:
Arthur Egberink
2017-12-01 09:50:49 +00:00
parent bc9ad3f7b1
commit fac6c499d6
1 changed files with 13 additions and 217 deletions
Download Patch File Download Diff File Expand all files Collapse all files

230
AA/aaxx.sql
View File

@@ -49,21 +49,15 @@ BEGIN
IF v_user = 'AAEN' THEN RETURN 'ENEXIS'; END IF;
IF v_user = 'AAES' THEN RETURN 'ESSENT'; END IF;
IF v_user = 'AAEY' THEN RETURN 'EY'; END IF;
IF v_user = 'AAFP' THEN RETURN 'FPC'; END IF;
IF v_user = 'AAGN' THEN RETURN 'GN'; END IF;
IF v_user = 'AAHB' THEN RETURN 'HB'; END IF;
IF v_user = 'AAHU' THEN RETURN 'HUNTSMAN'; END IF;
IF v_user = 'AAIT' THEN RETURN 'IT'; END IF;
IF v_user = 'AALB' THEN RETURN 'LB'; END IF;
IF v_user = 'AANS' THEN RETURN 'NS'; END IF;
IF v_user = 'AAPM' THEN RETURN 'PM'; END IF;
IF v_user = 'AARW' THEN RETURN 'RWS'; END IF;
IF v_user = 'AASA' THEN RETURN 'SABIC'; END IF;
IF v_user = 'AASI' THEN RETURN 'SITECH'; END IF;
IF v_user = 'AAVG' THEN RETURN 'VG'; END IF;
IF v_user = 'AAVL' THEN RETURN 'VL'; END IF;
IF v_user = 'AAZC' THEN RETURN 'ZCN'; END IF;
IF v_user = 'ASMS' THEN RETURN 'AMS'; END IF;
IF v_user = 'GULU' THEN RETURN 'GUL'; END IF;
IF v_user = 'NMMS' THEN RETURN 'NMM'; END IF;
IF v_user = 'RABO' THEN RETURN 'RABO'; END IF;
@@ -133,10 +127,7 @@ SELECT alg_onrgoed_key alg_gebouw_key,
FROM alg_onrgoedkenmerk
WHERE alg_onrgoed_niveau = 'G'
AND alg_kenmerk_key = DECODE(aaxx_get_user,
'FP', 1000,
'HUNTSMAN', 1040,
'IT', 1021,
'NS', 1009,
'SABIC', 1120,
'SITECH', 1200,
1020);
@@ -284,7 +275,7 @@ CREATE OR REPLACE PROCEDURE aaxx_daily_task (p_applname IN VARCHAR2, p_applrun I
AS
BEGIN
-- job om flexkenmerken bij projectorders in te vullen
IF aaxx_get_user <> 'AMS' AND aaxx_get_user <> 'GUL' THEN
IF aaxx_get_user <> 'GUL' THEN
aaxx_select_dwh_set_kenmerken (p_applname, p_applrun);
END IF;
@@ -294,13 +285,8 @@ BEGIN
-- OR
aaxx_get_user = 'DOW'
OR aaxx_get_user = 'DSM'
OR aaxx_get_user = 'FPC'
OR aaxx_get_user = 'HUNTSMAN'
OR aaxx_get_user = 'LB'
-- OR aaxx_get_user = 'NS' AANS#25534
OR aaxx_get_user = 'SABIC'
OR aaxx_get_user = 'SITECH'
OR aaxx_get_user = 'AMS'
OR aaxx_get_user = 'GUL'
THEN
aaxx_delete_non_active_users (p_applname, p_applrun);
@@ -314,13 +300,10 @@ BEGIN
OR aaxx_get_user = 'DOW'
OR aaxx_get_user = 'DSM'
OR aaxx_get_user = 'EY'
OR aaxx_get_user = 'LB'
-- OR aaxx_get_user = 'NS' AANS#25534
OR aaxx_get_user = 'SABIC'
OR aaxx_get_user = 'SITECH'
OR aaxx_get_user = 'VG'
OR aaxx_get_user = 'ZCN'
OR aaxx_get_user = 'AMS'
OR aaxx_get_user = 'GUL'
OR aaxx_get_user = 'NMM'
OR aaxx_get_user = 'RABO'
@@ -2200,15 +2183,6 @@ AS
'NC', DECODE (substr(k.prs_kostensoort_upper,1,7), 'NC PROJ', '1350817', '1350824'),
k.prs_kostensoort_refcode)
),
'LB', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
'2017', k.prs_kostensoort_refcode,
DECODE (substr(k.prs_kostensoort_upper,1,2), 'CO', '1350822', -- Geen CF
'CF', '1350822',
'C ', '1350822', -- Geen CF
'CV', '1350823',
'NC', DECODE (substr(k.prs_kostensoort_upper,1,7), 'NC PROJ', '1350817', '1350824'),
'Onbekend')
),
'PM', DECODE (coalesce (to_char(o.mld_opdr_datumbegin, 'yyyy'), coalesce(to_char(c.cnt_contract_looptijd_tot,'yyyy'), to_char(bo.bes_bestelopdr_datum, 'yyyy'))),
'2017', k.prs_kostensoort_refcode,
DECODE (substr(k.prs_kostensoort_upper,1,5), 'NC PR', '1350817', -- Geen NC PROJ
@@ -2363,10 +2337,6 @@ AS
WHERE kp.prs_kostenplaats_key = fg.prs_kostenplaats_key
)
),
'LB',
'02610001',
'FPC',
'00780164',
'GUL',
(select exact_code from aaxx_v_exact_code_gebouw_fac ecgf where ecgf.fin_factuur_key = fg.fin_factuur_key),
'ARCADIS',
@@ -2543,7 +2513,7 @@ BEGIN
IF aaxx_get_user = 'IT' AND rec1.lev_kpn = '2000700'
THEN
aaxx_add_xml_row (v_bestand, '<Costunit code="C0000014"/>'); -- afwijkend voor AAIT facilitaire kosten AAIT#25528.
ELSIF aaxx_get_user = 'AMS' OR aaxx_get_user = 'GUL' OR aaxx_get_user = 'ZCN'
ELSIF aaxx_get_user = 'GUL' OR aaxx_get_user = 'ZCN'
THEN
aaxx_add_xml_row (v_bestand, '<Costunit code="' || xml.char_to_html(rec1.kstdrcode) || '"/>');
ELSE
@@ -2841,12 +2811,10 @@ BEGIN
'HB', aaxx_get_lev2_dep_code(k.prs_kostenplaats_nr),
'SITECH', aaxx_get_dep_code(k.prs_kostenplaats_nr),
'ESSENT', '912001',
'LB', exact_code,
'NMM', 'MGB',
'SABIC', DECODE (to_char(opdr_datum, 'YYYY'), '2012', k.prs_kostenplaats_nr,
'2013', k.prs_kostenplaats_nr,
aaxx_get_top_dep_code(k.prs_kostenplaats_nr)),
'VL', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
SUBSTR (prs_kostenplaats_nr, 1, 30)) prs_kostenplaats_nr,
DECODE (aaxx_get_user, 'AH', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
'DBS', DECODE (ks.prs_kostensoort_upper, 'CV EIG BOUW PL', '913757',
@@ -2860,12 +2828,6 @@ BEGIN
'HB', aaxx_get_lev2_dep_code(k.prs_kostenplaats_nr),
'SITECH', aaxx_get_dep_code(k.prs_kostenplaats_nr),
'ESSENT', '912001',
'LB', DECODE(g.alg_locatie_key,
1, '911928', -- Worldwide Headquarters
2, '911927', -- Maasvlakte
3, '911930', -- Botlek
4, '911929' -- Moerdijk
),
'NMM', DECODE(k.prs_kostenplaats_nr,
'0001', '913799', -- Heijmans
'0002', '913810', -- Vermaat
@@ -2881,7 +2843,6 @@ BEGIN
AND b.prs_bedrijf_verwijder IS NULL
AND a.prs_afdeling_verwijder IS NULL
AND a.prs_afdeling_naam = aaxx_get_top_dep_code(k.prs_kostenplaats_nr))),
'VL', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
'ZCN', '913815',
'ZKHM', '913816',
SUBSTR (prs_kostenplaats_nr, 1, 30)) debiteur,
@@ -2897,7 +2858,6 @@ BEGIN
'Servicekosten Core Variabel'),
'RABO', DECODE(sd.ins_srtdiscipline_prefix, 'PR', 'Projecten',
'Servicekosten ' || aaxx_get_dep_code(k.prs_kostenplaats_nr)),
'VL', 'Core Variabel',
'ZCN', DECODE(sd.ins_srtdiscipline_prefix, 'PR', 'Projecten',
DECODE(aaxx_get_top_dep_code(prs_kostenplaats_nr), 'SN', 'Servicekosten',
'KL', 'Klantvragen',
@@ -2906,8 +2866,7 @@ BEGIN
DECODE(aaxx_get_top_dep_code(prs_kostenplaats_nr), 'SN', 'Servicekosten',
'KL', 'Klantvragen',
'')),
ksg.prs_kostensoortgrp_oms || DECODE (aaxx_get_user, 'LB', ' ' || Exact_code,
'SABIC', ' ' || DECODE (to_char(opdr_datum, 'YYYY'), '2012', k.prs_kostenplaats_nr,
ksg.prs_kostensoortgrp_oms || DECODE (aaxx_get_user, 'SABIC', ' ' || DECODE (to_char(opdr_datum, 'YYYY'), '2012', k.prs_kostenplaats_nr,
'2013', k.prs_kostenplaats_nr,
aaxx_get_top_dep_code(k.prs_kostenplaats_nr)),
'DSM', DECODE (SUBSTR(ks.prs_kostensoort_upper,1,3) , 'CV ', ' ' || l.alg_locatie_code),
@@ -2976,7 +2935,6 @@ BEGIN
fin_btwtabelwaarde_code) fin_btwtabelwaarde_code,
to_char(opdr_datum, 'YYYY'),
DECODE (aaxx_get_user,
'LB', l.alg_locatie_code,
'NMM', 'MGB',
COALESCE(exact_code, alg_gebouw_code)), -- C1
SUBSTR (
@@ -3016,8 +2974,7 @@ BEGIN
aaxx_get_top_dep_code(prs_kostenplaats_nr)),
'')
, 1, 12) groepering, -- C2
DECODE (aaxx_get_user, 'LB', prs_kostensoort_oms || '1',
'DOW', 'A' || prs_kostensoort_oms,
DECODE (aaxx_get_user, 'DOW', 'A' || prs_kostensoort_oms,
'ESSENT', (SELECT uplift
FROM aaxx_imp_uplift u
WHERE u.prs_kostensoort_oms = ks.prs_kostensoort_oms),
@@ -3078,7 +3035,6 @@ BEGIN
AND std.mld_ins_discipline_key = d.ins_discipline_key
AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND (( sd.ins_srtdiscipline_prefix = 'SA'
AND aaxx_get_user <> 'VL'
AND aaxx_get_user <> 'AH'
AND aaxx_get_user <> 'DSM'
AND aaxx_get_user <> 'HB'
@@ -3086,7 +3042,6 @@ BEGIN
AND aaxx_get_user <> 'ZCN'
AND aaxx_get_user <> 'ZKHM'
AND aaxx_get_user <> 'DOW'
AND aaxx_get_user <> 'LB'
AND aaxx_get_user <> 'NMM'
AND aaxx_get_user <> 'RABO'
AND aaxx_get_user <> 'DBS'
@@ -3153,11 +3108,6 @@ BEGIN
AND (ks.prs_kostensoort_upper LIKE 'CV %'
OR ks.prs_kostensoort_upper = 'NC PROJ')
)
OR ( aaxx_get_user = 'LB'
AND ks.prs_kostensoort_upper LIKE 'NC%'
AND ks.prs_kostensoort_upper <> 'NC DERDEN'
AND ks.prs_kostensoort_upper <> 'NC PROJ'
)
OR ( aaxx_get_user = 'NMM'
AND ks.prs_kostensoort_upper LIKE 'CVE%'
)
@@ -3188,48 +3138,6 @@ BEGIN
)
)
)
OR ( aaxx_get_user = 'VL'
AND ( ( o.mld_opdr_datumbegin < to_date ('20160101', 'yyyymmdd') -- Voor VL geldt in 2016 een ander mechanisme (AAVL#34856)
AND ks.prs_kostensoort_upper IN (
'CV OND',
'CV TERR OVR',
'CV BEWAK OVR',
'CV BOUW PLAN',
'CV CONS REST',
'CV CONS OVR',
'CV SCH',
'CV WP',
'CV GEB NIET PLAN',
'CV CONS SERV',
'CV SCH GLAS',
'CV KART',
'CV INSTAL PLAN',
'CV BEWAK',
'CV VERH',
'CV GROEN',
'CV INSTAL NIET PLAN',
'CV PREV CAL',
'CV DOC POST',
'CV BEW',
'CV TERR VERHARD',
'CV REC',
'CV DOC REP',
'CV VERV PERS',
'CV OND TERR',
'CV ACHT OND',
'CV EIG INST PL',
'CV EIG BOUW PL',
'NC ACHT OND',
'NC INV BOUW',
'NC INV WP',
'NC INV INST')
)
OR
( o.mld_opdr_datumbegin >= to_date ('20160101', 'yyyymmdd') -- Voor VL geldt in 2016 een ander mechanisme (AAVL#34856)
AND ( ks.prs_kostensoort_upper LIKE 'CVE %' OR ks.prs_kostensoort_upper LIKE 'NC %')
)
)
)
OR ( aaxx_get_user = 'ZCN'
AND ( sd.ins_srtdiscipline_prefix = 'PR'
OR aaxx_get_top_dep_code(prs_kostenplaats_nr) = 'SN'
@@ -3359,17 +3267,14 @@ BEGIN
'CV EIG INST PL', '913757',
substr(aaxx_get_lev2_dep_code(k.prs_kostenplaats_nr),1,6)),
'HB', aaxx_get_lev2_dep_code(k.prs_kostenplaats_nr),
'LB', exact_code,
'NMM', exact_code,
'DOW', k.prs_kostenplaats_nr,
'DSM', DECODE (SUBSTR(ks.prs_kostensoort_upper,1,3) , 'CV ', DECODE (l.alg_locatie_code, 'ZWO', '913848',
'EMM', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
'520'),
'CVE', aaxx_get_top_dep_code(k.prs_kostenplaats_nr)),
'NS', SUBSTR (prs_kostenplaats_nr, 1, 30),
'RABO', exact_code,
'SABIC', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
'VL', aaxx_get_top_dep_code(k.prs_kostenplaats_nr)
'SABIC', aaxx_get_top_dep_code(k.prs_kostenplaats_nr)
) prs_kostenplaats_nr,
DECODE (aaxx_get_user,
'AH', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
@@ -3377,12 +3282,6 @@ BEGIN
'CV EIG INST PL', '913757',
substr(aaxx_get_lev2_dep_code(k.prs_kostenplaats_nr),1,6)),
'HB', aaxx_get_lev2_dep_code(k.prs_kostenplaats_nr),
'LB', DECODE(g.alg_locatie_key,
1, '911928', -- Worldwide Headquarters
2, '911927', -- Maasvlakte
3, '911930', -- Botlek
4, '911929' -- Moerdijk
),
'NMM', DECODE(k.prs_kostenplaats_nr,
'0001', '913799', -- Heijmans
'0002', '913810', -- Vermaat
@@ -3395,14 +3294,12 @@ BEGIN
'EMM', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
'520'),
'CVE', aaxx_get_top_dep_code(k.prs_kostenplaats_nr)),
'NS', SUBSTR (prs_kostenplaats_nr, 1, 30),
'RABO', aaxx_get_dep_code(k.prs_kostenplaats_nr),
'SABIC', (SELECT distinct prs_leverancier_nr FROM prs_bedrijf b, prs_afdeling a
WHERE b.prs_bedrijf_key = a.prs_bedrijf_key
AND b.prs_bedrijf_verwijder IS NULL
AND a.prs_afdeling_verwijder IS NULL
AND a.prs_afdeling_naam = aaxx_get_top_dep_code(k.prs_kostenplaats_nr)),
'VL', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
'ZCN', '913815',
'ZCN', '913816'
) debiteur,
@@ -3420,7 +3317,6 @@ BEGIN
'KL', 'Klantvragen',
''),
ksg.prs_kostensoortgrp_oms || DECODE (aaxx_get_user, 'DSM', DECODE (SUBSTR(ks.prs_kostensoort_upper,1,3) , 'CV ', ' ' || l.alg_locatie_code),
'LB', ' ' || exact_code,
'SABIC', ' ' || aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
'NMM', DECODE(k.prs_kostenplaats_nr, '0001', ' Heijmans',
'0002', ' Vermaat',
@@ -3439,8 +3335,7 @@ BEGIN
fg.bedrag),
fin_btwtabelwaarde_code,
to_char(opdr_datum, 'YYYY'),
DECODE (aaxx_get_user, 'LB', l.alg_locatie_code,
COALESCE(exact_code, alg_gebouw_code)) exact_code,
COALESCE(exact_code, alg_gebouw_code) exact_code,
SUBSTR (
DECODE (aaxx_get_user, 'AH', ksg.prs_kostensoortgrp_oms,
'DBS', DECODE (ks.prs_kostensoort_upper, 'CV EIG BOUW PL', '913757',
@@ -3462,8 +3357,7 @@ BEGIN
'ZKHM', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
'')
,1,12) groepering,
DECODE (aaxx_get_user, 'LB', prs_kostensoort_oms || '1',
'DOW', 'A' || prs_kostensoort_oms, '') subregelvolgorde,
DECODE (aaxx_get_user, 'DOW', 'A' || prs_kostensoort_oms, '') subregelvolgorde,
l.alg_locatie_key -- N1
FROM cnt_contract c,
prs_bedrijf b,
@@ -3520,12 +3414,6 @@ BEGIN
AND ks.prs_kostensoort_upper LIKE 'CV %'
)
OR
( aaxx_get_user = 'LB'
AND ks.prs_kostensoort_upper LIKE 'NC%' -- LyondellBasell
AND ks.prs_kostensoort_upper <> 'NC DERDEN'
AND ks.prs_kostensoort_upper <> 'NC PROJ'
)
OR
( aaxx_get_user = 'DBS'
AND ks.prs_kostensoort_upper IN (
'CV AFVAL REST',
@@ -3600,43 +3488,6 @@ BEGIN
)
)
OR
( aaxx_get_user = 'VL'
AND c.cnt_contract_looptijd_van < to_date ('20160101', 'yyyymmdd') -- Voor VL geldt voor 2016 een ander mechanisme (AAVL#34856)
AND ks.prs_kostensoort_upper IN (
'CV OND',
'CV TERR OVR',
'CV BEWAK OVR',
'CV BOUW PLAN',
'CV CONS REST',
'CV CONS OVR',
'CV SCH',
'CV WP',
'CV GEB NIET PLAN',
'CV CONS SERV',
'CV SCH GLAS',
'CV KART',
'CV INSTAL PLAN',
'CV BEWAK',
'CV VERH',
'CV GROEN',
'CV INSTAL NIET PLAN',
'CV PREV CAL',
'CV DOC POST',
'CV BEW',
'CV TERR VERHARD',
'CV REC',
'CV DOC REP',
'CV VERV PERS',
'CV OND TERR',
'CV ACHT OND',
'NC ACHT OND',
'CV EIG INST PL',
'CV EIG BOUW PL',
'NC INV BOUW',
'NC INV WP',
'NC INV INST')
)
OR
( aaxx_get_user = 'ZCN'
AND ( aaxx_get_top_dep_code(k.prs_kostenplaats_nr) = 'SN'
OR aaxx_get_top_dep_code(k.prs_kostenplaats_nr) = 'KL')
@@ -3666,8 +3517,6 @@ BEGIN
'CVE', aaxx_get_top_dep_code(k.prs_kostenplaats_nr)),
'HB', aaxx_get_lev2_dep_code(k.prs_kostenplaats_nr),
'SITECH', aaxx_get_dep_code (k.prs_kostenplaats_nr),
'LB', exact_code,
'VL', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
SUBSTR (prs_kostenplaats_nr, 1, 30)),
DECODE (aaxx_get_user,
'AH', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
@@ -3678,13 +3527,6 @@ BEGIN
'CVE', aaxx_get_top_dep_code(k.prs_kostenplaats_nr)),
'HB', aaxx_get_lev2_dep_code(k.prs_kostenplaats_nr),
'SITECH', aaxx_get_dep_code (k.prs_kostenplaats_nr),
'LB', DECODE(g.alg_locatie_key,
1, '911928', -- Worldwide Headquarters
2, '911927', -- Maasvlakte
3, '911930', -- Botlek
4, '911929' -- Moerdijk
),
'VL', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
'ZCN', '913815',
'ZKHM', '913816',
SUBSTR (prs_kostenplaats_nr, 1, 30)),
@@ -3695,7 +3537,6 @@ BEGIN
''),
ks.prs_kostensoort_opmerking,
prs_kostensoortgrp_oms || DECODE (aaxx_get_user, 'DSM', DECODE (SUBSTR(ks.prs_kostensoort_upper,1,3) , 'CV ', ' ' || l.alg_locatie_code),
'LB', ' ' || exact_code,
'SABIC', ' ' || k.prs_kostenplaats_nr,
'ZCN', DECODE(aaxx_get_top_dep_code(k.prs_kostenplaats_nr), 'SN', 'Servicekosten',
'KL', 'Klantvragen',
@@ -3712,9 +3553,7 @@ BEGIN
DECODE (aaxx_get_user, 'SITECH', 5,
fin_btwtabelwaarde_code) fin_btwtabelwaarde_code,
TO_CHAR (opdr_datum, 'YYYY'),
DECODE (aaxx_get_user,
'LB', alg_locatie_code,
COALESCE(exact_code, alg_gebouw_code)),
COALESCE(exact_code, alg_gebouw_code),
DECODE (aaxx_get_user,
'AH', ksg.prs_kostensoortgrp_oms,
'DSM', DECODE (SUBSTR(ks.prs_kostensoort_upper,1,3) , 'CV ', DECODE (l.alg_locatie_code, 'EMM', aaxx_get_top_dep_code(k.prs_kostenplaats_nr), ksg.prs_kostensoortgrp_oms || ' ' || l.alg_locatie_code),
@@ -3724,7 +3563,7 @@ BEGIN
'ZCN', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
'ZKHM', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
'') groepering, -- c2
DECODE (aaxx_get_user, 'LB', prs_kostensoort_oms || '1', '') subregelvolgorde, -- c3
'' subregelvolgorde, -- c3
l.alg_locatie_key -- N1
FROM ( SELECT *
FROM aaxx_v_bestelgegevens
@@ -3793,21 +3632,6 @@ BEGIN
OR ks.prs_kostensoort_upper = 'NC PROJ')
)
OR
( aaxx_get_user = 'LB'
AND ks.prs_kostensoort_upper LIKE 'NC%' -- LyondellBasell
AND ks.prs_kostensoort_upper <> 'NC DERDEN'
AND ks.prs_kostensoort_upper <> 'NC PROJ'
)
OR
( aaxx_get_user = 'VL'
AND ( ( bes_bestelling_leverdatum < to_date('20160101', 'yyyymmdd') -- Voor VL geldt voor 2016 een ander mechanisme (AAVL#34856)
AND ks.prs_kostensoort_upper LIKE 'CV %')
OR
( bes_bestelling_leverdatum >= to_date('20160101', 'yyyymmdd') -- Voor VL geldt voor 2016 een ander mechanisme (AAVL#34856)
AND ks.prs_kostensoort_upper LIKE 'CVE %')
)
)
OR
( aaxx_get_user = 'ZCN'
AND ( aaxx_get_top_dep_code(k.prs_kostenplaats_nr) = 'SN'
OR aaxx_get_top_dep_code(k.prs_kostenplaats_nr) = 'KL')
@@ -3970,17 +3794,6 @@ BEGIN
GROUP BY fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_debiteur_naam, DECODE (INSTR(prs_kostensoort_oms, ' VJ'), 0 , '', ' VJ'), prs_kostensoortgrp_oms, fin_btwtabelwaarde_code, fin_verkoopfactuur_maand, fin_verkoopfactuur_c2;
END IF;
IF aaxx_get_user = 'LB' THEN
INSERT INTO fin_verkoopfactuur
(
fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_kostenplaats_nr, prs_debiteur_naam, prs_kostensoort_oms, prs_kostensoort_opmerking, prs_kostensoortgrp_oms, fin_verkoopfactuur_omschr, fin_verkoopfactuur_bedrag, fin_btwtabelwaarde_code, fin_verkoopfactuur_maand, fin_verkoopfactuur_c1, fin_verkoopfactuur_c2, fin_verkoopfactuur_c3
)
SELECT fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_kostenplaats_nr, prs_debiteur_naam, 'BASE FEE' || DECODE (instr(prs_kostensoort_oms, ' VJ'), 0 , '', ' VJ'), prs_kostensoort_opmerking, prs_kostensoortgrp_oms, 'FEE ' || prs_kostensoort_oms, ROUND(SUM(fin_verkoopfactuur_bedrag)*0.075,2), fin_btwtabelwaarde_code, fin_verkoopfactuur_maand, 'X', 'X', prs_kostensoort_oms || '2'
FROM fin_verkoopfactuur
WHERE fin_verkoopfactuur_aanmaak = v_logdate
GROUP BY fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_kostenplaats_nr, prs_debiteur_naam, prs_kostensoort_oms, prs_kostensoort_opmerking, prs_kostensoortgrp_oms, fin_btwtabelwaarde_code, fin_verkoopfactuur_maand;
END IF;
-- NMM
-- Pas het bedrag van de bewaking aan. Opdrachten aan stdmelding 1121 moeten een bedrag krijgen van het aantal uren uit de opdracht maal het uurtarief dat
-- In een eigentabel opgeslagen wordt. De entries in de eigen tabel kunnen verschillende tarieven met een vervaldatum bevatten.
@@ -4064,17 +3877,6 @@ BEGIN
GROUP BY fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_kostenplaats_nr, prs_debiteur_naam, prs_kostensoort_oms, prs_kostensoort_opmerking, prs_kostensoortgrp_oms, fin_verkoopfactuur_omschr, mld_kenmerkopdr_waarde, fin_btwtabelwaarde_code, fin_verkoopfactuur_maand,fin_verkoopfactuur_c1, fin_verkoopfactuur_c2, fin_verkoopfactuur_c3;
END IF;
IF aaxx_get_user = 'VL' THEN
INSERT INTO fin_verkoopfactuur
(
fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_kostenplaats_nr, prs_debiteur_naam, prs_kostensoort_oms, prs_kostensoort_opmerking, prs_kostensoortgrp_oms, fin_verkoopfactuur_omschr, fin_verkoopfactuur_bedrag, fin_btwtabelwaarde_code, fin_verkoopfactuur_maand, fin_verkoopfactuur_c1, fin_verkoopfactuur_c2, fin_verkoopfactuur_c3
)
SELECT fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_kostenplaats_nr, prs_debiteur_naam, 'FEE' || DECODE (INSTR(prs_kostensoort_oms, ' VJ'), 0 , '', ' VJ'), prs_kostensoort_opmerking, prs_kostensoortgrp_oms, 'FEE', ROUND(fin_verkoopfactuur_bedrag*0.025,2), fin_btwtabelwaarde_code, fin_verkoopfactuur_maand, 'X', 'X', 'X'
FROM fin_verkoopfactuur
WHERE prs_kostensoort_oms = 'NC ACHT OND'
AND fin_verkoopfactuur_aanmaak = v_logdate;
END IF;
FOR rec1 IN c_bes
LOOP
BEGIN
@@ -4267,7 +4069,7 @@ AS
|| ','
|| ''
|| ','
|| DECODE(aaxx_get_user, 'DBS', '', 'AH', '', 'LB', '02610001', 'DOW', '02510001', 'SITECH', '02210001', 'NS',fin_verkoopfactuur_c1) -- exact code gebouw
|| DECODE(aaxx_get_user, 'DBS', '', 'AH', '', 'DOW', '02510001', 'SITECH', '02210001') -- exact code gebouw
|| ','
|| ''
|| ','
@@ -4279,7 +4081,7 @@ AS
|| ','
|| ''
|| ','
|| DECODE(aaxx_get_user, 'LB', '60', 'DOW', '60', 'SITECH', 'E9', 'NS','E6')
|| DECODE(aaxx_get_user, 'DOW', '60', 'SITECH', 'E9')
|| ','
|| '1'
|| ','
@@ -4342,7 +4144,7 @@ AS
fin_verkoopfactuur_c2 || replace(prs_kostensoortgrp_oms, ',', '') || DECODE(aaxx_get_user, 'DBS', '', 'HB', '', 'NMM', '', 'ZCN', '', 'ZKHM', '', 'DOW', '', 'DSM', '', 'RABO', '', prs_kostenplaats_nr) || '0'
FROM fin_verkoopfactuur
WHERE fin_verkoopfactuur_datum IS NULL
GROUP BY replace(prs_kostensoortgrp_oms, ',', ''), prs_debiteur_naam, DECODE(aaxx_get_user, 'DBS', '', 'HB', '', 'NMM', '', 'ZCN', '', 'ZKHM', '', 'DOW', '', 'DSM', '', 'RABO', '', prs_kostenplaats_nr), fin_verkoopfactuur_c2, DECODE(aaxx_get_user, 'DBS', '', 'AH', '', 'LB', '02610001', 'DOW', '02510001', 'SITECH', '02210001', 'NS',fin_verkoopfactuur_c1), fin_verkoopfactuur_maand
GROUP BY replace(prs_kostensoortgrp_oms, ',', ''), prs_debiteur_naam, DECODE(aaxx_get_user, 'DBS', '', 'HB', '', 'NMM', '', 'ZCN', '', 'ZKHM', '', 'DOW', '', 'DSM', '', 'RABO', '', prs_kostenplaats_nr), fin_verkoopfactuur_c2, DECODE(aaxx_get_user, 'DBS', '', 'AH', '', 'DOW', '02510001', 'SITECH', '02210001'), fin_verkoopfactuur_maand
UNION ALL
-- Uitleg subregel:
-- 01 Regelnummer Vaste waarde 1
@@ -4489,8 +4291,7 @@ AS
|| ','
|| ''
|| ','
|| DECODE (aaxx_get_user, 'LB', '02600013',
'ENEXIS', '02110001',
|| DECODE (aaxx_get_user, 'ENEXIS', '02110001',
fin_verkoopfactuur_c1) -- exact code gebouw
|| ','
|| '',
@@ -9858,9 +9659,7 @@ AS
DECODE (aaxx_get_user,
'SITECH', 321, -- Reden 0 order
'ENEXIS', 221,
'FPC', 1,
'IT', 381,
'NS', 661,
'SABIC', 34,
2))
AND NOT EXISTS
@@ -12638,10 +12437,7 @@ BEGIN
IF aaxx_get_user = 'SABIC' THEN v_mld_srtkenmerk_key := 35; END IF;
IF aaxx_get_user = 'ENEXIS' THEN v_mld_srtkenmerk_key := 381; END IF;
IF aaxx_get_user = 'ESSENT' THEN v_mld_srtkenmerk_key := 741; END IF;
IF aaxx_get_user = 'NS' THEN v_mld_srtkenmerk_key := 761; END IF;
IF aaxx_get_user = 'SITECH' THEN v_mld_srtkenmerk_key := 123; END IF;
IF aaxx_get_user = 'VL' THEN v_mld_srtkenmerk_key := 82; END IF;
IF aaxx_get_user = 'HUNTSMAN' THEN v_mld_srtkenmerk_key := 381; END IF;
IF aaxx_get_user = 'DOW' THEN v_mld_srtkenmerk_key := 81; END IF;
v_user_key := 10; -- Strukton user