ARAI#38833: Implementatie MJOB
svn path=/Customer/trunk/; revision=33099
This commit is contained in:
Marcel Bourseau
@@ -10706,7 +10706,8 @@ BEGIN
|
||||
v_errormsg := 'Loop rec0';
|
||||
FOR rec0 IN c0
|
||||
LOOP
|
||||
|
||||
BEGIN
|
||||
|
||||
-- Bepalen van de ctr discipline waaronder de terugkerende taken worden vastgelegd.
|
||||
SELECT MIN(ins_discipline_key)
|
||||
INTO v_ctr_discipline_key
|
||||
@@ -10761,7 +10762,7 @@ BEGIN
|
||||
v_errormsg := 'Loop rec0a';
|
||||
FOR rec0a IN c0a(rec0.ctr_discipline_omschrijving)
|
||||
LOOP
|
||||
|
||||
BEGIN
|
||||
|
||||
--- En tenslotte gaan we de 3 MJOB autorisatiegroepen MJOB-R, MJOB-W en MJOB-A de rechten op INSUSE, INSMAN en CTRUSE uitdelen....
|
||||
-- 1. Eerst MJOB-R (Leesrechten): INSUSE READ en INSMAN READ op elke INS-discipline en CTRUSE READ op de MJOB-discipline (v_ctr_discipline_key)
|
||||
@@ -10827,12 +10828,32 @@ BEGIN
|
||||
FROM fac_functie
|
||||
WHERE fac_functie_code = 'WEB_CTRUSE';
|
||||
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
fac.imp_writelog (p_import_key, 'W', v_errormsg, v_errorhint);
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||||
v_errormsg :=
|
||||
'OTHERS (error '
|
||||
|| oracle_err_num
|
||||
|| '/'
|
||||
|| oracle_err_mes
|
||||
|| ')';
|
||||
fac.imp_writelog (p_import_key,
|
||||
'E',
|
||||
v_errormsg,
|
||||
v_errorhint
|
||||
);
|
||||
COMMIT;
|
||||
END;
|
||||
|
||||
END LOOP; -- c0a
|
||||
|
||||
v_errormsg := 'Loop rec c1';
|
||||
FOR rec IN c1
|
||||
LOOP
|
||||
|
||||
BEGIN
|
||||
|
||||
SELECT ins_kenmerkwaarde1, ins_kenmerkwaarde3, ins_kenmerkwaarde14, ins_kenmerkwaarde10
|
||||
INTO v_receptnr, v_kosten, v_periode, v_perc_onderhoud
|
||||
@@ -11014,7 +11035,7 @@ BEGIN
|
||||
BEGIN
|
||||
|
||||
|
||||
v_errormsg := 'C4: VERVALJAAR -> ins_srtcontroledl_xcp: ' || 'ins_deel_key=['|| rec6.ins_deel_key || '],' || 'objectomschrijving=[' || rec6.ins_deel_omschrijving || '] ' ||
|
||||
v_errormsg := 'C6: VERVALJAAR -> ins_srtcontroledl_xcp: ' || 'ins_deel_key=['|| rec6.ins_deel_key || '],' || 'objectomschrijving=[' || rec6.ins_deel_omschrijving || '] ' ||
|
||||
'ins_srtcontrole_key=[' || rec6.ins_srtcontrole_key || '],' ||
|
||||
'recept=[' || v_receptnr || '],' || 'kosten=[' || rec6.kosten || '],' ||
|
||||
'periode=[' || rec6.periode || '],' || ' percentage=[' || v_perc_onderhoud || '],';
|
||||
@@ -11060,18 +11081,21 @@ BEGIN
|
||||
|
||||
FOR rec4 IN c4 (v_mx_ins_srtcontroledl_xcp_key)
|
||||
LOOP
|
||||
BEGIN
|
||||
v_errorhint := 'NABEWERKING ins_srtcontroledl_xcp: ' || 'key=[' || rec4.ins_srtcontroledl_xcp_key || '], controle=[ ' || rec4.ins_srtcontrole_omschrijving || ']';
|
||||
BEGIN
|
||||
v_errorhint := 'C4: NABEWERKING ins_srtcontroledl_xcp: ' || 'key=[' || rec4.ins_srtcontroledl_xcp_key || '], controle=[ ' || rec4.ins_srtcontrole_omschrijving || ']';
|
||||
IF rec4.set_materia_null = 1
|
||||
THEN
|
||||
v_errorhint := 'C4a - set_materia_null ' || v_errorhint;
|
||||
UPDATE ins_srtcontroledl_xcp SET ins_srtcontroledl_xcp_materia = NULL WHERE ins_srtcontroledl_xcp_key = rec4.ins_srtcontroledl_xcp_key;
|
||||
END IF;
|
||||
IF rec4.set_periode_null = 1
|
||||
THEN
|
||||
v_errorhint := 'C4b - set_periode_null ' || v_errorhint;
|
||||
UPDATE ins_srtcontroledl_xcp SET ins_srtcontroledl_xcp_periode = NULL WHERE ins_srtcontroledl_xcp_key = rec4.ins_srtcontroledl_xcp_key;
|
||||
END IF;
|
||||
IF rec4.set_perc_onderhoud_null = 1
|
||||
THEN
|
||||
v_errorhint := 'C4c - set_perc_onderhoud_null ' || v_errorhint;
|
||||
UPDATE ins_srtcontroledl_xcp SET ins_srtcontroledl_xcp_perc = NULL WHERE ins_srtcontroledl_xcp_key = rec4.ins_srtcontroledl_xcp_key;
|
||||
END IF;
|
||||
|
||||
@@ -11096,9 +11120,48 @@ BEGIN
|
||||
END;
|
||||
END LOOP;
|
||||
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
fac.imp_writelog (p_import_key, 'W', v_errormsg, v_errorhint);
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||||
v_errormsg :=
|
||||
'OTHERS (error '
|
||||
|| oracle_err_num
|
||||
|| '/'
|
||||
|| oracle_err_mes
|
||||
|| ')';
|
||||
fac.imp_writelog (p_import_key,
|
||||
'E',
|
||||
v_errormsg,
|
||||
v_errorhint
|
||||
);
|
||||
COMMIT;
|
||||
END;
|
||||
|
||||
END LOOP; -- cursor c
|
||||
|
||||
END LOOP; -- cursor c1
|
||||
fac.imp_writelog (p_import_key, 'I', v_receptnr || ',' || v_kosten|| ',' || v_periode|| ',' || v_perc_onderhoud, 'v_receptnr, v_kosten, v_periode, v_perc_onderhoud');
|
||||
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
fac.imp_writelog (p_import_key, 'W', v_errormsg, v_errorhint);
|
||||
oracle_err_num := SQLCODE;
|
||||
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||||
v_errormsg :=
|
||||
'OTHERS (error '
|
||||
|| oracle_err_num
|
||||
|| '/'
|
||||
|| oracle_err_mes
|
||||
|| ')';
|
||||
fac.imp_writelog (p_import_key,
|
||||
'E',
|
||||
v_errormsg,
|
||||
v_errorhint
|
||||
);
|
||||
COMMIT;
|
||||
END;
|
||||
|
||||
END LOOP; -- cursor c0
|
||||
|
||||
@@ -11148,7 +11211,7 @@ BEGIN
|
||||
-- object A (kozijnen) 10 m2 schilderen
|
||||
-- object A (kozijnen) 2 st. vervangen
|
||||
-- We registeren dan bij object A 10??? (of is 2 beter, omdat dit de preferred eenheid stuks is)?
|
||||
|
||||
fac.imp_writelog (p_import_key, 'I', 'update ins_deel_aantal', '');
|
||||
UPDATE ins_deel d
|
||||
SET ins_deel_aantal = (SELECT COALESCE(fac.safe_to_number(max(ins_kenmerkwaarde9)),1)
|
||||
FROM fac_imp_ins i, alg_ruimte r, alg_verdieping v, alg_gebouw g, alg_locatie l
|
||||
@@ -11168,7 +11231,7 @@ BEGIN
|
||||
|
||||
-- De aanmaakdatums van de ins_delen die zijn toegevoegd ( > p_max_ins_deel_key) bepalen de volgende controle-momenten, dus dat komt natuurlijk wel wat nauw.
|
||||
-- Daarom wordt StJr (ins_kenmerkwaarde4) als startjaar bij alle objecten (ins_delen) van het betreffende pand gezet.
|
||||
|
||||
fac.imp_writelog (p_import_key, 'I', 'update ins_deel_aanmaak', '');
|
||||
UPDATE ins_deel d
|
||||
SET ins_deel_aanmaak = (SELECT min( to_date (ins_kenmerkwaarde4, 'yyyy'))
|
||||
FROM fac_imp_ins i, alg_ruimte r, alg_verdieping v, alg_gebouw g, alg_locatie l
|
||||
|
||||
Reference in New Issue
Block a user