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

YASK#85687 Boekmaand toegevoegd aan catering rapport rabobank

Browse Source 
YASK#87480 Autorisatiegroep wordt nu uit flex kenmerk bij de afdeling gehaald.

svn path=/Customer/trunk/; revision=67903
This commit is contained in:
Arthur Egberink
2025-02-07 08:33:29 +00:00
parent b18d14962a
commit 0204b95972
1 changed files with 37 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
YASK/yask.sql
View File

@@ -372,6 +372,7 @@ AS
FROM mld_kenmerk k, mld_opdr o
WHERE k.mld_srtkenmerk_key = 201 -- Verkoopprijs
AND k.mld_typeopdr_key = o.mld_typeopdr_key
AND k.mld_kenmerk_verwijder IS NULL
AND o.mld_opdr_key = p_opdr_key;
SELECT mld_opdr_kosten
@@ -938,8 +939,8 @@ AS
BEGIN
SELECT MAX (kl.prs_link_key)
INTO v_afdeling_key
SELECT MAX (kl.prs_link_key), MAX(FLX.getflex('PRS', 1140, p.prs_afdeling_key, 'A'))
INTO v_afdeling_key, v_groep_key
FROM prs_perslid p, prs_kenmerklink kl
WHERE kl.prs_kenmerk_key = 1041 -- Domein
AND kl.prs_kenmerklink_verwijder IS NULL
@@ -975,24 +976,9 @@ AS
prs.movetoruimte (p_perslid_key, v_ruimte_key, 'A');
-- De medewerkers van Renewi gaan we onder een andere autorisatiegroep plaatsen
SELECT LOWER(prs_perslid_email)
INTO v_perslid_email
FROM prs_perslid
WHERE prs_perslid_key = p_perslid_key;
SELECT MIN(fac_groep_key)
INTO v_groep_key
FROM fac_groep g
WHERE LOWER(fac_groep_externid) =
SUBSTR (v_perslid_email,
INSTR (v_perslid_email, '@'),
100)
AND NOT EXISTS (SELECT 1
FROM fac_gebruikersgroep gg
WHERE gg.prs_perslid_key = p_perslid_key
AND gg.fac_groep_key = g.fac_groep_key);
-- Als de persoon al in deze autorisatiegroep aanwezig is hoeven we dit niet meer aan te passen.
-- Dit betekent dat we alleen de eerste keer dit checken. Wat waarschijnlijk ook al afgedekt wordt omdat
-- dit in de self registratie hook staat die niet vaker aangeroepen wordt.
IF v_groep_key IS NOT NULL
THEN
DELETE fac_gebruikersgroep WHERE prs_perslid_key = p_perslid_key;
@@ -1768,11 +1754,12 @@ SELECT deel_key,
CREATE OR REPLACE VIEW yask_v_rap_rabo_catering
AS
SELECT rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr reserveringsnummer_fac,
alg_gebouw_code reserveringsgebouw,
alg_district_omschrijving district,
g.alg_gebouw_code reserveringsgebouw,
di.alg_district_omschrijving district,
l.alg_locatie_omschrijving locatie,
rrr.res_rsv_ruimte_omschrijving reserveringomschrijving,
TRUNC (rrr.res_rsv_ruimte_van) reserveringdatum,
flx.getflex ('RES', 381, rrr.res_rsv_ruimte_key) resnummer,
flx.getflex ('RES', 401, rrr.res_rsv_ruimte_key) resnummer,
k.prs_kostenplaats_nr kostenplaatsnr,
k.prs_kostenplaats_omschrijving kostenplaatsoms,
ks.prs_kostensoort_oms,
@@ -1783,7 +1770,8 @@ SELECT rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr reserverin
0 opslag,
rra.res_rsv_artikel_prijs kostenplusopslagexbtw,
rra.res_rsv_artikel_prijs * (1 + (rra.res_rsv_artikel_btw / 100)) kostenplusopslaginclbtw,
DECODE(o.mld_opdr_key, NULL, NULL, o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr) opdracht
DECODE(o.mld_opdr_key, NULL, NULL, o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr) opdracht,
TO_CHAR(o.mld_opdr_datumbegin, 'YYYY-MM') boekmaand
FROM res_rsv_ruimte rrr,
res_rsv_artikel rra,
res_artikel ra,
@@ -1798,7 +1786,9 @@ SELECT rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr reserverin
res_status_bo bo,
mld_opdr o
WHERE rrr.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
AND rrr.res_rsv_ruimte_verwijder IS NULL
AND rra.res_artikel_key = ra.res_artikel_key
AND rra.res_rsv_artikel_verwijder IS NULL
AND ra.res_discipline_key = rd.ins_discipline_key
AND rd.prs_kostensoort_key = ks.prs_kostensoort_key
AND rrr.alg_ruimte_key = r.alg_ruimte_key
@@ -1886,10 +1876,12 @@ AS
v_melding_key NUMBER (10);
v_melding_status NUMBER (1);
v_bedrijf_key NUMBER (10);
v_kostenplaats_key NUMBER (10);
v_contact_key NUMBER (10);
v_opdr_key NUMBER (10);
v_mld_opdr_bedrijfopdr_volgnr NUMBER;
v_rb_goedgekeurd_kenmerk_key NUMBER (10);
v_niet_doorbelasten_kenmerk_key NUMBER (10);
v_stdmelding_t_uitvoertijd mld_stdmelding.mld_stdmelding_t_uitvoertijd%TYPE;
v_stdmelding_t_accepttijd mld_stdmelding.mld_stdmelding_t_accepttijd%TYPE;
@@ -1915,6 +1907,12 @@ BEGIN
FOR rec IN c_res
LOOP
BEGIN
v_errormsg := 'Zoek de kostenplaats van de api: ' || rec.res_rsv_ruimte_contact_key;
SELECT prs_kostenplaats_key
INTO v_kostenplaats_key
FROM prs_perslid
WHERE prs_perslid_key = rec.res_rsv_ruimte_contact_key;
-- controleer of er een openstaande melding is voor dit gebouw
v_errormsg := 'Kunnen we een melding vinden onder gebouw: ' || rec.alg_gebouw_key;
SELECT mld_melding_key, mld_melding_status
@@ -1949,7 +1947,7 @@ BEGIN
mld_melding_spoed)
VALUES ('Catering ReversedBilling boekingen',
rec.res_rsv_ruimte_contact_key, -- API catering rabobank
rec.prs_kostenplaats_key, -- Rabobank
v_kostenplaats_key, -- Rabobank
v_stdmelding_key,
rec.alg_locatie_key,
rec.alg_gebouw_key,
@@ -2010,7 +2008,7 @@ BEGIN
mld_opdr_kosten,
mld_opdr_bedrijfopdr_volgnr)
VALUES ( v_melding_key,
rec.prs_kostenplaats_key, -- Rabobank kostenplaats
v_kostenplaats_key, -- Rabobank kostenplaats
5, -- uitgegeven
v_typeopdr_key,
rec.res_rsv_ruimte_contact_key, -- API catering rabobank
@@ -2051,6 +2049,17 @@ BEGIN
v_errormsg := 'Kenmerk RB_GOEDGEKEURD op 1 zetten';
FLX.setflex('OPD', v_rb_goedgekeurd_kenmerk_key, v_opdr_key, '1');
v_errormsg := 'Opvragen van het opdrachtkenmerk: NIETDOORBELASTEN';
SELECT mld_kenmerk_key
INTO v_niet_doorbelasten_kenmerk_key
FROM mld_kenmerk k, mld_srtkenmerk sk
WHERE k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
AND sk.mld_srtkenmerk_code = 'NIETDOORBELASTEN' -- Niet op de doorbelasting naar Rabo
AND k.mld_typeopdr_key = v_typeopdr_key;
v_errormsg := 'Kenmerk NIETDOORBELASTEN op 1 zetten';
FLX.setflex('OPD', v_niet_doorbelasten_kenmerk_key, v_opdr_key, '1');
v_errormsg := 'Koppel de catering artikelen aan de opdracht.';
FOR rec_g IN c_res_geb(rec.alg_gebouw_key)
@@ -5682,6 +5691,7 @@ END;
--
--
--
/*
CREATE OR REPLACE PROCEDURE yask_import_rabo_automaten (p_import_key IN NUMBER)
AS
CURSOR c_cursor IS
@@ -6070,7 +6080,7 @@ EXCEPTION
fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
END;
/
*/
------ payload end ------
SET DEFINE OFF