diff --git a/BSSC/bssc.sql b/BSSC/bssc.sql index 7600cd051..e990296b4 100644 --- a/BSSC/bssc.sql +++ b/BSSC/bssc.sql @@ -15,7 +15,7 @@ SPOOL &fcltlogfile SET DEFINE OFF ------ payload begin ------ - +/* CREATE OR REPLACE PACKAGE BSSC IS PROCEDURE freezeevent (p_key IN NUMBER); @@ -63,19 +63,17 @@ IS oracle_err_mes VARCHAR2 (200); --v_status_bo_key NUMBER; BEGIN -/* - v_errormsg := 'Fout bepalen event'; + --v_errormsg := 'Fout bepalen event'; - SELECT res_status_bo_key - INTO v_status_bo_key - FROM res_v_aanwezigrsv_ruimte - WHERE res_rsv_ruimte_key = p_key; + --SELECT res_status_bo_key + -- INTO v_status_bo_key + -- FROM res_v_aanwezigrsv_ruimte + -- WHERE res_rsv_ruimte_key = p_key; - v_errormsg := 'Fout bijwerken status'; + --v_errormsg := 'Fout bijwerken status'; - IF v_status_bo_key = 5 -- Afgemeld - THEN -*/ + --IF v_status_bo_key = 5 -- Afgemeld + --THEN FOR rec IN c3 LOOP BEGIN @@ -137,8 +135,7 @@ IS COMMIT; END freezeevent; END; -/ - +*/ CREATE OR REPLACE VIEW bssc_v_rap_import_log ( fclt_f_applicatie, @@ -804,7 +801,7 @@ AS AND p.prs_perslid_key = pf.prs_perslid_key; -- BSSC#55692: Facturatie verhuur (M2 en meer)! --- V Huur niet op basis van Terieftabel, maar kenmerk 861=Huurprijs (per jaar) +-- V Huur niet op basis van Tarieftabel, maar kenmerk 861=Huurprijs (per jaar) -- V Geen automatische facturatie op basis van kenmerk 862=Checkbox -- V Kenmerk 870=Start facturatie huur -- V Kenmerk 901=Duty manager @@ -816,9 +813,7 @@ AS FROM fin_verkoopfactuur) SELECT '*CONCEPT*' fin_verkoopfactuur_id, -- Huur! 'CHV' || TRIM (x.cnt_contract_nummer) po_nr, -- PO - --'CHV' || TRIM (x.cnt_contract_nummer) cnt_contract_nummer, -- PO '0000' || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities! - --'CHV - ' || TRIM (SUBSTR (tar.fac_usrdata_omschr, 1, INSTR (tar.fac_usrdata_omschr, ' ') - 1)) regel, -- Huur 'CHV - Huur' regel, -- Huur NULL aanvrager, -- !!! NULL regel_oms, -- !!! @@ -829,11 +824,6 @@ AS x.lv, x.prs_bedrijf_key, x.prs_bedrijf_naam prs_debiteur_naam, TRIM (x.prs_overeenkomst_nr) debiteur_nr, btwnr.prs_kenmerklink_waarde btw_nr, - --(SELECT MIN (TRIM (prs_contactpersoon_voorletters || ' ' || TRIM (prs_contactpersoon_tussenv || ' ' || prs_contactpersoon_naam))) - -- FROM prs_contactpersoon - -- WHERE prs_contactpersoon_verwijder IS NULL - -- AND prs_contactpersoon_titel = '*' -- Contactpersoon op facturen - -- AND prs_bedrijf_key = x.prs_bedrijf_key) NULL contactpersoon, x.adres, x.postcode, x.plaats, x.land, x.prs_kostenplaats_key, x.prs_kostenplaats_nr, x.prs_kostenplaats_omschrijving, x.prs_kostenplaatsgrp_oms, @@ -850,7 +840,6 @@ AS LAST_DAY (TO_DATE (x.maand, 'yyyymm')) - TO_DATE (x.maand, 'yyyymm') + 1 mndbes, -- Beschikbaar LEAST (TRUNC (x.lt), LAST_DAY (TO_DATE (x.maand, 'yyyymm'))) - GREATEST (TRUNC (x.lv), TO_DATE (x.maand, 'yyyymm')) + 1 mndbez, -- Bezet rxo.alg_ruimte_opp_alt1 aantal, -- VVO - --tar.fac_usrdata_prijs tarief, -- Jaartarief per m2 fac.safe_to_number (tarief.cnt_kenmerkcontract_waarde) tarief, -- Jaartarief per m2 vvo_toeslag.fac_usrdata_prijs vvo_toeslag, -- VVO toeslagperc. verv_toeslag.fac_usrdata_prijs verv_toeslag, -- Vervangend toeslagperc. @@ -873,8 +862,6 @@ AS DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, DECODE (verv_toeslag.fac_usrdata_key, 1001, 0.21, 0)) * 1/12, 2) mndbtw, -- BTW maandbedrag - --TRIM (DECODE (biss_kc1.cnt_kenmerkcontract_waarde, '986', '8110', DECODE (biss_kc2.cnt_kenmerkcontract_waarde, '989', '8110', SUBSTR (tar.fac_usrdata_code, 1, INSTR (tar.fac_usrdata_code, '/') - 1)))) grtboekrek, - --DECODE (verv_toeslag.fac_usrdata_key, 1001, SUBSTR (tar.fac_usrdata_code, 1, INSTR (tar.fac_usrdata_code, '/') - 1), '8110') grtboekrek, DECODE (verv_toeslag.fac_usrdata_key, 1001, '8600', '8110') grtboekrek, TO_NUMBER (NULL) mld_melding_key, -- Correctiemelding-key NULL mld_melding_omschrijving @@ -883,9 +870,7 @@ AS c.cnt_contract_nummer_intern, c.cnt_contract_versie, c.cnt_contract_nummer, c.cnt_contract_looptijd_van lv, c.cnt_contract_looptijd_tot lt, - --c.cnt_contract_korting, b.prs_bedrijf_key, b.prs_bedrijf_naam, b.prs_overeenkomst_nr, - --0.21 btw, DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_postcode, b.prs_bedrijf_post_postcode) postcode, DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats) plaats, @@ -936,15 +921,6 @@ AS ON ccp.cnt_alg_plaats_key = pa.alg_onroerendgoed_keys LEFT JOIN alg_v_aanwezigruimte rxo ON ccp.cnt_alg_plaats_key = rxo.alg_ruimte_key - --LEFT JOIN cnt_kenmerkcontract tt_kc - -- ON x.cnt_contract_key = tt_kc.cnt_contract_key - -- AND tt_kc.cnt_kenmerkcontract_verwijder IS NULL - -- AND tt_kc.cnt_kenmerk_key = 401 -- Tarieftabel - --LEFT JOIN fac_v_aanwezigusrdata tt_ud - -- ON fac.safe_to_number (tt_kc.cnt_kenmerkcontract_waarde) = tt_ud.fac_usrdata_key - --LEFT JOIN fac_v_aanwezigusrdata tar - -- ON fac.safe_to_number (tt_ud.fac_usrdata_code) = tar.fac_usrtab_key - -- AND SUBSTR (tar.fac_usrdata_code, INSTR (tar.fac_usrdata_code, '/') + 1, 4) = 'Huur' -- Huur-tarief LEFT JOIN cnt_kenmerkcontract tarief ON x.cnt_contract_key = tarief.cnt_contract_key AND tarief.cnt_kenmerkcontract_verwijder IS NULL @@ -965,14 +941,6 @@ AS ON x.cnt_contract_key = korting_pm2.cnt_contract_key AND korting_pm2.cnt_kenmerkcontract_verwijder IS NULL AND korting_pm2.cnt_kenmerk_key = 404 -- Korting per m2 - --LEFT JOIN cnt_kenmerkcontract biss_kc1 - -- ON x.cnt_contract_key = biss_kc1.cnt_contract_key - -- AND biss_kc1.cnt_kenmerkcontract_verwijder IS NULL - -- AND biss_kc1.cnt_kenmerk_key = 645 -- Facilitaire kosten - --LEFT JOIN cnt_kenmerkcontract biss_kc2 - -- ON x.cnt_contract_key = biss_kc2.cnt_contract_key - -- AND biss_kc2.cnt_kenmerkcontract_verwijder IS NULL - -- AND biss_kc2.cnt_kenmerk_key = 647 -- Servicekosten LEFT JOIN cnt_kenmerkcontract start_fact ON x.cnt_contract_key = start_fact.cnt_contract_key AND start_fact.cnt_kenmerkcontract_verwijder IS NULL @@ -981,9 +949,7 @@ AS UNION ALL -- M2 correctie! SELECT '*CONCEPT*' fin_verkoopfactuur_id, -- Huur! 'CHV' || TRIM (x.cnt_contract_nummer) po_nr, -- PO - --'CHV' || TRIM (x.cnt_contract_nummer) cnt_contract_nummer, -- PO '0000' || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities! - --'CHV - ' || TRIM (SUBSTR (tar.fac_usrdata_omschr, 1, INSTR (tar.fac_usrdata_omschr, ' ') - 1)) regel, -- Huur 'CHV - Huur' regel, -- Huur NULL aanvrager, -- !!! NULL regel_oms, -- !!! @@ -994,11 +960,6 @@ AS x.lv, x.prs_bedrijf_key, x.prs_bedrijf_naam prs_debiteur_naam, TRIM (x.prs_overeenkomst_nr) debiteur_nr, btwnr.prs_kenmerklink_waarde btw_nr, - --(SELECT MIN (TRIM (prs_contactpersoon_voorletters || ' ' || TRIM (prs_contactpersoon_tussenv || ' ' || prs_contactpersoon_naam))) - -- FROM prs_contactpersoon - -- WHERE prs_contactpersoon_verwijder IS NULL - -- AND prs_contactpersoon_titel = '*' -- Contactpersoon op facturen - -- AND prs_bedrijf_key = x.prs_bedrijf_key) NULL contactpersoon, x.adres, x.postcode, x.plaats, x.land, x.prs_kostenplaats_key, x.prs_kostenplaats_nr, x.prs_kostenplaats_omschrijving, x.prs_kostenplaatsgrp_oms, @@ -1015,7 +976,6 @@ AS LAST_DAY (TO_DATE (x.maand, 'yyyymm')) - TO_DATE (x.maand, 'yyyymm') + 1 mndbes, -- Beschikbaar LEAST (TRUNC (x.lt), LAST_DAY (TO_DATE (x.maand, 'yyyymm'))) - GREATEST (TRUNC (x.lv), TO_DATE (x.maand, 'yyyymm')) + 1 mndbez, -- Bezet fac.safe_to_number (correctie_m2.cnt_kenmerkcontract_waarde) aantal, -- VVO-correctie - --tar.fac_usrdata_prijs tarief, -- Jaartarief per m2 fac.safe_to_number (tarief.cnt_kenmerkcontract_waarde) tarief, -- Jaartarief per m2 vvo_toeslag.fac_usrdata_prijs vvo_toeslag, -- VVO toeslagperc. verv_toeslag.fac_usrdata_prijs verv_toeslag, -- Vervangend toeslagperc. @@ -1027,7 +987,6 @@ AS COALESCE (fac.safe_to_number (correctie_m2.cnt_kenmerkcontract_waarde), 0) * COALESCE (verv_toeslag.fac_usrdata_prijs, 0) * COALESCE (vvo_toeslag.fac_usrdata_prijs, 0) * - --(COALESCE (tar.fac_usrdata_prijs, 0) - COALESCE (fac.safe_to_number (korting_pm2.cnt_kenmerkcontract_waarde), 0)) * DECODE (tarief.cnt_kenmerkcontract_waarde, NULL, 0, fac.safe_to_number (tarief.cnt_kenmerkcontract_waarde) - COALESCE (fac.safe_to_number (korting_pm2.cnt_kenmerkcontract_waarde), 0)) * 1/12, 2) mndnet, -- Netto maandbedrag @@ -1035,13 +994,10 @@ AS COALESCE (fac.safe_to_number (correctie_m2.cnt_kenmerkcontract_waarde), 0) * COALESCE (verv_toeslag.fac_usrdata_prijs, 0) * COALESCE (vvo_toeslag.fac_usrdata_prijs, 0) * - --(COALESCE (tar.fac_usrdata_prijs, 0) - COALESCE (fac.safe_to_number (korting_pm2.cnt_kenmerkcontract_waarde), 0)) * DECODE (tarief.cnt_kenmerkcontract_waarde, NULL, 0, fac.safe_to_number (tarief.cnt_kenmerkcontract_waarde) - COALESCE (fac.safe_to_number (korting_pm2.cnt_kenmerkcontract_waarde), 0)) * DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, DECODE (verv_toeslag.fac_usrdata_key, 1001, 0.21, 0)) * 1/12, 2) mndbtw, -- BTW maandbedrag - --TRIM (DECODE (biss_kc1.cnt_kenmerkcontract_waarde, '986', '8110', DECODE (biss_kc2.cnt_kenmerkcontract_waarde, '989', '8110', SUBSTR (tar.fac_usrdata_code, 1, INSTR (tar.fac_usrdata_code, '/') - 1)))) grtboekrek, - --DECODE (verv_toeslag.fac_usrdata_key, 1001, SUBSTR (tar.fac_usrdata_code, 1, INSTR (tar.fac_usrdata_code, '/') - 1), '8110') grtboekrek, DECODE (verv_toeslag.fac_usrdata_key, 1001, '8600', '8110') grtboekrek, TO_NUMBER (NULL) mld_melding_key, -- Correctiemelding-key NULL mld_melding_omschrijving @@ -1050,9 +1006,7 @@ AS c.cnt_contract_nummer_intern, c.cnt_contract_versie, c.cnt_contract_nummer, c.cnt_contract_looptijd_van lv, c.cnt_contract_looptijd_tot lt, - --c.cnt_contract_korting, b.prs_bedrijf_key, b.prs_bedrijf_naam, b.prs_overeenkomst_nr, - --0.21 btw, DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_postcode, b.prs_bedrijf_post_postcode) postcode, DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats) plaats, @@ -1096,26 +1050,10 @@ AS ON x.cnt_contract_key = vsov_kc.cnt_contract_key AND vsov_kc.cnt_kenmerkcontract_verwijder IS NULL AND vsov_kc.cnt_kenmerk_key = -1 -- VSOV - --LEFT JOIN cnt_v_aanwezigcontract_plaats ccp - -- ON x.cnt_contract_key = ccp.cnt_contract_key - -- AND ccp.cnt_alg_plaats_code = 'R' -- Alleen Scope-ruimten! - --LEFT JOIN alg_v_plaatsaanduiding_all pa - -- ON ccp.cnt_alg_plaats_key = pa.alg_onroerendgoed_keys - --LEFT JOIN alg_v_aanwezigruimte rxo - -- ON ccp.cnt_alg_plaats_key = rxo.alg_ruimte_key LEFT JOIN cnt_kenmerkcontract correctie_m2 ON x.cnt_contract_key = correctie_m2.cnt_contract_key AND correctie_m2.cnt_kenmerkcontract_verwijder IS NULL AND correctie_m2.cnt_kenmerk_key = 701 -- Correctie m2 - --LEFT JOIN cnt_kenmerkcontract tt_kc - -- ON x.cnt_contract_key = tt_kc.cnt_contract_key - -- AND tt_kc.cnt_kenmerkcontract_verwijder IS NULL - -- AND tt_kc.cnt_kenmerk_key = 401 -- Tarieftabel - --LEFT JOIN fac_v_aanwezigusrdata tt_ud - -- ON fac.safe_to_number (tt_kc.cnt_kenmerkcontract_waarde) = tt_ud.fac_usrdata_key - --LEFT JOIN fac_v_aanwezigusrdata tar - -- ON fac.safe_to_number (tt_ud.fac_usrdata_code) = tar.fac_usrtab_key - -- AND SUBSTR (tar.fac_usrdata_code, INSTR (tar.fac_usrdata_code, '/') + 1, 4) = 'Huur' -- Huur-tarief LEFT JOIN cnt_kenmerkcontract tarief ON x.cnt_contract_key = tarief.cnt_contract_key AND tarief.cnt_kenmerkcontract_verwijder IS NULL @@ -1136,14 +1074,6 @@ AS ON x.cnt_contract_key = korting_pm2.cnt_contract_key AND korting_pm2.cnt_kenmerkcontract_verwijder IS NULL AND korting_pm2.cnt_kenmerk_key = 404 -- Korting per m2 - --LEFT JOIN cnt_kenmerkcontract biss_kc1 - -- ON x.cnt_contract_key = biss_kc1.cnt_contract_key - -- AND biss_kc1.cnt_kenmerkcontract_verwijder IS NULL - -- AND biss_kc1.cnt_kenmerk_key = 645 -- Facilitaire kosten - --LEFT JOIN cnt_kenmerkcontract biss_kc2 - -- ON x.cnt_contract_key = biss_kc2.cnt_contract_key - -- AND biss_kc2.cnt_kenmerkcontract_verwijder IS NULL - -- AND biss_kc2.cnt_kenmerk_key = 647 -- Servicekosten LEFT JOIN cnt_kenmerkcontract start_fact ON x.cnt_contract_key = start_fact.cnt_contract_key AND start_fact.cnt_kenmerkcontract_verwijder IS NULL @@ -1153,7 +1083,6 @@ AS UNION ALL -- Bedrag per Kosten-listbox gezet! SELECT '*CONCEPT*' fin_verkoopfactuur_id, 'CHV' || TRIM (x.cnt_contract_nummer) po_nr, -- PO - --'CHV' || TRIM (x.cnt_contract_nummer) cnt_contract_nummer, -- PO SUBSTR ('0' || TO_CHAR (x.cnt_kenmerk_key), -4) || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities! 'CHV - ' || TRIM (SUBSTR (tar.fac_usrdata_omschr, 1, INSTR (tar.fac_usrdata_omschr, ' ') - 1)) regel, -- ICT/Facilitair/Service/Schoonmaak NULL aanvrager, -- !!! @@ -1165,11 +1094,6 @@ AS x.lv, x.prs_bedrijf_key, x.prs_bedrijf_naam prs_debiteur_naam, TRIM (x.prs_overeenkomst_nr) debiteur_nr, btwnr.prs_kenmerklink_waarde btw_nr, - --(SELECT MIN (TRIM (prs_contactpersoon_voorletters || ' ' || TRIM (prs_contactpersoon_tussenv || ' ' || prs_contactpersoon_naam))) - -- FROM prs_contactpersoon - -- WHERE prs_contactpersoon_verwijder IS NULL - -- AND prs_contactpersoon_titel = '*' -- Contactpersoon op facturen - -- AND prs_bedrijf_key = x.prs_bedrijf_key) NULL contactpersoon, x.adres, x.postcode, x.plaats, x.land, x.prs_kostenplaats_key, x.prs_kostenplaats_nr, x.prs_kostenplaats_omschrijving, x.prs_kostenplaatsgrp_oms, @@ -1196,14 +1120,12 @@ AS ROUND (((LEAST (TRUNC (x.lt), LAST_DAY (TO_DATE (x.maand, 'yyyymm'))) - GREATEST (TRUNC (x.lv), TO_DATE (x.maand, 'yyyymm')) + 1) / (LAST_DAY (TO_DATE (x.maand, 'yyyymm')) - TO_DATE (x.maand, 'yyyymm') + 1)) * COALESCE (rxo.alg_ruimte_opp_alt1, 0) * DECODE (TRIM (SUBSTR (tar.fac_usrdata_code, 1, INSTR (tar.fac_usrdata_code, '/') - 1)), '8604', 1, COALESCE (vvo_toeslag.fac_usrdata_prijs, 0)) * -- VVO toeslagperc. (behalve igv. 8604=Schoonmaak) - --(COALESCE (tar.fac_usrdata_prijs, 0) - COALESCE (fac.safe_to_number (korting_pm2.cnt_kenmerkcontract_waarde), 0)) * DECODE (tar.fac_usrdata_prijs, NULL, 0, tar.fac_usrdata_prijs - COALESCE (fac.safe_to_number (korting_pm2.cnt_kenmerkcontract_waarde), 0)) * 1/12, 2) mndnet, -- Netto maandbedrag ROUND (((LEAST (TRUNC (x.lt), LAST_DAY (TO_DATE (x.maand, 'yyyymm'))) - GREATEST (TRUNC (x.lv), TO_DATE (x.maand, 'yyyymm')) + 1) / (LAST_DAY (TO_DATE (x.maand, 'yyyymm')) - TO_DATE (x.maand, 'yyyymm') + 1)) * COALESCE (rxo.alg_ruimte_opp_alt1, 0) * DECODE (TRIM (SUBSTR (tar.fac_usrdata_code, 1, INSTR (tar.fac_usrdata_code, '/') - 1)), '8604', 1, COALESCE (vvo_toeslag.fac_usrdata_prijs, 0)) * -- VVO toeslagperc. (behalve igv. 8604=Schoonmaak) - --(COALESCE (tar.fac_usrdata_prijs, 0) - COALESCE (fac.safe_to_number (korting_pm2.cnt_kenmerkcontract_waarde), 0)) * DECODE (tar.fac_usrdata_prijs, NULL, 0, tar.fac_usrdata_prijs - COALESCE (fac.safe_to_number (korting_pm2.cnt_kenmerkcontract_waarde), 0)) * DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, x.btw) * 1/12, 2) @@ -1216,7 +1138,6 @@ AS c.cnt_contract_nummer_intern, c.cnt_contract_versie, c.cnt_contract_nummer, c.cnt_contract_looptijd_van lv, c.cnt_contract_looptijd_tot lt, - --c.cnt_contract_korting, b.prs_bedrijf_key, b.prs_bedrijf_naam, b.prs_overeenkomst_nr, 0.21 btw, DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, @@ -1304,7 +1225,6 @@ AS UNION ALL -- M2 correctie per Kosten-listbox gezet! SELECT '*CONCEPT*' fin_verkoopfactuur_id, 'CHV' || TRIM (x.cnt_contract_nummer) po_nr, -- PO - --'CHV' || TRIM (x.cnt_contract_nummer) cnt_contract_nummer, -- PO SUBSTR ('0' || TO_CHAR (x.cnt_kenmerk_key), -4) || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities! 'CHV - ' || TRIM (SUBSTR (tar.fac_usrdata_omschr, 1, INSTR (tar.fac_usrdata_omschr, ' ') - 1)) regel, -- ICT/Facilitair/Service/Schoonmaak NULL aanvrager, -- !!! @@ -1316,11 +1236,6 @@ AS x.lv, x.prs_bedrijf_key, x.prs_bedrijf_naam prs_debiteur_naam, TRIM (x.prs_overeenkomst_nr) debiteur_nr, btwnr.prs_kenmerklink_waarde btw_nr, - --(SELECT MIN (TRIM (prs_contactpersoon_voorletters || ' ' || TRIM (prs_contactpersoon_tussenv || ' ' || prs_contactpersoon_naam))) - -- FROM prs_contactpersoon - -- WHERE prs_contactpersoon_verwijder IS NULL - -- AND prs_contactpersoon_titel = '*' -- Contactpersoon op facturen - -- AND prs_bedrijf_key = x.prs_bedrijf_key) NULL contactpersoon, x.adres, x.postcode, x.plaats, x.land, x.prs_kostenplaats_key, x.prs_kostenplaats_nr, x.prs_kostenplaats_omschrijving, x.prs_kostenplaatsgrp_oms, @@ -1347,14 +1262,12 @@ AS ROUND (((LEAST (TRUNC (x.lt), LAST_DAY (TO_DATE (x.maand, 'yyyymm'))) - GREATEST (TRUNC (x.lv), TO_DATE (x.maand, 'yyyymm')) + 1) / (LAST_DAY (TO_DATE (x.maand, 'yyyymm')) - TO_DATE (x.maand, 'yyyymm') + 1)) * COALESCE (fac.safe_to_number (correctie_m2.cnt_kenmerkcontract_waarde), 0) * DECODE (TRIM (SUBSTR (tar.fac_usrdata_code, 1, INSTR (tar.fac_usrdata_code, '/') - 1)), '8604', 1, COALESCE (vvo_toeslag.fac_usrdata_prijs, 0)) * -- VVO toeslagperc. (behalve igv. 8604=Schoonmaak) - --(COALESCE (tar.fac_usrdata_prijs, 0) - COALESCE (fac.safe_to_number (korting_pm2.cnt_kenmerkcontract_waarde), 0)) * DECODE (tar.fac_usrdata_prijs, NULL, 0, tar.fac_usrdata_prijs - COALESCE (fac.safe_to_number (korting_pm2.cnt_kenmerkcontract_waarde), 0)) * 1/12, 2) mndnet, -- Netto maandbedrag ROUND (((LEAST (TRUNC (x.lt), LAST_DAY (TO_DATE (x.maand, 'yyyymm'))) - GREATEST (TRUNC (x.lv), TO_DATE (x.maand, 'yyyymm')) + 1) / (LAST_DAY (TO_DATE (x.maand, 'yyyymm')) - TO_DATE (x.maand, 'yyyymm') + 1)) * COALESCE (fac.safe_to_number (correctie_m2.cnt_kenmerkcontract_waarde), 0) * DECODE (TRIM (SUBSTR (tar.fac_usrdata_code, 1, INSTR (tar.fac_usrdata_code, '/') - 1)), '8604', 1, COALESCE (vvo_toeslag.fac_usrdata_prijs, 0)) * -- VVO toeslagperc. (behalve igv. 8604=Schoonmaak) - --(COALESCE (tar.fac_usrdata_prijs, 0) - COALESCE (fac.safe_to_number (korting_pm2.cnt_kenmerkcontract_waarde), 0)) * DECODE (tar.fac_usrdata_prijs, NULL, 0, tar.fac_usrdata_prijs - COALESCE (fac.safe_to_number (korting_pm2.cnt_kenmerkcontract_waarde), 0)) * DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, x.btw) * 1/12, 2) @@ -1367,7 +1280,6 @@ AS c.cnt_contract_nummer_intern, c.cnt_contract_versie, c.cnt_contract_nummer, c.cnt_contract_looptijd_van lv, c.cnt_contract_looptijd_tot lt, - --c.cnt_contract_korting, b.prs_bedrijf_key, b.prs_bedrijf_naam, b.prs_overeenkomst_nr, 0.21 btw, DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, @@ -1453,7 +1365,6 @@ AS UNION ALL -- Bedragen voor Duty manager (uren) en Koffieautomaten (aantal)! SELECT '*CONCEPT*' fin_verkoopfactuur_id, 'CHV' || TRIM (x.cnt_contract_nummer) po_nr, -- PO - --'CHV' || TRIM (x.cnt_contract_nummer) cnt_contract_nummer, -- PO SUBSTR ('0' || TO_CHAR (x.cnt_kenmerk_key), -4) || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities! 'CHV - ' || TRIM (SUBSTR (tar.fac_usrdata_omschr, 1, INSTR (tar.fac_usrdata_omschr, ' ') - 1)) regel, -- ICT/Facilitair/Service/Schoonmaak NULL aanvrager, -- !!! @@ -1465,11 +1376,6 @@ AS x.lv, x.prs_bedrijf_key, x.prs_bedrijf_naam prs_debiteur_naam, TRIM (x.prs_overeenkomst_nr) debiteur_nr, btwnr.prs_kenmerklink_waarde btw_nr, - --(SELECT MIN (TRIM (prs_contactpersoon_voorletters || ' ' || TRIM (prs_contactpersoon_tussenv || ' ' || prs_contactpersoon_naam))) - -- FROM prs_contactpersoon - -- WHERE prs_contactpersoon_verwijder IS NULL - -- AND prs_contactpersoon_titel = '*' -- Contactpersoon op facturen - -- AND prs_bedrijf_key = x.prs_bedrijf_key) NULL contactpersoon, x.adres, x.postcode, x.plaats, x.land, x.prs_kostenplaats_key, x.prs_kostenplaats_nr, x.prs_kostenplaats_omschrijving, x.prs_kostenplaatsgrp_oms, @@ -1489,20 +1395,17 @@ AS tar.fac_usrdata_prijs tarief, -- Jaartarief per m2 1 vvo_toeslag, -- Nvt. 1 verv_toeslag, -- Vervangend toeslagperc. - --fac.safe_to_number (korting_pm2.cnt_kenmerkcontract_waarde) korting_pm2, -- Korting op tarief (per eenheid) 0 korting_pm2, -- Korting op tarief (per eenheid) NULL alg_onroerendgoed_type, NULL alg_onroerendgoed_keys, NULL alg_plaatsaanduiding, ROUND (((LEAST (TRUNC (x.lt), LAST_DAY (TO_DATE (x.maand, 'yyyymm'))) - GREATEST (TRUNC (x.lv), TO_DATE (x.maand, 'yyyymm')) + 1) / (LAST_DAY (TO_DATE (x.maand, 'yyyymm')) - TO_DATE (x.maand, 'yyyymm') + 1)) * COALESCE (x.aantal, 0) * - --DECODE (tar.fac_usrdata_prijs, NULL, 0, tar.fac_usrdata_prijs - COALESCE (fac.safe_to_number (korting_pm2.cnt_kenmerkcontract_waarde), 0)) * COALESCE (tar.fac_usrdata_prijs, 0) * 1/12, 2) mndnet, -- Netto maandbedrag ROUND (((LEAST (TRUNC (x.lt), LAST_DAY (TO_DATE (x.maand, 'yyyymm'))) - GREATEST (TRUNC (x.lv), TO_DATE (x.maand, 'yyyymm')) + 1) / (LAST_DAY (TO_DATE (x.maand, 'yyyymm')) - TO_DATE (x.maand, 'yyyymm') + 1)) * COALESCE (x.aantal, 0) * - --DECODE (tar.fac_usrdata_prijs, NULL, 0, tar.fac_usrdata_prijs - COALESCE (fac.safe_to_number (korting_pm2.cnt_kenmerkcontract_waarde), 0)) * COALESCE (tar.fac_usrdata_prijs, 0) * DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, x.btw) * 1/12, 2) @@ -1515,7 +1418,6 @@ AS c.cnt_contract_nummer_intern, c.cnt_contract_versie, c.cnt_contract_nummer, c.cnt_contract_looptijd_van lv, c.cnt_contract_looptijd_tot lt, - --c.cnt_contract_korting, b.prs_bedrijf_key, b.prs_bedrijf_naam, b.prs_overeenkomst_nr, 0.21 btw, DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, @@ -1579,15 +1481,9 @@ AS LEFT JOIN fac_v_aanwezigusrdata tar ON fac.safe_to_number (tt_ud.fac_usrdata_code) = tar.fac_usrtab_key AND DECODE (UPPER (SUBSTR (tar.fac_usrdata_code, INSTR (tar.fac_usrdata_code, '/') + 1)), 'DUTY MANAGER', 901, 'KOFFIEAUTOMATEN', 902, -1) = x.cnt_kenmerk_key - --LEFT JOIN cnt_kenmerkcontract korting_pm2 - -- ON x.cnt_contract_key = korting_pm2.cnt_contract_key - -- AND korting_pm2.cnt_kenmerkcontract_verwijder IS NULL - -- AND DECODE (korting_pm2.cnt_kenmerk_key, -1, 901, -1, 902, -1) = x.cnt_kenmerk_key UNION ALL -- Absolute correctie! SELECT '*CONCEPT*' fin_verkoopfactuur_id, 'CHV' || TRIM (x.cnt_contract_nummer) po_nr, -- PO - --'CHV' || TRIM (x.cnt_contract_nummer) cnt_contract_nummer, -- PO - --'9999' || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities! '0000' || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities! --'CHV - ' || x.cnt_srtkenmerk_omschrijving regel, 'CHV - Huur' regel, -- Absolute correctie verrekenen in Huur @@ -1600,11 +1496,6 @@ AS x.lv, x.prs_bedrijf_key, x.prs_bedrijf_naam prs_debiteur_naam, TRIM (x.prs_overeenkomst_nr) debiteur_nr, btwnr.prs_kenmerklink_waarde btw_nr, - --(SELECT MIN (TRIM (prs_contactpersoon_voorletters || ' ' || TRIM (prs_contactpersoon_tussenv || ' ' || prs_contactpersoon_naam))) - -- FROM prs_contactpersoon - -- WHERE prs_contactpersoon_verwijder IS NULL - -- AND prs_contactpersoon_titel = '*' -- Contactpersoon op facturen - -- AND prs_bedrijf_key = x.prs_bedrijf_key) NULL contactpersoon, x.adres, x.postcode, x.plaats, x.land, x.prs_kostenplaats_key, x.prs_kostenplaats_nr, x.prs_kostenplaats_omschrijving, x.prs_kostenplaatsgrp_oms, @@ -1637,8 +1528,6 @@ AS DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, DECODE (verv_toeslag.fac_usrdata_key, 1001, 0.21, 0)) * 1/12, 2) mndbtw, -- BTW maandbedrag - --TRIM (SUBSTR (tar.fac_usrdata_code, 1, INSTR (tar.fac_usrdata_code, '/') - 1)) grtboekrek, - --TRIM (DECODE (biss_kc1.cnt_kenmerkcontract_waarde, '986', '8110', DECODE (biss_kc2.cnt_kenmerkcontract_waarde, '989', '8110', SUBSTR (tar.fac_usrdata_code, 1, INSTR (tar.fac_usrdata_code, '/') - 1)))) grtboekrek, DECODE (verv_toeslag.fac_usrdata_key, 1001, SUBSTR (tar.fac_usrdata_code, 1, INSTR (tar.fac_usrdata_code, '/') - 1), '8110') grtboekrek, TO_NUMBER (NULL) mld_melding_key, -- Correctiemelding-key NULL mld_melding_omschrijving @@ -1647,9 +1536,7 @@ AS c.cnt_contract_nummer_intern, c.cnt_contract_versie, c.cnt_contract_nummer, c.cnt_contract_looptijd_van lv, c.cnt_contract_looptijd_tot lt, - --c.cnt_contract_korting, b.prs_bedrijf_key, b.prs_bedrijf_naam, b.prs_overeenkomst_nr, - --0.21 btw, DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_postcode, b.prs_bedrijf_post_postcode) postcode, DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats) plaats, @@ -1719,19 +1606,10 @@ AS AND verv_toeslag_kc.cnt_kenmerk_key = 642 -- Vervangend toeslagperc. LEFT JOIN fac_v_aanwezigusrdata verv_toeslag ON fac.safe_to_number (verv_toeslag_kc.cnt_kenmerkcontract_waarde) = verv_toeslag.fac_usrdata_key - --LEFT JOIN cnt_kenmerkcontract biss_kc1 - -- ON x.cnt_contract_key = biss_kc1.cnt_contract_key - -- AND biss_kc1.cnt_kenmerkcontract_verwijder IS NULL - -- AND biss_kc1.cnt_kenmerk_key = 645 -- Facilitaire kosten - --LEFT JOIN cnt_kenmerkcontract biss_kc2 - -- ON x.cnt_contract_key = biss_kc2.cnt_contract_key - -- AND biss_kc2.cnt_kenmerkcontract_verwijder IS NULL - -- AND biss_kc2.cnt_kenmerk_key = 647 -- Servicekosten WHERE COALESCE (fac.safe_to_number (x.cnt_kenmerkcontract_waarde), 0) != 0 UNION ALL -- Parkeren CHV/Parkeren CMD! SELECT '*CONCEPT*' fin_verkoopfactuur_id, DECODE (x.ins_discipline_key, 2004, 'CMD', 'CHV') || TRIM (x.cnt_contract_nummer) po_nr, -- PO - --DECODE (x.ins_discipline_key, 2004, 'CMD', 'CHV') || TRIM (x.cnt_contract_nummer) cnt_contract_nummer, -- PO '9999' || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities! COALESCE (ks.prs_kostensoort_refcode, ks.prs_kostensoort_opmerking) regel, -- Parkeren CHV/Parkeren CMD NULL aanvrager, -- !!! @@ -1743,11 +1621,6 @@ AS x.lv, x.prs_bedrijf_key, x.prs_bedrijf_naam prs_debiteur_naam, TRIM (x.prs_overeenkomst_nr) debiteur_nr, btwnr.prs_kenmerklink_waarde btw_nr, - --(SELECT MIN (TRIM (prs_contactpersoon_voorletters || ' ' || TRIM (prs_contactpersoon_tussenv || ' ' || prs_contactpersoon_naam))) - -- FROM prs_contactpersoon - -- WHERE prs_contactpersoon_verwijder IS NULL - -- AND prs_contactpersoon_titel = '*' -- Contactpersoon op facturen - -- AND prs_bedrijf_key = x.prs_bedrijf_key) NULL contactpersoon, x.adres, x.postcode, x.plaats, x.land, x.prs_kostenplaats_key, x.prs_kostenplaats_nr, x.prs_kostenplaats_omschrijving, x.prs_kostenplaatsgrp_oms, @@ -1790,7 +1663,6 @@ AS c.cnt_contract_nummer_intern, c.cnt_contract_versie, c.cnt_contract_nummer, c.cnt_contract_looptijd_van lv, c.cnt_contract_looptijd_tot lt, - --c.cnt_contract_korting, b.prs_bedrijf_key, b.prs_bedrijf_naam, b.prs_overeenkomst_nr, 0.21 btw, DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, @@ -1856,7 +1728,6 @@ AS UNION ALL -- Deelnemers CMD! SELECT '*CONCEPT*' fin_verkoopfactuur_id, 'CMD' || TRIM (x.cnt_contract_nummer) po_nr, -- PO - --'CMD' || TRIM (x.cnt_contract_nummer) cnt_contract_nummer, -- PO '9999' || TO_CHAR (x.ins_discipline_key) sortering, -- Sorteren op (eigen) discipline_key; 8 posities! 'CMD - ' || sd_ud.fac_usrdata_omschr regel, -- Deelnemers CMD NULL aanvrager, -- !!! @@ -1868,11 +1739,6 @@ AS x.lv, x.prs_bedrijf_key, x.prs_bedrijf_naam prs_debiteur_naam, TRIM (x.prs_overeenkomst_nr) debiteur_nr, btwnr.prs_kenmerklink_waarde btw_nr, - --(SELECT MIN (TRIM (prs_contactpersoon_voorletters || ' ' || TRIM (prs_contactpersoon_tussenv || ' ' || prs_contactpersoon_naam))) - -- FROM prs_contactpersoon - -- WHERE prs_contactpersoon_verwijder IS NULL - -- AND prs_contactpersoon_titel = '*' -- Contactpersoon op facturen - -- AND prs_bedrijf_key = x.prs_bedrijf_key) NULL contactpersoon, x.adres, x.postcode, x.plaats, x.land, x.prs_kostenplaats_key, x.prs_kostenplaats_nr, x.prs_kostenplaats_omschrijving, x.prs_kostenplaatsgrp_oms, @@ -1915,7 +1781,6 @@ AS c.cnt_contract_nummer_intern, c.cnt_contract_versie, c.cnt_contract_nummer, c.cnt_contract_looptijd_van lv, c.cnt_contract_looptijd_tot lt, - --c.cnt_contract_korting, b.prs_bedrijf_key, b.prs_bedrijf_naam, b.prs_overeenkomst_nr, 0.21 btw, DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, @@ -1984,146 +1849,7 @@ AS AND gaf.cnt_kenmerkcontract_verwijder IS NULL AND gaf.cnt_kenmerk_key = 862 -- Geen automatische facturatie WHERE gaf.cnt_kenmerkcontract_waarde IS NULL -- COALESCE (gaf.cnt_kenmerkcontract_waarde, 0) = 0 - UNION ALL -- Alle correctiemeldingen (ook als contract inmiddels verlopen)! - SELECT '*CONCEPT*' fin_verkoopfactuur_id, - DECODE (cd.ins_discipline_key, 2004, 'CMD', 2005, 'CMD', 'CHV') || TRIM (c.cnt_contract_nummer) po_nr, -- PO - --DECODE (cd.ins_discipline_key, 2004, 'CMD', 2005, 'CMD', 'CHV') || TRIM (c.cnt_contract_nummer) cnt_contract_nummer, -- PO - '9999' || SUBSTR ('999' || fr.sortering, -4) sortering, -- Correctieregels onderaan (in dezelfde volgorde als de "echte" regels); 8 posities! - DECODE (cd.ins_discipline_key, 2004, 'CMD - ', 2005, 'CMD - ', 'CHV - ') || 'Correctie ' || fr.factuurregel || ' ' || pv.periode_van || ' - ' || pt.periode_tot regel, -- Zou consistent moeten zijn met contract! - NULL aanvrager, -- !!! - NULL regel_oms, -- !!! - TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum, - 'contract' xmlnode, - c.cnt_contract_key refkey, -- !!! - c.cnt_contract_nummer_intern || '/' || COALESCE (c.cnt_contract_versie, '0') refid, -- !!! - c.cnt_contract_looptijd_tot lv, - b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, TRIM (b.prs_overeenkomst_nr) debiteur_nr, - btwnr.prs_kenmerklink_waarde btw_nr, - --(SELECT MIN (TRIM (prs_contactpersoon_voorletters || ' ' || TRIM (prs_contactpersoon_tussenv || ' ' || prs_contactpersoon_naam))) - -- FROM prs_contactpersoon - -- WHERE prs_contactpersoon_verwijder IS NULL - -- AND prs_contactpersoon_titel = '*' -- Contactpersoon op facturen - -- AND prs_bedrijf_key = b.prs_bedrijf_key) - NULL contactpersoon, - DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, - DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_postcode, b.prs_bedrijf_post_postcode) postcode, - DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats) plaats, - DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_land, b.prs_bedrijf_post_land) land, - kp.prs_kostenplaats_key, kp.prs_kostenplaats_nr, kp.prs_kostenplaats_omschrijving, kpg.prs_kostenplaatsgrp_oms, - --ks.prs_kostensoort_oms, ks.prs_kostensoort_opmerking, ks.prs_kostensoort_refcode, ksg.prs_kostensoortgrp_oms, - DECODE (btwvl.prs_kenmerklink_waarde, '1', 'V', DECODE (oh.cnt_kenmerkcontract_waarde, '921', '0', 'H')) fin_btwtabelwaarde_code, -- TODO:BTW hangt van de correctie af? - DECODE (btwvl.prs_kenmerklink_waarde, '1', 'Verlegd', DECODE (oh.cnt_kenmerkcontract_waarde, '921', 'Nul', 'Hoog')) fin_btwtabelwaarde_oms, -- TODO:BTW hangt van de correctie af? - DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, DECODE (oh.cnt_kenmerkcontract_waarde, '921', 0, 21)) fin_btwtabelwaarde_perc, -- TODO:BTW hangt van de correctie af? - DECODE (btwvl.prs_kenmerklink_waarde, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd, - lp.maand, - TO_CHAR (TO_DATE (lp.maand, 'yyyymm'), 'dd-mm-yyyy') mndbegin, - TO_CHAR (LAST_DAY (TO_DATE (lp.maand, 'yyyymm')), 'dd-mm-yyyy') mndeinde, - TO_CHAR (GREATEST (TRUNC (c.cnt_contract_looptijd_van), TO_DATE (lp.maand, 'yyyymm')), 'dd-mm-yyyy') dagbegin, - TO_CHAR (LEAST (TRUNC (c.cnt_contract_looptijd_tot), LAST_DAY (TO_DATE (lp.maand, 'yyyymm'))), 'dd-mm-yyyy') dageinde, - LAST_DAY (TO_DATE (lp.maand, 'yyyymm')) - TO_DATE (lp.maand, 'yyyymm') + 1 mndbes, -- Beschikbaar - LEAST (TRUNC (c.cnt_contract_looptijd_tot), LAST_DAY (TO_DATE (lp.maand, 'yyyymm'))) - GREATEST (TRUNC (c.cnt_contract_looptijd_van), TO_DATE (lp.maand, 'yyyymm')) + 1 mndbez, -- Bezet - 1 aantal, -- Don't care - cb.correctiebedrag tarief, - 1 vvo_toeslag, -- VVO toeslagperc. - 1 verv_toeslag, -- Vervangend toeslagperc. - 0 korting_pm2, -- Korting per m2 - NULL alg_onroerendgoed_type, - NULL alg_onroerendgoed_keys, - NULL alg_plaatsaanduiding, - ROUND (cb.correctiebedrag, 2) - mndnet, -- Netto correctiebedrag - ROUND (DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, DECODE (oh.cnt_kenmerkcontract_waarde, '921', 0, 0.21)) * cb.correctiebedrag, 2) - mndbtw, -- BTW correctiebedrag - DECODE (cd.ins_discipline_key, - 2001, TRIM (DECODE (biss_kc1.cnt_kenmerkcontract_waarde, '986', '8110', DECODE (biss_kc2.cnt_kenmerkcontract_waarde, '989', '8110', SUBSTR (ht_ud.fac_usrdata_code, 1, INSTR (ht_ud.fac_usrdata_code, '/') - 1)))), - 2005, TRIM (SUBSTR (sd_ud.fac_usrdata_code, 1, INSTR (sd_ud.fac_usrdata_code, '/') - 1)), - TRIM (ks.prs_kostensoort_oms)) - grtboekrek, - m.mld_melding_key, -- Correctiemelding-key - TRIM (m.mld_melding_omschrijving) mld_melding_omschrijving - FROM lopendeperiode lp, - mld_melding m, - mld_v_aanwezigkenmerkmelding km, - cnt_contract c, - prs_bedrijf b, - prs_kostenplaats kp, - prs_kostenplaatsgrp kpg, - cnt_discipline cd, - prs_kostensoort ks, - (SELECT prs_link_key, prs_kenmerklink_waarde - FROM prs_kenmerklink - WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwnr, -- BTW-nummer (NL) - (SELECT prs_link_key, prs_kenmerklink_waarde - FROM prs_kenmerklink - WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwvl, -- BTW verlegd - (SELECT cnt_contract_key, cnt_kenmerkcontract_waarde - FROM cnt_kenmerkcontract - WHERE cnt_kenmerkcontract_verwijder IS NULL - AND cnt_kenmerk_key = 401) tt_kc, -- Tarieftabel - (SELECT tt_ud.fac_usrdata_key, tar.fac_usrdata_code -- Alleen de Huur-regels uit de Tarieftabellen! - FROM fac_v_aanwezigusrdata tt_ud, fac_v_aanwezigusrdata tar - WHERE tt_ud.fac_usrtab_key = 521 -- Tarieftabel - AND fac.safe_to_number (tt_ud.fac_usrdata_code) = tar.fac_usrtab_key - AND SUBSTR (tar.fac_usrdata_code, INSTR (tar.fac_usrdata_code, '/') + 1, 4) = 'Huur') ht_ud, - (SELECT cnt_contract_key, cnt_kenmerkcontract_waarde - FROM cnt_kenmerkcontract - WHERE cnt_kenmerkcontract_verwijder IS NULL - AND cnt_kenmerk_key = 641) oh, -- Onbelaste huurder - (SELECT cnt_contract_key, cnt_kenmerkcontract_waarde - FROM cnt_kenmerkcontract - WHERE cnt_kenmerkcontract_verwijder IS NULL - AND cnt_kenmerk_key = 645) biss_kc1, -- Facilitaire kosten - (SELECT cnt_contract_key, cnt_kenmerkcontract_waarde - FROM cnt_kenmerkcontract - WHERE cnt_kenmerkcontract_verwijder IS NULL - AND cnt_kenmerk_key = 647) biss_kc2, -- Servicekosten - (SELECT cnt_contract_key, cnt_kenmerkcontract_waarde - FROM cnt_kenmerkcontract - WHERE cnt_kenmerkcontract_verwijder IS NULL - AND cnt_kenmerk_key = 421) sd_kc, -- Soort deelnemer - (SELECT fac_usrdata_key, fac_usrdata_code - FROM fac_v_aanwezigusrdata - WHERE fac_usrtab_key = 522) sd_ud, -- Soort deelnemer - (SELECT km.mld_melding_key, ud.fac_usrdata_code sortering, ud.fac_usrdata_omschr factuurregel - FROM mld_v_aanwezigkenmerkmelding km, fac_usrdata ud - WHERE km.mld_kenmerk_key = -1 -- TODO:Factuurregel(groepering) - AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key) fr, - (SELECT mld_melding_key, mld_kenmerkmelding_waarde periode_van - FROM mld_v_aanwezigkenmerkmelding - WHERE mld_kenmerk_key = -1) pv, -- TODO:Periode van - (SELECT mld_melding_key, mld_kenmerkmelding_waarde periode_tot - FROM mld_v_aanwezigkenmerkmelding - WHERE mld_kenmerk_key = -1) pt, -- TODO:Periode tot - (SELECT mld_melding_key, fac.safe_to_number (mld_kenmerkmelding_waarde) correctiebedrag - FROM mld_v_aanwezigkenmerkmelding - WHERE mld_kenmerk_key = -1) cb -- TODO:Correctiebedrag - WHERE m.mld_stdmelding_key = -1 -- TODO:Financiële correctie - AND m.mld_melding_status IN (4, 5) -- Geaccepteerd/Afgemeld - AND m.mld_melding_key = km.mld_melding_key - AND km.mld_kenmerk_key = -1 -- TODO:Contractreferentie - AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = c.cnt_contract_key - AND c.cnt_contract_status = 0 -- NIET Gesloten - --AND TRUNC (c.cnt_contract_looptijd_van) < LAST_DAY (TO_DATE (lp.maand || '01', 'yyyymmdd')) -- Van-datum < einde te factureren maand - --AND c.cnt_contract_looptijd_tot > TO_DATE (lp.maand || '01', 'yyyymmdd') -- Tot-datum > begin te factureren maand - AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key - AND c.prs_kostenplaats_key = kp.prs_kostenplaats_key(+) - AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+) - AND c.ins_discipline_key = cd.ins_discipline_key - AND cd.prs_kostensoort_key = ks.prs_kostensoort_key(+) - AND c.cnt_prs_bedrijf_key = btwnr.prs_link_key(+) - AND c.cnt_prs_bedrijf_key = btwvl.prs_link_key(+) - AND c.cnt_contract_key = tt_kc.cnt_contract_key(+) - AND fac.safe_to_number (tt_kc.cnt_kenmerkcontract_waarde) = ht_ud.fac_usrdata_key(+) - AND c.cnt_contract_key = oh.cnt_contract_key(+) - AND c.cnt_contract_key = biss_kc1.cnt_contract_key(+) - AND c.cnt_contract_key = biss_kc2.cnt_contract_key(+) - AND c.cnt_contract_key = sd_kc.cnt_contract_key(+) - AND fac.safe_to_number (sd_kc.cnt_kenmerkcontract_waarde) = sd_ud.fac_usrdata_key(+) - AND m.mld_melding_key = fr.mld_melding_key - AND m.mld_melding_key = pv.mld_melding_key - AND m.mld_melding_key = pt.mld_melding_key - AND m.mld_melding_key = cb.mld_melding_key - ORDER BY prs_bedrijf_key, 1, 2, 3, 4, alg_onroerendgoed_type, alg_plaatsaanduiding; +; /* UNION ALL -- Borg CHV (eenmalig factureren, liefst op eerste factuur)! SELECT '*CONCEPT*' fin_verkoopfactuur_id, @@ -2237,7 +1963,6 @@ CREATE OR REPLACE VIEW bssc_v_fact_frozen AS SELECT vf.fin_verkoopfactuur_id, SUBSTR (vf.fin_verkoopfactuur_omschr, 1, INSTR (vf.fin_verkoopfactuur_omschr, '/=', -1) - 1) po_nr, - --SUBSTR (vf.fin_verkoopfactuur_omschr, 1, INSTR (vf.fin_verkoopfactuur_omschr, '/=', -1) - 1) cnt_contract_nummer, SUBSTR (vf.fin_verkoopfactuur_omschr, INSTR (vf.fin_verkoopfactuur_omschr, '/=', -1) + 2, 8) sortering, SUBSTR (vf.fin_verkoopfactuur_omschr, INSTR (vf.fin_verkoopfactuur_omschr, '/=', -1) + 10) regel, NULL aanvrager, -- !!! @@ -2279,17 +2004,13 @@ AS vf.fin_verkoopfactuur_bedrag mndnet, -- Netto maandbedrag vf.fin_verkoopfactuur_btw mndbtw, -- BTW maandbedrag vf.prs_kostensoort_oms grtboekrek, - vf.fin_verkoopfactuur_n1 mld_melding_key, - vf.fin_verkoopfactuur_c8 mld_melding_omschrijving - FROM fin_verkoopfactuur vf, - cnt_contract c, - prs_bedrijf b - WHERE (SUBSTR (vf.fin_verkoopfactuur_id, 5, 1) = '9' -- CMD - OR SUBSTR (vf.fin_verkoopfactuur_id, 5, 1) = '1') -- CHV + vf.fin_verkoopfactuur_n1 mld_melding_key + FROM fin_verkoopfactuur vf, cnt_contract c, prs_bedrijf b + WHERE (vf.fin_verkoopfactuur_xmlnode = 'contract' AND vf.fin_verkoopfactuur_n1 IS NULL) -- C en geen M! AND vf.fin_verkoopfactuur_refkey = c.cnt_contract_key AND vf.prs_bedrijf_key = b.prs_bedrijf_key ORDER BY vf.prs_bedrijf_key, 1, 2, 3, 4, SUBSTR (vf.fin_verkoopfactuur_c6, 1, 1), SUBSTR (vf.fin_verkoopfactuur_c6, INSTR (vf.fin_verkoopfactuur_c6, '=') + 1); - +/* CREATE OR REPLACE VIEW bssc_v_rap_export_fact_chv ( hide_f_sortering, @@ -2637,7 +2358,7 @@ AS -- View bevat alleen inhoud op de dag na de 1e werkdag van de maand! FROM mld_vrije_dagen WHERE TRUNC (mld_vrije_dagen_datum) = TRUNC (SYSDATE - 1)) ORDER BY 2; - +*/ CREATE OR REPLACE PROCEDURE bssc_select_fact (p_applname IN VARCHAR2, p_applrun IN VARCHAR2) AS @@ -2710,7 +2431,7 @@ BEGIN BEGIN IF rec.prs_bedrijf_key != v_old_bedrijf_key OR rec.po_nr != v_old_po_nr THEN - IF rec.po_nr = 'CHV' + IF rec.po_nr LIKE 'CHV%' THEN -- TODO:Afhankelijk van boekstuknummer-methodiek! -- Bepaal max. sequence t/m voorgaande jaar (= aantal entries in @@ -2718,7 +2439,7 @@ BEGIN SELECT COUNT ( * ) INTO v_year_offset FROM fin_verkoopfactuurkop vfk - WHERE SUBSTR (vfk.fin_verkoopfactuurkop_id, 5, 1) = '9' -- Boekstuknummers in formaat 9! + WHERE SUBSTR (vfk.fin_verkoopfactuurkop_id, 5, 1) = '1' -- Boekstuknummers in formaat 1! AND SUBSTR (vfk.fin_verkoopfactuurkop_id, 1, 4) < TO_CHAR (ADD_MONTHS (SYSDATE, 1), 'yyyy'); -- Bepaal fin_verkoopfactuur_id=boekstuknr. tbv. BCC-verkoopboek @@ -2727,14 +2448,14 @@ BEGIN SELECT fac_s_user01.NEXTVAL - v_year_offset INTO v_count FROM DUAL; v_factuur_id := TO_CHAR (ADD_MONTHS (SYSDATE, 1), 'yyyy') || '9' || SUBSTR ('0000' || TO_CHAR (v_count), -4); - ELSE -- rec.po_nr = 'CMD' + ELSE -- rec.po_nr LIKE 'CMD%' -- TODO:Afhankelijk van boekstuknummer-methodiek! -- Bepaal max. sequence t/m voorgaande jaar (= aantal entries in -- fin_verkoopfactuurkop-tabel). SELECT COUNT ( * ) INTO v_year_offset FROM fin_verkoopfactuurkop vfk - WHERE SUBSTR (vfk.fin_verkoopfactuurkop_id, 5, 1) = '1' -- Boekstuknummers in formaat 1! + WHERE SUBSTR (vfk.fin_verkoopfactuurkop_id, 5, 1) = '2' -- Boekstuknummers in formaat 2! AND SUBSTR (vfk.fin_verkoopfactuurkop_id, 1, 4) < TO_CHAR (ADD_MONTHS (SYSDATE, 1), 'yyyy'); -- Bepaal fin_verkoopfactuur_id=boekstuknr. tbv. BCC-verkoopboek @@ -2835,7 +2556,7 @@ BEGIN TO_CHAR (rec.korting_pm2), -- c5/korting_pm2 rec.alg_onroerendgoed_type || rec.alg_onroerendgoed_keys || '=' || rec.alg_plaatsaanduiding, -- c6 rec.debiteur_nr || '=' || rec.btw_nr, -- c7 - rec.mld_melding_omschrijving, -- c8 + NULL, -- c8 TO_DATE (rec.vervaldatum, 'dd-mm-yyyy'), -- d1 TO_DATE (rec.mndbegin, 'dd-mm-yyyy'), -- d2 TO_DATE (rec.mndeinde, 'dd-mm-yyyy'), -- d3 @@ -2925,11 +2646,966 @@ END; -- 90 Roomservice/0,50 Voorzieningen -- 170 Huurders Events/4,00 Ruimte -- 190 Projectruimtes Etage 4/8,00 Ruimte +CREATE OR REPLACE VIEW bssc_v_addd_correctie +AS + SELECT '*CONCEPT*' fin_verkoopfactuur_id, + DECODE (m.mld_stdmelding_key, 1481, 'CHV', 'CMD') || TRIM (SUBSTR (vf.fin_verkoopfactuur_omschr, 1, INSTR (vf.fin_verkoopfactuur_omschr, '/=', -1) - 1)) po_nr, -- Overnemen van te corrigeren factuur? + '01' sortering, + TRIM (ro.waarde) regel, + pf.prs_perslid_naam_full aanvrager, + 'Correctie ' || vf.fin_verkoopfactuur_id regel_oms, -- Factuur waarop correctie betrekking heeft (en dan ook in Twinfield-exportbestand)! + TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum, + DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', 'contract', 'melding') xmlnode, + DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_refkey, m.mld_melding_key) refkey, + NULL refid, -- TODO: Nvt. op correctiefactuur? + NULL lv, -- TODO: Nvt. op correctiefactuur? + --b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, TRIM (b.prs_overeenkomst_nr) debiteur_nr, -- Niet overnemen van te corrigeren factuur? + vf.prs_bedrijf_key, vf.prs_debiteur_naam, SUBSTR (vf.fin_verkoopfactuur_c7, 1, INSTR (vf.fin_verkoopfactuur_c7, '=') - 1) debiteur_nr, -- Overnemen van te corrigeren factuur! + NULL btw_nr, + --DECODE (vf.fin_verkoopfactuur_xmlnode, 'reservering', vf.fin_verkoopfactuur_c4, NULL) contactpersoon, + NULL contactpersoon, -- TODO: Nvt. op correctiefactuur/Alleen RES? + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_postcode, b.prs_bedrijf_post_postcode) postcode, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats) plaats, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_land, b.prs_bedrijf_post_land) land, + kp.prs_kostenplaats_key, kp.prs_kostenplaats_nr, kp.prs_kostenplaats_omschrijving, kpg.prs_kostenplaatsgrp_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'V', btw.code) fin_btwtabelwaarde_code, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'Verlegd', btw.oms) fin_btwtabelwaarde_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc) fin_btwtabelwaarde_perc, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd, + vf.fin_verkoopfactuur_maand maand, -- Overnemen van te corrigeren factuur! + TO_CHAR (vf.fin_verkoopfactuur_d2, 'dd-mm-yyyy') mndbegin, -- Overnemen van te corrigeren factuur! + TO_CHAR (vf.fin_verkoopfactuur_d3, 'dd-mm-yyyy') mndeinde, -- Overnemen van te corrigeren factuur! + NULL dagbegin, + NULL dageinde, + TO_NUMBER (NULL) mndbes, + TO_NUMBER (NULL) mndbez, + TO_NUMBER (NULL) aantal, -- VVO + TO_NUMBER (NULL) tarief, -- Jaartarief per m2 + TO_NUMBER (NULL) vvo_toeslag, -- VVO toeslagperc. + TO_NUMBER (NULL) verv_toeslag, -- Vervangend toeslagperc. + TO_NUMBER (NULL) korting_pm2, -- Korting per m2 Huur + NULL alg_onroerendgoed_type, + TO_NUMBER (NULL) alg_onroerendgoed_keys, + NULL alg_plaatsaanduiding, + ROUND (fac.safe_to_number (cb.waarde), 2) mndnet, -- Netto correctiebedrag + ROUND (fac.safe_to_number (cb.waarde * 0.01 * DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc)), 2) mndbtw, -- BTW correctiebedrag + ks.mld_kenmerkmelding_waarde grtboekrek, + m.mld_melding_key mld_melding_key -- Correctiemelding-key + FROM mld_melding m, + prs_v_perslid_fullnames_all pf, + mld_v_aanwezigkenmerkmelding km, + fin_verkoopfactuur vf, + prs_bedrijf b, + --(SELECT prs_link_key, prs_kenmerklink_waarde + -- FROM prs_kenmerklink + -- WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwnr, -- BTW-nummer (NL) + (SELECT prs_link_key, prs_kenmerklink_waarde + FROM prs_kenmerklink + WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwvl, -- BTW verlegd + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 742) cb, -- Correctiebedrag + (SELECT km.mld_melding_key, ud.fac_usrdata_code code, ud.fac_usrdata_omschr oms, ud.fac_usrdata_prijs perc + FROM mld_v_aanwezigkenmerkmelding km, fac_v_aanwezigusrdata ud + WHERE km.mld_kenmerk_key = 743 -- BTW tarief + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key) btw, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 744) ro, -- Regelomschrijving + (SELECT km.mld_melding_key, kp.prs_kostenplaats_key + FROM mld_v_aanwezigkenmerkmelding km, prs_kostenplaats kp -- TODO (of weg?): Was blcc_v_kostenplaats + WHERE km.mld_kenmerk_key = -1 -- Kostenplaats + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = kp.prs_kostenplaats_key) mkp, + prs_kostenplaats kp, + prs_kostenplaatsgrp kpg, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 745) ks -- Kostensoort + WHERE m.mld_stdmelding_key IN (1481, 1482) -- Fin. correctie CHV/CMD + AND m.prs_perslid_key_voor = pf.prs_perslid_key + AND m.mld_melding_status = 5 -- Afgemeld + AND m.mld_melding_key = km.mld_melding_key + AND km.mld_kenmerk_key IN (861, 861) -- Factuurreferentie CHV/CMD + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = vf.fin_verkoopfactuurkop_key + AND NOT EXISTS (SELECT 1 FROM fin_verkoopfactuur WHERE fin_verkoopfactuurkop_key = vf.fin_verkoopfactuurkop_key AND fin_verkoopfactuur_key < vf.fin_verkoopfactuur_key) + AND vf.prs_bedrijf_key = b.prs_bedrijf_key + --AND b.prs_bedrijf_key = btwnr.prs_link_key(+) + AND b.prs_bedrijf_key = btwvl.prs_link_key(+) + AND m.mld_melding_key = cb.mld_melding_key + AND m.mld_melding_key = btw.mld_melding_key + AND m.mld_melding_key = ro.mld_melding_key + AND m.mld_melding_key = mkp.mld_melding_key + AND mkp.prs_kostenplaats_key = kp.prs_kostenplaats_key(+) + AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+) + AND m.mld_melding_key = ks.mld_melding_key + UNION ALL + SELECT '*CONCEPT*' fin_verkoopfactuur_id, + DECODE (m.mld_stdmelding_key, 1481, 'CHV', 'CMD') || TRIM (SUBSTR (vf.fin_verkoopfactuur_omschr, 1, INSTR (vf.fin_verkoopfactuur_omschr, '/=', -1) - 1)) po_nr, -- Overnemen van te corrigeren factuur? + '02' sortering, + TRIM (ro.waarde) regel, + pf.prs_perslid_naam_full aanvrager, + 'Correctie ' || vf.fin_verkoopfactuur_id regel_oms, -- Factuur waarop correctie betrekking heeft (en dan ook in Twinfield-exportbestand)! + TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum, + DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', 'contract', 'melding') xmlnode, + DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_refkey, m.mld_melding_key) refkey, + NULL refid, -- TODO: Nvt. op correctiefactuur? + NULL lv, -- TODO: Nvt. op correctiefactuur? + --b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, TRIM (b.prs_overeenkomst_nr) debiteur_nr, -- Niet overnemen van te corrigeren factuur? + vf.prs_bedrijf_key, vf.prs_debiteur_naam, SUBSTR (vf.fin_verkoopfactuur_c7, 1, INSTR (vf.fin_verkoopfactuur_c7, '=') - 1) debiteur_nr, -- Overnemen van te corrigeren factuur! + NULL btw_nr, + NULL contactpersoon, -- TODO: Nvt. op correctiefactuur/Alleen RES? + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_postcode, b.prs_bedrijf_post_postcode) postcode, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats) plaats, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_land, b.prs_bedrijf_post_land) land, + kp.prs_kostenplaats_key, kp.prs_kostenplaats_nr, kp.prs_kostenplaats_omschrijving, kpg.prs_kostenplaatsgrp_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'V', btw.code) fin_btwtabelwaarde_code, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'Verlegd', btw.oms) fin_btwtabelwaarde_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc) fin_btwtabelwaarde_perc, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd, + vf.fin_verkoopfactuur_maand maand, -- Overnemen van te corrigeren factuur! + TO_CHAR (vf.fin_verkoopfactuur_d2, 'dd-mm-yyyy') mndbegin, -- Overnemen van te corrigeren factuur! + TO_CHAR (vf.fin_verkoopfactuur_d3, 'dd-mm-yyyy') mndeinde, -- Overnemen van te corrigeren factuur! + NULL dagbegin, + NULL dageinde, + TO_NUMBER (NULL) mndbes, + TO_NUMBER (NULL) mndbez, + TO_NUMBER (NULL) aantal, -- VVO + TO_NUMBER (NULL) tarief, -- Jaartarief per m2 + TO_NUMBER (NULL) vvo_toeslag, -- VVO toeslagperc. + TO_NUMBER (NULL) verv_toeslag, -- Vervangend toeslagperc. + TO_NUMBER (NULL) korting_pm2, -- Korting per m2 Huur + NULL alg_onroerendgoed_type, + TO_NUMBER (NULL) alg_onroerendgoed_keys, + NULL alg_plaatsaanduiding, + ROUND (fac.safe_to_number (cb.waarde), 2) mndnet, -- Netto correctiebedrag + ROUND (fac.safe_to_number (cb.waarde * 0.01 * DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc)), 2) mndbtw, -- BTW correctiebedrag + ks.mld_kenmerkmelding_waarde grtboekrek, + m.mld_melding_key mld_melding_key -- Correctiemelding-key + FROM mld_melding m, + prs_v_perslid_fullnames_all pf, + mld_v_aanwezigkenmerkmelding km, + fin_verkoopfactuur vf, + prs_bedrijf b, + --(SELECT prs_link_key, prs_kenmerklink_waarde + -- FROM prs_kenmerklink + -- WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwnr, -- BTW-nummer (NL) + (SELECT prs_link_key, prs_kenmerklink_waarde + FROM prs_kenmerklink + WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwvl, -- BTW verlegd + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 747) cb, -- Correctiebedrag + (SELECT km.mld_melding_key, ud.fac_usrdata_code code, ud.fac_usrdata_omschr oms, ud.fac_usrdata_prijs perc + FROM mld_v_aanwezigkenmerkmelding km, fac_v_aanwezigusrdata ud + WHERE km.mld_kenmerk_key = 748 -- BTW tarief + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key) btw, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 749) ro, -- Regelomschrijving + (SELECT km.mld_melding_key, kp.prs_kostenplaats_key + FROM mld_v_aanwezigkenmerkmelding km, prs_kostenplaats kp -- TODO (of weg?): Was blcc_v_kostenplaats + WHERE km.mld_kenmerk_key = -1 -- Kostenplaats + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = kp.prs_kostenplaats_key) mkp, + prs_kostenplaats kp, + prs_kostenplaatsgrp kpg, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 750) ks -- Kostensoort + WHERE m.mld_stdmelding_key IN (1481, 1482) -- Fin. correctie CHV/CMD + AND m.prs_perslid_key_voor = pf.prs_perslid_key + AND m.mld_melding_status = 5 -- Afgemeld + AND m.mld_melding_key = km.mld_melding_key + AND km.mld_kenmerk_key IN (861, 861) -- Factuurreferentie CHV/CMD + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = vf.fin_verkoopfactuurkop_key + AND NOT EXISTS (SELECT 1 FROM fin_verkoopfactuur WHERE fin_verkoopfactuurkop_key = vf.fin_verkoopfactuurkop_key AND fin_verkoopfactuur_key < vf.fin_verkoopfactuur_key) + AND vf.prs_bedrijf_key = b.prs_bedrijf_key + --AND b.prs_bedrijf_key = btwnr.prs_link_key(+) + AND b.prs_bedrijf_key = btwvl.prs_link_key(+) + AND m.mld_melding_key = cb.mld_melding_key + AND m.mld_melding_key = btw.mld_melding_key + AND m.mld_melding_key = ro.mld_melding_key + AND m.mld_melding_key = mkp.mld_melding_key + AND mkp.prs_kostenplaats_key = kp.prs_kostenplaats_key(+) + AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+) + AND m.mld_melding_key = ks.mld_melding_key + UNION ALL + SELECT '*CONCEPT*' fin_verkoopfactuur_id, + DECODE (m.mld_stdmelding_key, 1481, 'CHV', 'CMD') || TRIM (SUBSTR (vf.fin_verkoopfactuur_omschr, 1, INSTR (vf.fin_verkoopfactuur_omschr, '/=', -1) - 1)) po_nr, -- Overnemen van te corrigeren factuur? + '03' sortering, + TRIM (ro.waarde) regel, + pf.prs_perslid_naam_full aanvrager, + 'Correctie ' || vf.fin_verkoopfactuur_id regel_oms, -- Factuur waarop correctie betrekking heeft (en dan ook in Twinfield-exportbestand)! + TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum, + DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', 'contract', 'melding') xmlnode, + DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_refkey, m.mld_melding_key) refkey, + NULL refid, -- TODO: Nvt. op correctiefactuur? + NULL lv, -- TODO: Nvt. op correctiefactuur? + --b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, TRIM (b.prs_overeenkomst_nr) debiteur_nr, -- Niet overnemen van te corrigeren factuur? + vf.prs_bedrijf_key, vf.prs_debiteur_naam, SUBSTR (vf.fin_verkoopfactuur_c7, 1, INSTR (vf.fin_verkoopfactuur_c7, '=') - 1) debiteur_nr, -- Overnemen van te corrigeren factuur! + NULL btw_nr, + NULL contactpersoon, -- TODO: Nvt. op correctiefactuur/Alleen RES? + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_postcode, b.prs_bedrijf_post_postcode) postcode, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats) plaats, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_land, b.prs_bedrijf_post_land) land, + kp.prs_kostenplaats_key, kp.prs_kostenplaats_nr, kp.prs_kostenplaats_omschrijving, kpg.prs_kostenplaatsgrp_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'V', btw.code) fin_btwtabelwaarde_code, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'Verlegd', btw.oms) fin_btwtabelwaarde_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc) fin_btwtabelwaarde_perc, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd, + vf.fin_verkoopfactuur_maand maand, -- Overnemen van te corrigeren factuur! + TO_CHAR (vf.fin_verkoopfactuur_d2, 'dd-mm-yyyy') mndbegin, -- Overnemen van te corrigeren factuur! + TO_CHAR (vf.fin_verkoopfactuur_d3, 'dd-mm-yyyy') mndeinde, -- Overnemen van te corrigeren factuur! + NULL dagbegin, + NULL dageinde, + TO_NUMBER (NULL) mndbes, + TO_NUMBER (NULL) mndbez, + TO_NUMBER (NULL) aantal, -- VVO + TO_NUMBER (NULL) tarief, -- Jaartarief per m2 + TO_NUMBER (NULL) vvo_toeslag, -- VVO toeslagperc. + TO_NUMBER (NULL) verv_toeslag, -- Vervangend toeslagperc. + TO_NUMBER (NULL) korting_pm2, -- Korting per m2 Huur + NULL alg_onroerendgoed_type, + TO_NUMBER (NULL) alg_onroerendgoed_keys, + NULL alg_plaatsaanduiding, + ROUND (fac.safe_to_number (cb.waarde), 2) mndnet, -- Netto correctiebedrag + ROUND (fac.safe_to_number (cb.waarde * 0.01 * DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc)), 2) mndbtw, -- BTW correctiebedrag + ks.mld_kenmerkmelding_waarde grtboekrek, + m.mld_melding_key mld_melding_key -- Correctiemelding-key + FROM mld_melding m, + prs_v_perslid_fullnames_all pf, + mld_v_aanwezigkenmerkmelding km, + fin_verkoopfactuur vf, + prs_bedrijf b, + --(SELECT prs_link_key, prs_kenmerklink_waarde + -- FROM prs_kenmerklink + -- WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwnr, -- BTW-nummer (NL) + (SELECT prs_link_key, prs_kenmerklink_waarde + FROM prs_kenmerklink + WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwvl, -- BTW verlegd + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 762) cb, -- Correctiebedrag + (SELECT km.mld_melding_key, ud.fac_usrdata_code code, ud.fac_usrdata_omschr oms, ud.fac_usrdata_prijs perc + FROM mld_v_aanwezigkenmerkmelding km, fac_v_aanwezigusrdata ud + WHERE km.mld_kenmerk_key = 763 -- BTW tarief + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key) btw, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 764) ro, -- Regelomschrijving + (SELECT km.mld_melding_key, kp.prs_kostenplaats_key + FROM mld_v_aanwezigkenmerkmelding km, prs_kostenplaats kp -- TODO (of weg?): Was blcc_v_kostenplaats + WHERE km.mld_kenmerk_key = -1 -- Kostenplaats + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = kp.prs_kostenplaats_key) mkp, + prs_kostenplaats kp, + prs_kostenplaatsgrp kpg, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 765) ks -- Kostensoort + WHERE m.mld_stdmelding_key IN (1481, 1482) -- Fin. correctie CHV/CMD + AND m.prs_perslid_key_voor = pf.prs_perslid_key + AND m.mld_melding_status = 5 -- Afgemeld + AND m.mld_melding_key = km.mld_melding_key + AND km.mld_kenmerk_key IN (861, 861) -- Factuurreferentie CHV/CMD + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = vf.fin_verkoopfactuurkop_key + AND NOT EXISTS (SELECT 1 FROM fin_verkoopfactuur WHERE fin_verkoopfactuurkop_key = vf.fin_verkoopfactuurkop_key AND fin_verkoopfactuur_key < vf.fin_verkoopfactuur_key) + AND vf.prs_bedrijf_key = b.prs_bedrijf_key + --AND b.prs_bedrijf_key = btwnr.prs_link_key(+) + AND b.prs_bedrijf_key = btwvl.prs_link_key(+) + AND m.mld_melding_key = cb.mld_melding_key + AND m.mld_melding_key = btw.mld_melding_key + AND m.mld_melding_key = ro.mld_melding_key + AND m.mld_melding_key = mkp.mld_melding_key + AND mkp.prs_kostenplaats_key = kp.prs_kostenplaats_key(+) + AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+) + AND m.mld_melding_key = ks.mld_melding_key + UNION ALL + SELECT '*CONCEPT*' fin_verkoopfactuur_id, + DECODE (m.mld_stdmelding_key, 1481, 'CHV', 'CMD') || TRIM (SUBSTR (vf.fin_verkoopfactuur_omschr, 1, INSTR (vf.fin_verkoopfactuur_omschr, '/=', -1) - 1)) po_nr, -- Overnemen van te corrigeren factuur? + '04' sortering, + TRIM (ro.waarde) regel, + pf.prs_perslid_naam_full aanvrager, + 'Correctie ' || vf.fin_verkoopfactuur_id regel_oms, -- Factuur waarop correctie betrekking heeft (en dan ook in Twinfield-exportbestand)! + TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum, + DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', 'contract', 'melding') xmlnode, + DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_refkey, m.mld_melding_key) refkey, + NULL refid, -- TODO: Nvt. op correctiefactuur? + NULL lv, -- TODO: Nvt. op correctiefactuur? + --b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, TRIM (b.prs_overeenkomst_nr) debiteur_nr, -- Niet overnemen van te corrigeren factuur? + vf.prs_bedrijf_key, vf.prs_debiteur_naam, SUBSTR (vf.fin_verkoopfactuur_c7, 1, INSTR (vf.fin_verkoopfactuur_c7, '=') - 1) debiteur_nr, -- Overnemen van te corrigeren factuur! + NULL btw_nr, + NULL contactpersoon, -- TODO: Nvt. op correctiefactuur/Alleen RES? + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_postcode, b.prs_bedrijf_post_postcode) postcode, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats) plaats, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_land, b.prs_bedrijf_post_land) land, + kp.prs_kostenplaats_key, kp.prs_kostenplaats_nr, kp.prs_kostenplaats_omschrijving, kpg.prs_kostenplaatsgrp_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'V', btw.code) fin_btwtabelwaarde_code, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'Verlegd', btw.oms) fin_btwtabelwaarde_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc) fin_btwtabelwaarde_perc, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd, + vf.fin_verkoopfactuur_maand maand, -- Overnemen van te corrigeren factuur! + TO_CHAR (vf.fin_verkoopfactuur_d2, 'dd-mm-yyyy') mndbegin, -- Overnemen van te corrigeren factuur! + TO_CHAR (vf.fin_verkoopfactuur_d3, 'dd-mm-yyyy') mndeinde, -- Overnemen van te corrigeren factuur! + NULL dagbegin, + NULL dageinde, + TO_NUMBER (NULL) mndbes, + TO_NUMBER (NULL) mndbez, + TO_NUMBER (NULL) aantal, -- VVO + TO_NUMBER (NULL) tarief, -- Jaartarief per m2 + TO_NUMBER (NULL) vvo_toeslag, -- VVO toeslagperc. + TO_NUMBER (NULL) verv_toeslag, -- Vervangend toeslagperc. + TO_NUMBER (NULL) korting_pm2, -- Korting per m2 Huur + NULL alg_onroerendgoed_type, + TO_NUMBER (NULL) alg_onroerendgoed_keys, + NULL alg_plaatsaanduiding, + ROUND (fac.safe_to_number (cb.waarde), 2) mndnet, -- Netto correctiebedrag + ROUND (fac.safe_to_number (cb.waarde * 0.01 * DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc)), 2) mndbtw, -- BTW correctiebedrag + ks.mld_kenmerkmelding_waarde grtboekrek, + m.mld_melding_key mld_melding_key -- Correctiemelding-key + FROM mld_melding m, + prs_v_perslid_fullnames_all pf, + mld_v_aanwezigkenmerkmelding km, + fin_verkoopfactuur vf, + prs_bedrijf b, + --(SELECT prs_link_key, prs_kenmerklink_waarde + -- FROM prs_kenmerklink + -- WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwnr, -- BTW-nummer (NL) + (SELECT prs_link_key, prs_kenmerklink_waarde + FROM prs_kenmerklink + WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwvl, -- BTW verlegd + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 767) cb, -- Correctiebedrag + (SELECT km.mld_melding_key, ud.fac_usrdata_code code, ud.fac_usrdata_omschr oms, ud.fac_usrdata_prijs perc + FROM mld_v_aanwezigkenmerkmelding km, fac_v_aanwezigusrdata ud + WHERE km.mld_kenmerk_key = 768 -- BTW tarief + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key) btw, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 769) ro, -- Regelomschrijving + (SELECT km.mld_melding_key, kp.prs_kostenplaats_key + FROM mld_v_aanwezigkenmerkmelding km, prs_kostenplaats kp -- TODO (of weg?): Was blcc_v_kostenplaats + WHERE km.mld_kenmerk_key = -1 -- Kostenplaats + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = kp.prs_kostenplaats_key) mkp, + prs_kostenplaats kp, + prs_kostenplaatsgrp kpg, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 770) ks -- Kostensoort + WHERE m.mld_stdmelding_key IN (1481, 1482) -- Fin. correctie CHV/CMD + AND m.prs_perslid_key_voor = pf.prs_perslid_key + AND m.mld_melding_status = 5 -- Afgemeld + AND m.mld_melding_key = km.mld_melding_key + AND km.mld_kenmerk_key IN (861, 861) -- Factuurreferentie CHV/CMD + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = vf.fin_verkoopfactuurkop_key + AND NOT EXISTS (SELECT 1 FROM fin_verkoopfactuur WHERE fin_verkoopfactuurkop_key = vf.fin_verkoopfactuurkop_key AND fin_verkoopfactuur_key < vf.fin_verkoopfactuur_key) + AND vf.prs_bedrijf_key = b.prs_bedrijf_key + --AND b.prs_bedrijf_key = btwnr.prs_link_key(+) + AND b.prs_bedrijf_key = btwvl.prs_link_key(+) + AND m.mld_melding_key = cb.mld_melding_key + AND m.mld_melding_key = btw.mld_melding_key + AND m.mld_melding_key = ro.mld_melding_key + AND m.mld_melding_key = mkp.mld_melding_key + AND mkp.prs_kostenplaats_key = kp.prs_kostenplaats_key(+) + AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+) + AND m.mld_melding_key = ks.mld_melding_key + UNION ALL + SELECT '*CONCEPT*' fin_verkoopfactuur_id, + DECODE (m.mld_stdmelding_key, 1481, 'CHV', 'CMD') || TRIM (SUBSTR (vf.fin_verkoopfactuur_omschr, 1, INSTR (vf.fin_verkoopfactuur_omschr, '/=', -1) - 1)) po_nr, -- Overnemen van te corrigeren factuur? + '05' sortering, + TRIM (ro.waarde) regel, + pf.prs_perslid_naam_full aanvrager, + 'Correctie ' || vf.fin_verkoopfactuur_id regel_oms, -- Factuur waarop correctie betrekking heeft (en dan ook in Twinfield-exportbestand)! + TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum, + DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', 'contract', 'melding') xmlnode, + DECODE (vf.fin_verkoopfactuur_xmlnode, 'contract', vf.fin_verkoopfactuur_refkey, m.mld_melding_key) refkey, + NULL refid, -- TODO: Nvt. op correctiefactuur? + NULL lv, -- TODO: Nvt. op correctiefactuur? + --b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, TRIM (b.prs_overeenkomst_nr) debiteur_nr, -- Niet overnemen van te corrigeren factuur? + vf.prs_bedrijf_key, vf.prs_debiteur_naam, SUBSTR (vf.fin_verkoopfactuur_c7, 1, INSTR (vf.fin_verkoopfactuur_c7, '=') - 1) debiteur_nr, -- Overnemen van te corrigeren factuur! + NULL btw_nr, + NULL contactpersoon, -- TODO: Nvt. op correctiefactuur/Alleen RES? + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_postcode, b.prs_bedrijf_post_postcode) postcode, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats) plaats, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_land, b.prs_bedrijf_post_land) land, + kp.prs_kostenplaats_key, kp.prs_kostenplaats_nr, kp.prs_kostenplaats_omschrijving, kpg.prs_kostenplaatsgrp_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'V', btw.code) fin_btwtabelwaarde_code, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'Verlegd', btw.oms) fin_btwtabelwaarde_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc) fin_btwtabelwaarde_perc, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd, + vf.fin_verkoopfactuur_maand maand, -- Overnemen van te corrigeren factuur! + TO_CHAR (vf.fin_verkoopfactuur_d2, 'dd-mm-yyyy') mndbegin, -- Overnemen van te corrigeren factuur! + TO_CHAR (vf.fin_verkoopfactuur_d3, 'dd-mm-yyyy') mndeinde, -- Overnemen van te corrigeren factuur! + NULL dagbegin, + NULL dageinde, + TO_NUMBER (NULL) mndbes, + TO_NUMBER (NULL) mndbez, + TO_NUMBER (NULL) aantal, -- VVO + TO_NUMBER (NULL) tarief, -- Jaartarief per m2 + TO_NUMBER (NULL) vvo_toeslag, -- VVO toeslagperc. + TO_NUMBER (NULL) verv_toeslag, -- Vervangend toeslagperc. + TO_NUMBER (NULL) korting_pm2, -- Korting per m2 Huur + NULL alg_onroerendgoed_type, + TO_NUMBER (NULL) alg_onroerendgoed_keys, + NULL alg_plaatsaanduiding, + ROUND (fac.safe_to_number (cb.waarde), 2) mndnet, -- Netto correctiebedrag + ROUND (fac.safe_to_number (cb.waarde * 0.01 * DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc)), 2) mndbtw, -- BTW correctiebedrag + ks.mld_kenmerkmelding_waarde grtboekrek, + m.mld_melding_key mld_melding_key -- Correctiemelding-key + FROM mld_melding m, + prs_v_perslid_fullnames_all pf, + mld_v_aanwezigkenmerkmelding km, + fin_verkoopfactuur vf, + prs_bedrijf b, + --(SELECT prs_link_key, prs_kenmerklink_waarde + -- FROM prs_kenmerklink + -- WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwnr, -- BTW-nummer (NL) + (SELECT prs_link_key, prs_kenmerklink_waarde + FROM prs_kenmerklink + WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwvl, -- BTW verlegd + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 772) cb, -- Correctiebedrag + (SELECT km.mld_melding_key, ud.fac_usrdata_code code, ud.fac_usrdata_omschr oms, ud.fac_usrdata_prijs perc + FROM mld_v_aanwezigkenmerkmelding km, fac_v_aanwezigusrdata ud + WHERE km.mld_kenmerk_key = 773 -- BTW tarief + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key) btw, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 774) ro, -- Regelomschrijving + (SELECT km.mld_melding_key, kp.prs_kostenplaats_key + FROM mld_v_aanwezigkenmerkmelding km, prs_kostenplaats kp -- TODO (of weg?): Was blcc_v_kostenplaats + WHERE km.mld_kenmerk_key = -1 -- Kostenplaats + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = kp.prs_kostenplaats_key) mkp, + prs_kostenplaats kp, + prs_kostenplaatsgrp kpg, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 775) ks -- Kostensoort + WHERE m.mld_stdmelding_key IN (1481, 1482) -- Fin. correctie CHV/CMD + AND m.prs_perslid_key_voor = pf.prs_perslid_key + AND m.mld_melding_status = 5 -- Afgemeld + AND m.mld_melding_key = km.mld_melding_key + AND km.mld_kenmerk_key IN (861, 861) -- Factuurreferentie CHV/CMD + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = vf.fin_verkoopfactuurkop_key + AND NOT EXISTS (SELECT 1 FROM fin_verkoopfactuur WHERE fin_verkoopfactuurkop_key = vf.fin_verkoopfactuurkop_key AND fin_verkoopfactuur_key < vf.fin_verkoopfactuur_key) + AND vf.prs_bedrijf_key = b.prs_bedrijf_key + --AND b.prs_bedrijf_key = btwnr.prs_link_key(+) + AND b.prs_bedrijf_key = btwvl.prs_link_key(+) + AND m.mld_melding_key = cb.mld_melding_key + AND m.mld_melding_key = btw.mld_melding_key + AND m.mld_melding_key = ro.mld_melding_key + AND m.mld_melding_key = mkp.mld_melding_key + AND mkp.prs_kostenplaats_key = kp.prs_kostenplaats_key(+) + AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+) + AND m.mld_melding_key = ks.mld_melding_key; + +CREATE OR REPLACE VIEW bssc_v_addd_losverkoop +AS + SELECT '*CONCEPT*' fin_verkoopfactuur_id, + DECODE (m.mld_stdmelding_key, 1641, 'CHV', 'CMD') || TRIM (COALESCE (po.waarde, '-')) po_nr, + '01' sortering, + TRIM (ro.waarde) regel, + pf.prs_perslid_naam_full aanvrager, + 'Inc.Verk. ' || TO_CHAR (m.mld_melding_key) regel_oms, + TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum, + 'melding' xmlnode, + m.mld_melding_key refkey, + NULL refid, -- TODO: Nvt. op losverkoopfactuur? + NULL lv, -- TODO: Nvt. op losverkoopfactuur? + b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, TRIM (b.prs_overeenkomst_nr) debiteur_nr, + NULL btw_nr, + TRIM (cp.prs_contactpersoon_aanhef || ' ' || TRIM (cp.prs_contactpersoon_voorletters || ' ' || TRIM (cp.prs_contactpersoon_tussenv || ' ' || cp.prs_contactpersoon_naam))) contactpersoon, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_postcode, b.prs_bedrijf_post_postcode) postcode, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats) plaats, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_land, b.prs_bedrijf_post_land) land, + kp.prs_kostenplaats_key, kp.prs_kostenplaats_nr, kp.prs_kostenplaats_omschrijving, kpg.prs_kostenplaatsgrp_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'V', btw.code) fin_btwtabelwaarde_code, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'Verlegd', btw.oms) fin_btwtabelwaarde_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc) fin_btwtabelwaarde_perc, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd, + TO_CHAR (SYSDATE, 'yyyymm') maand, + TO_CHAR (TRUNC (SYSDATE, 'mm'), 'dd-mm-yyyy') mndbegin, + TO_CHAR (LAST_DAY (SYSDATE), 'dd-mm-yyyy') mndeinde, + NULL dagbegin, + NULL dageinde, + TO_NUMBER (NULL) mndbes, + TO_NUMBER (NULL) mndbez, + TO_NUMBER (NULL) aantal, -- VVO + TO_NUMBER (NULL) tarief, -- Jaartarief per m2 + TO_NUMBER (NULL) vvo_toeslag, -- VVO toeslagperc. + TO_NUMBER (NULL) verv_toeslag, -- Vervangend toeslagperc. + TO_NUMBER (NULL) korting_pm2, -- Korting per m2 Huur + NULL alg_onroerendgoed_type, + TO_NUMBER (NULL) alg_onroerendgoed_keys, + NULL alg_plaatsaanduiding, + ROUND (fac.safe_to_number (cb.waarde), 2) mndnet, -- Netto correctiebedrag + ROUND (fac.safe_to_number (cb.waarde * 0.01 * DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc)), 2) mndbtw, -- BTW correctiebedrag + ks.mld_kenmerkmelding_waarde grtboekrek, + m.mld_melding_key mld_melding_key -- Losverkoopmelding-key + FROM mld_melding m, + prs_v_perslid_fullnames_all pf, + (SELECT km.mld_melding_key, fac.safe_to_number (km.mld_kenmerkmelding_waarde) debiteur_id + FROM mld_v_aanwezigkenmerkmelding km, mld_kenmerk k + WHERE km.mld_kenmerk_key = k.mld_kenmerk_key AND k.mld_srtkenmerk_key IN (881, 882)) deb, -- Debiteur CHV/CMD + prs_contactpersoon cp, + prs_bedrijf b, + --(SELECT prs_link_key, prs_kenmerklink_waarde + -- FROM prs_kenmerklink + -- WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwnr, -- BTW-nummer (NL) + (SELECT prs_link_key, prs_kenmerklink_waarde + FROM prs_kenmerklink + WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwvl, -- BTW verlegd + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = -1) po, -- PO + --(SELECT mld_melding_key, c.cnt_contract_key, c.cnt_contract_nummer_intern, c.cnt_contract_versie + -- FROM mld_v_aanwezigkenmerkmelding km, cnt_contract c + -- WHERE mld_kenmerk_key = -1 -- Contractreferentie + -- AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = c.cnt_contract_key) m2c, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 902) cb, -- Correctiebedrag + (SELECT km.mld_melding_key, ud.fac_usrdata_code code, ud.fac_usrdata_omschr oms, ud.fac_usrdata_prijs perc + FROM mld_v_aanwezigkenmerkmelding km, fac_v_aanwezigusrdata ud + WHERE km.mld_kenmerk_key = 903 -- BTW tarief + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key) btw, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 904) ro, -- Regelomschrijving + (SELECT km.mld_melding_key, kp.prs_kostenplaats_key + FROM mld_v_aanwezigkenmerkmelding km, prs_kostenplaats kp -- TODO (of weg?): Was blcc_v_kostenplaats + WHERE km.mld_kenmerk_key = -1 -- Kostenplaats + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = kp.prs_kostenplaats_key) mkp, + prs_kostenplaats kp, + prs_kostenplaatsgrp kpg, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 905) ks -- Kostensoort + WHERE m.mld_stdmelding_key IN (1641, 1642) -- Losse verkoop CHV/CMD + AND m.prs_perslid_key_voor = pf.prs_perslid_key + AND m.mld_melding_status = 5 -- Afgemeld + AND m.mld_melding_key = deb.mld_melding_key + AND MOD (deb.debiteur_id, 100000000) = cp.prs_contactpersoon_key + AND COALESCE (cp.prs_bedrijf_key, MOD (deb.debiteur_id, 100000000)) = b.prs_bedrijf_key + --AND b.prs_bedrijf_key = btwnr.prs_link_key(+) + AND b.prs_bedrijf_key = btwvl.prs_link_key(+) + AND m.mld_melding_key = po.mld_melding_key(+) + --AND m.mld_melding_key = m2c.mld_melding_key(+) + AND m.mld_melding_key = cb.mld_melding_key + AND m.mld_melding_key = btw.mld_melding_key + AND m.mld_melding_key = ro.mld_melding_key + AND m.mld_melding_key = mkp.mld_melding_key + AND mkp.prs_kostenplaats_key = kp.prs_kostenplaats_key(+) + AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+) + AND m.mld_melding_key = ks.mld_melding_key + UNION ALL + SELECT '*CONCEPT*' fin_verkoopfactuur_id, + DECODE (m.mld_stdmelding_key, 1641, 'CHV', 'CMD') || TRIM (COALESCE (po.waarde, '-')) po_nr, + '02' sortering, + TRIM (ro.waarde) regel, + pf.prs_perslid_naam_full aanvrager, + 'Inc.Verk. ' || TO_CHAR (m.mld_melding_key) regel_oms, + TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum, + 'melding' xmlnode, + m.mld_melding_key refkey, + NULL refid, -- TODO: Nvt. op losverkoopfactuur? + NULL lv, -- TODO: Nvt. op losverkoopfactuur? + b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, TRIM (b.prs_overeenkomst_nr) debiteur_nr, + NULL btw_nr, + TRIM (cp.prs_contactpersoon_aanhef || ' ' || TRIM (cp.prs_contactpersoon_voorletters || ' ' || TRIM (cp.prs_contactpersoon_tussenv || ' ' || cp.prs_contactpersoon_naam))) contactpersoon, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_postcode, b.prs_bedrijf_post_postcode) postcode, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats) plaats, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_land, b.prs_bedrijf_post_land) land, + kp.prs_kostenplaats_key, kp.prs_kostenplaats_nr, kp.prs_kostenplaats_omschrijving, kpg.prs_kostenplaatsgrp_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'V', btw.code) fin_btwtabelwaarde_code, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'Verlegd', btw.oms) fin_btwtabelwaarde_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc) fin_btwtabelwaarde_perc, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd, + TO_CHAR (SYSDATE, 'yyyymm') maand, + TO_CHAR (TRUNC (SYSDATE, 'mm'), 'dd-mm-yyyy') mndbegin, + TO_CHAR (LAST_DAY (SYSDATE), 'dd-mm-yyyy') mndeinde, + NULL dagbegin, + NULL dageinde, + TO_NUMBER (NULL) mndbes, + TO_NUMBER (NULL) mndbez, + TO_NUMBER (NULL) aantal, -- VVO + TO_NUMBER (NULL) tarief, -- Jaartarief per m2 + TO_NUMBER (NULL) vvo_toeslag, -- VVO toeslagperc. + TO_NUMBER (NULL) verv_toeslag, -- Vervangend toeslagperc. + TO_NUMBER (NULL) korting_pm2, -- Korting per m2 Huur + NULL alg_onroerendgoed_type, + TO_NUMBER (NULL) alg_onroerendgoed_keys, + NULL alg_plaatsaanduiding, + ROUND (fac.safe_to_number (cb.waarde), 2) mndnet, -- Netto correctiebedrag + ROUND (fac.safe_to_number (cb.waarde * 0.01 * DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc)), 2) mndbtw, -- BTW correctiebedrag + ks.mld_kenmerkmelding_waarde grtboekrek, + m.mld_melding_key mld_melding_key -- Losverkoopmelding-key + FROM mld_melding m, + prs_v_perslid_fullnames_all pf, + (SELECT km.mld_melding_key, fac.safe_to_number (km.mld_kenmerkmelding_waarde) debiteur_id + FROM mld_v_aanwezigkenmerkmelding km, mld_kenmerk k + WHERE km.mld_kenmerk_key = k.mld_kenmerk_key AND k.mld_srtkenmerk_key IN (881, 882)) deb, -- Debiteur CHV/CMD + prs_contactpersoon cp, + prs_bedrijf b, + --(SELECT prs_link_key, prs_kenmerklink_waarde + -- FROM prs_kenmerklink + -- WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwnr, -- BTW-nummer (NL) + (SELECT prs_link_key, prs_kenmerklink_waarde + FROM prs_kenmerklink + WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwvl, -- BTW verlegd + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = -1) po, -- PO + --(SELECT mld_melding_key, c.cnt_contract_key, c.cnt_contract_nummer_intern, c.cnt_contract_versie + -- FROM mld_v_aanwezigkenmerkmelding km, cnt_contract c + -- WHERE mld_kenmerk_key = -1 -- Contractreferentie + -- AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = c.cnt_contract_key) m2c, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 907) cb, -- Correctiebedrag + (SELECT km.mld_melding_key, ud.fac_usrdata_code code, ud.fac_usrdata_omschr oms, ud.fac_usrdata_prijs perc + FROM mld_v_aanwezigkenmerkmelding km, fac_v_aanwezigusrdata ud + WHERE km.mld_kenmerk_key = 908 -- BTW tarief + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key) btw, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 909) ro, -- Regelomschrijving + (SELECT km.mld_melding_key, kp.prs_kostenplaats_key + FROM mld_v_aanwezigkenmerkmelding km, prs_kostenplaats kp -- TODO (of weg?): Was blcc_v_kostenplaats + WHERE km.mld_kenmerk_key = -1 -- Kostenplaats + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = kp.prs_kostenplaats_key) mkp, + prs_kostenplaats kp, + prs_kostenplaatsgrp kpg, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 910) ks -- Kostensoort + WHERE m.mld_stdmelding_key IN (1641, 1642) -- Losse verkoop CHV/CMD + AND m.prs_perslid_key_voor = pf.prs_perslid_key + AND m.mld_melding_status = 5 -- Afgemeld + AND m.mld_melding_key = deb.mld_melding_key + AND MOD (deb.debiteur_id, 100000000) = cp.prs_contactpersoon_key + AND COALESCE (cp.prs_bedrijf_key, MOD (deb.debiteur_id, 100000000)) = b.prs_bedrijf_key + --AND b.prs_bedrijf_key = btwnr.prs_link_key(+) + AND b.prs_bedrijf_key = btwvl.prs_link_key(+) + AND m.mld_melding_key = po.mld_melding_key(+) + --AND m.mld_melding_key = m2c.mld_melding_key(+) + AND m.mld_melding_key = cb.mld_melding_key + AND m.mld_melding_key = btw.mld_melding_key + AND m.mld_melding_key = ro.mld_melding_key + AND m.mld_melding_key = mkp.mld_melding_key + AND mkp.prs_kostenplaats_key = kp.prs_kostenplaats_key(+) + AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+) + AND m.mld_melding_key = ks.mld_melding_key + UNION ALL + SELECT '*CONCEPT*' fin_verkoopfactuur_id, + DECODE (m.mld_stdmelding_key, 1641, 'CHV', 'CMD') || TRIM (COALESCE (po.waarde, '-')) po_nr, + '03' sortering, + TRIM (ro.waarde) regel, + pf.prs_perslid_naam_full aanvrager, + 'Inc.Verk. ' || TO_CHAR (m.mld_melding_key) regel_oms, + TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum, + 'melding' xmlnode, + m.mld_melding_key refkey, + NULL refid, -- TODO: Nvt. op losverkoopfactuur? + NULL lv, -- TODO: Nvt. op losverkoopfactuur? + b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, TRIM (b.prs_overeenkomst_nr) debiteur_nr, + NULL btw_nr, + TRIM (cp.prs_contactpersoon_aanhef || ' ' || TRIM (cp.prs_contactpersoon_voorletters || ' ' || TRIM (cp.prs_contactpersoon_tussenv || ' ' || cp.prs_contactpersoon_naam))) contactpersoon, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_postcode, b.prs_bedrijf_post_postcode) postcode, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats) plaats, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_land, b.prs_bedrijf_post_land) land, + kp.prs_kostenplaats_key, kp.prs_kostenplaats_nr, kp.prs_kostenplaats_omschrijving, kpg.prs_kostenplaatsgrp_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'V', btw.code) fin_btwtabelwaarde_code, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'Verlegd', btw.oms) fin_btwtabelwaarde_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc) fin_btwtabelwaarde_perc, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd, + TO_CHAR (SYSDATE, 'yyyymm') maand, + TO_CHAR (TRUNC (SYSDATE, 'mm'), 'dd-mm-yyyy') mndbegin, + TO_CHAR (LAST_DAY (SYSDATE), 'dd-mm-yyyy') mndeinde, + NULL dagbegin, + NULL dageinde, + TO_NUMBER (NULL) mndbes, + TO_NUMBER (NULL) mndbez, + TO_NUMBER (NULL) aantal, -- VVO + TO_NUMBER (NULL) tarief, -- Jaartarief per m2 + TO_NUMBER (NULL) vvo_toeslag, -- VVO toeslagperc. + TO_NUMBER (NULL) verv_toeslag, -- Vervangend toeslagperc. + TO_NUMBER (NULL) korting_pm2, -- Korting per m2 Huur + NULL alg_onroerendgoed_type, + TO_NUMBER (NULL) alg_onroerendgoed_keys, + NULL alg_plaatsaanduiding, + ROUND (fac.safe_to_number (cb.waarde), 2) mndnet, -- Netto correctiebedrag + ROUND (fac.safe_to_number (cb.waarde * 0.01 * DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc)), 2) mndbtw, -- BTW correctiebedrag + ks.mld_kenmerkmelding_waarde grtboekrek, + m.mld_melding_key mld_melding_key -- Losverkoopmelding-key + FROM mld_melding m, + prs_v_perslid_fullnames_all pf, + (SELECT km.mld_melding_key, fac.safe_to_number (km.mld_kenmerkmelding_waarde) debiteur_id + FROM mld_v_aanwezigkenmerkmelding km, mld_kenmerk k + WHERE km.mld_kenmerk_key = k.mld_kenmerk_key AND k.mld_srtkenmerk_key IN (881, 882)) deb, -- Debiteur CHV/CMD + prs_contactpersoon cp, + prs_bedrijf b, + --(SELECT prs_link_key, prs_kenmerklink_waarde + -- FROM prs_kenmerklink + -- WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwnr, -- BTW-nummer (NL) + (SELECT prs_link_key, prs_kenmerklink_waarde + FROM prs_kenmerklink + WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwvl, -- BTW verlegd + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = -1) po, -- PO + --(SELECT mld_melding_key, c.cnt_contract_key, c.cnt_contract_nummer_intern, c.cnt_contract_versie + -- FROM mld_v_aanwezigkenmerkmelding km, cnt_contract c + -- WHERE mld_kenmerk_key = -1 -- Contractreferentie + -- AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = c.cnt_contract_key) m2c, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 912) cb, -- Correctiebedrag + (SELECT km.mld_melding_key, ud.fac_usrdata_code code, ud.fac_usrdata_omschr oms, ud.fac_usrdata_prijs perc + FROM mld_v_aanwezigkenmerkmelding km, fac_v_aanwezigusrdata ud + WHERE km.mld_kenmerk_key = 913 -- BTW tarief + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key) btw, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 914) ro, -- Regelomschrijving + (SELECT km.mld_melding_key, kp.prs_kostenplaats_key + FROM mld_v_aanwezigkenmerkmelding km, prs_kostenplaats kp -- TODO (of weg?): Was blcc_v_kostenplaats + WHERE km.mld_kenmerk_key = -1 -- Kostenplaats + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = kp.prs_kostenplaats_key) mkp, + prs_kostenplaats kp, + prs_kostenplaatsgrp kpg, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 915) ks -- Kostensoort + WHERE m.mld_stdmelding_key IN (1641, 1642) -- Losse verkoop CHV/CMD + AND m.prs_perslid_key_voor = pf.prs_perslid_key + AND m.mld_melding_status = 5 -- Afgemeld + AND m.mld_melding_key = deb.mld_melding_key + AND MOD (deb.debiteur_id, 100000000) = cp.prs_contactpersoon_key + AND COALESCE (cp.prs_bedrijf_key, MOD (deb.debiteur_id, 100000000)) = b.prs_bedrijf_key + --AND b.prs_bedrijf_key = btwnr.prs_link_key(+) + AND b.prs_bedrijf_key = btwvl.prs_link_key(+) + AND m.mld_melding_key = po.mld_melding_key(+) + --AND m.mld_melding_key = m2c.mld_melding_key(+) + AND m.mld_melding_key = cb.mld_melding_key + AND m.mld_melding_key = btw.mld_melding_key + AND m.mld_melding_key = ro.mld_melding_key + AND m.mld_melding_key = mkp.mld_melding_key + AND mkp.prs_kostenplaats_key = kp.prs_kostenplaats_key(+) + AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+) + AND m.mld_melding_key = ks.mld_melding_key + UNION ALL + SELECT '*CONCEPT*' fin_verkoopfactuur_id, + DECODE (m.mld_stdmelding_key, 1641, 'CHV', 'CMD') || TRIM (COALESCE (po.waarde, '-')) po_nr, + '04' sortering, + TRIM (ro.waarde) regel, + pf.prs_perslid_naam_full aanvrager, + 'Inc.Verk. ' || TO_CHAR (m.mld_melding_key) regel_oms, + TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum, + 'melding' xmlnode, + m.mld_melding_key refkey, + NULL refid, -- TODO: Nvt. op losverkoopfactuur? + NULL lv, -- TODO: Nvt. op losverkoopfactuur? + b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, TRIM (b.prs_overeenkomst_nr) debiteur_nr, + NULL btw_nr, + TRIM (cp.prs_contactpersoon_aanhef || ' ' || TRIM (cp.prs_contactpersoon_voorletters || ' ' || TRIM (cp.prs_contactpersoon_tussenv || ' ' || cp.prs_contactpersoon_naam))) contactpersoon, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_postcode, b.prs_bedrijf_post_postcode) postcode, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats) plaats, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_land, b.prs_bedrijf_post_land) land, + kp.prs_kostenplaats_key, kp.prs_kostenplaats_nr, kp.prs_kostenplaats_omschrijving, kpg.prs_kostenplaatsgrp_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'V', btw.code) fin_btwtabelwaarde_code, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'Verlegd', btw.oms) fin_btwtabelwaarde_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc) fin_btwtabelwaarde_perc, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd, + TO_CHAR (SYSDATE, 'yyyymm') maand, + TO_CHAR (TRUNC (SYSDATE, 'mm'), 'dd-mm-yyyy') mndbegin, + TO_CHAR (LAST_DAY (SYSDATE), 'dd-mm-yyyy') mndeinde, + NULL dagbegin, + NULL dageinde, + TO_NUMBER (NULL) mndbes, + TO_NUMBER (NULL) mndbez, + TO_NUMBER (NULL) aantal, -- VVO + TO_NUMBER (NULL) tarief, -- Jaartarief per m2 + TO_NUMBER (NULL) vvo_toeslag, -- VVO toeslagperc. + TO_NUMBER (NULL) verv_toeslag, -- Vervangend toeslagperc. + TO_NUMBER (NULL) korting_pm2, -- Korting per m2 Huur + NULL alg_onroerendgoed_type, + TO_NUMBER (NULL) alg_onroerendgoed_keys, + NULL alg_plaatsaanduiding, + ROUND (fac.safe_to_number (cb.waarde), 2) mndnet, -- Netto correctiebedrag + ROUND (fac.safe_to_number (cb.waarde * 0.01 * DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc)), 2) mndbtw, -- BTW correctiebedrag + ks.mld_kenmerkmelding_waarde grtboekrek, + m.mld_melding_key mld_melding_key -- Losverkoopmelding-key + FROM mld_melding m, + prs_v_perslid_fullnames_all pf, + (SELECT km.mld_melding_key, fac.safe_to_number (km.mld_kenmerkmelding_waarde) debiteur_id + FROM mld_v_aanwezigkenmerkmelding km, mld_kenmerk k + WHERE km.mld_kenmerk_key = k.mld_kenmerk_key AND k.mld_srtkenmerk_key IN (881, 882)) deb, -- Debiteur CHV/CMD + prs_contactpersoon cp, + prs_bedrijf b, + --(SELECT prs_link_key, prs_kenmerklink_waarde + -- FROM prs_kenmerklink + -- WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwnr, -- BTW-nummer (NL) + (SELECT prs_link_key, prs_kenmerklink_waarde + FROM prs_kenmerklink + WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwvl, -- BTW verlegd + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = -1) po, -- PO + --(SELECT mld_melding_key, c.cnt_contract_key, c.cnt_contract_nummer_intern, c.cnt_contract_versie + -- FROM mld_v_aanwezigkenmerkmelding km, cnt_contract c + -- WHERE mld_kenmerk_key = -1 -- Contractreferentie + -- AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = c.cnt_contract_key) m2c, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 917) cb, -- Correctiebedrag + (SELECT km.mld_melding_key, ud.fac_usrdata_code code, ud.fac_usrdata_omschr oms, ud.fac_usrdata_prijs perc + FROM mld_v_aanwezigkenmerkmelding km, fac_v_aanwezigusrdata ud + WHERE km.mld_kenmerk_key = 918 -- BTW tarief + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key) btw, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 919) ro, -- Regelomschrijving + (SELECT km.mld_melding_key, kp.prs_kostenplaats_key + FROM mld_v_aanwezigkenmerkmelding km, prs_kostenplaats kp -- TODO (of weg?): Was blcc_v_kostenplaats + WHERE km.mld_kenmerk_key = -1 -- Kostenplaats + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = kp.prs_kostenplaats_key) mkp, + prs_kostenplaats kp, + prs_kostenplaatsgrp kpg, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 920) ks -- Kostensoort + WHERE m.mld_stdmelding_key IN (1641, 1642) -- Losse verkoop CHV/CMD + AND m.prs_perslid_key_voor = pf.prs_perslid_key + AND m.mld_melding_status = 5 -- Afgemeld + AND m.mld_melding_key = deb.mld_melding_key + AND MOD (deb.debiteur_id, 100000000) = cp.prs_contactpersoon_key + AND COALESCE (cp.prs_bedrijf_key, MOD (deb.debiteur_id, 100000000)) = b.prs_bedrijf_key + --AND b.prs_bedrijf_key = btwnr.prs_link_key(+) + AND b.prs_bedrijf_key = btwvl.prs_link_key(+) + AND m.mld_melding_key = po.mld_melding_key(+) + --AND m.mld_melding_key = m2c.mld_melding_key(+) + AND m.mld_melding_key = cb.mld_melding_key + AND m.mld_melding_key = btw.mld_melding_key + AND m.mld_melding_key = ro.mld_melding_key + AND m.mld_melding_key = mkp.mld_melding_key + AND mkp.prs_kostenplaats_key = kp.prs_kostenplaats_key(+) + AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+) + AND m.mld_melding_key = ks.mld_melding_key + UNION ALL + SELECT '*CONCEPT*' fin_verkoopfactuur_id, + DECODE (m.mld_stdmelding_key, 1641, 'CHV', 'CMD') || TRIM (COALESCE (po.waarde, '-')) po_nr, + '05' sortering, + TRIM (ro.waarde) regel, + pf.prs_perslid_naam_full aanvrager, + 'Inc.Verk. ' || TO_CHAR (m.mld_melding_key) regel_oms, + TO_CHAR (SYSDATE, 'dd-mm-yyyy') factuurdatum, TO_CHAR (SYSDATE + 30, 'dd-mm-yyyy') vervaldatum, + 'melding' xmlnode, + m.mld_melding_key refkey, + NULL refid, -- TODO: Nvt. op losverkoopfactuur? + NULL lv, -- TODO: Nvt. op losverkoopfactuur? + b.prs_bedrijf_key, b.prs_bedrijf_naam prs_debiteur_naam, TRIM (b.prs_overeenkomst_nr) debiteur_nr, + NULL btw_nr, + TRIM (cp.prs_contactpersoon_aanhef || ' ' || TRIM (cp.prs_contactpersoon_voorletters || ' ' || TRIM (cp.prs_contactpersoon_tussenv || ' ' || cp.prs_contactpersoon_naam))) contactpersoon, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_adres, b.prs_bedrijf_post_adres) adres, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_postcode, b.prs_bedrijf_post_postcode) postcode, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats) plaats, + DECODE (b.prs_bedrijf_post_adres, NULL, b.prs_bedrijf_bezoek_land, b.prs_bedrijf_post_land) land, + kp.prs_kostenplaats_key, kp.prs_kostenplaats_nr, kp.prs_kostenplaats_omschrijving, kpg.prs_kostenplaatsgrp_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'V', btw.code) fin_btwtabelwaarde_code, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 'Verlegd', btw.oms) fin_btwtabelwaarde_oms, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc) fin_btwtabelwaarde_perc, + DECODE (btwvl.prs_kenmerklink_waarde, '1', 1, TO_NUMBER (NULL)) fin_btwtabelwaarde_verlegd, + TO_CHAR (SYSDATE, 'yyyymm') maand, + TO_CHAR (TRUNC (SYSDATE, 'mm'), 'dd-mm-yyyy') mndbegin, + TO_CHAR (LAST_DAY (SYSDATE), 'dd-mm-yyyy') mndeinde, + NULL dagbegin, + NULL dageinde, + TO_NUMBER (NULL) mndbes, + TO_NUMBER (NULL) mndbez, + TO_NUMBER (NULL) aantal, -- VVO + TO_NUMBER (NULL) tarief, -- Jaartarief per m2 + TO_NUMBER (NULL) vvo_toeslag, -- VVO toeslagperc. + TO_NUMBER (NULL) verv_toeslag, -- Vervangend toeslagperc. + TO_NUMBER (NULL) korting_pm2, -- Korting per m2 Huur + NULL alg_onroerendgoed_type, + TO_NUMBER (NULL) alg_onroerendgoed_keys, + NULL alg_plaatsaanduiding, + ROUND (fac.safe_to_number (cb.waarde), 2) mndnet, -- Netto correctiebedrag + ROUND (fac.safe_to_number (cb.waarde * 0.01 * DECODE (btwvl.prs_kenmerklink_waarde, '1', 0, btw.perc)), 2) mndbtw, -- BTW correctiebedrag + ks.mld_kenmerkmelding_waarde grtboekrek, + m.mld_melding_key mld_melding_key -- Losverkoopmelding-key + FROM mld_melding m, + prs_v_perslid_fullnames_all pf, + (SELECT km.mld_melding_key, fac.safe_to_number (km.mld_kenmerkmelding_waarde) debiteur_id + FROM mld_v_aanwezigkenmerkmelding km, mld_kenmerk k + WHERE km.mld_kenmerk_key = k.mld_kenmerk_key AND k.mld_srtkenmerk_key IN (881, 882)) deb, -- Debiteur CHV/CMD + prs_contactpersoon cp, + prs_bedrijf b, + --(SELECT prs_link_key, prs_kenmerklink_waarde + -- FROM prs_kenmerklink + -- WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwnr, -- BTW-nummer (NL) + (SELECT prs_link_key, prs_kenmerklink_waarde + FROM prs_kenmerklink + WHERE prs_kenmerklink_verwijder IS NULL AND prs_kenmerk_key = -1) btwvl, -- BTW verlegd + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = -1) po, -- PO + --(SELECT mld_melding_key, c.cnt_contract_key, c.cnt_contract_nummer_intern, c.cnt_contract_versie + -- FROM mld_v_aanwezigkenmerkmelding km, cnt_contract c + -- WHERE mld_kenmerk_key = -1 -- Contractreferentie + -- AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = c.cnt_contract_key) m2c, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 922) cb, -- Correctiebedrag + (SELECT km.mld_melding_key, ud.fac_usrdata_code code, ud.fac_usrdata_omschr oms, ud.fac_usrdata_prijs perc + FROM mld_v_aanwezigkenmerkmelding km, fac_v_aanwezigusrdata ud + WHERE km.mld_kenmerk_key = 923 -- BTW tarief + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = ud.fac_usrdata_key) btw, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 924) ro, -- Regelomschrijving + (SELECT km.mld_melding_key, kp.prs_kostenplaats_key + FROM mld_v_aanwezigkenmerkmelding km, prs_kostenplaats kp -- TODO (of weg?): Was blcc_v_kostenplaats + WHERE km.mld_kenmerk_key = -1 -- Kostenplaats + AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) = kp.prs_kostenplaats_key) mkp, + prs_kostenplaats kp, + prs_kostenplaatsgrp kpg, + (SELECT mld_melding_key, mld_kenmerkmelding_waarde + FROM mld_v_aanwezigkenmerkmelding + WHERE mld_kenmerk_key = 925) ks -- Kostensoort + WHERE m.mld_stdmelding_key IN (1641, 1642) -- Losse verkoop CHV/CMD + AND m.prs_perslid_key_voor = pf.prs_perslid_key + AND m.mld_melding_status = 5 -- Afgemeld + AND m.mld_melding_key = deb.mld_melding_key + AND MOD (deb.debiteur_id, 100000000) = cp.prs_contactpersoon_key + AND COALESCE (cp.prs_bedrijf_key, MOD (deb.debiteur_id, 100000000)) = b.prs_bedrijf_key + --AND b.prs_bedrijf_key = btwnr.prs_link_key(+) + AND b.prs_bedrijf_key = btwvl.prs_link_key(+) + AND m.mld_melding_key = po.mld_melding_key(+) + --AND m.mld_melding_key = m2c.mld_melding_key(+) + AND m.mld_melding_key = cb.mld_melding_key + AND m.mld_melding_key = btw.mld_melding_key + AND m.mld_melding_key = ro.mld_melding_key + AND m.mld_melding_key = mkp.mld_melding_key + AND mkp.prs_kostenplaats_key = kp.prs_kostenplaats_key(+) + AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+) + AND m.mld_melding_key = ks.mld_melding_key; + CREATE OR REPLACE VIEW bssc_v_addd_actual AS WITH lopendeperiode AS (SELECT TO_CHAR (ADD_MONTHS (SYSDATE, -1), 'yyyymm') maand FROM dual) SELECT '*CONCEPT*' fin_verkoopfactuur_id, - 'CHV' || TRIM (COALESCE (x.en, '-')) po_nr, + 'CMD' || TRIM (COALESCE (x.en, '-')) po_nr, TO_CHAR (x.reslev, 'yyyymmdd') || SUBSTR ('0000' || TO_CHAR (res_rsv_ruimte_key), -7) || TO_CHAR (volgnr) sortering, -- TODO 'Event ' || x.res_id regel, x.prs_perslid_naam_full aanvrager, @@ -2966,8 +3642,7 @@ AS SUM (COALESCE (verw_prijs, prijs, 0)) mndnet, -- Netto bedrag SUM (ROUND (DECODE (x.btw_vl, '1', 0, DECODE (x.btw, 'VL', 0.09, 0.21)) * COALESCE (verw_prijs, prijs, 0), 2)) mndbtw, -- BTW bedrag x.prs_kostensoort_refcode grtboekrek, - TO_NUMBER (NULL) mld_melding_key, -- Correctiemelding-key - NULL mld_melding_omschrijving + TO_NUMBER (NULL) mld_melding_key -- Correctiemelding-key FROM (SELECT rrr.res_rsv_ruimte_key, -- Ruimte-regel rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr res_id, h.prs_bedrijf_key, @@ -3252,7 +3927,7 @@ AS AND rra.res_discipline_key = rd.ins_discipline_key AND rd.prs_kostensoort_key = ks.prs_kostensoort_key(+)) x GROUP BY '*CONCEPT*', - 'CHV' || TRIM (COALESCE (x.en, '-')), + 'CMD' || TRIM (COALESCE (x.en, '-')), TO_CHAR (x.reslev, 'yyyymmdd') || SUBSTR ('0000' || TO_CHAR (res_rsv_ruimte_key), -7) || TO_CHAR (volgnr), 'Event ' || x.res_id, x.prs_perslid_naam_full, @@ -3287,8 +3962,40 @@ AS TO_NUMBER (NULL), NULL, x.prs_kostensoort_refcode, - TO_NUMBER (NULL), - NULL; + TO_NUMBER (NULL) + UNION ALL -- Correctiemeldingen + SELECT fin_verkoopfactuur_id, po_nr, + sortering, regel, aanvrager, regel_oms, + factuurdatum, vervaldatum, + xmlnode, refkey, refid, lv, + prs_bedrijf_key, prs_debiteur_naam, debiteur_nr, btw_nr, contactpersoon, + adres, postcode, plaats, land, + prs_kostenplaats_key, prs_kostenplaats_nr, prs_kostenplaats_omschrijving, prs_kostenplaatsgrp_oms, + fin_btwtabelwaarde_code, fin_btwtabelwaarde_oms, fin_btwtabelwaarde_perc, fin_btwtabelwaarde_verlegd, + maand, mndbegin, mndeinde, dagbegin, dageinde, mndbes, mndbez, + aantal, tarief, vvo_toeslag, verv_toeslag, korting_pm2, + alg_onroerendgoed_type, alg_onroerendgoed_keys, alg_plaatsaanduiding, + mndnet, mndbtw, + grtboekrek, + mld_melding_key + FROM bssc_v_addd_correctie + UNION ALL -- Losverkoopmeldingen + SELECT fin_verkoopfactuur_id, po_nr, + sortering, regel, aanvrager, regel_oms, + factuurdatum, vervaldatum, + xmlnode, refkey, refid, lv, + prs_bedrijf_key, prs_debiteur_naam, debiteur_nr, btw_nr, contactpersoon, + adres, postcode, plaats, land, + prs_kostenplaats_key, prs_kostenplaats_nr, prs_kostenplaats_omschrijving, prs_kostenplaatsgrp_oms, + fin_btwtabelwaarde_code, fin_btwtabelwaarde_oms, fin_btwtabelwaarde_perc, fin_btwtabelwaarde_verlegd, + maand, mndbegin, mndeinde, dagbegin, dageinde, mndbes, mndbez, + aantal, tarief, vvo_toeslag, verv_toeslag, korting_pm2, + alg_onroerendgoed_type, alg_onroerendgoed_keys, alg_plaatsaanduiding, + mndnet, mndbtw, + grtboekrek, + mld_melding_key + FROM bssc_v_addd_losverkoop +; CREATE OR REPLACE VIEW bssc_v_addd_frozen AS @@ -3301,7 +4008,7 @@ AS TO_CHAR (vf.fin_verkoopfactuur_datum, 'dd-mm-yyyy') factuurdatum, TO_CHAR (vf.fin_verkoopfactuur_d1, 'dd-mm-yyyy') vervaldatum, vf.fin_verkoopfactuur_xmlnode xmlnode, vf.fin_verkoopfactuur_refkey refkey, -- !!! - rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr refid, -- Niet historisch bewaard! + DECODE (vf.fin_verkoopfactuur_xmlnode, 'reservering', TO_CHAR (rrr.res_reservering_key) || '/' || TO_CHAR (rrr.res_rsv_ruimte_volgnr), NULL) refid, -- Niet historisch bewaard! TO_DATE (NULL) lv, vf.prs_bedrijf_key, vf.prs_debiteur_naam, SUBSTR (vf.fin_verkoopfactuur_c7, 1, INSTR (vf.fin_verkoopfactuur_c7, '=') - 1) debiteur_nr, @@ -3335,14 +4042,12 @@ AS vf.fin_verkoopfactuur_bedrag mndnet, -- Netto bedrag vf.fin_verkoopfactuur_btw mndbtw, -- BTW bedrag vf.prs_kostensoort_refcode grtboekrek, - vf.fin_verkoopfactuur_n1 mld_melding_key, - NULL mld_melding_omschrijving + vf.fin_verkoopfactuur_n1 mld_melding_key FROM fin_verkoopfactuur vf, res_rsv_ruimte rrr, prs_bedrijf b - WHERE SUBSTR (vf.fin_verkoopfactuur_id, 1, 1) = '?' -- TODO:Of andere conditie? - AND vf.fin_verkoopfactuur_refkey = rrr.res_rsv_ruimte_key - AND vf.prs_bedrijf_key = b.prs_bedrijf_key - ORDER BY vf.prs_bedrijf_key, 1, 2, 3, 4; - + WHERE (vf.fin_verkoopfactuur_xmlnode = 'reservering' OR vf.fin_verkoopfactuur_n1 IS NOT NULL) -- R of M! + AND vf.fin_verkoopfactuur_refkey = rrr.res_rsv_ruimte_key(+) -- Alleen indien xmlnode=reservering! + AND vf.prs_bedrijf_key = b.prs_bedrijf_key; +/* -- TODO:Kostensoorten, etc.! CREATE OR REPLACE VIEW bssc_v_rap_export_addd ( @@ -3543,7 +4248,7 @@ AS -- View bevat alleen inhoud op de dag na de 10e werkdag van de maand! FROM mld_vrije_dagen WHERE TRUNC (mld_vrije_dagen_datum) = TRUNC (SYSDATE - 1)) ORDER BY 2; - +*/ CREATE OR REPLACE PROCEDURE bssc_select_addd (p_applname IN VARCHAR2, p_applrun IN VARCHAR2) AS @@ -3609,6 +4314,7 @@ AS v_amount_sum NUMBER (10, 2); v_old_bedrijf_key NUMBER (10); v_old_po_nr VARCHAR2 (50); + v_year_offset NUMBER (10); v_factuur_id VARCHAR2 (30); v_factkop_id VARCHAR2 (30); v_verkoopfactuurkop_key NUMBER (10); @@ -3646,9 +4352,47 @@ BEGIN BEGIN IF rec.mndnet != 0 AND (rec.prs_bedrijf_key != v_old_bedrijf_key OR rec.po_nr != v_old_po_nr) THEN - SELECT fac_s_user02.NEXTVAL INTO v_count FROM DUAL; + IF rec.po_nr LIKE 'CHV%' + THEN + -- TODO:Afhankelijk van boekstuknummer-methodiek! + --SELECT fac_s_user01.NEXTVAL INTO v_count FROM DUAL; + + --v_factuur_id := '1' || SUBSTR ('00000000' || TO_CHAR (v_count), -8); + -- Bepaal max. sequence t/m voorgaande jaar (= aantal entries in + -- fin_verkoopfactuurkop-tabel). + SELECT COUNT ( * ) + INTO v_year_offset + FROM fin_verkoopfactuurkop vfk + WHERE SUBSTR (vfk.fin_verkoopfactuurkop_id, 5, 1) = '1' -- Boekstuknummers in formaat 1! + AND SUBSTR (vfk.fin_verkoopfactuurkop_id, 1, 4) < TO_CHAR (ADD_MONTHS (SYSDATE, 1), 'yyyy'); + + -- Bepaal fin_verkoopfactuur_id=boekstuknr. tbv. BCC-verkoopboek + -- obv. sequence '01' en begin elk nieuw jaar weer bij 1 door te + -- corrigeren met de hierboven bepaalde offset. + SELECT fac_s_user01.NEXTVAL - v_year_offset INTO v_count FROM DUAL; + + v_factuur_id := TO_CHAR (ADD_MONTHS (SYSDATE, 1), 'yyyy') || '9' || SUBSTR ('0000' || TO_CHAR (v_count), -4); + ELSE -- rec.po_nr LIKE 'CMD%' + -- TODO:Afhankelijk van boekstuknummer-methodiek! + --SELECT fac_s_user02.NEXTVAL INTO v_count FROM DUAL; + + --v_factuur_id := '2' || SUBSTR ('00000000' || TO_CHAR (v_count), -8); + -- Bepaal max. sequence t/m voorgaande jaar (= aantal entries in + -- fin_verkoopfactuurkop-tabel). + SELECT COUNT ( * ) + INTO v_year_offset + FROM fin_verkoopfactuurkop vfk + WHERE SUBSTR (vfk.fin_verkoopfactuurkop_id, 5, 1) = '2' -- Boekstuknummers in formaat 2! + AND SUBSTR (vfk.fin_verkoopfactuurkop_id, 1, 4) < TO_CHAR (ADD_MONTHS (SYSDATE, 1), 'yyyy'); + + -- Bepaal fin_verkoopfactuur_id=boekstuknr. tbv. BCC-verkoopboek + -- obv. sequence '02' en begin elk nieuw jaar weer bij 1 door te + -- corrigeren met de hierboven bepaalde offset. + SELECT fac_s_user02.NEXTVAL - v_year_offset INTO v_count FROM DUAL; + + v_factuur_id := TO_CHAR (ADD_MONTHS (SYSDATE, 1), 'yyyy') || '1' || SUBSTR ('0000' || TO_CHAR (v_count), -4); + END IF; - v_factuur_id := '3' || SUBSTR ('00000000' || TO_CHAR (v_count), -8); v_factkop_id := v_factuur_id || '_' || SUBSTR (rec.maand, 1, 4) || '-' || SUBSTR (rec.maand, -2) || '_' || rec.debiteur_nr; INSERT INTO fin_verkoopfactuurkop (fin_verkoopfactuurkop_id) @@ -3742,7 +4486,7 @@ BEGIN rec.aanvrager, -- c5 rec.regel_oms, -- c6 rec.debiteur_nr || '=' || rec.btw_nr, -- c7 - rec.mld_melding_omschrijving, -- c8 + NULL, -- c8 TO_DATE (rec.vervaldatum, 'dd-mm-yyyy'), -- d1 TO_DATE (rec.mndbegin, 'dd-mm-yyyy'), -- d2 TO_DATE (rec.mndeinde, 'dd-mm-yyyy'), -- d3 @@ -3929,6 +4673,7 @@ END; -- Export om een BAT-bestand aan te maken dat de PDF-bestanden genereert. Deze -- export moet voor 5:00 worden gedraaid, daarna (7:00) worden de notificaties -- vanuit putOrders verstuurd. +-- TODO: Bundelen in één noti! CREATE OR REPLACE VIEW bssc_v_export_pdf_att ( result, @@ -4545,7 +5290,7 @@ AS ON vf.fin_verkoopfactuur_xmlnode = 'contract' AND vf.fin_verkoopfactuur_refkey = c.cnt_contract_key; -CREATE OR REPLACE VIEW BSSC_V_RAP_FREEZEEVENTS +CREATE OR REPLACE VIEW BSSC_V_RAP_TE_FACTUREREN ( refkey, debiteur, @@ -4556,33 +5301,48 @@ CREATE OR REPLACE VIEW BSSC_V_RAP_FREEZEEVENTS kosten ) AS - SELECT v.refkey, - v.prs_debiteur_naam, - v.debiteur_nr, - v.contactpersoon, - --TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyy-mm-dd') datum, - rrr.res_rsv_ruimte_van, - v.refid, + SELECT refkey, + prs_debiteur_naam, + debiteur_nr, + contactpersoon, + datum, + refid, SUM (mndnet) kosten - FROM bssc_v_addd_actual v, res_rsv_ruimte rrr - WHERE v.xmlnode = 'reservering' AND v.refkey = rrr.res_rsv_ruimte_key - GROUP BY v.refkey, - v.prs_debiteur_naam, - v.debiteur_nr, - v.contactpersoon, - --TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyy-mm-dd'), - rrr.res_rsv_ruimte_van, - v.refid; + FROM (SELECT v.refkey, + v.prs_debiteur_naam, + v.debiteur_nr, + v.contactpersoon, + fac.gettrackingdate ('RESAFM', rrr.res_rsv_ruimte_key) datum, + v.refid, + v.mndnet + FROM bssc_v_addd_actual v, res_rsv_ruimte rrr -- TODO: Toevoegen vrijgavedatum + WHERE v.xmlnode = 'reserverng' AND v.refkey = rrr.res_rsv_ruimte_key + UNION ALL + SELECT v.mld_melding_key refkey, + v.prs_debiteur_naam, + v.debiteur_nr, + v.contactpersoon, + fac.gettrackingdate ('MLDAFM', v.mld_melding_key) datum, + TO_CHAR (v.regel_oms) refid, + v.mndnet + FROM bssc_v_addd_actual v -- TODO: Toevoegen vrijgavedatum + WHERE v.mld_melding_key IS NOT NULL) -- Correctie- of losverkoopmelding + GROUP BY refkey, + prs_debiteur_naam, + debiteur_nr, + contactpersoon, + datum, + refid; CREATE OR REPLACE VIEW BSSC_V_RAP_VERKOOPFACTUUR AS -SELECT 'C' factuurstroom, +SELECT 'C' factuurstroom, -- C! fin_verkoopfactuur_id, po_nr, sortering, regel, - aanvrager, -- Alleen R-factuur - regel_oms, -- Alleen R-factuur + aanvrager, -- Niet C-factuur + regel_oms, -- Niet C-factuur TO_DATE (factuurdatum, 'dd-mm-yyyy') gefactureerd_op, factuurdatum, vervaldatum, @@ -4606,13 +5366,12 @@ SELECT 'C' factuurstroom, mndeinde, mndnet, mndbtw, -- Weg? - TO_CHAR (mld_melding_key) meldingnummer, - mld_melding_key, - mld_melding_omschrijving -- Weg? + TO_CHAR (mld_melding_key) meldingnummer, -- Alleen M-factuur + mld_melding_key -- Alleen M-factuur FROM bssc_v_fact_actual WHERE maand >= TO_CHAR (ADD_MONTHS (SYSDATE, -12), 'yyyy') || '01' UNION ALL -SELECT 'R' factuurstroom, +SELECT UPPER (SUBSTR (xmlnode, 1, 1)) factuurstroom, -- R of M! fin_verkoopfactuur_id, po_nr, sortering, @@ -4624,7 +5383,7 @@ SELECT 'R' factuurstroom, vervaldatum, xmlnode, refkey, - refid, + refid, -- Niet M-factuur lv, -- Alleen C-factuur prs_bedrijf_key, prs_debiteur_naam, @@ -4642,9 +5401,8 @@ SELECT 'R' factuurstroom, mndeinde, mndnet, mndbtw, -- Weg? - TO_CHAR (mld_melding_key) meldingnummer, - mld_melding_key, - mld_melding_omschrijving -- Weg? + TO_CHAR (mld_melding_key) meldingnummer, -- Alleen M-factuur + mld_melding_key -- Alleen M-factuur FROM bssc_v_addd_actual WHERE maand >= TO_CHAR (ADD_MONTHS (SYSDATE, -12), 'yyyy') || '01';