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

BAMG#67179 -- Rapport voor interne doorbelasting toegevoegd (ook voor bestellingen)

Browse Source 
svn path=/Customer/trunk/; revision=54264
This commit is contained in:
Arthur Egberink
2021-12-22 19:20:43 +00:00
parent 39ca730d2e
commit 19e05ef6c9
1 changed files with 37 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
BAMG/bamg.sql
View File

@@ -1089,6 +1089,13 @@ AS
WHERE datum = ADD_MONTHS (TRUNC (SYSDATE, 'mm'), -1)
AND mld_statusopdr_omschrijving = 'Afgerond';
-- Als status geleverd is (6)
CURSOR c_frz_bes
IS
SELECT bes_bestelopdr_item_key
FROM bes_bestelopdr_item
WHERE bes_bestelopdr_item_status = 6;
v_volgnr NUMBER;
v_opdr_key NUMBER;
BEGIN
@@ -1134,26 +1141,38 @@ BEGIN
to_char(add_months(TRUNC(SYSDATE), -12), 'dd-mm-yyyy hh24:mi:ss'));
END;
-- bevries alle opdrachten die de vorige maand zijn afgerond.
BEGIN
v_volgnr := v_volgnr + 1;
FOR rec in c_frz
LOOP
v_opdr_key := rec.mld_opdr_key;
-- zet de status naar verwerkt (user is facilitor)
mld.setopdrachtstatus (rec.mld_opdr_key, 7, NULL);
END LOOP;
EXCEPTION WHEN OTHERS
THEN
INSERT INTO fac_rapport (fac_rapport_node, fac_rapport_volgnr, fac_rapport_regel)
VALUES('Freeze', v_volgnr, 'Error: Fout opgetreden bij het bevriezen van de opdracht ' || to_char(SYSDATE, 'yyyymmdd hh24mi') || ' opdr_key: ' || v_opdr_key);
END;
-- bevries alle bestelopdrachten die de vorige maand zijn afgerond.
BEGIN
v_volgnr := v_volgnr + 1;
FOR rec2 in c_frz_bes
LOOP
v_opdr_key := rec2.bes_bestelopdr_item_key;
UPDATE bes_bestelopdr_item
SET bes_bestelopdr_item_status = 7 -- verwerkt
WHERE bes_bestelopdr_item_key = rec2.bes_bestelopdr_item_key;
END LOOP;
EXCEPTION WHEN OTHERS
THEN
INSERT INTO fac_rapport (fac_rapport_node, fac_rapport_volgnr, fac_rapport_regel)
VALUES('Freeze', v_volgnr, 'Error: Fout opgetreden bij het bevriezen van de bestelopdracht ' || to_char(SYSDATE, 'yyyymmdd hh24mi') || ' opdr_key: ' || v_opdr_key);
END;
END IF;
-- bevries alle opdrachten die de vorige maand zijn afgerond.
BEGIN
v_volgnr := v_volgnr + 1;
FOR rec in c_frz
LOOP
v_opdr_key := rec.mld_opdr_key;
-- zet de status naar verwerkt (user is facilitor)
mld.setopdrachtstatus (rec.mld_opdr_key, 7, NULL);
END LOOP;
EXCEPTION WHEN OTHERS
THEN
INSERT INTO fac_rapport (fac_rapport_node, fac_rapport_volgnr, fac_rapport_regel)
VALUES('Freeze', v_volgnr, 'Error: Fout opgetreden bij het bevriezen van de opdracht ' || to_char(SYSDATE, 'yyyymmdd hh24mi') || ' opdr_key: ' || v_opdr_key);
END;
END;
/