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

FCLT#74604 Tracking einddatum & contractbedrag toegevoegd bij splitsen contract

Browse Source 
svn path=/Database/trunk/; revision=58989
This commit is contained in:
Koen Reefman
2023-02-06 13:13:58 +00:00
parent aa18175114
commit 1182209179
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
CNT/CNT_PAC.SRC
View File

@@ -243,6 +243,7 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
amount1 cnt_contract.cnt_contract_kosten%TYPE; amount1 cnt_contract.cnt_contract_kosten%TYPE;
srtcontract_type cnt_disc_params.cnt_srtcontract_type%TYPE; srtcontract_type cnt_disc_params.cnt_srtcontract_type%TYPE;
new_status cnt_contract.cnt_contract_status%TYPE; new_status cnt_contract.cnt_contract_status%TYPE;
tracking VARCHAR2 (4000);
BEGIN BEGIN
-- Splits het contract met p_key in twee delen: het oude dat eindigt op p_datum - 1, -- Splits het contract met p_key in twee delen: het oude dat eindigt op p_datum - 1,
-- en een nieuwe kopie die begint op die p_datum -- en een nieuwe kopie die begint op die p_datum
@@ -337,7 +338,12 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
cnt_contract_kosten = COALESCE(p_amount, cnt_contract_kosten) cnt_contract_kosten = COALESCE(p_amount, cnt_contract_kosten)
WHERE cnt_contract_key = p_key; WHERE cnt_contract_key = p_key;
fac.trackaction ('CNTUPD', p_key, p_user, NULL, NULL); tracking := lcl.l('lcl_cnt_is_cntupd') || CHR(10) || lcl.l('lcl_cnt_enddate') || ': ' || TO_CHAR(eind1, 'dd-mm-yyyy') || lcl.l('lcl_trackto') || TO_CHAR((p_datum - 1), 'dd-mm-yyyy');
IF (p_amount IS NOT NULL AND p_amount <> amount1)
THEN
tracking := tracking || CHR(10) || lcl.l('lcl_cnt_contract_sum') || ': ' || amount1 || lcl.l('lcl_trackto') || p_amount;
END IF;
fac.trackaction ('CNTUPD', p_key, p_user, NULL, tracking);
-- de basis is gelegd, nu de aanhang meekopieren -- de basis is gelegd, nu de aanhang meekopieren
-- flexkenmerken -- flexkenmerken