AAIT#73079 -- Inrichten verkoopinterfaces O2C - Inpassen IKEA en splitsing verkoopinterfaces INLO

svn path=/Customer/trunk/; revision=63001
This commit is contained in:
Jos Migo
2023-12-18 18:44:36 +00:00
parent 4e693f6c4d
commit da2fc1e514

View File

@@ -2251,6 +2251,7 @@ SELECT REPLACE(REPLACE(f.fin_factuur_key
-- fin_verkoopfactuur_n2 bedrijfskey van de hoogste afdeling
-- fin_verkoopfactuur_n3 projectmarge
-- fin_verkoopfactuur_n4 fin_factuur_key
-- fin_verkoopfactuur_n5 kpg.prs_kostenplaatsgrp_key -- Voor multi-clientomgeving INLO (o.a. tbv splitsen verkoopinterface)
-- fin_verkoopfactuur_d1 datumveld, wordt gevuld bij 'herstelactie verkoopfacturen'
@@ -2436,7 +2437,7 @@ BEGIN
INSERT INTO fin_verkoopfactuur
(
-- module, export_datum, prs_kostenplaats_nr, debiteur, prs_kostensoort_oms, prs_kostensoort_opmerking, prs_kostensoort_refcode, prs_kostensoortgrp_oms, omschrijving, bedrag, btw, fin_btwtabelwaarde_code, opdr_jaar, exact_code_gebouw, groepering, subregelvolgorde
fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_kostenplaats_nr, prs_debiteur_naam, prs_bedrijf_key, 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, fin_verkoopfactuur_n1, fin_verkoopfactuur_n2, fin_verkoopfactuur_c5, fin_verkoopfactuur_c6, fin_verkoopfactuur_c7, fin_verkoopfactuur_n3, fin_verkoopfactuur_c8, fin_verkoopfactuur_n4
fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_kostenplaats_nr, prs_debiteur_naam, prs_bedrijf_key, 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, fin_verkoopfactuur_n1, fin_verkoopfactuur_n2, fin_verkoopfactuur_c5, fin_verkoopfactuur_c6, fin_verkoopfactuur_c7, fin_verkoopfactuur_n3, fin_verkoopfactuur_c8, fin_verkoopfactuur_n4, fin_verkoopfactuur_n5
)
SELECT substr(to_char(v_logdate, 'dd-mm-yyyy') || ' - ' || sd.ins_srtdiscipline_prefix || m.mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr, 1,30 ) fin_verkoopfactuur_id,
'opdracht',
@@ -2461,14 +2462,15 @@ BEGIN
'ESSENT', '99999999',
'INLO', DECODE (aaxx_get_user_sub('INLO', exact_k.klantcode),
'COVESTRO', '99999999',
-- = de INLO-standaard voor kostenplaats (gevuld op regelniveau kolom AM (39)
'IKEA', DECODE (kpg.prs_kostenplaatsgrp_oms, 'IKEA - BEHEER' , aaxx_get_top_kpn_nr (k.prs_kostenplaats_key), aaxx_get_debiteur_gebouw(l.alg_locatie_code, g.alg_gebouw_code)),
-- = de INLO-standaard voor kostenplaats
k.prs_kostenplaats_nr
),
'NMM', 'MGB',
'SABIC', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
k.prs_kostenplaats_nr)
, 1, 30)
prs_kostenplaats_nr,
prs_kostenplaats_nr, -- gevuld op regelniveau kolom AM (39)
SUBSTR (
DECODE (aaxx_get_user, 'AH', DECODE(aaxx_get_top_bedrijf_key(k.prs_kostenplaats_nr), 13383, k.prs_kostenplaats_nr, aaxx_get_top_dep_code(k.prs_kostenplaats_nr)),
'DSM', DECODE (SUBSTR(ks.prs_kostensoort_upper,1,3) , 'CV ', DECODE (l.alg_locatie_code, 'ZWO', '913848',
@@ -2483,7 +2485,6 @@ BEGIN
'L CVE', aaxx_get_top_dep_code(k.prs_kostenplaats_nr)),
'NC ', DECODE (ks.prs_kostensoort_upper, 'NC PROJ', aaxx_get_top_dep_code(k.prs_kostenplaats_nr), 'Onbekend')),
'EXPO', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
-- OUD: 'INLO', aaxx_get_top_kpn_nr (k.prs_kostenplaats_key),
'INLO', DECODE (aaxx_get_user_sub('INLO', exact_k.klantcode),
'COVESTRO', DECODE (SUBSTR(ks.prs_kostensoort_upper,1,3), 'CVE' , aaxx_get_top_kpn_nr (k.prs_kostenplaats_key), aaxx_get_debiteur_gebouw(l.alg_locatie_code, g.alg_gebouw_code)),
'IKEA', DECODE (kpg.prs_kostenplaatsgrp_oms, 'IKEA - BEHEER' , aaxx_get_top_kpn_nr (k.prs_kostenplaats_key), aaxx_get_debiteur_gebouw(l.alg_locatie_code, g.alg_gebouw_code)),
@@ -2527,6 +2528,12 @@ BEGIN
NULL,
ks.prs_kostensoort_upper, -- kostensoort_code
TRUNC(opdr_datum)),
'IKEA', /*aaxx_get_po_nr('IKEA', NULL, NULL, g.alg_gebouw_code,
NULL,
NULL,
ks.prs_kostensoort_upper, -- kostensoort_code
TRUNC(opdr_datum))*/ 'PO-nr-IKEA (gebouw en kostensrt?)'
|| ' - ' || std_kp.prs_kostenplaats_externnr,
-- = de INLO-standaard voor kostensoortgr_omschr - kopregel kolom D
'Servicekosten Core Variabel'
),
@@ -2586,7 +2593,11 @@ BEGIN
ELSE
SUBSTR (
DECODE (aaxx_get_user, 'AH', DECODE (ks.prs_kostensoort_upper, 'NC PROJ', TO_CHAR(m.mld_melding_key)),
-- DEZE KAN WEG OMDAT AL OP DEBITEURNAAM VOOR INLO DE GROUPING LOOPT 'INLO', aaxx_get_top_kpn_nr (k.prs_kostenplaats_key),
'INLO', DECODE (aaxx_get_user_sub('INLO', exact_k.klantcode),
'IKEA', std_kp.prs_kostenplaats_omschrijving,
-- = de INLO-standaard voor extra groepering kopregel factuur
NULL
),
'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),
'DLF', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
@@ -2621,6 +2632,7 @@ BEGIN
'DSM', NULL, -- Later nog uitwerken
'INLO', DECODE (aaxx_get_user_sub('INLO', exact_k.klantcode),
'COVESTRO', ksg.prs_kostensoortgrp_altcode || ' ' || l.alg_locatie_code,
'IKEA', 'IKEA ' || l.alg_locatie_omschrijving || DECODE (kpg.prs_kostenplaatsgrp_oms, 'IKEA - BEHEER', ' Beheer BV', NULL),
-- = de INLO-standaard voor C5 waar de subaccounts uiteindelijk op kunnen terugvallen
-- ksg.prs_kostensoortgrp_altcode
NULL
@@ -2643,7 +2655,12 @@ BEGIN
DECODE (SUBSTR(ks.prs_kostensoort_upper,1,3), 'CVE' , aaxx_get_top_kpn_nr (k.prs_kostenplaats_key), aaxx_get_debiteur_gebouw(l.alg_locatie_code, g.alg_gebouw_code)), -- debiteurnr
NULL,
ks.prs_kostensoort_upper, -- kostensoort_code
TRUNC(opdr_datum)),
TRUNC(opdr_datum)),
'IKEA', aaxx_get_po_nr('IKEA', NULL, NULL, g.alg_gebouw_code,
NULL,
NULL,
ks.prs_kostensoort_upper, -- kostensoort_code
TRUNC(opdr_datum)),
-- 'HENKEL', aaxx_get_po_nr('HENKEL', NULL, NULL, NULL, NULL, NULL, NULL, TRUNC(opdr_datum)),
-- 'ALLIANDER', aaxx_get_po_nr('ALLIANDER', NULL, NULL, NULL, NULL, NULL, NULL, TRUNC(opdr_datum)),
-- = de INLO-standaard voor PO-nr (indien geen resultaat in tabel dan krijg je NULL terug)
@@ -2683,14 +2700,23 @@ BEGIN
ELSE 'CORE'
END fin_verkoopfactuur_c8, -- soort verkoopfactuur
fg.fin_factuur_key
fin_verkoopfactuur_n4
fin_verkoopfactuur_n4,
DECODE (aaxx_get_user, 'INLO', DECODE (aaxx_get_user_sub('INLO', exact_k.klantcode), -- Multi-clientomgeving met subaccounts op kostenplaatsgroepen. T.b.v. het separaat kunnen runnen van de verkoopinterfaces
'IKEA', kpg.prs_kostenplaatsgrp_key,
NULL),
NULL)
fin_verkoopfactuur_n5
FROM mld_opdr o,
(SELECT ko.mld_opdr_key, ko.mld_kenmerkopdr_waarde, flx.getdomeinwaarde(sk.fac_kenmerkdomein_key, FLX.getflex ('OPD', km.mld_kenmerk_key, ko.mld_opdr_key)) maintenance_cap_oms
FROM mld_kenmerkopdr ko, mld_kenmerk km, mld_srtkenmerk sk
WHERE ko.mld_kenmerk_key = km.mld_kenmerk_key AND km.mld_srtkenmerk_key = sk.mld_srtkenmerk_key AND sk.mld_srtkenmerk_code = 'MAINTENANCE_CAP') om, -- maintenance_cap
mld_typeopdr ot,
prs_bedrijf b,
prs_kostenplaats k,
prs_kostenplaatsgrp kpg,
mld_melding m,
mld_stdmelding std,
prs_kostenplaats std_kp,
ins_tab_discipline d,
ins_srtdiscipline sd,
prs_kostensoort ks,
@@ -2728,6 +2754,7 @@ BEGIN
prs_kostensoort_refcode) fg
WHERE fg.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND o.mld_typeopdr_key = ot.mld_typeopdr_key
AND o.mld_opdr_key = om.mld_opdr_key (+)
AND fg.mld_opdr_key = o.mld_opdr_key
AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
AND og.alg_gebouw_key = g.alg_gebouw_key(+)
@@ -2745,6 +2772,7 @@ BEGIN
AND std.mld_ins_discipline_key = d.ins_discipline_key
AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND o.mld_opdr_key = pr.mld_opdr_key(+)
AND std.prs_kostenplaats_key = std_kp.prs_kostenplaats_key (+)
AND (( sd.ins_srtdiscipline_prefix = 'SA'
AND aaxx_get_user <> 'AH'
AND aaxx_get_user <> 'GN'
@@ -2798,10 +2826,13 @@ BEGIN
OR ( aaxx_get_user = 'INLO'
AND ( ks.prs_kostensoort_upper LIKE 'CV %'
OR ks.prs_kostensoort_upper LIKE 'CVE %'
OR (SUBSTR(ot.mld_typeopdr_omschrijving, 1, 12) = 'Projectorder' AND INSTR(ks.prs_kostensoort_upper,'NC PROJ')>0 AND aaxx_get_user_sub('INLO', exact_k.klantcode) IN ('COVESTRO') )
OR (SUBSTR(ot.mld_typeopdr_omschrijving, 1, 12) = 'Projectorder' AND INSTR(ks.prs_kostensoort_upper,'NC PROJ')>0 AND aaxx_get_user_sub('INLO', exact_k.klantcode) IN ('COVESTRO', 'IKEA') )
)
AND NOT EXISTS ( SELECT 1 FROM DUAL WHERE aaxx_get_user_sub('INLO', exact_k.klantcode) IN ('GREENPORT VENLO')) -- uitsluiten subaccounts voor INLO
AND NOT EXISTS ( SELECT 1 FROM DUAL WHERE aaxx_get_user_sub('INLO', exact_k.klantcode) IN ('COVESTRO') AND l.alg_locatie_code = 'GLN' AND INSTR(UPPER(g.alg_gebouw_naam), 'CHEMELOT CAMPUS')>0) -- uitsluiten COVESTRO-Campus Chemelot GELEEN
AND ( om.maintenance_cap_oms IS NULL
OR lower(om.maintenance_cap_oms) IN ('volledig additional cost', 'maintenance cap voor heyday', 'maintenance cap voor leverancier')
)
)
OR ( aaxx_get_user = 'NMM'
AND ks.prs_kostensoort_upper LIKE 'CVE%'
@@ -2844,7 +2875,7 @@ BEGIN
-- Voeg contracten toe aan de verkoopinterface
INSERT INTO fin_verkoopfactuur
(
fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_kostenplaats_nr, prs_debiteur_naam, prs_bedrijf_key, 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, fin_verkoopfactuur_n1, fin_verkoopfactuur_n2, fin_verkoopfactuur_c5, fin_verkoopfactuur_c6, fin_verkoopfactuur_c7, fin_verkoopfactuur_n3, fin_verkoopfactuur_c8, fin_verkoopfactuur_n4
fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_kostenplaats_nr, prs_debiteur_naam, prs_bedrijf_key, 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, fin_verkoopfactuur_n1, fin_verkoopfactuur_n2, fin_verkoopfactuur_c5, fin_verkoopfactuur_c6, fin_verkoopfactuur_c7, fin_verkoopfactuur_n3, fin_verkoopfactuur_c8, fin_verkoopfactuur_n4, fin_verkoopfactuur_n5
)
SELECT substr(to_char(v_logdate, 'dd-mm-yyyy') || ' - ' || 'C' || cnt_contract_nummer_intern || DECODE (cnt_contract_versie, NULL, '', '.' || cnt_contract_versie), 1,30 ),
'contract',
@@ -2868,11 +2899,13 @@ BEGIN
'DLF', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
'520'),
'L CVE', aaxx_get_top_dep_code(k.prs_kostenplaats_nr))),
'INLO', DECODE (aaxx_get_user_sub('INLO', exact_k.klantcode),
'COVESTRO', '99999999',
-- = de INLO-standaard voor kostenplaats (gevuld op regelniveau kolom AM (39)
k.prs_kostenplaats_nr
),
'COVESTRO', '99999999',
'IKEA', DECODE (kpg.prs_kostenplaatsgrp_oms, 'IKEA - BEHEER' , aaxx_get_top_kpn_nr (k.prs_kostenplaats_key), aaxx_get_debiteur_gebouw(l.alg_locatie_code, g.alg_gebouw_code)),
-- = de INLO-standaard voor kostenplaats
k.prs_kostenplaats_nr
),
'SMKA', k.prs_kostenplaats_nr, -- Wordt niet gebruikt.
'IT', k.prs_kostenplaats_nr,
'RABO', COALESCE(exact_g.exact_code,'onbekend'),
@@ -2902,11 +2935,12 @@ BEGIN
'520'),
'L CVE', aaxx_get_top_dep_code(k.prs_kostenplaats_nr))),
-- OUD: 'INLO', aaxx_get_top_kpn_nr (k.prs_kostenplaats_key),
'INLO', DECODE (aaxx_get_user_sub('INLO', exact_k.klantcode),
'COVESTRO', DECODE (SUBSTR(ks.prs_kostensoort_upper,1,3), 'CVE' , aaxx_get_top_kpn_nr (k.prs_kostenplaats_key), aaxx_get_debiteur_gebouw(l.alg_locatie_code, g.alg_gebouw_code)),
-- = de INLO-standaard voor debiteurbepaling - kopregel kolom C
aaxx_get_top_kpn_nr (k.prs_kostenplaats_key)
),
'INLO', DECODE (aaxx_get_user_sub('INLO', exact_k.klantcode),
'COVESTRO', DECODE (SUBSTR(ks.prs_kostensoort_upper,1,3), 'CVE' , aaxx_get_top_kpn_nr (k.prs_kostenplaats_key), aaxx_get_debiteur_gebouw(l.alg_locatie_code, g.alg_gebouw_code)),
'IKEA', DECODE (kpg.prs_kostenplaatsgrp_oms, 'IKEA - BEHEER' , aaxx_get_top_kpn_nr (k.prs_kostenplaats_key), aaxx_get_debiteur_gebouw(l.alg_locatie_code, g.alg_gebouw_code)),
-- = de INLO-standaard voor debiteurbepaling - kopregel kolom C
aaxx_get_top_kpn_nr (k.prs_kostenplaats_key)),
'ESSENT', aaxx_get_debiteur_gebouw(l.alg_locatie_code, g.alg_gebouw_code),
'RABO', aaxx_get_dep_code(k.prs_kostenplaats_nr),
'SABIC', (SELECT distinct prs_leverancier_nr FROM prs_bedrijf b, prs_afdeling a
@@ -2927,15 +2961,21 @@ BEGIN
DECODE (aaxx_get_user,
'AH', ksg.prs_kostensoortgrp_oms || DECODE(aaxx_get_top_bedrijf_key(k.prs_kostenplaats_nr), 13383, k.prs_kostenplaats_nr, aaxx_get_top_dep_code(k.prs_kostenplaats_nr)),
'EXPO', 'Servicekosten Core Variabel',
'INLO', DECODE (aaxx_get_user_sub('INLO', exact_k.klantcode),
'COVESTRO', aaxx_get_po_nr('COVESTRO', NULL, NULL, l.alg_locatie_code,
DECODE (SUBSTR(ks.prs_kostensoort_upper,1,3), 'CVE' , aaxx_get_top_kpn_nr (k.prs_kostenplaats_key), aaxx_get_debiteur_gebouw(l.alg_locatie_code, g.alg_gebouw_code)), -- debiteurnr
NULL,
ks.prs_kostensoort_upper, -- kostensoort_code
TRUNC(opdr_datum)),
-- = de INLO-standaard voor kostensoortgr_omschr - kopregel kolom D
'Servicekosten Core Variabel'
),
'COVESTRO', aaxx_get_po_nr('COVESTRO', NULL, NULL, l.alg_locatie_code,
DECODE (SUBSTR(ks.prs_kostensoort_upper,1,3), 'CVE' , aaxx_get_top_kpn_nr (k.prs_kostenplaats_key), aaxx_get_debiteur_gebouw(l.alg_locatie_code, g.alg_gebouw_code)), -- debiteurnr
NULL,
ks.prs_kostensoort_upper, -- kostensoort_code
TRUNC(opdr_datum)),
'IKEA', /*aaxx_get_po_nr('IKEA', NULL, NULL, g.alg_gebouw_code,
NULL,
NULL,
ks.prs_kostensoort_upper, -- kostensoort_code
TRUNC(opdr_datum))*/ 'PO-nr-IKEA (gebouw en kostensrt?)'
|| ' - ' || k.prs_kostenplaats_externnr,
-- = de INLO-standaard voor kostensoortgr_omschr - kopregel kolom D
'Servicekosten Core Variabel'),
'ESSENT', aaxx_get_po_nr(NULL, NULL, NULL, g.alg_gebouw_code, NULL, NULL, NULL, TRUNC(opdr_datum)) || ' ' || SUBSTR(l.alg_locatie_code,1,4),
'RABO', 'Servicekosten ' || aaxx_get_dep_code(k.prs_kostenplaats_nr),
'SABIC', DECODE (l.alg_locatie_code, 'BOZ', 'Core Variabel ' || to_char(sysdate, 'Month'),
@@ -2955,6 +2995,7 @@ BEGIN
'ESSENT', ks.prs_kostensoort_altcode,
'INLO', DECODE (aaxx_get_user_sub('INLO', exact_k.klantcode),
'COVESTRO', 'Variabele dienstverlening' || ' ' || (SELECT TO_CHAR(fin_btwtabelwaarde_perc) || '%' FROM fin_btwtabelwaarde WHERE fin_btwtabelwaarde_key = fg.fin_btwtabelwaarde_key) ,
'IKEA' , c.cnt_contract_omschrijving || ' ' || (SELECT TO_CHAR(fin_btwtabelwaarde_perc) || '%' FROM fin_btwtabelwaarde WHERE fin_btwtabelwaarde_key = fg.fin_btwtabelwaarde_key) ,
-- = de INLO-standaard voor omschrijving sub-regel
'C' || cnt_contract_nummer_intern || DECODE (cnt_contract_versie, NULL, '', '.' || cnt_contract_versie)
),
@@ -2991,6 +3032,11 @@ BEGIN
'DLF', aaxx_get_top_dep_code(k.prs_kostenplaats_nr),
'520') || l.alg_locatie_code,
'L CVE', aaxx_get_top_dep_code(k.prs_kostenplaats_nr))),
'INLO', DECODE (aaxx_get_user_sub('INLO', exact_k.klantcode),
'IKEA', k.prs_kostenplaats_omschrijving,
-- = de INLO-standaard voor extra groepering kopregel factuur
NULL
),
'EXPO', l.alg_locatie_code,
'RABO', aaxx_get_dep_code(k.prs_kostenplaats_nr),
'SABIC',DECODE (l.alg_locatie_code, 'BOZ', to_char(sysdate, 'Month'),
@@ -3009,6 +3055,7 @@ BEGIN
'DSM', NULL, -- Later nog uitwerken
'INLO', DECODE (aaxx_get_user_sub('INLO', exact_k.klantcode),
'COVESTRO', ksg.prs_kostensoortgrp_altcode || ' ' || l.alg_locatie_code,
'IKEA', 'IKEA ' || l.alg_locatie_omschrijving || DECODE (kpg.prs_kostenplaatsgrp_oms, 'IKEA - BEHEER', ' Beheer BV', NULL),
-- = de INLO-standaard voor C5 waar de subaccounts uiteindelijk op kunnen terugvallen
-- ksg.prs_kostensoortgrp_altcode
NULL
@@ -3028,7 +3075,12 @@ BEGIN
DECODE (SUBSTR(ks.prs_kostensoort_upper,1,3), 'CVE' , aaxx_get_top_kpn_nr (k.prs_kostenplaats_key), aaxx_get_debiteur_gebouw(l.alg_locatie_code, g.alg_gebouw_code)), -- debiteurnr
NULL,
ks.prs_kostensoort_upper, -- kostensoort_code
TRUNC(opdr_datum)),
TRUNC(opdr_datum)),
'IKEA', aaxx_get_po_nr('IKEA', NULL, NULL, g.alg_gebouw_code,
NULL,
NULL,
ks.prs_kostensoort_upper, -- kostensoort_code
TRUNC(opdr_datum)),
-- 'HENKEL', aaxx_get_po_nr('HENKEL', NULL, NULL, NULL, NULL, NULL, NULL, TRUNC(opdr_datum)),
-- 'ALLIANDER', aaxx_get_po_nr('ALLIANDER', NULL, NULL, NULL, NULL, NULL, NULL, TRUNC(opdr_datum)),
-- = de INLO-standaard voor PO-nr (indien geen resultaat in tabel dan krijg je NULL terug)
@@ -3058,7 +3110,12 @@ BEGIN
NULL fin_verkoopfactuur_n3, -- projectmarge
'CORE' fin_verkoopfactuur_c8, -- soort verkoopfactuur
fg.fin_factuur_key
fin_verkoopfactuur_n4
fin_verkoopfactuur_n4,
DECODE (aaxx_get_user, 'INLO', DECODE (aaxx_get_user_sub('INLO', exact_k.klantcode), -- Multi-clientomgeving met subaccounts op kostenplaatsgroepen. T.b.v. het separaat kunnen runnen van de verkoopinterfaces
'IKEA', kpg.prs_kostenplaatsgrp_key,
NULL),
NULL)
fin_verkoopfactuur_n5
FROM cnt_contract c,
prs_bedrijf b,
prs_kostenplaats k,
@@ -3207,7 +3264,7 @@ BEGIN
-- voeg bestelorders toe aan de verkoopbuffer
INSERT INTO fin_verkoopfactuur
(
fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_kostenplaats_nr, prs_debiteur_naam, prs_bedrijf_key, 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, fin_verkoopfactuur_n1, fin_verkoopfactuur_n2, fin_verkoopfactuur_c5, fin_verkoopfactuur_c6, fin_verkoopfactuur_c7, fin_verkoopfactuur_n3, fin_verkoopfactuur_c8, fin_verkoopfactuur_n4
fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_kostenplaats_nr, prs_debiteur_naam, prs_bedrijf_key, 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, fin_verkoopfactuur_n1, fin_verkoopfactuur_n2, fin_verkoopfactuur_c5, fin_verkoopfactuur_c6, fin_verkoopfactuur_c7, fin_verkoopfactuur_n3, fin_verkoopfactuur_c8, fin_verkoopfactuur_n4, fin_verkoopfactuur_n5
)
SELECT substr(to_char(v_logdate, 'dd-mm-yyyy') || ' - ' || bestel.bes_bestelopdr_id, 1,30 ),
'bestelopdr',
@@ -3393,7 +3450,12 @@ BEGIN
NULL fin_verkoopfactuur_n3, -- projectmarge
'CORE' fin_verkoopfactuur_c8, -- soort verkoopfactuur
fg.fin_factuur_key
fin_verkoopfactuur_n4
fin_verkoopfactuur_n4,
DECODE (aaxx_get_user, 'INLO', DECODE (aaxx_get_user_sub('INLO', exact_k.klantcode), -- Multi-clientomgeving met subaccounts op kostenplaatsgroepen. T.b.v. het separaat kunnen runnen van de verkoopinterfaces
'IKEA', kpg.prs_kostenplaatsgrp_key,
NULL),
NULL)
fin_verkoopfactuur_n5
FROM ( SELECT *
FROM aaxx_v_bestelgegevens
GROUP BY bes_bestelopdr_key,
@@ -3404,6 +3466,7 @@ BEGIN
prs_bedrijf_key) bestel,
mld_adres ad,
prs_kostenplaats k,
prs_kostenplaatsgrp kpg,
ins_tab_discipline d,
prs_kostensoort ks,
prs_kostensoortgrp ksg,
@@ -3446,6 +3509,7 @@ BEGIN
AND l.alg_district_key =exact_d.alg_district_key(+)
AND g.alg_locatie_key = l.alg_locatie_key
AND fg.fin_factuur_key = f.fin_factuur_key
AND k.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
AND fg.prs_kostensoort_key = ks.prs_kostensoort_key(+)
AND ks.prs_kostensoortgrp_key = ksg.prs_kostensoortgrp_key(+)
AND ( ( aaxx_get_user = 'AH'
@@ -3625,46 +3689,43 @@ BEGIN
END IF;
-- INLO CORE
-- Voor Henkel: 5% over alle facturen van CV. Voor alle opdrachttype. Voor NC PROJ wordt GEEN fee berekend.
-- Voor Zwaansvliet: 18,5% over de facturen van CV (=fee organisatiekosten), boeken op 8210520. Daarna nog Fee van 6,5%, boeken op 8210511 . Voor NC PROJ wordt geen fee berekend..
-- Voor Henkel: Fee komen te vervallen (2023-12)
-- Voor Zwaansvliet: Klant vervallen 2023
-- Voor VEH wordt geen FEE berekend
-- Voor IKEA - op basis van de maintenance cap bij opdracht.
--- Geldt voor alleen voor waarde 'maintenance cap voor heyday'
--- Is MAX 500 euro, over alle inkoopfacturen op die opdracht
--- Bij Credits op die opdracht bedrag debet in rekening brengen
-- BTW over FEE: Overal 21% (dus ongeacht inkoopfactuur_btw) - #57775
IF aaxx_get_user = 'INLO' THEN
-- IKEA - opdrachten met <20>Maintenance Cap voor HEYDAY<41>
---- Tot max bedrag van 500, euro wordt de inkoopfactuur als FEE teruggegeven
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, fin_verkoopfactuur_c5, fin_verkoopfactuur_c8, fin_verkoopfactuur_c6, fin_verkoopfactuur_n4
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, fin_verkoopfactuur_c5, fin_verkoopfactuur_c8, fin_verkoopfactuur_c6, fin_verkoopfactuur_n4, fin_verkoopfactuur_n5
)
SELECT fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_debiteur_naam, prs_debiteur_naam, 'CV FEE' || DECODE (INSTR(prs_kostensoort_oms, ' VJ'), 0 , '', ' VJ'), '', prs_kostensoortgrp_oms, 'Fee Core Variabel' , SUM(ROUND(fin_verkoopfactuur_bedrag * 0.05, 2)), 5, fin_verkoopfactuur_maand, '03603000', fin_verkoopfactuur_c2, 'X', fin_verkoopfactuur_c5, fin_verkoopfactuur_c8, fin_verkoopfactuur_c6, fin_verkoopfactuur_n4
FROM fin_verkoopfactuur v
SELECT fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_debiteur_naam, prs_debiteur_naam, 'CV CAP' || DECODE (INSTR(prs_kostensoort_oms, ' VJ'), 0 , '', ' VJ'), '', prs_kostensoortgrp_oms, fin_verkoopfactuur_omschr,
CASE WHEN SUM(ROUND(fin_verkoopfactuur_bedrag, 2)) < 0 AND -SUM(ROUND(fin_verkoopfactuur_bedrag, 2)) >= 500 THEN 500
WHEN SUM(ROUND(fin_verkoopfactuur_bedrag, 2)) < 0 AND -SUM(ROUND(fin_verkoopfactuur_bedrag, 2)) < 500 THEN -SUM(ROUND(fin_verkoopfactuur_bedrag, 2))
WHEN SUM(ROUND(fin_verkoopfactuur_bedrag, 2)) > 0 AND SUM(ROUND(fin_verkoopfactuur_bedrag, 2)) > om.fee_nogdoorbelasten THEN -om.fee_nogdoorbelasten
ELSE -SUM(ROUND(fin_verkoopfactuur_bedrag, 2)) END
fin_verkoopfactuur_bedrag,
5, fin_verkoopfactuur_maand, fin_verkoopfactuur_c1, fin_verkoopfactuur_c2, 'X', fin_verkoopfactuur_c5, fin_verkoopfactuur_c8, fin_verkoopfactuur_c6, fin_verkoopfactuur_n4, fin_verkoopfactuur_n5
FROM fin_verkoopfactuur v,
(SELECT ko.mld_opdr_key, ko.mld_kenmerkopdr_waarde, flx.getdomeinwaarde(sk.fac_kenmerkdomein_key, FLX.getflex ('OPD', km.mld_kenmerk_key, ko.mld_opdr_key)) maintenance_cap_oms,
o.mld_opdr_kosten,
(SELECT 500 - COALESCE(-SUM(fin_verkoopfactuur_bedrag),0) FROM fin_verkoopfactuur WHERE fin_verkoopfactuur_refkey = o.mld_opdr_key AND fin_verkoopfactuur_xmlnode = 'opdracht' AND INSTR(prs_kostensoort_oms, 'CAP')>0 )
fee_nogdoorbelasten
FROM mld_kenmerkopdr ko, mld_kenmerk km, mld_srtkenmerk sk, mld_opdr o
WHERE o.mld_opdr_key = ko.mld_opdr_key AND ko.mld_kenmerk_key = km.mld_kenmerk_key AND km.mld_srtkenmerk_key = sk.mld_srtkenmerk_key AND sk.mld_srtkenmerk_code = 'MAINTENANCE_CAP') om -- maintenance_cap
WHERE fin_verkoopfactuur_aanmaak = v_logdate
AND prs_kostensoort_oms LIKE 'CV %'
AND fin_verkoopfactuur_c8 = 'CORE'
AND v.fin_verkoopfactuur_c1 = '03603000' -- Henkel
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, fin_verkoopfactuur_c5, fin_verkoopfactuur_c8, fin_verkoopfactuur_c6, fin_verkoopfactuur_n4;
INSERT INTO fin_verkoopfactuur -- Zwaansvliet 18,5%
(
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, fin_verkoopfactuur_c5, fin_verkoopfactuur_c8, fin_verkoopfactuur_c6, fin_verkoopfactuur_n4
)
SELECT fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_debiteur_naam, prs_debiteur_naam, 'FEE ORG' || DECODE (INSTR(prs_kostensoort_oms, ' VJ'), 0 , '', ' VJ'), '', prs_kostensoortgrp_oms, 'Fee Organisatie' , SUM(ROUND(fin_verkoopfactuur_bedrag * 0.185, 2)), 5, fin_verkoopfactuur_maand, '03604000', fin_verkoopfactuur_c2, 'X', fin_verkoopfactuur_c5, fin_verkoopfactuur_c8, fin_verkoopfactuur_c6, fin_verkoopfactuur_n4
FROM fin_verkoopfactuur v
WHERE fin_verkoopfactuur_aanmaak = v_logdate
AND prs_kostensoort_oms LIKE 'CV %'
AND fin_verkoopfactuur_c8 = 'CORE'
AND v.fin_verkoopfactuur_c1 = '03604000' -- Zwaansvliet
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, fin_verkoopfactuur_c5, fin_verkoopfactuur_c8, fin_verkoopfactuur_c6, fin_verkoopfactuur_n4;
INSERT INTO fin_verkoopfactuur -- 6,5%
(
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, fin_verkoopfactuur_c5, fin_verkoopfactuur_c8, fin_verkoopfactuur_c6, fin_verkoopfactuur_n4
)
SELECT fin_verkoopfactuur_id, fin_verkoopfactuur_xmlnode, fin_verkoopfactuur_refkey, fin_verkoopfactuur_aanmaak, prs_debiteur_naam, prs_debiteur_naam, 'CV FEE' || DECODE (INSTR(prs_kostensoort_oms, ' VJ'), 0 , '', ' VJ'), '', prs_kostensoortgrp_oms, 'Fee Core Variabel' , SUM(ROUND(fin_verkoopfactuur_bedrag * 0.065, 2)), 5, fin_verkoopfactuur_maand, '03604000', fin_verkoopfactuur_c2, 'X', fin_verkoopfactuur_c5, fin_verkoopfactuur_c8, fin_verkoopfactuur_c6, fin_verkoopfactuur_n4
FROM fin_verkoopfactuur v
WHERE fin_verkoopfactuur_aanmaak = v_logdate
AND prs_kostensoort_oms LIKE 'CV %'
AND fin_verkoopfactuur_c8 = 'CORE'
AND v.fin_verkoopfactuur_c1 = '03604000' -- Zwaansvliet
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, fin_verkoopfactuur_c5, fin_verkoopfactuur_c8, fin_verkoopfactuur_c6, fin_verkoopfactuur_n4;
AND fin_verkoopfactuur_n5 IN (281, 461) -- IKEA en IKEA-BEHEER
AND v.fin_verkoopfactuur_refkey = om.mld_opdr_key
AND lower(om.maintenance_cap_oms) IN ('maintenance cap voor heyday')
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_verkoopfactuur_omschr, fin_btwtabelwaarde_code, fin_verkoopfactuur_maand, fin_verkoopfactuur_c1, fin_verkoopfactuur_c2, fin_verkoopfactuur_c5, fin_verkoopfactuur_c8, fin_verkoopfactuur_c6, fin_verkoopfactuur_n4, fin_verkoopfactuur_n5, om.fee_nogdoorbelasten;
END IF;
@@ -3924,6 +3985,7 @@ CREATE OR REPLACE VIEW aaxx_v_export_exact_verkoop_t (
result,
opdr_jaar,
soort, -- CORE of PROJECT of RES
subaccount, -- Voor MULTICLIENT INLO
result_order
)
AS
@@ -4023,11 +4085,12 @@ AS
result,
fin_verkoopfactuur_maand,
fin_verkoopfactuur_c8,
fin_verkoopfactuur_n5,
fin_verkoopfactuur_maand || prs_debiteur_naam || fin_verkoopfactuur_c2 || fin_verkoopfactuur_c6 || replace(prs_kostensoortgrp_oms, ',', '') || DECODE(aaxx_get_user, 'NMM', '', 'DSM', '', 'RABO', '', 'EXPO', '', 'INLO', '', 'SMKA', '', prs_kostenplaats_nr) || fin_verkoopfactuur_c5 || '-0-'
result_order
FROM fin_verkoopfactuur
WHERE fin_verkoopfactuur_datum IS NULL AND COALESCE(fin_verkoopfactuur_c8, 'CORE') IN ('CORE', 'RES', 'PROJECT')
GROUP BY fin_verkoopfactuur_maand, prs_debiteur_naam, fin_verkoopfactuur_c2, fin_verkoopfactuur_c6, replace(prs_kostensoortgrp_oms, ',', ''), DECODE(aaxx_get_user, 'NMM', '', 'DSM', '', 'RABO', '', 'EXPO', '', 'INLO', '', 'SMKA', '', prs_kostenplaats_nr), fin_verkoopfactuur_c8, fin_verkoopfactuur_c5
GROUP BY fin_verkoopfactuur_maand, prs_debiteur_naam, fin_verkoopfactuur_c2, fin_verkoopfactuur_c6, replace(prs_kostensoortgrp_oms, ',', ''), DECODE(aaxx_get_user, 'NMM', '', 'DSM', '', 'RABO', '', 'EXPO', '', 'INLO', '', 'SMKA', '', prs_kostenplaats_nr), fin_verkoopfactuur_c8, fin_verkoopfactuur_c5, fin_verkoopfactuur_n5
UNION ALL
-- Uitleg subregel:
-- 01 Regelnummer Vaste waarde 1
@@ -4178,11 +4241,12 @@ AS
result,
fin_verkoopfactuur_maand,
fin_verkoopfactuur_c8,
fin_verkoopfactuur_n5,
fin_verkoopfactuur_maand || prs_debiteur_naam || fin_verkoopfactuur_c2 || fin_verkoopfactuur_c6 || replace(prs_kostensoortgrp_oms, ',', '') || DECODE(aaxx_get_user, 'NMM', '', 'DSM', '', 'RABO', '', 'EXPO', '', 'INLO', '', 'SMKA', '', prs_kostenplaats_nr) || fin_verkoopfactuur_c5 || '-1-' || fin_verkoopfactuur_c3 || replace(fin_verkoopfactuur_omschr, ',', '') || prs_kostensoort_oms
result_order
FROM fin_verkoopfactuur
WHERE fin_verkoopfactuur_datum IS NULL AND COALESCE(fin_verkoopfactuur_c8, 'CORE') IN ('CORE', 'RES', 'PROJECT')
GROUP BY fin_verkoopfactuur_c3, replace(prs_kostensoortgrp_oms, ',', ''), fin_verkoopfactuur_omschr, replace(fin_verkoopfactuur_omschr, ',', ''), prs_kostenplaats_nr, prs_debiteur_naam, fin_verkoopfactuur_c2, fin_verkoopfactuur_c6, fin_verkoopfactuur_c1, prs_kostensoort_oms, fin_btwtabelwaarde_code, fin_verkoopfactuur_maand, fin_verkoopfactuur_c8, fin_verkoopfactuur_c5 ;
GROUP BY fin_verkoopfactuur_c3, replace(prs_kostensoortgrp_oms, ',', ''), fin_verkoopfactuur_omschr, replace(fin_verkoopfactuur_omschr, ',', ''), prs_kostenplaats_nr, prs_debiteur_naam, fin_verkoopfactuur_c2, fin_verkoopfactuur_c6, fin_verkoopfactuur_c1, prs_kostensoort_oms, fin_btwtabelwaarde_code, fin_verkoopfactuur_maand, fin_verkoopfactuur_c8, fin_verkoopfactuur_c5, fin_verkoopfactuur_n5 ;
CREATE OR REPLACE VIEW aaxx_v_export_exact_verkoop (
@@ -4194,9 +4258,7 @@ AS
result_order
FROM aaxx_exp_exact_verkoop;
-- ACTIE-ACTIE!!! - Van de GROUP BY's nog aparte hulpviews maken - HOE/WAT ???
-- preprocessing: separate min-verkoopfacturen genereren
-- preprocessing: separate min-verkoopfacturen genereren - WAS VOOR DSM... NOG NODIG?
CREATE OR REPLACE PROCEDURE aaxx_exact_verkoop_preproces (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
@@ -4320,14 +4382,16 @@ CREATE OR REPLACE PROCEDURE aaxx_select_exact_verkoop (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_opdr_jaar IN VARCHAR2,
p_soort IN VARCHAR2
p_soort IN VARCHAR2,
p_subaccount IN NUMBER DEFAULT NULL
)
AS
CURSOR c1 IS
SELECT result, result_order
FROM aaxx_v_export_exact_verkoop_t
WHERE opdr_jaar = p_opdr_jaar AND soort = p_soort
WHERE opdr_jaar = p_opdr_jaar AND soort = p_soort
AND COALESCE(TO_CHAR(subaccount), 'LEEG') = COALESCE(TO_CHAR(p_subaccount), 'LEEG')
ORDER BY result_order;
v_first NUMBER;
v_count NUMBER;
@@ -4371,7 +4435,9 @@ CREATE OR REPLACE PROCEDURE aaxx_export_exact_verkoop (
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2,
p_opdr_jaar IN VARCHAR2,
p_soort IN VARCHAR2)
p_soort IN VARCHAR2,
p_subaccount IN NUMBER DEFAULT NULL
)
AS
v_timestamp DATE;
v_verkoopfactuurkop_key NUMBER (10);
@@ -4390,7 +4456,8 @@ BEGIN
fin_verkoopfactuurkop_key = v_verkoopfactuurkop_key
WHERE fin_verkoopfactuur_datum IS NULL
AND fin_verkoopfactuur_maand = p_opdr_jaar
AND fin_verkoopfactuur_c8 = p_soort;
AND fin_verkoopfactuur_c8 = p_soort
AND COALESCE(TO_CHAR(fin_verkoopfactuur_n5), 'LEEG') = COALESCE(TO_CHAR(p_subaccount), 'LEEG') ;
IF p_soort = 'RES'
@@ -4404,7 +4471,7 @@ BEGIN
VALUES ('EXACT_VERKOOP_VJ_P');
ELSE
INSERT INTO imp_schedule (imp_schedule_name)
VALUES ('EXACT_VERKOOP_VJ');
VALUES ('EXACT_VERKOOP_VJ' || DECODE (p_subaccount, NULL, NULL, '_' || TO_CHAR(p_subaccount)) );
END IF;
END IF;
END;