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

BSSC#55692 Facturatieproces

Browse Source 
svn path=/Customer/trunk/; revision=51367
This commit is contained in:
Maarten van der Heide
2021-05-10 15:55:22 +00:00
parent bc19b32aa4
commit a330f7d065
1 changed files with 20 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

140
BSSC/bssc.sql
View File

@@ -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<63>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,