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

SUTF#57712 ook catering op mobiele looplijst

Browse Source 
svn path=/Customer/trunk/; revision=42478
This commit is contained in:
Ruud Lipper
2019-05-13 10:20:25 +00:00
parent 069a93cd5f
commit 919e27c085
1 changed files with 50 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

78
SUTF/sutf.sql
View File

@@ -1373,15 +1373,15 @@ END;
/
------
------
------ FACTUURIMPORT / KOPPELING XTRACTOR
------
------
CREATE OR REPLACE PROCEDURE sutf_import_factuur (p_import_key IN NUMBER)
AS
v_seq_of_columns VARCHAR(50);
BEGIN
--In de XSL: factuurnr(1);factuurdatum(2);opdrachtnr(3);omschrijving(4);bedrag(5);btwperc(6);btwbedrag(7);document(8);debiteurnr(9);opmerking(10);btw_verlegd(11);betaalkenmerk(12)
--hulp voor pos : '1;2;3;4;5;6;7;8;9;0;1;2;3;14;15;16;7;8;9;0'
v_seq_of_columns := '0;1;2;3;0;0;4;0;5;7;6;8;9;10;11;12;0;0;0;0';
@@ -1393,7 +1393,7 @@ CREATE OR REPLACE PROCEDURE sutf_post_processing_factuur (p_import_key IN NUMBER
AS
-- Key van het kenmerk 'betaalreferentie' bij de factuur
c_kenmerk_key NUMBER(10) := 21;
CURSOR cfactuur_kenmerk
IS
SELECT DISTINCT fin_factuur_key, kenmerk1, factuurnr, fac_imp_file_index
@@ -1401,9 +1401,9 @@ AS
WHERE fin_factuur_key IS NOT NULL
AND kenmerk1 IS NOT NULL;
BEGIN
-- De betaalreferentie wordt in kenmerk 1 van fac_imp_factuur gezet, dus alle fac_imp_factuur langsgaan en verwerken
FOR rc IN cfactuur_kenmerk
LOOP
BEGIN
@@ -1435,15 +1435,15 @@ END;
------
------
------ FACTUURIMPORT / E-INVOICING (Pilot met OD: SUTF#26879)
------
------
CREATE OR REPLACE PROCEDURE sutf_import_e_invoice (p_import_key IN NUMBER)
AS
v_seq_of_columns VARCHAR(50);
BEGIN
--In de XSL: factuurnr(1);factuurdatum(2);opdrachtnr(3);omschrijving(4);bedrag(5);btwperc(6);btwbedrag(7);document(8);debiteurnr(9);opmerking(10);btw_verlegd(11);betaalkenmerk(12)
--hulp voor pos : '1;2;3;4;5;6;7;8;9;0;1;2;3;14;15;16;7;8;9;0'
v_seq_of_columns := '0;1;2;3;0;0;4;0;5;7;6;8;9;10;11;12;0;0;0;0';
@@ -1463,9 +1463,9 @@ END;
/
------
------
------ FACTUUREXPORT / KOPPELING EXACT
------
------
-- View waarin bij de factuur met fin_factuur_key het bijbehorende factuurbestand (PDF) geldt.
CREATE OR REPLACE VIEW sutf_v_factuur_bestand (fin_factuur_key, fin_factuur_bestand)
@@ -1934,6 +1934,14 @@ AS
rr.res_rsv_ruimte_omschrijving omschrijving,
mld.aant Meldingen,
voorzieningen,
CASE
WHEN LENGTH (catering) > 75
THEN
SUBSTR (catering, 1, 75) || ' ...'
ELSE
catering
END
catering,
rr.res_rsv_ruimte_key
FROM res_rsv_ruimte rr,
res_ruimte_opstelling ro,
@@ -1956,7 +1964,20 @@ AS
WHERE RES_RSV_DEEL_verwijder IS NULL
AND rd.res_deel_key = rrd.res_deel_key
AND res_rsv_ruimte_key IS NOT NULL)
GROUP BY res_rsv_ruimte_key) voorz
GROUP BY res_rsv_ruimte_key) voorz,
( SELECT res_rsv_ruimte_key,
LISTAGG (artikel, ', ') WITHIN GROUP (ORDER BY artikel)
AS catering
FROM (SELECT res_rsv_ruimte_key,
res_rsv_artikel_aantal
|| '*'
|| res_artikel_omschrijving
artikel
FROM res_artikel ra, res_rsv_artikel rra
WHERE RES_RSV_artikel_verwijder IS NULL
AND ra.res_artikel_key = rra.res_artikel_key
AND res_rsv_ruimte_key IS NOT NULL)
GROUP BY res_rsv_ruimte_key) cat
WHERE rr.res_rsv_ruimte_verwijder IS NULL
AND ro.res_ruimte_opstel_key = rr.res_ruimte_opstel_key
AND o.res_opstelling_key = ro.res_opstelling_key
@@ -1965,7 +1986,8 @@ AS
AND ar.res_alg_ruimte_verwijder IS NULL
AND rg.alg_ruimte_key = ar.alg_ruimte_key
AND mld.res_rsv_ruimte_key(+) = rr.res_rsv_ruimte_key
AND voorz.res_rsv_ruimte_key(+) = rr.res_rsv_ruimte_key;
AND voorz.res_rsv_ruimte_key(+) = rr.res_rsv_ruimte_key
AND cat.res_rsv_ruimte_key(+) = rr.res_rsv_ruimte_key;
CREATE OR REPLACE VIEW sutf_v_rap_mob_looplijst
@@ -1973,7 +1995,7 @@ AS
SELECT *
FROM sutf_v_rap_res_looplijst
WHERE TRUNC (datum) = TRUNC (SYSDATE);
CREATE OR REPLACE VIEW sutf_v_export_fclt_factuur (
@@ -2134,12 +2156,12 @@ AS
WHERE fac_tracking_refkey = mld_melding_key
AND fac_srtnotificatie_key = (SELECT fac_srtnotificatie_key FROM fac_srtnotificatie WHERE fac_srtnotificatie_code = 'MLDAFM')
)
AND mld_stdmelding_key IN
AND mld_stdmelding_key IN
(SELECT mld_stdmelding_key FROM mld_stdmelding WHERE mld_ins_discipline_key IN
(SELECT ins_discipline_key FROM mld_discipline WHERE ins_srtdiscipline_key = 1)
);
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
@@ -2148,29 +2170,29 @@ AS
v_count NUMBER (10);
v_tracking VARCHAR2 (1000);
BEGIN
FOR cmld IN c_mld_2_arch
LOOP
BEGIN
-- Eerst proberen om melding op archief te zetten, indien gelukt DAN PAS in tracking
BEGIN
-- Eerst proberen om melding op archief te zetten, indien gelukt DAN PAS in tracking
-- Het zou kunnen dat constraint de update tegenhoudt (openstaande opdrachten), in dat geval komt die in exception-tak (en wordt terecht niet getrackt).
-- Wel gaan we daartoe eerst de opdrachten op archief (7=verwerkt) zetten, die de status afgemeld hebben (= 6).
UPDATE mld_opdr
SET mld_statusopdr_key = 7
WHERE mld_statusopdr_key=6
AND mld_melding_key = cmld.mld_melding_key;
UPDATE mld_melding
SET mld_melding_status = 6
WHERE mld_melding_key = cmld.mld_melding_key;
-- Nu de melding in tracking zetten...dat ie gearchiveerd is
fac.trackaction ('MLDVER', cmld.mld_melding_key, NULL, NULL, 'Melding in archief gezet (door systeem)');
EXCEPTION
WHEN OTHERS
THEN
@@ -2183,8 +2205,8 @@ BEGIN
|| '/'
|| oracle_err_mes
|| ')';
END;
COMMIT;
END;
COMMIT;
END LOOP;
END sutf_export_mld_archief;