diff --git a/YASK/yask.sql b/YASK/yask.sql index da1afa7dd..10d09029d 100644 --- a/YASK/yask.sql +++ b/YASK/yask.sql @@ -4954,8 +4954,8 @@ SELECT mld_melding_key, AND EXTRACT(YEAR FROM COALESCE(startverrekening, SYSDATE)) <= EXTRACT(YEAR FROM SYSDATE) + p.offset); -- export / bevriezen contractmutatieopdrachten waarvan de status is afgerond (9) -CREATE OR REPLACE PROCEDURE yask_select_verw_contractmut_opdr (p_applname IN VARCHAR2, - p_applrun IN VARCHAR2) +CREATE OR REPLACE PROCEDURE yask_select_verw_contractmut_opd (p_applname IN VARCHAR2, + p_applrun IN VARCHAR2) AS CURSOR c IS @@ -4976,8 +4976,8 @@ END; / -- om de baseline te zetten. -CREATE OR REPLACE PROCEDURE yask_select_verw_contractmut_melding (p_applname IN VARCHAR2, - p_applrun IN VARCHAR2) +CREATE OR REPLACE PROCEDURE yask_select_verw_contractmut_mld (p_applname IN VARCHAR2, + p_applrun IN VARCHAR2) AS CURSOR c IS @@ -7856,7 +7856,7 @@ BEGIN END; BEGIN - v_locatie_omschrijving := TRIM (SUBSTR (rec.gebouwnaam, INSTR (rec.gebouwnaam, ',') + 2)); + v_locatie_omschrijving := SUBSTR(TRIM (SUBSTR (rec.gebouwnaam, INSTR (rec.gebouwnaam, ',') + 2)),1,30); v_errorhint := 'Opzoeken van het district'; SELECT alg_onrgoed_key @@ -7913,6 +7913,19 @@ BEGIN v_district_key, NULL); + -- We gaan de locatiegegevens alleen aanpassen als de locatie nieuw aangemaakt is. Dit kunnen we zien + -- omdat dan het adres nog niet ingevuld is. + v_errorhint := 'Aanpassen locatiegegevens'; + UPDATE alg_locatie + SET alg_locatie_adres = rec.adres, + alg_locatie_postcode = rec.postcode, + alg_locatie_plaats = rec.plaats, + alg_locatie_post_adres = rec.adres, + alg_locatie_post_postcode = rec.postcode, + alg_locatie_post_plaats = rec.plaats + WHERE alg_locatie_key = v_locatie_key + AND alg_locatie_adres IS NULL; + v_errorhint := 'Aanmaken nieuw gebouw'; -- vul direct het dienstniveau van de rabobank in en zet de bezoekersregistratie uit. INSERT INTO alg_gebouw (alg_locatie_key, alg_gebouw_code, alg_gebouw_naam, alg_srtgebouw_key, mld_dienstniveau_key, alg_gebouw_bez, prs_perslid_key_verantw) VALUES (v_locatie_key, rec.prp_nr, rec.roepnaam, v_srtgebouw_key_new, v_dienstniveau_key, NULL, v_gebouwverantw_key) @@ -7928,17 +7941,6 @@ BEGIN VALUES (v_verdieping_key, 'Algemene ruimte', 606, '0.01'); END; - v_errorhint := 'Aanpassen locatiegegevens'; - UPDATE alg_locatie - SET alg_locatie_omschrijving = v_locatie_omschrijving, - alg_locatie_adres = rec.adres, - alg_locatie_postcode = rec.postcode, - alg_locatie_plaats = rec.plaats, - alg_locatie_post_adres = rec.adres, - alg_locatie_post_postcode = rec.postcode, - alg_locatie_post_plaats = rec.plaats - WHERE alg_locatie_key = v_locatie_key; - v_errorhint := 'Aanpassen gebouwkenmerken'; updateFlex (v_gebouw_key, 'G', 'FASE', rec.fase, 1, 1); updateFlex (v_gebouw_key, 'G', 'VERWINGANG', rec.verwachteingangdatum, 1, 0); @@ -7968,7 +7970,7 @@ BEGIN END IF; EXCEPTION - WHEN NO_DATA_FOUND + WHEN OTHERS THEN oracle_err_num := SQLCODE; oracle_err_mes := SUBSTR (SQLERRM, 1, 100);