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

FSN#39055 BCS/2000 functionaliteit in FACILITOR - customization

Browse Source 
Andere volgorde van velden in het overzicht.

svn path=/Database/trunk/; revision=36806
This commit is contained in:
Erik Groener
2018-02-01 12:14:29 +00:00
parent 3c1e00b7a7
commit 02c5b8b500
1 changed files with 20 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
BGT/BGT_TRI.SRC
View File

@@ -54,12 +54,16 @@ BEFORE INSERT OR UPDATE ON bgt_budgetmutatie
FOR EACH ROW
BEGIN
IF (:new.bgt_budget_key_van IS NOT NULL) THEN
UPDATE bgt_budget SET bgt_budget_bedrag = NVL(bgt_budget_bedrag, 0) + NVL(:new.bgt_budget_bedrag_van, 0) WHERE bgt_budget_key = :new.bgt_budget_key_van;
UPDATE bgt_budget SET bgt_budget_btwbedrag = NVL(bgt_budget_btwbedrag, 0) + NVL(:new.bgt_budget_btwbedrag_van, 0) WHERE bgt_budget_key = :new.bgt_budget_key_van;
UPDATE bgt_budget
SET bgt_budget_bedrag = NVL(bgt_budget_bedrag, 0) + NVL(:new.bgt_budget_bedrag_van, 0)
, bgt_budget_btwbedrag = NVL(bgt_budget_btwbedrag, 0) + NVL(:new.bgt_budget_btwbedrag_van, 0)
WHERE bgt_budget_key = :new.bgt_budget_key_van;
END IF;
IF (:new.bgt_budget_key_naar IS NOT NULL) THEN
UPDATE bgt_budget SET bgt_budget_bedrag = NVL(bgt_budget_bedrag, 0) + NVL(:new.bgt_budget_bedrag_naar, 0) WHERE bgt_budget_key = :new.bgt_budget_key_naar;
UPDATE bgt_budget SET bgt_budget_btwbedrag = NVL(bgt_budget_btwbedrag, 0) + NVL(:new.bgt_budget_btwbedrag_naar, 0) WHERE bgt_budget_key = :new.bgt_budget_key_naar;
UPDATE bgt_budget
SET bgt_budget_bedrag = NVL(bgt_budget_bedrag, 0) + NVL(:new.bgt_budget_bedrag_naar, 0)
, bgt_budget_btwbedrag = NVL(bgt_budget_btwbedrag, 0) + NVL(:new.bgt_budget_btwbedrag_naar, 0)
WHERE bgt_budget_key = :new.bgt_budget_key_naar;
END IF;
END;
/
@@ -68,8 +72,18 @@ CREATE_TRIGGER(bgt_t_bgt_budgetmutatie_B_D)
BEFORE DELETE ON bgt_budgetmutatie
FOR EACH ROW
BEGIN
UPDATE bgt_budget SET bgt_budget_bedrag = bgt_budget_bedrag - :old.bgt_budget_bedrag_van WHERE bgt_budget_key = :old.bgt_budget_key_van;
UPDATE bgt_budget SET bgt_budget_bedrag = bgt_budget_bedrag - :old.bgt_budget_bedrag_naar WHERE bgt_budget_key = :old.bgt_budget_key_naar;
IF (:old.bgt_budget_key_van IS NOT NULL) THEN
UPDATE bgt_budget
SET bgt_budget_bedrag = NVL(bgt_budget_bedrag, 0) - NVL(:old.bgt_budget_bedrag_van, 0)
, bgt_budget_btwbedrag = NVL(bgt_budget_btwbedrag, 0) - NVL(:old.bgt_budget_btwbedrag_van, 0)
WHERE bgt_budget_key = :old.bgt_budget_key_van;
END IF;
IF (:old.bgt_budget_key_naar IS NOT NULL) THEN
UPDATE bgt_budget
SET bgt_budget_bedrag = NVL(bgt_budget_bedrag, 0) - NVL(:old.bgt_budget_bedrag_naar, 0)
, bgt_budget_btwbedrag = NVL(bgt_budget_btwbedrag, 0) - NVL(:old.bgt_budget_btwbedrag_naar, 0)
WHERE bgt_budget_key = :old.bgt_budget_key_naar;
END IF;
END;
/