1055 lines
43 KiB
SQL
1055 lines
43 KiB
SQL
--
|
||
-- $Id$
|
||
--
|
||
-- Script containing customer specific sql statements for the FACILITOR database
|
||
|
||
DEFINE thisfile = 'bcgv.sql'
|
||
DEFINE dbuser = 'bcgv'
|
||
|
||
SET ECHO ON
|
||
SET DEFINE ON
|
||
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
|
||
COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
|
||
WHENEVER SQLERROR CONTINUE;
|
||
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
|
||
SPOOL &fcltlogfile
|
||
WHENEVER SQLERROR EXIT;
|
||
SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL;
|
||
WHENEVER SQLERROR CONTINUE;
|
||
---------------------------------------
|
||
PROMPT &fcltcusttxt
|
||
---------------------------------------
|
||
SET DEFINE OFF
|
||
|
||
------ payload begin ------
|
||
|
||
CREATE OR REPLACE PACKAGE BCGV
|
||
AS
|
||
PROCEDURE add_xml_row_p (p_bestand IN VARCHAR2,
|
||
p_prefix IN VARCHAR2,
|
||
p_regel IN VARCHAR2);
|
||
|
||
PROCEDURE add_xml_element_p (p_bestand IN VARCHAR2,
|
||
p_prefix IN VARCHAR2,
|
||
p_tag IN VARCHAR2,
|
||
p_value IN VARCHAR2);
|
||
END;
|
||
/
|
||
|
||
|
||
CREATE OR REPLACE PACKAGE BODY BCGV
|
||
AS
|
||
PROCEDURE add_xml_row_p (p_bestand IN VARCHAR2,
|
||
p_prefix IN VARCHAR2,
|
||
p_regel IN VARCHAR2)
|
||
AS
|
||
v_index NUMBER;
|
||
BEGIN
|
||
SELECT COALESCE( MAX(fac_rapport_volgnr), 0) + 1
|
||
INTO v_index
|
||
FROM fac_rapport
|
||
WHERE fac_rapport_node = p_bestand;
|
||
|
||
INSERT INTO fac_rapport (
|
||
fac_rapport_node,
|
||
fac_rapport_volgnr,
|
||
fac_rapport_regel)
|
||
VALUES (p_bestand,
|
||
v_index,
|
||
p_prefix || p_regel);
|
||
END;
|
||
|
||
PROCEDURE add_xml_element_p (p_bestand IN VARCHAR2,
|
||
p_prefix IN VARCHAR2,
|
||
p_tag IN VARCHAR2,
|
||
p_value IN VARCHAR2)
|
||
AS
|
||
BEGIN
|
||
bcgv.add_xml_row_p(p_bestand,
|
||
p_prefix,
|
||
'<' || p_tag || '>'
|
||
|| xml.char_to_html(p_value)
|
||
|| '</' || p_tag || '>');
|
||
END;
|
||
END;
|
||
/
|
||
|
||
|
||
-- Vastgoed contract views voor huuradministratie
|
||
CREATE OR REPLACE VIEW bcgv_v_sync_alg_ruimte
|
||
(
|
||
alg_ruimte_key,
|
||
alg_verdieping_key,
|
||
cadlabel
|
||
)
|
||
AS
|
||
SELECT rg.alg_ruimte_key,
|
||
rg.alg_verdieping_key,
|
||
DECODE (rg.alg_verdieping_volgnr, 0, REPLACE(alg_ruimte_nr, 'S'),
|
||
1, REPLACE(alg_ruimte_nr, 'BG'),
|
||
2, REPLACE(alg_ruimte_nr, 'ST'),
|
||
3, REPLACE(alg_ruimte_nr, 'ST'),
|
||
alg_ruimte_nr) cadlabel
|
||
FROM alg_v_ruimte_gegevens rg
|
||
WHERE alg_gebouw_upper = 'GV-RVA'
|
||
UNION ALL
|
||
SELECT rg.alg_ruimte_key,
|
||
rg.alg_verdieping_key,
|
||
rg.alg_ruimte_nr cadlabel
|
||
FROM alg_v_ruimte_gegevens rg
|
||
WHERE alg_gebouw_upper <> 'GV-RVA';
|
||
|
||
|
||
-- view om offertestatus in dashbord te tonen
|
||
-- functionaliteit overgenomen uit mld.inc
|
||
CREATE OR REPLACE VIEW bcgv_v_rap_offerte_status
|
||
AS
|
||
SELECT m.melder_key,
|
||
m.melder,
|
||
u.*,
|
||
g.prs_perslid_key_verantw opdracht_gebouw_verantw_key,
|
||
m.kostensoort kostensoort,
|
||
subproductgroepgroep,
|
||
DECODE (
|
||
COALESCE (na.aantal, 0),
|
||
1,
|
||
'Offerte geaccepteerd',
|
||
DECODE (COALESCE (nta.aantal, 0),
|
||
0, 'Niet opgelost',
|
||
'Offerte acceptatie'))
|
||
offerte_status,
|
||
(CASE
|
||
WHEN mo.mld_opdr_flag>0 THEN Lcl.L('lcl_opdr_flag' || mo.mld_opdr_flag)
|
||
ELSE ''
|
||
END) vlag,
|
||
(SELECT ok.waarde_n
|
||
FROM mld_v_udr_opdrachtkenmerk_cnd ok
|
||
WHERE ok.opdracht_key = u.opdracht_key AND ok.kenmerk = 'Offerte bedrag'
|
||
) Offertebedrag,-- Op naam 'Offerte bedrag' ipv Key ivm gebruik afwijkende keys in de diverse HeyDayomgevingen
|
||
(SELECT fac.safe_to_number(kw.mld_kenmerkmelding_waarde)
|
||
FROM mld_kenmerkmelding kw, mld_kenmerk km, mld_srtkenmerk sk
|
||
WHERE kw.mld_melding_key = m.melding_key AND kw.mld_kenmerk_key = km.mld_kenmerk_key
|
||
AND km.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
|
||
AND sk.mld_srtkenmerk_upper = 'PROJECT LEIDER'
|
||
AND sk.mld_srtkenmerk_kenmerktype = 'S') projectleider_key,
|
||
(SELECT p.prs_perslid_naam
|
||
FROM mld_kenmerkmelding kw, mld_kenmerk km, mld_srtkenmerk sk, prs_perslid p
|
||
WHERE kw.mld_melding_key = m.melding_key AND kw.mld_kenmerk_key = km.mld_kenmerk_key
|
||
AND km.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
|
||
AND sk.mld_srtkenmerk_upper = 'PROJECT LEIDER'
|
||
AND sk.mld_srtkenmerk_kenmerktype = 'S'
|
||
AND fac.safe_to_number (kw.mld_kenmerkmelding_waarde) = p.prs_perslid_key) projectleider
|
||
FROM mld_v_udr_opdracht u,
|
||
mld_opdr mo,
|
||
alg_gebouw g,
|
||
mld_v_udr_melding m,
|
||
ins_tab_discipline d,
|
||
( SELECT o.mld_melding_key, COUNT (o.mld_statusopdr_key) aantal
|
||
FROM mld_opdr o
|
||
WHERE o.mld_statusopdr_key = 6
|
||
AND o.mld_opdr_bedrijfopdr_volgnr >
|
||
COALESCE (
|
||
(SELECT MAX (o1.mld_opdr_bedrijfopdr_volgnr)
|
||
FROM mld_opdr o1, mld_typeopdr mo1
|
||
WHERE o1.mld_typeopdr_key =
|
||
mo1.mld_typeopdr_key
|
||
AND mo1.mld_typeopdr_isofferte = 0
|
||
AND o1.mld_melding_key = o.mld_melding_key),
|
||
0)
|
||
GROUP BY o.mld_melding_key) nta,
|
||
( SELECT o.mld_melding_key, COUNT (o.mld_statusopdr_key) aantal
|
||
FROM mld_opdr o
|
||
WHERE o.mld_statusopdr_key = 9
|
||
AND o.mld_opdr_bedrijfopdr_volgnr >
|
||
COALESCE (
|
||
(SELECT MAX (o1.mld_opdr_bedrijfopdr_volgnr)
|
||
FROM mld_opdr o1, mld_typeopdr mo1
|
||
WHERE o1.mld_typeopdr_key =
|
||
mo1.mld_typeopdr_key
|
||
AND mo1.mld_typeopdr_isofferte = 0
|
||
AND o1.mld_melding_key = o.mld_melding_key),
|
||
0)
|
||
GROUP BY o.mld_melding_key) na
|
||
WHERE u.opdracht_gebouwcode = g.alg_gebouw_code
|
||
AND u.melding_key = m.melding_key
|
||
AND u.opdracht_key = mo.mld_opdr_key
|
||
AND m.fclt_3d_discipline_key = d.ins_discipline_key
|
||
AND d.ins_discipline_verwijder IS NULL
|
||
AND u.melding_key = na.mld_melding_key(+)
|
||
AND u.melding_key = nta.mld_melding_key(+)
|
||
AND (u.opdracht_type = 'RFQ' OR u.opdracht_type = 'Project RFQ') ;
|
||
|
||
|
||
---------------------------------------------------------------------------------
|
||
--
|
||
-- Huuradministratie
|
||
--
|
||
---------------------------------------------------------------------------------
|
||
CREATE OR REPLACE VIEW bcgv_v_huurruimte_geg_bron
|
||
AS
|
||
SELECT alg_ruimte_bruto_vloeropp,
|
||
alg_gebouw_upper,
|
||
alg_verdieping_code,
|
||
alg_ruimte_nr,
|
||
alg_ruimte_key,
|
||
alg_verdieping_key,
|
||
COALESCE(cp.cnt_contract_plaats_gewicht, 1) * fac.safe_to_number(FLX.getflex('ALG', 1000, r.alg_ruimte_key, 'R')) fno_m2,
|
||
COALESCE(cp.cnt_contract_plaats_gewicht, 1) * fac.safe_to_number(FLX.getflex('ALG', 1000, r.alg_ruimte_key, 'R'))
|
||
* (1 + COALESCE(fac.safe_to_number(FLX.getflex('ALG', 1040, r.alg_verdieping_key, 'V')),0)/100)
|
||
* (1 + COALESCE(fac.safe_to_number(FLX.getflex('ALG', 1080, r.alg_gebouw_key, 'G')),0)/100) vvo_m2,
|
||
COALESCE(fac.safe_to_number(FLX.getflex('ALG', 1080, r.alg_gebouw_key, 'G')),0) v_sk_g,
|
||
COALESCE(fac.safe_to_number(FLX.getflex('ALG', 1040, r.alg_verdieping_key, 'V')),0) v_sk_v,
|
||
COALESCE(fac.safe_to_number(FLX.getflex('ALG', 1083, r.alg_gebouw_key, 'G')),0) t_sk,
|
||
COALESCE(fac.safe_to_number(FLX.getflex('ALG', 1085, r.alg_gebouw_key, 'G')),0) t_parkmgt,
|
||
COALESCE(fac.safe_to_number(FLX.getflex('ALG', 1086, r.alg_gebouw_key, 'G')),0) t_parkeer,
|
||
COALESCE(fac.safe_to_number(FLX.getflex('ALG', 1087, r.alg_gebouw_key, 'G')),0) t_ict,
|
||
COALESCE(fac.safe_to_number(FLX.getflex('ALG', 1001, r.alg_ruimte_key, 'R')),sr.alg_srtruimte_prijs) t_fno,
|
||
sr.alg_srtruimte_code,
|
||
sr.alg_srtruimte_omschrijving,
|
||
c.cnt_contract_looptijd_van,
|
||
c.cnt_contract_looptijd_tot,
|
||
cp.cnt_contract_key,
|
||
c.cnt_prs_bedrijf_key,
|
||
COALESCE(FAC.safe_to_number(o.optie), 0) optie
|
||
FROM cnt_contract c,
|
||
cnt_contract_plaats cp,
|
||
alg_v_ruimte_gegevens r,
|
||
alg_srtruimte sr,
|
||
(SELECT cnt_contract_key, cnt_kenmerkcontract_waarde optie
|
||
FROM cnt_kenmerkcontract kc
|
||
WHERE cnt_kenmerk_key = 37
|
||
AND cnt_kenmerkcontract_verwijder IS NULL) o
|
||
WHERE cp.cnt_contract_key = c.cnt_contract_key
|
||
AND cp.CNT_ALG_PLAATS_CODE = 'R'
|
||
AND cp.cnt_contract_plaats_verwijder IS NULL
|
||
AND cp.cnt_alg_plaats_key = r.alg_ruimte_key
|
||
AND r.alg_srtruimte_key = sr.alg_srtruimte_key
|
||
AND c.cnt_contract_key = o.cnt_contract_key(+);
|
||
|
||
|
||
CREATE OR REPLACE VIEW bcgv_v_rap_verhuur_geg
|
||
AS
|
||
SELECT b.cnt_contract_key,
|
||
COALESCE (h.prs_bedrijf_naam,
|
||
CASE
|
||
WHEN cnt_contract_looptijd_van > SYSDATE THEN 'Toekomst'
|
||
WHEN b.optie = 1 THEN 'Optie'
|
||
ELSE 'Leegstand'
|
||
END) prs_bedrijf_naam,
|
||
b.alg_srtruimte_code code,
|
||
rg.alg_srtruimte_omschrijving omschrijving,
|
||
rg.alg_gebouw_upper,
|
||
rg.alg_verdieping_code,
|
||
rg.alg_ruimte_nr,
|
||
rg.alg_ruimte_bruto_vloeropp,
|
||
COALESCE(fno_m2, fac.safe_to_number(FLX.getflex('ALG', 1000, rg.alg_ruimte_key, 'R'))) fno_m2,
|
||
t_fno,
|
||
fno_m2 * t_fno b_fno,
|
||
vvo_m2 - fno_m2 vvo_m2,
|
||
t_sk,
|
||
vvo_m2 * t_sk b_sk,
|
||
t_parkeer,
|
||
vvo_m2 * t_parkeer b_parkeer,
|
||
t_parkmgt,
|
||
vvo_m2 * t_parkmgt b_parkmgt,
|
||
t_ict,
|
||
vvo_m2 * t_ict b_ict,
|
||
(fno_m2 * t_fno) +
|
||
(vvo_m2 * t_sk) +
|
||
(fno_m2 * t_parkeer) +
|
||
(fno_m2 * t_ict) +
|
||
(vvo_m2 * t_parkmgt) tot,
|
||
cnt_contract_looptijd_van,
|
||
cnt_contract_looptijd_tot,
|
||
'Verhuurd' status
|
||
FROM alg_v_ruimte_gegevens rg,
|
||
(SELECT * FROM bcgv_v_huurruimte_geg_bron WHERE cnt_contract_looptijd_tot > SYSDATE) b,
|
||
prs_bedrijf h
|
||
WHERE rg.alg_ruimte_key = b.alg_ruimte_key(+)
|
||
AND h.prs_bedrijf_key(+) = b.cnt_prs_bedrijf_key
|
||
AND rg.alg_locatie_key = 1 -- Venlo
|
||
AND rg.alg_verdieping_volgnr < 20;
|
||
|
||
-- rapportage voor het contracten tabblad in Graphics
|
||
CREATE OR REPLACE VIEW bcgv_v_rap_cnt_graphics
|
||
AS
|
||
SELECT b.alg_ruimte_nr,
|
||
vvo_m2,
|
||
cnt_contract_key,
|
||
h.prs_bedrijf_naam huurder,
|
||
cnt_contract_looptijd_van,
|
||
cnt_contract_looptijd_tot,
|
||
b.alg_ruimte_key highlight,
|
||
b.alg_verdieping_key vkey
|
||
FROM bcgv_v_huurruimte_geg_bron b, prs_bedrijf h
|
||
WHERE h.prs_bedrijf_key = b.cnt_prs_bedrijf_key
|
||
AND SYSDATE BETWEEN cnt_contract_looptijd_van AND cnt_contract_looptijd_tot;
|
||
|
||
CREATE OR REPLACE VIEW bcgv_v_cad_thema_leegstand
|
||
(
|
||
alg_ruimte_key,
|
||
waarde
|
||
)
|
||
AS
|
||
SELECT rg.alg_ruimte_key,
|
||
DECODE (
|
||
COALESCE (prs_verhuurbaar, 0),
|
||
0, 'Niet verhuurbaar',
|
||
CASE
|
||
WHEN -- Heb ik op dit moment een geldig huurcontract
|
||
(SELECT COUNT (*)
|
||
FROM bcgv_v_huurruimte_geg_bron b
|
||
WHERE optie = 0
|
||
AND b.alg_ruimte_key = rg.alg_ruimte_key
|
||
AND SYSDATE BETWEEN cnt_contract_looptijd_van
|
||
AND cnt_contract_looptijd_tot) >
|
||
0
|
||
THEN
|
||
'Verhuurd'
|
||
-- Heb ik op in de toekomst een geldig huurcontract
|
||
WHEN (SELECT COUNT (*)
|
||
FROM bcgv_v_huurruimte_geg_bron b
|
||
WHERE optie = 0
|
||
AND b.alg_ruimte_key = rg.alg_ruimte_key
|
||
AND cnt_contract_looptijd_van > SYSDATE) >
|
||
0
|
||
THEN
|
||
'Toekomst'
|
||
-- Heb ik nu of in de toekomst een optie
|
||
WHEN (SELECT COUNT (*)
|
||
FROM bcgv_v_huurruimte_geg_bron b
|
||
WHERE optie = 1
|
||
AND b.alg_ruimte_key = rg.alg_ruimte_key
|
||
AND cnt_contract_looptijd_tot > SYSDATE) >
|
||
0
|
||
THEN
|
||
'Optie'
|
||
ELSE
|
||
'Leegstand'
|
||
END) status
|
||
FROM alg_v_ruimte_gegevens rg, alg_srtruimte sr
|
||
WHERE rg.alg_srtruimte_key = sr.alg_srtruimte_key
|
||
AND alg_locatie_key = 1;
|
||
|
||
|
||
-- Exact koppeling
|
||
-- eerste opzet voor de view om Exact data voor verhuurcontracten in de verkoopfactuur tabel te laden
|
||
-- factuurnummers, komen deze uit Facilitor?
|
||
-- Alle huidige en toekomstige contracten worden getoond. Bij het vullen van de verkoopfactuur tabel worden
|
||
-- de toekomstige contracten niet meegenomen.
|
||
CREATE OR REPLACE VIEW bcgv_v_export_exact_gv_bron
|
||
AS
|
||
SELECT c.cnt_contract_key,
|
||
b.prs_bedrijf_key,
|
||
b.prs_bedrijf_naam,
|
||
c.cnt_contract_omschrijving,
|
||
b.prs_leverancier_nr,
|
||
fin_btwtabelwaarde_code,
|
||
fin_btwtabelwaarde_perc,
|
||
item,
|
||
bedrag,
|
||
code_exact,
|
||
oms_exact,
|
||
FLX.getflex('CNT', 36, c.cnt_contract_key) opmerking,
|
||
-- voor studentenhuisvesting kennen we andere kostenplaatsen voor huur en servicekosten
|
||
DECODE (cg.kostenplaats,
|
||
'huur', DECODE (FLX.getflex('CNT', 40, c.cnt_contract_key), 1, 414, hs.huur),
|
||
'srvk', DECODE (FLX.getflex('CNT', 40, c.cnt_contract_key), 1, 511, hs.srvk),
|
||
cg.kostenplaats) kostenplaats,
|
||
volgorde,
|
||
c.cnt_contract_looptijd_van,
|
||
c.cnt_contract_looptijd_tot,
|
||
CNT.cnt_getOpzegdatum(c.cnt_contract_key) opzegdatum,
|
||
(SELECT cnt_termijn_omschrijving
|
||
FROM cnt_termijn t
|
||
WHERE t.cnt_termijn_key = cnt_contract_opzegtermijn) opzegtermijn,
|
||
v.fno_m2,
|
||
(v.fno_m2 + v.vvo_m2) vvo_m2
|
||
FROM (SELECT cnt_contract_key,
|
||
'3'
|
||
fin_btwtabelwaarde_code,
|
||
21
|
||
fin_btwtabelwaarde_perc,
|
||
FLX.getflex('CNT', 33, cnt_contract_key)
|
||
item,
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 17, cnt_contract_key))
|
||
bedrag,
|
||
'10'
|
||
code_exact,
|
||
'Bijdrage Dienstverlening'
|
||
oms_exact,
|
||
COALESCE(FLX.getflex('CNT', 26, cnt_contract_key), '525')
|
||
kostenplaats,
|
||
50 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'3'
|
||
fin_btwtabelwaarde_code,
|
||
21
|
||
fin_btwtabelwaarde_perc,
|
||
FLX.getflex('CNT', 34, cnt_contract_key),
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 18, cnt_contract_key)),
|
||
'10',
|
||
'Bijdrage Dienstverlening',
|
||
COALESCE(FLX.getflex('CNT', 27, cnt_contract_key), '525')
|
||
kostenplaats,
|
||
50 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'3'
|
||
fin_btwtabelwaarde_code,
|
||
21
|
||
fin_btwtabelwaarde_perc,
|
||
FLX.getflex('CNT', 35, cnt_contract_key),
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 19, cnt_contract_key)),
|
||
'10',
|
||
'Bijdrage Dienstverlening',
|
||
COALESCE(FLX.getflex('CNT', 28, cnt_contract_key), '525')
|
||
kostenplaats,
|
||
50 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'3'
|
||
fin_btwtabelwaarde_code,
|
||
21
|
||
fin_btwtabelwaarde_perc,
|
||
'Huur terrein bedrag',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 16, cnt_contract_key)),
|
||
'60',
|
||
'Huur terrein',
|
||
'411'
|
||
kostenplaats,
|
||
10 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'3'
|
||
fin_btwtabelwaarde_code,
|
||
21
|
||
fin_btwtabelwaarde_perc,
|
||
'Huur korting',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 21, cnt_contract_key)),
|
||
'110',
|
||
'Huurkorting',
|
||
'huur'
|
||
kostenplaats,
|
||
51 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'3'
|
||
fin_btwtabelwaarde_code,
|
||
21
|
||
fin_btwtabelwaarde_perc,
|
||
'VVO Huurbedrag',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 7, cnt_contract_key)), -- VVO Huurbedrag
|
||
'30',
|
||
'Huur ruimte',
|
||
'huur'
|
||
kostenplaats,
|
||
10 volgorde
|
||
FROM cnt_contract k
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'0'
|
||
fin_btwtabelwaarde_code,
|
||
0
|
||
fin_btwtabelwaarde_perc,
|
||
'VVO Huurbedrag geen BTW',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 8, cnt_contract_key)), -- VVO Huurbedrag geen BTW
|
||
'30',
|
||
'Huur ruimte',
|
||
'huur'
|
||
kostenplaats,
|
||
10 volgorde
|
||
FROM cnt_contract k
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'3'
|
||
fin_btwtabelwaarde_code,
|
||
21
|
||
fin_btwtabelwaarde_perc,
|
||
'Campusparkeren bedrag',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 14, cnt_contract_key)), -- Campusparkeren bedrag
|
||
'35',
|
||
'Bijdrage Campusparkeren',
|
||
'522'
|
||
kostenplaats,
|
||
60 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'0'
|
||
fin_btwtabelwaarde_code,
|
||
0
|
||
fin_btwtabelwaarde_perc,
|
||
'Borg',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 41, cnt_contract_key)), -- Waarborgsom
|
||
'70',
|
||
'Opbrengst waarborgsommen',
|
||
''
|
||
kostenplaats,
|
||
70 volgorde
|
||
FROM cnt_contract
|
||
WHERE FLX.getflex('CNT', 42, cnt_contract_key) IS NULL -- Waarborg is nog niet eerder ge<67>nd.
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'3'
|
||
fin_btwtabelwaarde_code,
|
||
21
|
||
fin_btwtabelwaarde_perc,
|
||
'Service kosten',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 9, cnt_contract_key)), -- Servkost bedrag
|
||
'40',
|
||
'Bijdrage Servicekosten',
|
||
'srvk'
|
||
kostenplaats,
|
||
20 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'3'
|
||
fin_btwtabelwaarde_code,
|
||
21
|
||
fin_btwtabelwaarde_perc,
|
||
'ServKost extra bedrag BTW hoog',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 11, cnt_contract_key)), -- ServKost extra bedrag BTW hoog
|
||
'40',
|
||
'Bijdrage Servicekosten',
|
||
'srvk'
|
||
kostenplaats,
|
||
21 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'0'
|
||
fin_btwtabelwaarde_code,
|
||
0
|
||
fin_btwtabelwaarde_perc,
|
||
'ServKost bedrag geen BTW',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 10, cnt_contract_key)), -- ServKost bedrag geen BTW
|
||
'40',
|
||
'Bijdrage Servicekosten',
|
||
'srvk'
|
||
kostenplaats,
|
||
21 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'4'
|
||
fin_btwtabelwaarde_code,
|
||
9
|
||
fin_btwtabelwaarde_perc,
|
||
'ServKost extra bedrag BTW laag',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 12, cnt_contract_key)), -- ServKost extra bedrag BTW laag
|
||
'40',
|
||
'Bijdrage Servicekosten',
|
||
'srvk'
|
||
kostenplaats,
|
||
21 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'4'
|
||
fin_btwtabelwaarde_code,
|
||
9
|
||
fin_btwtabelwaarde_perc,
|
||
'Dienstverlening Water',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 20, cnt_contract_key)), -- Dienstverlening Water
|
||
'10',
|
||
'Bijdrage Dienstverlening',
|
||
'525'
|
||
kostenplaats,
|
||
50 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'3'
|
||
fin_btwtabelwaarde_code,
|
||
21
|
||
fin_btwtabelwaarde_perc,
|
||
'Parkmgt',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 13, cnt_contract_key)), -- Parkmgt bedrag
|
||
'100',
|
||
'Bijdrage Parkmanagement',
|
||
'521'
|
||
kostenplaats,
|
||
30 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'3'
|
||
fin_btwtabelwaarde_code,
|
||
21
|
||
fin_btwtabelwaarde_perc,
|
||
'ICT',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 15, cnt_contract_key)), -- ICT bedrag
|
||
'120',
|
||
'Bijdrage ICT',
|
||
'535'
|
||
kostenplaats,
|
||
40 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'3'
|
||
fin_btwtabelwaarde_code,
|
||
21
|
||
fin_btwtabelwaarde_perc,
|
||
'Flexplek vaste plek bedrag',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 2, cnt_contract_key)), -- Flexplek vaste plek bedrag
|
||
'10',
|
||
'Huur ruimte',
|
||
'534'
|
||
kostenplaats,
|
||
10 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'3'
|
||
fin_btwtabelwaarde_code,
|
||
21
|
||
fin_btwtabelwaarde_perc,
|
||
'Flex ongelimiteerd',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 3, cnt_contract_key)), -- Flexplek ongelimiteerd bedrag
|
||
'10',
|
||
'Huur ruimte',
|
||
'534'
|
||
kostenplaats,
|
||
10 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'3'
|
||
fin_btwtabelwaarde_code,
|
||
21
|
||
fin_btwtabelwaarde_perc,
|
||
'Flex 12 dagen',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 4, cnt_contract_key)), -- Flexplek 12 dagen per maand bedrag
|
||
'10',
|
||
'Huur ruimte',
|
||
'534'
|
||
kostenplaats,
|
||
10 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'3'
|
||
fin_btwtabelwaarde_code,
|
||
21
|
||
fin_btwtabelwaarde_perc,
|
||
'Flex 5 dagen',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 5, cnt_contract_key)), -- Flexplek 5 dagen per maand bedrag
|
||
'10',
|
||
'Huur ruimte',
|
||
'534'
|
||
kostenplaats,
|
||
10 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'3'
|
||
fin_btwtabelwaarde_code,
|
||
21
|
||
fin_btwtabelwaarde_perc,
|
||
'Flex locker',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 6, cnt_contract_key)), -- Flexplek locker
|
||
'10',
|
||
'Huur ruimte',
|
||
'534'
|
||
kostenplaats,
|
||
11 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'0'
|
||
fin_btwtabelwaarde_code,
|
||
0
|
||
fin_btwtabelwaarde_perc,
|
||
'Opslag BTW herziening',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 22, cnt_contract_key)), -- Opslag BTW herziening
|
||
'30',
|
||
'Huur ruimte',
|
||
'huur'
|
||
kostenplaats,
|
||
90 volgorde
|
||
FROM cnt_contract
|
||
UNION ALL
|
||
SELECT cnt_contract_key,
|
||
'0'
|
||
fin_btwtabelwaarde_code,
|
||
0
|
||
fin_btwtabelwaarde_perc,
|
||
'Opslag BTW pro rata',
|
||
FAC.safe_to_number (
|
||
FLX.getflex('CNT', 23, cnt_contract_key)), -- Opslag BTW pro rata
|
||
'30',
|
||
'Huur ruimte',
|
||
'huur'
|
||
kostenplaats,
|
||
90 volgorde
|
||
FROM cnt_contract
|
||
GROUP BY cnt_contract_key) cg,
|
||
cnt_contract c,
|
||
prs_bedrijf b,
|
||
(SELECT cnt_contract_key,
|
||
FLX.getflex ('ALG', 1060, alg_gebouw_key, 'G') huur,
|
||
FLX.getflex ('ALG', 1061, alg_gebouw_key, 'G') srvk
|
||
FROM (SELECT DISTINCT cnt_contract_key, alg_gebouw_key
|
||
FROM cnt_contract_plaats cp, alg_v_allonroerendgoed aog
|
||
WHERE ( ( cp.cnt_alg_plaats_code = 'R'
|
||
AND cp.cnt_alg_plaats_key =
|
||
aog.alg_ruimte_key)
|
||
OR ( cp.cnt_alg_plaats_code = 'V'
|
||
AND cp.cnt_alg_plaats_key =
|
||
aog.alg_verdieping_key)
|
||
OR ( cp.cnt_alg_plaats_code = 'G'
|
||
AND cp.cnt_alg_plaats_key =
|
||
aog.alg_gebouw_key)
|
||
OR ( cp.cnt_alg_plaats_code = 'L'
|
||
AND cp.cnt_alg_plaats_key =
|
||
aog.alg_locatie_key)))) hs,
|
||
(SELECT cnt_contract_key, sum(fno_m2) fno_m2, sum(vvo_m2) vvo_m2
|
||
FROM bcgv_v_rap_verhuur_geg
|
||
WHERE cnt_contract_key IS NOT NULL
|
||
GROUP BY cnt_contract_key) v
|
||
WHERE c.cnt_contract_key = cg.cnt_contract_key
|
||
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
|
||
AND c.cnt_contract_key = hs.cnt_contract_key(+)
|
||
AND c.cnt_contract_key = v.cnt_contract_key(+)
|
||
AND c.ins_discipline_key = 241 -- verhuurcontract
|
||
AND cg.bedrag IS NOT NULL
|
||
AND c.cnt_contract_verwijder IS NULL
|
||
AND c.cnt_contract_looptijd_tot >
|
||
ADD_MONTHS (TRUNC (SYSDATE, 'MM'), 1)
|
||
AND c.cnt_contract_key NOT IN
|
||
(SELECT cnt_contract_key
|
||
FROM cnt_kenmerkcontract kc
|
||
WHERE cnt_kenmerk_key = 37 -- optie
|
||
AND cnt_kenmerkcontract_verwijder IS NULL
|
||
AND cnt_kenmerkcontract_waarde = '1');
|
||
|
||
|
||
CREATE OR REPLACE VIEW bcgv_v_export_exact_gv (
|
||
result,
|
||
result_order
|
||
)
|
||
AS
|
||
SELECT fac_rapport_regel, fac_rapport_volgnr
|
||
FROM fac_rapport
|
||
WHERE fac_rapport_node = 'bcgv_EXACT';
|
||
|
||
|
||
CREATE OR REPLACE PROCEDURE bcgv_select_exact_gv (p_applname IN VARCHAR2,
|
||
p_applrun IN VARCHAR2
|
||
)
|
||
AS
|
||
CURSOR c
|
||
IS
|
||
SELECT fin_verkoopfactuur_refkey, prs_debiteur_naam, fin_verkoopfactuur_omschr, fin_verkoopfactuur_datum, fin_verkoopfactuur_c8
|
||
FROM fin_verkoopfactuur
|
||
WHERE fin_verkoopfactuur_c4 = 'HuurGreenportVenlo'
|
||
AND fin_verkoopfactuur_d1 IS NULL
|
||
GROUP BY fin_verkoopfactuur_refkey, prs_debiteur_naam, fin_verkoopfactuur_omschr, fin_verkoopfactuur_datum, fin_verkoopfactuur_c8;
|
||
|
||
CURSOR c_cnt (c_contract_key NUMBER)
|
||
IS
|
||
SELECT *
|
||
FROM fin_verkoopfactuur
|
||
WHERE fin_verkoopfactuur_c4 = 'HuurGreenportVenlo'
|
||
AND fin_verkoopfactuur_d1 IS NULL
|
||
AND fin_verkoopfactuur_refkey = c_contract_key
|
||
ORDER BY fin_verkoopfactuur_n1;
|
||
|
||
|
||
v_order_count NUMBER;
|
||
v_amount_sum NUMBER(10,2);
|
||
v_amount_sum_incl NUMBER(10,2);
|
||
v_count NUMBER;
|
||
v_sub_count NUMBER;
|
||
v_bestand VARCHAR2(12);
|
||
v_boekstuknummer NUMBER;
|
||
v_crdnr PRS_BEDRIJF.PRS_LEVERANCIER_NR%TYPE;
|
||
v_factuur_nr FIN_FACTUUR.FIN_FACTUUR_NR%TYPE;
|
||
v_prefix VARCHAR2(10);
|
||
|
||
BEGIN
|
||
|
||
v_order_count := 0;
|
||
v_amount_sum := 0;
|
||
v_amount_sum_incl := 0;
|
||
v_bestand := 'bcgv_EXACT';
|
||
v_crdnr := 'Q';
|
||
v_factuur_nr := 'Q';
|
||
|
||
-- Eerst opruiming
|
||
DELETE FROM imp_log
|
||
WHERE imp_log_applicatie = p_applname;
|
||
|
||
DELETE fac_rapport
|
||
WHERE fac_rapport_node = v_bestand;
|
||
|
||
-- verwijder niet verwerkte regels uit de verkoopfactuur tabel
|
||
DELETE fin_verkoopfactuur
|
||
WHERE fin_verkoopfactuur_c4 = 'HuurGreenportVenlo'
|
||
AND fin_verkoopfactuur_d1 IS NULL;
|
||
|
||
-- Vul de verkoopfactuurtabel met de nieuwe records
|
||
INSERT INTO fin_verkoopfactuur (fin_verkoopfactuur_id,
|
||
fin_verkoopfactuur_datum,
|
||
fin_verkoopfactuur_omschr,
|
||
fin_verkoopfactuur_xmlnode,
|
||
fin_verkoopfactuur_refkey,
|
||
prs_kostenplaats_nr,
|
||
prs_kostensoort_oms,
|
||
prs_kostensoort_opmerking,
|
||
prs_bedrijf_key,
|
||
prs_debiteur_naam,
|
||
fin_verkoopfactuur_bedrag,
|
||
fin_verkoopfactuur_btw,
|
||
fin_btwtabelwaarde_code,
|
||
fin_btwtabelwaarde_perc,
|
||
fin_verkoopfactuur_maand,
|
||
fin_verkoopfactuur_n1,
|
||
fin_verkoopfactuur_c1,
|
||
fin_verkoopfactuur_c2,
|
||
fin_verkoopfactuur_c4,
|
||
fin_verkoopfactuur_c6, -- vullen met FNO_M2
|
||
fin_verkoopfactuur_c7, -- vullen met VVO_M2
|
||
fin_verkoopfactuur_c8) -- vullen met Opmerking
|
||
SELECT TO_CHAR (SYSDATE, 'dd-mm-yyyy') || ' C' || cnt_contract_key,
|
||
SYSDATE,
|
||
'Facturatie Huur en Servicekosten '
|
||
|| TO_CHAR (ADD_MONTHS (SYSDATE, 1), 'Mon yyyy'),
|
||
'contract',
|
||
cnt_contract_key,
|
||
kostenplaats,
|
||
oms_exact,
|
||
code_exact,
|
||
prs_bedrijf_key,
|
||
prs_leverancier_nr,
|
||
bedrag,
|
||
ROUND (bedrag * (fin_btwtabelwaarde_perc / 100), 2),
|
||
fin_btwtabelwaarde_code,
|
||
fin_btwtabelwaarde_perc,
|
||
TO_CHAR (ADD_MONTHS (SYSDATE, 1), 'yyyymm'),
|
||
volgorde,
|
||
cnt_contract_omschrijving,
|
||
item,
|
||
'HuurGreenportVenlo',
|
||
fno_m2,
|
||
vvo_m2,
|
||
opmerking
|
||
FROM bcgv_v_export_exact_gv_bron
|
||
WHERE cnt_contract_looptijd_van <= ADD_MONTHS (TRUNC (SYSDATE, 'MM'), 1);
|
||
|
||
|
||
-- Bepaal het boekstuknummer (key 3) met het hoogste nummer van dit jaar
|
||
-- ## AAIT#36589
|
||
|
||
SELECT MAX(fin_kenmerkfactuur_waarde)
|
||
INTO v_boekstuknummer
|
||
FROM fin_kenmerkfactuur
|
||
WHERE fin_kenmerk_key = 3
|
||
AND SUBSTR(fin_kenmerkfactuur_waarde,1,2) = TO_CHAR(SYSDATE, 'YY');
|
||
|
||
|
||
v_order_count := 0;
|
||
v_amount_sum := 0;
|
||
v_amount_sum_incl := 0;
|
||
v_prefix := NULL;
|
||
|
||
-- header
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '<?xml version="1.0" encoding="windows-1252"?>');
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '<eExact>');
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '<Invoices>');
|
||
|
||
FOR rec IN c
|
||
LOOP
|
||
BEGIN
|
||
-- Als we een nieuw contract tegenkomen gaan we het factuurnummer ophogen.
|
||
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '<Invoice type="8020" status="50">');
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '<Journal code="40"/>');
|
||
bcgv.add_xml_element_p (v_bestand, v_prefix, 'OrderDate', rec.fin_verkoopfactuur_datum);
|
||
bcgv.add_xml_element_p (v_bestand, v_prefix, 'InvoiceDate', TO_CHAR(SYSDATE, 'YYYY-MM-DD') );
|
||
bcgv.add_xml_element_p (v_bestand, v_prefix, 'Description', xml.char_to_html(rec.fin_verkoopfactuur_omschr));
|
||
bcgv.add_xml_element_p (v_bestand, v_prefix, 'Notes', xml.char_to_html(rec.fin_verkoopfactuur_c8));
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '<OrderedBy code="' || rec.prs_debiteur_naam || '"/>');
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '<InvoiceTo code="' || rec.prs_debiteur_naam || '"/>');
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '<PaymentCondition code="02"/>');
|
||
|
||
v_sub_count := 1;
|
||
FOR rec1 IN c_cnt (rec.fin_verkoopfactuur_refkey)
|
||
LOOP
|
||
BEGIN
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '<InvoiceLine line="' || v_sub_count || '">');
|
||
bcgv.add_xml_element_p (v_bestand, v_prefix, 'Description', xml.char_to_html(rec1.prs_kostensoort_oms));
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '<Item code="' || rec1.prs_kostensoort_opmerking || '"/>');
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '<Costcenter code="' || rec1.prs_kostenplaats_nr || '"/>');
|
||
IF rec1.fin_verkoopfactuur_bedrag < 0
|
||
THEN
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '<Quantity>-1</Quantity>');
|
||
ELSE
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '<Quantity>1</Quantity>');
|
||
END IF;
|
||
-- bcgv#70153 bcgv.add_xml_row_p (v_bestand, v_prefix, '<Unit code="pc"/>');
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '<NetPrice>');
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '<Currency code="EUR" />');
|
||
bcgv.add_xml_element_p (v_bestand, v_prefix, 'Value', REPLACE (TO_CHAR (ABS(rec1.fin_verkoopfactuur_bedrag)), ',', '.'));
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '<VAT code="' || rec1.fin_btwtabelwaarde_code || '"/>');
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '</NetPrice>');
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '</InvoiceLine>');
|
||
v_sub_count := v_sub_count + 1;
|
||
v_amount_sum := v_amount_sum + rec1.fin_verkoopfactuur_bedrag;
|
||
END;
|
||
END LOOP;
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '</Invoice>');
|
||
v_order_count := v_order_count + 1;
|
||
END;
|
||
END LOOP;
|
||
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '</Invoices>');
|
||
bcgv.add_xml_row_p (v_bestand, v_prefix, '</eExact>');
|
||
|
||
fac.writelog (p_applname, 'S', 'Exact export Greenport huurfacturen uitgevoerd. Aantal facturen: ' || v_order_count || ' Totaal bedrag: ' || v_amount_sum, '');
|
||
|
||
END;
|
||
/
|
||
|
||
CREATE OR REPLACE VIEW bcgv_v_export_exact_gv_frozen
|
||
AS
|
||
SELECT fin_verkoopfactuur_refkey cnt_contract_key,
|
||
b.prs_bedrijf_key ,
|
||
b.prs_bedrijf_naam,
|
||
fin_verkoopfactuur_c1 cnt_contract_omschrijving,
|
||
prs_debiteur_naam prs_leverancier_nr,
|
||
fin_btwtabelwaarde_code,
|
||
fin_btwtabelwaarde_perc,
|
||
fin_verkoopfactuur_c2 item,
|
||
fin_verkoopfactuur_bedrag bedrag,
|
||
prs_kostensoort_opmerking,
|
||
prs_kostensoort_oms code_exact,
|
||
prs_kostenplaats_nr oms_exact,
|
||
fin_verkoopfactuur_maand boekmaand,
|
||
fin_verkoopfactuur_datum factuurdatum,
|
||
fin_verkoopfactuur_c6 fno_m2,
|
||
fin_verkoopfactuur_c7 vvo_m2
|
||
FROM fin_verkoopfactuur vf, prs_bedrijf b
|
||
WHERE vf.prs_bedrijf_key = b.prs_bedrijf_key
|
||
AND fin_verkoopfactuur_c4 = 'HuurGreenportVenlo'
|
||
AND fin_verkoopfactuur_d1 IS NOT NULL;
|
||
|
||
|
||
CREATE OR REPLACE VIEW bcgv_v_export_verwerk_exact_gv (
|
||
result,
|
||
result_order
|
||
)
|
||
AS
|
||
SELECT 'cnt_contract_key;' ||
|
||
'prs_bedrijf_key;' ||
|
||
'prs_bedrijf_naam;' ||
|
||
'cnt_contract_omschrijving;' ||
|
||
'prs_leverancier_nr;' ||
|
||
'fin_btwtabelwaarde_code;' ||
|
||
'fin_btwtabelwaarde_perc;' ||
|
||
'item;' ||
|
||
'bedrag;' ||
|
||
'prs_kostensoort_opmerking;' ||
|
||
'code_exact;' ||
|
||
'oms_exact;' ||
|
||
'boekmaand', -1
|
||
FROM DUAL
|
||
UNION ALL
|
||
SELECT fin_verkoopfactuur_refkey || ';' ||
|
||
b.prs_bedrijf_key || ';' ||
|
||
b.prs_bedrijf_naam || ';' ||
|
||
fin_verkoopfactuur_c1 || ';' ||
|
||
prs_debiteur_naam || ';' ||
|
||
fin_btwtabelwaarde_code || ';' ||
|
||
fin_btwtabelwaarde_perc || ';' ||
|
||
fin_verkoopfactuur_c2 || ';' ||
|
||
fin_verkoopfactuur_bedrag || ';' ||
|
||
prs_kostensoort_opmerking || ';' ||
|
||
prs_kostensoort_oms || ';' ||
|
||
prs_kostenplaats_nr || ';' ||
|
||
fin_verkoopfactuur_maand, fin_verkoopfactuur_key
|
||
FROM fin_verkoopfactuur vf, prs_bedrijf b
|
||
WHERE vf.prs_bedrijf_key = b.prs_bedrijf_key
|
||
AND fin_verkoopfactuur_c4 = 'HuurGreenportVenlo'
|
||
AND fin_verkoopfactuur_d1 > SYSDATE - 0.1;
|
||
|
||
|
||
CREATE OR REPLACE PROCEDURE bcgv_select_verwerk_exact_gv (p_applname IN VARCHAR2,
|
||
p_applrun IN VARCHAR2
|
||
)
|
||
AS
|
||
|
||
CURSOR c
|
||
IS
|
||
SELECT c.cnt_contract_key, 445 cnt_kenmerk_key -- Waarborgsom geint op datum
|
||
FROM cnt_contract c
|
||
WHERE EXISTS
|
||
(SELECT cnt_kenmerkcontract_key
|
||
FROM cnt_kenmerkcontract kc
|
||
WHERE kc.cnt_contract_key = c.cnt_contract_key
|
||
AND kc.cnt_kenmerk_key = 444) -- Waarborgsom
|
||
AND NOT EXISTS
|
||
(SELECT cnt_kenmerkcontract_key
|
||
FROM cnt_kenmerkcontract kc
|
||
WHERE kc.cnt_contract_key = c.cnt_contract_key
|
||
AND kc.cnt_kenmerk_key = 445);
|
||
|
||
BEGIN
|
||
FOR rec IN c
|
||
LOOP
|
||
INSERT INTO cnt_kenmerkcontract (cnt_contract_key, cnt_kenmerk_key, cnt_kenmerkcontract_waarde)
|
||
VALUES (rec.cnt_contract_key, rec.cnt_kenmerk_key, TO_CHAR(SYSDATE, 'DD-MM-YYYY'));
|
||
END LOOP;
|
||
|
||
UPDATE fin_verkoopfactuur
|
||
SET fin_verkoopfactuur_d1 = SYSDATE
|
||
WHERE fin_verkoopfactuur_c4 = 'HuurGreenportVenlo'
|
||
AND fin_verkoopfactuur_d1 IS NULL;
|
||
END;
|
||
/
|
||
|
||
|
||
|
||
------ payload end ------
|
||
|
||
SET DEFINE OFF
|
||
BEGIN adm.systrackscriptId ('$Id$', 0); END;
|
||
/
|
||
|
||
COMMIT;
|
||
SET ECHO OFF
|
||
SPOOL OFF
|
||
SET DEFINE ON
|
||
PROMPT Logfile of this upgrade is: &fcltlogfile
|