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

MDUX#37363: Contractbeheer / huurcontracten

Browse Source 
svn path=/Customer/; revision=31049
This commit is contained in:
Marcel Bourseau
2016-10-11 15:43:10 +00:00
parent 27a9d35d9a
commit 190de1d5c4
1 changed files with 68 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
onces/MDUX/MDUX#37363.sql Normal file
View File

@@ -0,0 +1,68 @@
-- Customer specific once-script MDUX#36060.
-- undelete meer 6500 verwijderde bedrijven agv een verkeerd import bestand
SET ECHO ON
SPOOL MDUX37363.lst
SET DEFINE OFF
CREATE OR REPLACE PROCEDURE mdux_cnt_conv_huurcontracten
IS
-- Alle personen verwijderen die niet meer in import bestand voorkomen.
CURSOR c
IS
select c.cnt_contract_key, c.cnt_contract_omschrijving, sk.CNT_SRTKENMERK_UPPER upper1, sk2.CNT_SRTKENMERK_UPPER upper2, UD.FAC_USRDATA_CODE MKJ, KC2.CNT_KENMERKCONTRACT_WAARDE kosten_p_mnd
from cnt_contract c, cnt_srtkenmerk sk, cnt_kenmerk k, cnt_kenmerkcontract kc, fac_usrdata ud, cnt_srtkenmerk sk2, cnt_kenmerk k2, cnt_kenmerkcontract kc2
where c.ins_discipline_key = (select ins_discipline_key from cnt_contract where cnt_contract_key = (select max(cnt_contract_key) from cnt_contract))
AND c.cnt_contract_verwijder IS NULL
and SK.CNT_SRTKENMERK_UPPER = 'BETAALPERIODE HUUR'
and K.CNT_SRTKENMERK_KEY = sK.CNT_SRTKENMERK_KEY
AND K.CNT_SRTCONTRACT_KEY = C.INS_DISCIPLINE_KEY
and c.cnt_contract_key = KC.CNT_CONTRACT_KEY
and K.CNT_KENMERK_KEY = KC.CNT_KENMERK_KEY
AND UD.FAC_USRDATA_KEY = fac.safe_to_number(KC.CNT_KENMERKCONTRACT_WAARDE)
and SK2.CNT_SRTKENMERK_UPPER = 'HUURKOSTEN PER MAAND'
and K2.CNT_SRTKENMERK_KEY = SK2.CNT_SRTKENMERK_KEY
AND K2.CNT_SRTCONTRACT_KEY = C.INS_DISCIPLINE_KEY
and c.cnt_contract_key = KC2.CNT_CONTRACT_KEY
and K2.CNT_KENMERK_KEY = KC2.CNT_KENMERK_KEY;
v_count NUMBER;
BEGIN
-- generic update
-- Verwijder personen die niet meer in de import voorkomen.
FOR rec IN c
LOOP
BEGIN
UPDATE cnt_contract c
SET c.cnt_contract_termijnkosten = DECODE(rec.MKJ, 'M', 1 * rec.kosten_p_mnd, 'K', 3 * rec.kosten_p_mnd, 'J', 12 * rec.kosten_p_mnd, 0),
c.cnt_contract_termijntermijn = DECODE(rec.MKJ, 'M', 3, 'K', 5, 'J', 10)
WHERE c.cnt_contract_key = rec.cnt_contract_key;
END;
END LOOP;
END mdux_cnt_conv_huurcontracten;
/
BEGIN
mdux_cnt_conv_huurcontracten();
END;
/
DROP PROCEDURE mdux_cnt_conv_huurcontracten;
COMMIT;
BEGIN adm.systrackscriptId('$Id$'); END;
/
SPOOL OFF