MDUX#37363: Contractbeheer / huurcontracten

svn path=/Customer/; revision=31049

onces/MDUX/MDUX#37363.sql

@@ -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