From a330f7d06503f2642aea84f44c2e37acb431f7ed Mon Sep 17 00:00:00 2001 From: Maarten van der Heide Date: Mon, 10 May 2021 15:55:22 +0000 Subject: [PATCH] BSSC#55692 Facturatieproces svn path=/Customer/trunk/; revision=51367 --- BSSC/bssc.sql | 140 ++++++++------------------------------------------ 1 file changed, 20 insertions(+), 120 deletions(-) diff --git a/BSSC/bssc.sql b/BSSC/bssc.sql index e990296b4..2494461cc 100644 --- a/BSSC/bssc.sql +++ b/BSSC/bssc.sql @@ -15,127 +15,7 @@ SPOOL &fcltlogfile SET DEFINE OFF ------ payload begin ------ -/* -CREATE OR REPLACE PACKAGE BSSC -IS - PROCEDURE freezeevent (p_key IN NUMBER); -END; -/ -CREATE OR REPLACE PACKAGE BODY BSSC -IS - PROCEDURE freezeevent (p_key IN NUMBER) - AS - -- Verwerk reservering/event (in juiste volgorde)! - CURSOR c3 - IS - SELECT DISTINCT '[' || TO_CHAR (rra.res_rsv_ruimte_key) || '|' || TO_CHAR (rra.res_rsv_artikel_key) || '] ' aanduiding, - rra.res_rsv_ruimte_key, - rra.res_rsv_artikel_key, - NULL res_rsv_deel_key, - rra.res_status_bo_key, - rra.res_artikel_key - FROM res_v_aanwezigrsv_artikel rra - WHERE rra.res_rsv_ruimte_key = p_key - UNION ALL - SELECT DISTINCT '[' || TO_CHAR (rrd.res_rsv_ruimte_key) || '|' || TO_CHAR (rrd.res_rsv_deel_key) || '] ' aanduiding, - rrd.res_rsv_ruimte_key, - NULL res_rsv_artikel_key, - rrd.res_rsv_deel_key, - rrd.res_status_bo_key, - rrd.res_deel_key - FROM res_v_aanwezigrsv_deel rrd - WHERE rrd.res_rsv_ruimte_key = p_key - UNION ALL - SELECT DISTINCT '[' || TO_CHAR (rrr.res_rsv_ruimte_key) || '] ' aanduiding, - rrr.res_rsv_ruimte_key, - NULL res_rsv_artikel_key, - NULL res_rsv_deel_key, - rrr.res_status_bo_key, - NULL res_artikel_key - FROM res_v_aanwezigrsv_ruimte rrr - WHERE rrr.res_rsv_ruimte_key = p_key - ORDER BY 3, 4, 2; - - c_applname VARCHAR2 (50) := 'FREEZE_EV'; - v_errormsg VARCHAR2 (1000); - oracle_err_num NUMBER; - oracle_err_mes VARCHAR2 (200); - --v_status_bo_key NUMBER; - BEGIN - --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; - - --v_errormsg := 'Fout bijwerken status'; - - --IF v_status_bo_key = 5 -- Afgemeld - --THEN - FOR rec IN c3 - LOOP - BEGIN - IF rec.res_rsv_artikel_key IS NOT NULL - THEN -- Catering-regel - IF rec.res_status_bo_key = 5 -- Afgemeld - THEN - v_errormsg := 'Fout verwerken res_rsv_artikel'; - - UPDATE res_rsv_artikel - SET res_status_bo_key = 6 -- AV (en zet ook Verwerkt-date) - WHERE res_rsv_artikel_key = rec.res_rsv_artikel_key; - - v_errormsg := 'Fout tracken verwerking'; - - fac.trackaction ('RESVER', rec.res_rsv_ruimte_key, NULL, NULL, 'Catering verwerkt'); - END IF; - ELSIF rec.res_rsv_deel_key IS NOT NULL - THEN -- Voorziening-regel - IF rec.res_status_bo_key = 5 - THEN - v_errormsg := 'Fout verwerken res_rsv_deel'; - - UPDATE res_rsv_deel - SET res_status_bo_key = 6 -- AV (en zet ook Verwerkt-date) - WHERE res_rsv_deel_key = rec.res_rsv_deel_key; - - v_errormsg := 'Fout tracken verwerking'; - - fac.trackaction ('RESVER', rec.res_rsv_ruimte_key, NULL, NULL, 'Voorziening verwerkt'); - END IF; - ELSE -- Ruimte-regel - IF rec.res_status_bo_key = 5 -- Afgemeld - THEN - v_errormsg := 'Fout verwerken res_rsv_ruimte'; - - UPDATE res_rsv_ruimte - SET res_status_bo_key = 6 -- AV - WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key; - - v_errormsg := 'Fout tracken verwerking'; - - fac.trackaction ('RESVER', rec.res_rsv_ruimte_key, NULL, NULL, NULL); - END IF; - END IF; - END; - END LOOP; - --END IF; - - fac.writelog (c_applname, 'S', 'Proces: Event ' || TO_CHAR (p_key) || ' bevroren', ''); - COMMIT; - EXCEPTION - WHEN OTHERS - THEN - oracle_err_num := SQLCODE; - oracle_err_mes := SUBSTR (SQLERRM, 1, 100); - v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')'; - fac.writelog (c_applname, 'E', v_errormsg, ''); - COMMIT; - END freezeevent; -END; -*/ CREATE OR REPLACE VIEW bssc_v_rap_import_log ( fclt_f_applicatie, @@ -5290,6 +5170,26 @@ AS ON vf.fin_verkoopfactuur_xmlnode = 'contract' AND vf.fin_verkoopfactuur_refkey = c.cnt_contract_key; +-- Domein met de financiële mensen die reserveringen, correctiemeldingen en +-- incidentele verkoopmeldingen mogen vrijgen om te factureren. +CREATE OR REPLACE VIEW bssc_v_vrijgevers +( + prs_perslid_key, + prs_perslid_naam_full, + prs_perslid_naam_friendly, + prs_perslid_verwijder +) +AS + SELECT pf.prs_perslid_key, + pf.prs_perslid_naam_full, + pf.prs_perslid_naam_friendly, + p.prs_perslid_verwijder + FROM fac_gebruikersgroep gg, prs_perslid p, prs_v_perslid_fullnames_all pf + WHERE gg.fac_groep_key = 2661 -- SSC Vrijgave voor facturatie + AND gg.prs_perslid_key = p.prs_perslid_key + AND p.prs_perslid_key = pf.prs_perslid_key + AND SUBSTR (p.prs_perslid_oslogin, 1, 1) != '_'; + CREATE OR REPLACE VIEW BSSC_V_RAP_TE_FACTUREREN ( refkey,