diff --git a/AA/AAEN/aaen.sql b/AA/AAEN/aaen.sql index 86c9ef043..277ca13da 100644 --- a/AA/AAEN/aaen.sql +++ b/AA/AAEN/aaen.sql @@ -1,7 +1,7 @@ -- Script containing customer specific configuration sql statements for aaen: Arcadis Aqumen Facility Management -- (c) 2005-2007 Dijkoraad IT bv --- $Revision: 18 $ --- $Modtime: 31-05-11 11:20 $ +-- $Revision: 19 $ +-- $Modtime: 7-06-11 10:29 $ -- -- Support: +31 53 4800700 @@ -87,7 +87,7 @@ BEGIN -- Facilitor user v_aanvrager := 4; - + -- voeg opdrachten toe aan de verkoopbuffer INSERT INTO aaen_verkoopbuffer (ins_srtdiscipline_prefix, referentie, @@ -186,7 +186,7 @@ END; / -- exact verkoop -CREATE OR REPLACE VIEW aaen_v_export_exact_verkoop (RESULT, result_order) AS +CREATE OR REPLACE VIEW aaen_v_export_exact_verkoop (RESULT, result_order) AS SELECT 'Bedrijf,Doc. datum,Boek datum,Doc. soort,Valuta,Referentie,Bus. area,Boek sleutel,GBR rekening,Bedrag,BTW code,BTW bedrag,Kosten plaats,WBS element,Interne order,Netw plan nr,Netw plan act.,Partner mij,Kosten drager,Bew. soort,Tekst,ordernummer,Factuurnummer','000000000' FROM DUAL @@ -271,7 +271,7 @@ CREATE OR REPLACE PACKAGE BODY AAEN AS LOOP RETURN rec.alg_gebouw_key; END LOOP; - + RETURN NULL; END; END; @@ -324,7 +324,7 @@ AS FROM aaen_v_catering_loc WHERE res_rsv_artikel_levering < lev_date GROUP BY alg_locatie_key; - + v_errormsg VARCHAR (200); oracle_err_num NUMBER; oracle_err_mes VARCHAR2 (200); @@ -356,20 +356,20 @@ BEGIN v_prs_dienst_key := 12; v_errormsg := 'Bepaal einddatum'; - + -- wat is de eerste dag van de huidige maand v_date := to_date(to_char(sysdate, 'yyyymm')||'01','yyyymmdd'); - + SELECT count(mld_opdr_key) INTO v_count FROM mld_opdr WHERE mld_opdr_omschrijving = 'Catering factuur tot: ' || to_char(v_date, 'dd-mm-yyyy'); - + IF v_count > 0 THEN fac.imp_writelog (p_applname, p_applrun,'E', 'Catering export is al eerder uitgevoerd.', 'Controleer opdrachten met datum: ' || to_char(v_date, 'dd-mm-yyyy')); ELSE - + FOR rec IN c(v_date) LOOP -- controleer of ik een melding heb op deze locatie BEGIN @@ -382,7 +382,7 @@ BEGIN AND v_date BETWEEN mld_melding_datum AND mld_melding_einddatum+1; EXCEPTION WHEN NO_DATA_FOUND THEN -- geen melding voor deze locatie gevonden. Dan maken we er maar een aan. - + v_errormsg := 'Aanmaken catering melding'; BEGIN INSERT INTO mld_melding @@ -414,7 +414,7 @@ BEGIN 'MLD', 3 ) RETURNING mld_melding_key INTO v_mld_melding_key; - + BEGIN mld.setmeldingstatus(v_mld_melding_key, 2, v_aanvrager); END; BEGIN mld.setmeldingstatus(v_mld_melding_key, 4, v_aanvrager); END; UPDATE mld_melding SET mld_melding_behandelaar_key= v_aanvrager WHERE mld_melding_key = v_mld_melding_key; @@ -428,9 +428,9 @@ BEGIN FROM prs_bedrijfdienstlocatie WHERE prs_dienst_key = v_prs_dienst_key AND alg_locatie_key = rec.alg_locatie_key; - + v_mld_opdr_bedrijfopdr_volgnr := mld.BepaalOpdrMeldingVolgnr (v_mld_melding_key); - + v_errormsg := 'Maak opdracht aan om factuur van cateraar te matchen'; -- maak opdracht aan om cateringfactuur van leverancier te matchen INSERT INTO mld_opdr (mld_melding_key @@ -462,19 +462,19 @@ BEGIN FROM aaen_v_catering_loc WHERE alg_locatie_key = rec.alg_locatie_key AND res_rsv_artikel_levering < v_date); - - UPDATE res_rsv_artikel rra + + UPDATE res_rsv_artikel rra SET res_rsv_artikel_verwerkt = SYSDATE, res_status_bo_key = 6 - WHERE EXISTS (SELECT res_rsv_artikel_key + WHERE EXISTS (SELECT res_rsv_artikel_key FROM aaen_v_catering_loc cl - WHERE cl.res_rsv_artikel_key = rra.res_rsv_artikel_key + WHERE cl.res_rsv_artikel_key = rra.res_rsv_artikel_key AND cl.alg_locatie_key = rec.alg_locatie_key AND res_rsv_artikel_levering < v_date); - + v_errormsg := 'Update melding status'; MLD.updatemeldingstatus (v_mld_melding_key, 0, v_aanvrager); -- Facilitor - + EXCEPTION WHEN OTHERS THEN oracle_err_num := SQLCODE; oracle_err_mes := SUBSTR (SQLERRM, 1, 100); @@ -525,11 +525,11 @@ SELECT mld_opdr_key AND o.mld_opdr_verzonden IS NOT NULL; BEGIN - - + + FOR rec IN c LOOP - BEGIN + BEGIN INSERT INTO mld_opdr (mld_melding_key , prs_kostenplaats_key , mld_statusopdr_key @@ -553,7 +553,7 @@ BEGIN , 'MLD' , rec.mld_melding_omschrijving , 1 - , 1); + , 1); -- update melding status is niet nodig omdat de melding al afgemeld is. -- MLD.updatemeldingstatus (rec.mld_melding_key, 0, 4); -- facilitor @@ -572,7 +572,7 @@ BEGIN FOR rec IN co LOOP - BEGIN + BEGIN mld.setopdrachtstatus(rec.mld_opdr_key, 6, 4); -- afgemeld, facilitor EXCEPTION WHEN OTHERS @@ -635,7 +635,7 @@ IS SELECT * FROM fac_imp_file WHERE fac_imp_file_applicatie = p_applname; - + v_perslid_key NUMBER; v_perslid_nr VARCHAR2(100); v_kostenplaats_nr VARCHAR2(100); @@ -656,7 +656,7 @@ v_errormsg VARCHAR2 (200); BEGIN v_hint := ' kenmerk ' || p_niveau || ' kenmerk_key: ' || p_kenmerk_key || ' link: ' || p_link_key || ' waarde: ' || p_kenmerk_waarde; v_aktie := 'Toevoegen'; - + SELECT COUNT(*) INTO v_count FROM prs_kenmerklink @@ -664,7 +664,7 @@ BEGIN AND prs_kenmerklink_niveau = p_niveau AND prs_kenmerk_key = p_kenmerk_key AND prs_kenmerklink_verwijder is null; - + IF v_count = 1 THEN IF p_kenmerk_waarde IS NULL THEN v_aktie := 'Verwijder'; @@ -675,7 +675,7 @@ BEGIN AND prs_kenmerklink_verwijder is null; ELSE v_aktie := 'Wijzigen'; - UPDATE prs_kenmerklink + UPDATE prs_kenmerklink SET prs_kenmerklink_waarde = p_kenmerk_waarde WHERE prs_link_key = p_link_key AND prs_kenmerklink_niveau = p_niveau @@ -685,7 +685,7 @@ BEGIN ELSE v_aktie := 'Toevoegen'; IF p_kenmerk_key IS NOT NULL AND p_kenmerk_waarde IS NOT NULL THEN - INSERT INTO PRS_KENMERKLINK + INSERT INTO PRS_KENMERKLINK ( PRS_KENMERK_KEY , PRS_LINK_KEY , PRS_KENMERKLINK_NIVEAU @@ -737,7 +737,7 @@ BEGIN INTO v_ruimte_nr FROM alg_ruimte WHERE alg_ruimte_key = p_ruimte_key; - + -- vind de huidige hoofdwerkplek SELECT MAX(pwp.prs_perslidwerkplek_key) INTO v_huidige_pwp_key @@ -790,7 +790,7 @@ BEGIN ,p_ruimte_key ) RETURNING prs_werkplek_key INTO v_werkplek_key; END; - + IF v_huidige_wp_key <> v_werkplek_key OR v_huidige_wp_key IS NULL THEN IF v_huidige_pwp_key IS NOT NULL THEN p_errorhint := 'Omhangen perslidwerkplek record.'; @@ -815,29 +815,29 @@ BEGIN ELSE p_errormsg := 'Geen werkplekvolgnummer gevonden bij expliciete werkplekken'; END IF; - ELSE -- impliciete werkplekken + ELSE -- impliciete werkplekken -- kijk of de ruimte gelijk is aan de huidige ruimte p_errorhint := 'Bepalen huidige ruimte.'; SELECT MAX(prs_alg_ruimte_key) INTO v_huidige_ruimte_key FROM prs_werkplek WHERE prs_werkplek_key = v_huidige_wp_key; - + IF v_huidige_ruimte_key <> p_ruimte_key OR v_huidige_ruimte_key IS NULL THEN -- vind een lege werkplek in de huidige ruimte p_errorhint := 'Bepalen lege werkplek in de ruimte.'; SELECT MIN(prs_werkplek_key) INTO v_werkplek_key FROM prs_werkplek w - WHERE (prs_werkplek_verwijder IS NOT NULL - OR NOT EXISTS (SELECT prs_perslidwerkplek_key - FROM prs_perslidwerkplek pwp - WHERE pwp.prs_werkplek_key = w.prs_werkplek_key + WHERE (prs_werkplek_verwijder IS NOT NULL + OR NOT EXISTS (SELECT prs_perslidwerkplek_key + FROM prs_perslidwerkplek pwp + WHERE pwp.prs_werkplek_key = w.prs_werkplek_key AND pwp.prs_perslidwerkplek_verwijder IS NULL) ) AND prs_alg_ruimte_key = p_ruimte_key; - - IF v_werkplek_key IS NULL OR 1=1 THEN + + IF v_werkplek_key IS NULL OR 1=1 THEN -- geen lege werkplekken gevonden. -- maak een nieuwe werkplek aan met als volgnummer het hoogste gevonden nummmer + 1 p_errorhint := 'Maak een nieuwe werkplek aan'; @@ -845,7 +845,7 @@ BEGIN INTO v_werkplek_volgnr FROM prs_werkplek WHERE prs_alg_ruimte_key = p_ruimte_key; - + INSERT INTO prs_werkplek ( prs_werkplek_module ,prs_werkplek_volgnr @@ -866,7 +866,7 @@ BEGIN WHERE prs_werkplek_key = v_werkplek_key; END IF; -- nu hebben we een vrije werkplek - + IF v_huidige_pwp_key IS NOT NULL THEN p_errorhint := 'Omhangen perslidwerkplek record.'; -- verplaatsen van de persoon @@ -966,7 +966,7 @@ BEGIN WHERE alg_verdieping_key = v_verdieping_key AND alg_ruimte_verwijder IS NULL AND UPPER(alg_ruimte_nr) = UPPER(p_ruimte_nr); - + -- kijk of ik al een werkplek heb in deze kamer SELECT count(wp.prs_werkplek_key) INTO v_count @@ -976,7 +976,7 @@ BEGIN AND wp.prs_alg_ruimte_key = v_ruimte_key AND COALESCE(wp.prs_werkplek_virtueel,0) = 0 AND pwp.prs_perslidwerkplek_verwijder IS NULL; - + IF v_count = 0 THEN v_ruimte_onveranderd := 0; ELSE @@ -993,7 +993,7 @@ BEGIN AND COALESCE(wp.prs_werkplek_virtueel,0) = 0 AND r.alg_verdieping_key = v_verdieping_key AND pwp.prs_perslidwerkplek_verwijder IS NULL; - + IF v_count = 0 THEN -- vind de standaardruimte binnen de gevonden verdieping SELECT max(alg_ruimte_key) @@ -1018,7 +1018,7 @@ BEGIN AND r.alg_verdieping_key = v.alg_verdieping_key AND v.alg_gebouw_key = v_gebouw_key AND pwp.prs_perslidwerkplek_verwijder is NULL; - + IF v_count = 0 THEN -- vind de standaardruimte binnen het gevonden gebouw SELECT max(alg_ruimte_key) @@ -1045,7 +1045,7 @@ BEGIN AND v.alg_gebouw_key = g.alg_gebouw_key AND g.alg_locatie_key = v_locatie_key AND pwp.prs_perslidwerkplek_verwijder IS NULL; - + IF v_count = 0 THEN -- vind de standaardruimte binnen de gevonden locatie SELECT max(alg_ruimte_key) @@ -1071,7 +1071,7 @@ BEGIN p_errorhint); END IF; END IF; - + COMMIT; EXCEPTION WHEN OTHERS THEN @@ -1115,8 +1115,8 @@ END prs_update_werkplek; IS SELECT MIN(prs_srtperslid_omschrijving) prs_srtperslid_omschrijving FROM fac_imp_perslid i - WHERE NOT EXISTS (SELECT prs_srtperslid_key - FROM prs_srtperslid sp + WHERE NOT EXISTS (SELECT prs_srtperslid_key + FROM prs_srtperslid sp WHERE UPPER(sp.prs_srtperslid_omschrijving) = UPPER(i.prs_srtperslid_omschrijving)) GROUP BY UPPER(prs_srtperslid_omschrijving); @@ -1139,7 +1139,7 @@ BEGIN v_count_tot := 0; v_count_error := 0; v_wpcount_error := 0; - + FOR recSPersLid IN cSPersLid LOOP BEGIN @@ -1152,16 +1152,16 @@ BEGIN v_aanduiding := recSPersLid.PRS_SRTPERSLID_OMSCHRIJVING; v_errorhint := 'Fout bij toevoegen functie'; - + INSERT INTO prs_srtperslid ( prs_srtperslid_omschrijving ) values ( recSPersLid.prs_srtperslid_omschrijving ); - + COMMIT; - + EXCEPTION WHEN OTHERS THEN v_count_error := v_count_error + 1; oracle_err_num := SQLCODE; @@ -1267,7 +1267,6 @@ BEGIN ,prs_perslid_nr ,prs_perslid_titel ,prs_perslid_oslogin - ,prs_perslid_wachtwoord ) VALUES ('PRS' @@ -1283,9 +1282,9 @@ BEGIN ,recPersLid.prs_perslid_nr ,recPersLid.prs_perslid_titel ,recPersLid.prs_perslid_oslogin - ,recPersLid.prs_perslid_wachtwoord ) RETURNING prs_perslid_key INTO v_perslid_key; + prs.setpassword(v_perslid_key, recPersLid.prs_perslid_wachtwoord); commit; v_count_update := v_count_update + 1; @@ -1301,7 +1300,7 @@ BEGIN , prs_perslid_nr = recPersLid.prs_perslid_nr , prs_perslid_titel = recPersLid.prs_perslid_titel WHERE prs_perslid_key = v_perslid_key; - + IF recPersLid.prs_perslid_telefoonnr IS NOT NULL THEN UPDATE prs_perslid SET prs_perslid_telefoonnr = recPersLid.prs_perslid_telefoonnr WHERE prs_perslid_key = v_perslid_key; @@ -1319,12 +1318,11 @@ BEGIN WHERE prs_perslid_key = v_perslid_key; END IF; IF recPersLid.prs_perslid_wachtwoord IS NOT NULL THEN - UPDATE prs_perslid SET prs_perslid_wachtwoord = recPersLid.prs_perslid_wachtwoord - WHERE prs_perslid_key = v_perslid_key; + prs.setpassword(v_perslid_key, recPersLid.prs_perslid_wachtwoord); END IF; END IF; COMMIT; -- persoon in ieder geval toegevoegd. - + -- Werkplekken v_aanduiding := recPersLid.PRS_PERSLID_NAAM||'|'||recPersLid.PRS_PERSLID_VOORNAAM||'|'||recPersLid.alg_locatie_code||'|'||recPersLid.alg_gebouw_code||'|'||recPersLid.alg_verdieping_volgnr||'|'||recPersLid.alg_ruimte_nr||'| '; @@ -1341,7 +1339,7 @@ BEGIN , p_std_wp_ruimte_nr , v_errormsg , v_errorhint); - + IF v_errormsg IS NOT NULL THEN v_wpcount_error := v_wpcount_error + 1; fac.imp_writelog (p_applname, @@ -1464,9 +1462,9 @@ BEGIN 'Te verwijderen persoon heeft vervanger(s). Koppeling(en) verwijderd.', 'Naam/persoonsnr: ' || v_perslid_naam || '/' || v_perslid_nr); END IF; - + -- *** werkplekken *** - IF p_wp_expliciet = 0 + IF p_wp_expliciet = 0 THEN UPDATE prs_werkplek wp SET prs_werkplek_verwijder = SYSDATE @@ -1575,7 +1573,7 @@ BEGIN prs_del_perslid (p_applname, p_applrun, rec.prs_perslid_key, 0); END; END LOOP; - + FOR rec IN c_imp LOOP BEGIN @@ -1587,7 +1585,7 @@ BEGIN FROM prs_perslid WHERE prs_perslid_verwijder IS NULL AND prs_perslid_nr = v_perslid_nr; - + set_prs_kenmerk(p_applname, p_applrun, 'P', 1000, v_perslid_key, v_kostenplaats_nr); EXCEPTION WHEN OTHERS THEN @@ -1596,7 +1594,7 @@ BEGIN NULL; END; END; - END LOOP; + END LOOP; END aaen_update_perslid_mut; / @@ -1854,7 +1852,7 @@ v_errormsg VARCHAR2 (200); BEGIN v_hint := ' kenmerk ' || p_niveau || ' kenmerk_key: ' || p_kenmerk_key || ' link: ' || p_link_key || ' waarde: ' || p_kenmerk_waarde; v_aktie := 'Toevoegen'; - + SELECT COUNT(*) INTO v_count FROM prs_kenmerklink @@ -1862,7 +1860,7 @@ BEGIN AND prs_kenmerklink_niveau = p_niveau AND prs_kenmerk_key = p_kenmerk_key AND prs_kenmerklink_verwijder is null; - + IF v_count = 1 THEN IF p_kenmerk_waarde IS NULL THEN v_aktie := 'Verwijder'; @@ -1873,7 +1871,7 @@ BEGIN AND prs_kenmerklink_verwijder is null; ELSE v_aktie := 'Wijzigen'; - UPDATE prs_kenmerklink + UPDATE prs_kenmerklink SET prs_kenmerklink_waarde = p_kenmerk_waarde WHERE prs_link_key = p_link_key AND prs_kenmerklink_niveau = p_niveau @@ -1883,7 +1881,7 @@ BEGIN ELSE v_aktie := 'Toevoegen'; IF p_kenmerk_key IS NOT NULL AND p_kenmerk_waarde IS NOT NULL THEN - INSERT INTO PRS_KENMERKLINK + INSERT INTO PRS_KENMERKLINK ( PRS_KENMERK_KEY , PRS_LINK_KEY , PRS_KENMERKLINK_NIVEAU @@ -1919,7 +1917,7 @@ BEGIN p_applrun, 'I', 'Facilitor afdeling import version ' || currentversion, - '$Revision: 18 $' + '$Revision: 19 $' ); -- How many active records are now present? @@ -2324,13 +2322,13 @@ BEGIN v_errormsg := 'Fout opvragen te importeren rij (grootboekrek)'||v_gebouw_code; fac.imp_getfield (v_newline, C_FIELDDELIMITOR, - v_grootboekrek + v_grootboekrek ); -- v_errormsg := 'Fout opvragen te importeren rij (dienst)'||v_gebouw_code; fac.imp_getfield (v_newline, C_FIELDDELIMITOR, - v_contractsoort + v_contractsoort ); -- v_errormsg := 'Fout opvragen te importeren rij (contractcode):'||v_gebouw_code; @@ -2350,7 +2348,7 @@ BEGIN C_FIELDDELIMITOR, v_leveranciernummer ); - + -- Insert geformatteerde import record IF v_ongeldig = 0 THEN @@ -2392,7 +2390,7 @@ BEGIN END IF; END; END LOOP; - UPDATE aaen_imp_contract SET gebouw_code = (SELECT COALESCE(g.alg_gebouw_code, gebouw_code) + UPDATE aaen_imp_contract SET gebouw_code = (SELECT COALESCE(g.alg_gebouw_code, gebouw_code) FROM alg_onrgoedkenmerk ogk, alg_gebouw g WHERE ogk.alg_onrgoedkenmerk_verwijder IS NULL AND ogk.alg_kenmerk_key = 1020 @@ -2450,7 +2448,7 @@ BEGIN p_applrun, 'I', 'Arcadis Aqumen Contract import version ' || currentversion, - '$Revision: 18 $' + '$Revision: 19 $' ); SELECT COUNT (*) @@ -2462,7 +2460,7 @@ BEGIN p_applrun, 'E', 'Arcadis Aqumen Contract import bevat geen records', - '$Revision: 18 $' + '$Revision: 19 $' ); return; END IF; @@ -3094,7 +3092,7 @@ AS alg_verdieping alg_v, alg_v_aanwezigruimte alg_r, alg_srtruimte alg_s, - mld_adres adr, + mld_adres adr, (SELECT alg_onrgoed_key alg_ruimte_key, alg_onrgoedkenmerk_waarde werkplekken FROM alg_onrgoedkenmerk k @@ -3172,7 +3170,7 @@ AS WHERE r.alg_verdieping_key = t.alg_verdieping_key AND t.cad_tekening_key = c.cad_tekening_key AND upper(alg_ruimte_nr) = upper(substr(cad_imp_contour_nr, 1, instr(cad_imp_contour_nr,'\P')-1)) - UNION ALL + UNION ALL SELECT r.alg_ruimte_key, r.alg_verdieping_key, r.alg_ruimte_nr @@ -3381,7 +3379,7 @@ AS AND m.mld_melding_datum > SYSDATE - 1 AND m.mld_melding_status IN (2, 3, 4); -BEGIN adm.systrackscript('$Workfile: aaen.sql $', '$Revision: 18 $', 0); END; +BEGIN adm.systrackscript('$Workfile: aaen.sql $', '$Revision: 19 $', 0); END; / diff --git a/AA/aa_prs_pack.sql b/AA/aa_prs_pack.sql index 3244b8aed..1b2a4efd6 100644 --- a/AA/aa_prs_pack.sql +++ b/AA/aa_prs_pack.sql @@ -772,8 +772,7 @@ AS prs_perslid_email, prs_perslid_nr, prs_perslid_titel, - prs_perslid_oslogin, - prs_perslid_wachtwoord) + prs_perslid_oslogin) VALUES ('PRS', v_srtperslid_key, v_afdeling_key, @@ -786,11 +785,12 @@ AS recPersLid.prs_perslid_email, recPersLid.prs_perslid_nr, recPersLid.prs_perslid_titel, - recPersLid.prs_perslid_oslogin, - recPersLid.prs_perslid_wachtwoord) + recPersLid.prs_perslid_oslogin) RETURNING prs_perslid_key INTO v_perslid_key; + prs.setpassword(v_perslid_key, recPersLid.prs_perslid_wachtwoord); + COMMIT; v_count_update := v_count_update + 1; ELSIF v_count = 1 @@ -839,10 +839,7 @@ AS IF recPersLid.prs_perslid_wachtwoord IS NOT NULL THEN - UPDATE prs_perslid - SET prs_perslid_wachtwoord = - recPersLid.prs_perslid_wachtwoord - WHERE prs_perslid_key = v_perslid_key; + prs.setpassword(v_perslid_key, recPersLid.prs_perslid_wachtwoord); END IF; END IF; diff --git a/AKZA/AKZA.SQL b/AKZA/AKZA.SQL index a99ff8077..d0cf92ceb 100644 --- a/AKZA/AKZA.SQL +++ b/AKZA/AKZA.SQL @@ -3,8 +3,8 @@ -- Facilitor inrichting voor Akzo Nobel Arnhem -- (c) 1999-2010 SG|facilitor bv -- --- $Revision: 110 $ --- $Modtime: 2-03-11 10:55 $ +-- $Revision: 111 $ +-- $Modtime: 7-06-11 10:26 $ -- SPOOL xAKZA.LST SET ECHO ON @@ -5223,6 +5223,8 @@ AS -- Vanuit Access kwam elke PRS_PERSLID anders terug voor elke Oracle ROLE of USER. -- Doordat andere rollen geen rechten hebben op stat_prs_perslid is het opgelost -- Waarschijnlijk beter op te pakken door alle rollen te droppen bij overgang naar Oracle 9 +-- 7-6-2011 10:25:10: Die rollen zijn tegenwoordig echt wel weg. +-- Voor backwardscompatibiliteit toch de view laten bestaan CREATE OR REPLACE VIEW stat_prs_perslid (prs_perslid_key, prs_perslid_module, prs_srtperslid_key, @@ -5253,7 +5255,7 @@ AS "PRS_PERSLID_UPPER", "PRS_PERSLID_VOORLETTERS", "PRS_PERSLID_VOORNAAM", "PRS_PERSLID_TITEL", "PRS_PERSLID_NR", "PRS_PERSLID_DIENSTVERBAND", "PRS_PERSLID_OPP", "PRS_PERSLID_INGANGSDATUM", "PRS_PERSLID_EINDDATUM", "PRS_PERSLID_UURLOON", "PRS_PERSLID_TELEFOONNR", "PRS_PERSLID_AANMAAK", "PRS_PERSLID_VERWIJDER", - "PRS_PERSLID_INITIALEN", "PRS_PERSLID_INIT_UPPER", "PRS_PERSLID_OSLOGIN", "PRS_PERSLID_WACHTWOORD", + "PRS_PERSLID_INITIALEN", "PRS_PERSLID_INIT_UPPER", "PRS_PERSLID_OSLOGIN", '*****', "PRS_PERSLID_TUSSENVOEGSEL","PRS_PERSLID_LOGIN" FROM prs_perslid; diff --git a/BAMG/bamg.sql b/BAMG/bamg.sql index 6559a8773..26e8d26b0 100644 --- a/BAMG/bamg.sql +++ b/BAMG/bamg.sql @@ -1,7 +1,7 @@ -- Script containing customer specific configuration sql statements for BAMG: BAM Groep -- (c) 2005-2007 Dijkoraad IT bv --- $Revision: 20 $ --- $Modtime: 29-04-10 14:35 $ +-- $Revision: 21 $ +-- $Modtime: 7-06-11 10:24 $ -- -- Support: +31 53 4800700 @@ -472,31 +472,31 @@ AS TO_DATE ('50000101', 'yyyymmdd') ) hide_f_break3, NVL ((SELECT ud.FAC_USRDATA_OMSCHR - FROM cnt_kenmerkcontract kc, - fac_usrdata ud, - cnt_kenmerk k, - cnt_srtkenmerk sk - WHERE k.cnt_srtkenmerk_key = sk.cnt_srtkenmerk_key - AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key - AND fac.safe_to_number(kc.cnt_kenmerkcontract_waarde) = ud.fac_usrdata_key - AND kc.cnt_contract_key = c.cnt_contract_key - AND sk.cnt_srtkenmerk_key = 81),'Ja') fclt_f_actief, - NVL ((SELECT kc.cnt_kenmerkcontract_waarde - FROM cnt_kenmerkcontract kc, - cnt_kenmerk k, - cnt_srtkenmerk sk - WHERE k.cnt_srtkenmerk_key = sk.cnt_srtkenmerk_key - AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key - AND kc.cnt_contract_key = c.cnt_contract_key - AND sk.cnt_srtkenmerk_key = 85),'') opmerking, - NVL ((SELECT kc.cnt_kenmerkcontract_waarde - FROM cnt_kenmerkcontract kc, - cnt_kenmerk k, - cnt_srtkenmerk sk - WHERE k.cnt_srtkenmerk_key = sk.cnt_srtkenmerk_key - AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key - AND kc.cnt_contract_key = c.cnt_contract_key - AND sk.cnt_srtkenmerk_key = 101),'') regio, + FROM cnt_kenmerkcontract kc, + fac_usrdata ud, + cnt_kenmerk k, + cnt_srtkenmerk sk + WHERE k.cnt_srtkenmerk_key = sk.cnt_srtkenmerk_key + AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key + AND fac.safe_to_number(kc.cnt_kenmerkcontract_waarde) = ud.fac_usrdata_key + AND kc.cnt_contract_key = c.cnt_contract_key + AND sk.cnt_srtkenmerk_key = 81),'Ja') fclt_f_actief, + NVL ((SELECT kc.cnt_kenmerkcontract_waarde + FROM cnt_kenmerkcontract kc, + cnt_kenmerk k, + cnt_srtkenmerk sk + WHERE k.cnt_srtkenmerk_key = sk.cnt_srtkenmerk_key + AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key + AND kc.cnt_contract_key = c.cnt_contract_key + AND sk.cnt_srtkenmerk_key = 85),'') opmerking, + NVL ((SELECT kc.cnt_kenmerkcontract_waarde + FROM cnt_kenmerkcontract kc, + cnt_kenmerk k, + cnt_srtkenmerk sk + WHERE k.cnt_srtkenmerk_key = sk.cnt_srtkenmerk_key + AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key + AND kc.cnt_contract_key = c.cnt_contract_key + AND sk.cnt_srtkenmerk_key = 101),'') regio, l.alg_locatie_key hide_f_alg_locatie_key, c.cnt_contract_key hide_f_cnt_contract_key, (SELECT fud.fac_usrdata_code @@ -505,7 +505,7 @@ AS AND kl.prs_kenmerk_key = 1061 AND kl.prs_link_key = b.prs_bedrijf_key AND kl.prs_kenmerklink_waarde = fud.fac_usrdata_key) wm, - (select 1 from dual where cnt.cnt_getOpzegdatum(c.cnt_contract_key) < sysdate) HIDE_F_OPZEG_VERLOPEN, + (select 1 from dual where cnt.cnt_getOpzegdatum(c.cnt_contract_key) < sysdate) HIDE_F_OPZEG_VERLOPEN, (select 1 from dual where cnt_contract_looptijd_tot < sysdate) HIDE_F_EIND_VERLOPEN FROM cnt_v_aanwezigcontract c, cnt_contract_plaats cpl, alg_locatie l WHERE cpl.cnt_contract_key(+) = c.cnt_contract_key @@ -587,7 +587,7 @@ AS per_m2_grond, per_m2_vvo_kantoor, per_m2_vvo_bedrijfsr, per_parkeerplaats, referentie_1, referentie_2, break1, break2, break3, hide_f_break1, hide_f_break2, - hide_f_break3,fclt_f_actief, opmerking, regio, hide_f_alg_locatie_key, + hide_f_break3,fclt_f_actief, opmerking, regio, hide_f_alg_locatie_key, hide_f_cnt_contract_key, wm, hide_f_opzeg_verlopen, hide_f_eind_verlopen FROM bamg_v_contractoverzicht WHERE fclt_f_actief = 'Ja'; @@ -666,7 +666,7 @@ AS per_m2_grond, per_m2_vvo_kantoor, per_m2_vvo_bedrijfsr, per_parkeerplaats, referentie_1, referentie_2, break1, break2, break3, hide_f_break1, hide_f_break2, - hide_f_break3,fclt_f_actief, opmerking, regio, hide_f_alg_locatie_key, + hide_f_break3,fclt_f_actief, opmerking, regio, hide_f_alg_locatie_key, hide_f_cnt_contract_key, wm, hide_f_opzeg_verlopen, hide_f_eind_verlopen FROM bamg_v_contractoverzicht WHERE fclt_f_actief = 'Nee'; @@ -728,10 +728,10 @@ AS WHERE fclt_f_contract_soort <> 'Onderhuur' AND co.hide_f_alg_locatie_key = l.alg_locatie_key) eig_totaal, NVL ((SELECT ud.FAC_USRDATA_OMSCHR - FROM alg_onrgoedkenmerk ka, + FROM alg_onrgoedkenmerk ka, fac_usrdata ud - WHERE ka.alg_onrgoed_key = l.alg_locatie_key - AND fac.safe_to_number(ka.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key + WHERE ka.alg_onrgoed_key = l.alg_locatie_key + AND fac.safe_to_number(ka.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key AND ka.alg_kenmerk_key = 999),'Ja') actief FROM alg_v_aanweziglocatie l WHERE alg_locatie_verwijder IS NULL; @@ -846,32 +846,32 @@ AS 0, '', DECODE (eig_totaal - eigendom, 0, '', 'x') ) deels, - (SELECT min(hide_f_break1) - FROM bamg_v_aanwezigcontract co + (SELECT min(hide_f_break1) + FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key - AND co.hide_f_break1 > sysdate) break1, - (SELECT min(hide_f_break2) - FROM bamg_v_aanwezigcontract co + AND co.hide_f_break1 > sysdate) break1, + (SELECT min(hide_f_break2) + FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key - AND co.hide_f_break2 > sysdate) break2, - (SELECT min(hide_f_break3) - FROM bamg_v_aanwezigcontract co + AND co.hide_f_break2 > sysdate) break2, + (SELECT min(hide_f_break3) + FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key - AND co.hide_f_break3 > sysdate) break3, - (SELECT min(to_date(einddatum,'dd-mm-yyyy')) - FROM bamg_v_aanwezigcontract co - WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key) einddatum, - nvl(loc_vvo_kant,0) - - (SELECT nvl(SUM (vvo_kantoor_zelf),0) FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key) - - (SELECT nvl(SUM (co.vvo_kantoor),0) FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key and fclt_f_contract_soort = 'Onderhuur') kantoor_leeg, - nvl(loc_vvo_bedr,0) - - (SELECT NVL(SUM (vvo_bedrijfsr_zelf),0) FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key) - - (SELECT NVL(SUM (co.vvo_bedrijfsruimte),0) FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key and fclt_f_contract_soort = 'Onderhuur') bedr_leeg, - nvl(loc_vvo_perc,0) - - (SELECT NVL(SUM (perceel_opp_zelf),0) FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key) - - (SELECT NVL(SUM (co.perceel_opp),0) FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key and fclt_f_contract_soort = 'Onderhuur') perc_leeg, - nvl(loc_park,0) - - (SELECT NVL(SUM (parkeerplaatsen_zelf),0) FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key) + AND co.hide_f_break3 > sysdate) break3, + (SELECT min(to_date(einddatum,'dd-mm-yyyy')) + FROM bamg_v_aanwezigcontract co + WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key) einddatum, + nvl(loc_vvo_kant,0) + - (SELECT nvl(SUM (vvo_kantoor_zelf),0) FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key) + - (SELECT nvl(SUM (co.vvo_kantoor),0) FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key and fclt_f_contract_soort = 'Onderhuur') kantoor_leeg, + nvl(loc_vvo_bedr,0) + - (SELECT NVL(SUM (vvo_bedrijfsr_zelf),0) FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key) + - (SELECT NVL(SUM (co.vvo_bedrijfsruimte),0) FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key and fclt_f_contract_soort = 'Onderhuur') bedr_leeg, + nvl(loc_vvo_perc,0) + - (SELECT NVL(SUM (perceel_opp_zelf),0) FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key) + - (SELECT NVL(SUM (co.perceel_opp),0) FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key and fclt_f_contract_soort = 'Onderhuur') perc_leeg, + nvl(loc_park,0) + - (SELECT NVL(SUM (parkeerplaatsen_zelf),0) FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key) - (SELECT NVL(SUM (co.parkeerplaatsen),0) FROM bamg_v_aanwezigcontract co WHERE co.hide_f_alg_locatie_key = blo.alg_locatie_key and fclt_f_contract_soort = 'Onderhuur') park_leeg, actief FROM bamg_v_loc_overzicht_detail blo; @@ -1060,7 +1060,7 @@ AS -- fsn#1371 begin CREATE OR REPLACE VIEW BAMG_v_imp_telefoon AS -select +select SUBSTR(perslid_naam,1,30) perslid_naam ,UPPER(SUBSTR(perslid_naam,1,30)) perslid_upper ,SUBSTR(perslid_telefoon,1,15) perslid_telefoon @@ -1072,7 +1072,7 @@ select ,fac.safe_to_number(SUBSTR(ruimte,3,1)) verdieping_volgnr ,SUBSTR(ruimte,1,1) gebouw_code ,SUBSTR(afdeling_naam,1,10) afdeling_naam -,UPPER(SUBSTR(afdeling_naam,1,10)) afdeling_naam_upper +,UPPER(SUBSTR(afdeling_naam,1,10)) afdeling_naam_upper ,SUBSTR(fax,1,15) fax from BAMG_imp_telefoon; / @@ -1082,7 +1082,7 @@ CREATE OR REPLACE VIEW BAMG_v_imp_telefoon_del_now AS SELECT p.prs_perslid_key, p.prs_perslid_naam, p.prs_perslid_upper FROM PRS_PERSLID p WHERE 1=1 - AND p.prs_perslid_nr = 'IMPORT' + AND p.prs_perslid_nr = 'IMPORT' AND p.prs_perslid_verwijder IS NULL AND p.prs_perslid_einddatum < SYSDATE; / @@ -1117,7 +1117,7 @@ CREATE OR REPLACE VIEW BAMG_v_imp_telefoon_del AS FROM PRS_PERSLID p, BAMG_v_imp_telefoon tel WHERE p.prs_perslid_upper = tel.perslid_upper(+) AND (tel.perslid_upper IS NULL) -- dwz alleen aanwezig in prs_perslid - AND p.prs_perslid_nr = 'IMPORT' + AND p.prs_perslid_nr = 'IMPORT' AND p.prs_perslid_verwijder IS NULL AND ((p.prs_perslid_einddatum IS NULL) OR (p.prs_perslid_einddatum >= sysdate)) AND x.prs_perslid_key = p.prs_perslid_key @@ -1128,25 +1128,25 @@ CREATE OR REPLACE VIEW BAMG_v_imp_telefoon_upd AS SELECT p.prs_perslid_key, tel.* FROM PRS_PERSLID p, BAMG_v_imp_telefoon tel WHERE p.prs_perslid_upper = tel.perslid_upper - AND p.prs_perslid_nr = 'IMPORT' + AND p.prs_perslid_nr = 'IMPORT' AND p.prs_perslid_verwijder IS NULL; -/ +/ CREATE OR REPLACE VIEW BAMG_v_imp_telefoon_ins AS SELECT -1 prs_perslid_key, tel.* FROM BAMG_v_imp_telefoon tel - WHERE NOT EXISTS (SELECT 'x' FROM PRS_PERSLID p - WHERE p.prs_perslid_verwijder IS NULL + WHERE NOT EXISTS (SELECT 'x' FROM PRS_PERSLID p + WHERE p.prs_perslid_verwijder IS NULL AND tel.PERSLID_UPPER = p.PRS_PERSLID_UPPER AND ROWNUM=1); / - + CREATE OR REPLACE VIEW BAMG_v_imp_telefoon_mod AS select * from BAMG_v_imp_telefoon_upd UNION ALL select * from BAMG_v_imp_telefoon_ins; / - + CREATE OR REPLACE PACKAGE BAMG_import_export AS -- Hulpfuncties en procedures: PROCEDURE to_log (p_do_log BOOLEAN, p_message VARCHAR2, p_proces VARCHAR2); @@ -1159,8 +1159,8 @@ CREATE OR REPLACE PACKAGE BAMG_import_export AS FROM dual; END; */ FUNCTION get_geb_key( p_locatie_code IN VARCHAR2, p_gebouw_code VARCHAR2) RETURN NUMBER; - PROCEDURE set_geb_key ( p_locatie_code IN VARCHAR2, p_gebouw_code VARCHAR2); - /* Voorbeeld + PROCEDURE set_geb_key ( p_locatie_code IN VARCHAR2, p_gebouw_code VARCHAR2); + /* Voorbeeld DECLARE v_key NUMBER(10); BEGIN BAMG_import_export.set_ver_key(9,0); @@ -1169,8 +1169,8 @@ CREATE OR REPLACE PACKAGE BAMG_import_export AS FROM dual; END; */ FUNCTION get_ver_key( p_gebouw_key IN NUMBER, p_verdieping_volgnr NUMBER) RETURN NUMBER; - PROCEDURE set_ver_key ( p_gebouw_key IN NUMBER, p_verdieping_volgnr NUMBER); - /* Voorbeeld + PROCEDURE set_ver_key ( p_gebouw_key IN NUMBER, p_verdieping_volgnr NUMBER); + /* Voorbeeld DECLARE v_key NUMBER(10); BEGIN BAMG_import_export.set_rui_key(211,'0'); @@ -1180,7 +1180,7 @@ CREATE OR REPLACE PACKAGE BAMG_import_export AS END; */ FUNCTION get_rui_key( p_verdieping_key IN NUMBER, p_ruimte_nr VARCHAR2) RETURN NUMBER; PROCEDURE set_rui_key ( p_verdieping_key IN NUMBER, p_ruimte_nr VARCHAR2); - /* Voorbeeld + /* Voorbeeld DECLARE v_key NUMBER(10); BEGIN BAMG_import_export.set_afd_key('BAM ICT','TEST'); @@ -1189,8 +1189,8 @@ CREATE OR REPLACE PACKAGE BAMG_import_export AS FROM dual; END; */ FUNCTION get_afd_key( p_afdeling_parentnaam IN VARCHAR2, p_afdeling_naam IN VARCHAR2) RETURN NUMBER; - PROCEDURE set_afd_key ( p_afdeling_parentnaam IN VARCHAR2, p_afdeling_naam IN VARCHAR2); - /* Voorbeeld + PROCEDURE set_afd_key ( p_afdeling_parentnaam IN VARCHAR2, p_afdeling_naam IN VARCHAR2); + /* Voorbeeld DECLARE v_key NUMBER(10); BEGIN BAMG_import_export.set_wrk_key(647,21); @@ -1220,7 +1220,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS p_message, 'Dit is een algemeen informatieve melding' ); - commit; -- to commit logging + commit; -- to commit logging END IF; EXCEPTION WHEN OTHERS @@ -1233,7 +1233,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS v_dummy VARCHAR2(16); v_count NUMBER(10); v_locatie_key NUMBER(10); - v_gebouw_key NUMBER(10); + v_gebouw_key NUMBER(10); BEGIN select max(g.alg_locatie_key), max(g.alg_gebouw_key), count(*) @@ -1250,7 +1250,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS END IF; - RETURN v_gebouw_key; + RETURN v_gebouw_key; EXCEPTION WHEN OTHERS @@ -1264,7 +1264,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS v_dummy VARCHAR2(16); v_count NUMBER(10); v_locatie_key NUMBER(10); - v_gebouw_key NUMBER(10); + v_gebouw_key NUMBER(10); BEGIN select max(g.alg_locatie_key), max(g.alg_gebouw_key), count(*) @@ -1277,26 +1277,26 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS IF (v_count = 0) THEN - SELECT alg_locatie_key, alg_s_alg_onroerendgoed_keys.NEXTVAL + SELECT alg_locatie_key, alg_s_alg_onroerendgoed_keys.NEXTVAL INTO v_locatie_key, v_gebouw_key FROM DUAL, alg_locatie WHERE alg_locatie_verwijder is null AND alg_locatie_code = p_locatie_code; - - INSERT INTO ALG_GEBOUW + + INSERT INTO ALG_GEBOUW (ALG_LOCATIE_KEY ,ALG_GEBOUW_KEY ,ALG_GEBOUW_NAAM ,ALG_GEBOUW_CODE - ,ALG_GEBOUW_OMSCHRIJVING) - VALUES + ,ALG_GEBOUW_OMSCHRIJVING) + VALUES (v_locatie_key ,v_gebouw_key ,SUBSTR(p_gebouw_code,1,30) ,SUBSTR(p_gebouw_code,1,10) ,SUBSTR(p_gebouw_code,1,30) - ); - + ); + END IF; EXCEPTION @@ -1327,7 +1327,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS END IF; - RETURN v_verdieping_key; + RETURN v_verdieping_key; EXCEPTION WHEN OTHERS @@ -1335,7 +1335,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS END get_ver_key; -- - -- + -- PROCEDURE set_ver_key( p_gebouw_key IN NUMBER, p_verdieping_volgnr NUMBER) IS -- variabelen v_dummy VARCHAR2(16); @@ -1353,17 +1353,17 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS IF (v_count = 0) THEN - SELECT alg_s_alg_onroerendgoed_keys.NEXTVAL + SELECT alg_s_alg_onroerendgoed_keys.NEXTVAL INTO v_verdieping_key FROM DUAL; - INSERT INTO ALG_VERDIEPING + INSERT INTO ALG_VERDIEPING (ALG_VERDIEPING_KEY ,ALG_GEBOUW_KEY ,ALG_VERDIEPING_OMSCHRIJVING ,ALG_VERDIEPING_VOLGNR - ,ALG_VERDIEPING_CODE) - VALUES + ,ALG_VERDIEPING_CODE) + VALUES (v_verdieping_key ,p_gebouw_key ,'Verdieping '||to_char(p_verdieping_volgnr) @@ -1402,7 +1402,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS END IF; - RETURN v_ruimte_key; + RETURN v_ruimte_key; EXCEPTION WHEN OTHERS @@ -1427,21 +1427,21 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS and r.alg_ruimte_verwijder is null; IF (v_count = 0) THEN - - SELECT alg_s_alg_onroerendgoed_keys.NEXTVAL - INTO v_ruimte_key + + SELECT alg_s_alg_onroerendgoed_keys.NEXTVAL + INTO v_ruimte_key FROM DUAL; - INSERT INTO ALG_RUIMTE + INSERT INTO ALG_RUIMTE (ALG_RUIMTE_KEY ,ALG_VERDIEPING_KEY ,ALG_RUIMTE_NR - ,ALG_RUIMTE_OMSCHRIJVING) - VALUES + ,ALG_RUIMTE_OMSCHRIJVING) + VALUES (v_ruimte_key ,p_verdieping_key ,p_ruimte_nr - ,''); + ,''); END IF; @@ -1467,26 +1467,26 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS and trim(p.prs_afdeling_upper) = trim(upper(p_afdeling_parentnaam)) and a.prs_afdeling_parentkey = p.prs_afdeling_key and a.prs_afdeling_verwijder is null - and p.prs_afdeling_verwijder is null; + and p.prs_afdeling_verwijder is null; IF (v_count = 0) THEN - + SELECT max(prs_afdeling_key), count(*) into v_afdeling_key, v_count from prs_afdeling where prs_afdeling_verwijder is null and prs_afdeling_parentkey is null and prs_afdeling_upper = upper('ONB'); - + IF (v_count = 0) THEN v_afdeling_key := -1; - - END IF; + + END IF; END IF; - RETURN v_afdeling_key; + RETURN v_afdeling_key; EXCEPTION WHEN OTHERS @@ -1500,7 +1500,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS v_dummy VARCHAR2(16); v_count NUMBER(10); v_afdeling_key NUMBER(10); - v_afdeling_parentkey NUMBER(10); + v_afdeling_parentkey NUMBER(10); BEGIN select max(a.prs_afdeling_key), max(p.prs_afdeling_key), count(*) @@ -1510,7 +1510,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS and trim(p.prs_afdeling_upper) = trim(upper(p_afdeling_parentnaam)) and a.prs_afdeling_parentkey = p.prs_afdeling_key and a.prs_afdeling_verwijder is null - and p.prs_afdeling_verwijder is null; + and p.prs_afdeling_verwijder is null; IF ((v_count = 0) and (p_afdeling_naam is not null) and (p_afdeling_parentnaam is not null)) THEN @@ -1519,7 +1519,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS from prs_afdeling where prs_afdeling_verwijder is null and prs_afdeling_upper = upper(p_afdeling_parentnaam); - + IF (v_count = 0) THEN SELECT count(*) @@ -1537,7 +1537,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS ,prs_afdeling_naam ,prs_afdeling_omschrijving ) - VALUES + VALUES (1 ,NULL ,'ONB' @@ -1548,23 +1548,23 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS ELSE - SELECT prs_s_prs_afdeling_key.NEXTVAL - INTO v_afdeling_key + SELECT prs_s_prs_afdeling_key.NEXTVAL + INTO v_afdeling_key FROM DUAL; - - INSERT INTO PRS_AFDELING + + INSERT INTO PRS_AFDELING (PRS_AFDELING_KEY ,PRS_AFDELING_PARENTKEY ,PRS_AFDELING_NAAM ,PRS_AFDELING_OMSCHRIJVING - ) VALUES + ) VALUES (v_afdeling_key - ,v_afdeling_parentkey + ,v_afdeling_parentkey ,p_afdeling_naam ,'' - ); + ); - END IF; + END IF; END IF; @@ -1600,7 +1600,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS END IF; - RETURN v_werkplek_key; + RETURN v_werkplek_key; EXCEPTION WHEN OTHERS @@ -1620,7 +1620,7 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS BEGIN v_debug := false; -- false bij oplevering! - + BAMG_import_export.to_log(v_debug,'Heeft de persoon een werkplek in een bepaalde ruimte?','debug set_wrk_key'); select max(w.prs_werkplek_key), count(*) into v_werkplek_key, v_count @@ -1632,8 +1632,8 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS and pw.prs_perslid_key = p_perslid_key; IF (v_count = 0) THEN - - BAMG_import_export.to_log(v_debug,'Verwijder koppeling persoon/werkplek indien deze aanwezig is.','debug set_wrk_key'); + + BAMG_import_export.to_log(v_debug,'Verwijder koppeling persoon/werkplek indien deze aanwezig is.','debug set_wrk_key'); -- Bij verhuizen van werkplek naar een andere ruimte. DELETE FROM prs_perslidwerkplek @@ -1663,19 +1663,19 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS BAMG_import_export.to_log(v_debug,'Bepalen volgnummer','debug set_wrk_key'); SELECT max(prs_werkplek_volgnr)+1 INTO v_werkplek_volgnr - FROM + FROM ( SELECT MAX(nvl(prs_werkplek_volgnr,0)) prs_werkplek_volgnr FROM PRS_PERSLIDWERKPLEK pw, PRS_WERKPLEK w WHERE w.prs_werkplek_key = pw.prs_werkplek_key AND prs_alg_ruimte_key = p_ruimte_key GROUP BY prs_alg_ruimte_key - UNION + UNION SELECT 0 FROM dual ); - BAMG_import_export.to_log(v_debug,'Bepalen werkplekomschrijving','debug set_wrk_key'); + BAMG_import_export.to_log(v_debug,'Bepalen werkplekomschrijving','debug set_wrk_key'); SELECT TO_CHAR(v.alg_verdieping_volgnr) || '.' || r.alg_ruimte_nr || '/' || to_char(v_werkplek_volgnr) INTO v_werkplek_omschrijving FROM ALG_RUIMTE r, ALG_VERDIEPING v @@ -1686,13 +1686,13 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS INTO v_werkplek_key FROM DUAL; - BAMG_import_export.to_log(v_debug,'INSERT INTO prs_werkplek','debug set_wrk_key'); + BAMG_import_export.to_log(v_debug,'INSERT INTO prs_werkplek','debug set_wrk_key'); INSERT INTO prs_werkplek (prs_werkplek_key ,prs_werkplek_volgnr ,prs_werkplek_omschrijving ,prs_alg_ruimte_key - ) VALUES + ) VALUES (v_werkplek_key ,v_werkplek_volgnr ,v_werkplek_omschrijving @@ -1700,15 +1700,15 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS ); END IF; - + BAMG_import_export.to_log(v_debug,'INSERT INTO PRS_PERSLIDWERKPLEK','debug set_wrk_key'); - INSERT INTO PRS_PERSLIDWERKPLEK + INSERT INTO PRS_PERSLIDWERKPLEK (PRS_PERSLID_KEY ,PRS_WERKPLEK_KEY ) VALUES (p_perslid_key ,v_werkplek_key); - + END IF; EXCEPTION @@ -1719,13 +1719,13 @@ CREATE OR REPLACE PACKAGE BODY BAMG_import_export AS END set_wrk_key; -- -- - - -- + + -- END BAMG_import_export; / -- show errors - + CREATE OR REPLACE PROCEDURE BAMG_import_telefoon ( p_applname IN VARCHAR2, @@ -1740,7 +1740,7 @@ AS -- import v_filehandle UTL_FILE.file_type; v_field VARCHAR2 (100); -- Import field - v_newline fac_imp_file.fac_imp_file_line%TYPE; + v_newline fac_imp_file.fac_imp_file_line%TYPE; header_is_valid BOOLEAN; v_aantal NUMBER; @@ -1776,7 +1776,7 @@ BEGIN -- Clear my old logs DELETE FROM IMP_LOG WHERE imp_log_applicatie = p_applname; - + BEGIN v_teller := 0; OPEN c1; @@ -1802,7 +1802,7 @@ BEGIN AND trim(upper(v_perslid_naam)) LIKE 'NAAM' ) THEN - header_is_valid := TRUE; + header_is_valid := TRUE; ELSIF (header_is_valid) THEN @@ -1872,7 +1872,7 @@ BEGIN WHERE prs_afdeling_omschrijving IS NOT NULL)); fac.imp_writelog (p_applname, p_applrun, 'S', 'Personen import: aantal onbekende werkmaatschappijen: '|| v_aantal,'Zie errors voor details'); - INSERT INTO IMP_LOG + INSERT INTO IMP_LOG ( IMP_LOG_APPLICATIE , IMP_LOG_RUN , IMP_LOG_DATUM @@ -1921,13 +1921,12 @@ AS c_bedrijf_key NUMBER(10) := 0; c_srtperslid_upper VARCHAR2(30) := 'INTERN'; c_locatie_code VARCHAR2(30) := 'BUN%'; - c_perslid_module VARCHAR(3) := 'PRS'; + c_perslid_module VARCHAR(3) := 'PRS'; c_kenmerk_upper_fax VARCHAR(30) := 'FAXNUMMER'; - c_perslid_wachtwoord VARCHAR(30) := ''; c_perslid_nr_import VARCHAR(10) := 'IMPORT'; - c_commitbuffer NUMBER := 1000; + c_commitbuffer NUMBER := 1000; c_max_percentage_delete NUMBER := 10; - c_minimum_import_rows NUMBER := 100; + c_minimum_import_rows NUMBER := 100; -- Data CURSOR c_prs_update @@ -1937,7 +1936,7 @@ AS WHERE 0=0; rec_prs_upd c_prs_update%ROWTYPE; - + -- Error handling oracle_err_num NUMBER; oracle_err_mes VARCHAR2 (200); @@ -1948,21 +1947,21 @@ AS v_continue BOOLEAN; -- Overig - v_buffercount NUMBER := 0; + v_buffercount NUMBER := 0; v_perslid_count_imp NUMBER (10); - v_perslid_count_del NUMBER (10); + v_perslid_count_del NUMBER (10); v_imp_count NUMBER (10); - v_perslid_key NUMBER (10); + v_perslid_key NUMBER (10); v_srtperslid_key NUMBER (10); v_afdeling_key NUMBER (10); v_locatie_key NUMBER (10); - v_locatie_code VARCHAR2(10); + v_locatie_code VARCHAR2(10); v_gebouw_key NUMBER (10); v_verdieping_key NUMBER (10); v_ruimte_key NUMBER (10); v_werkplek_key NUMBER (10); v_kenmerk_key_fax NUMBER(10); - v_dummy_key NUMBER (10); + v_dummy_key NUMBER (10); v_gebouw_code VARCHAR2 (10); v_srtperslid_omschr VARCHAR (30); v_count NUMBER (10); @@ -1975,9 +1974,9 @@ AS BEGIN - -- **** + -- **** -- Init - -- **** + -- **** select count(*) into v_perslid_count_imp @@ -1986,27 +1985,27 @@ BEGIN DELETE FROM IMP_LOG WHERE imp_log_applicatie = p_applname AND imp_log_run <> p_applrun; - + IF (v_perslid_count_imp < c_minimum_import_rows) THEN -- Er is kennelijk wel geen (geldig) importbestand (waarschijnlijk leeg) - v_continue := false; + v_continue := false; ELSE -- Er is kennelijk een (geldig?) importbestand - v_continue := true; + v_continue := true; END IF; - + IF v_continue THEN - + DELETE FROM imp_log WHERE imp_log_applicatie = p_applname; - + v_errorhint := 'Onbekende fout'; v_errmes := 'Onbekende fout'; - + select count(*) into v_perslid_count_del from BAMG_v_imp_telefoon_del; - + -- Informatieve logging, zien we gelijk hoe laat het was fac.imp_writelog (p_applname, p_applrun, @@ -2014,31 +2013,31 @@ BEGIN 'Aantal te verwerken records: ' || TO_CHAR (v_perslid_count_imp), 'Dit is een algemeen informatieve melding' ); - + IF (v_perslid_count_del <> 0) THEN -- test ivm delen door 0 - + v_perslid_del_percentage := (v_perslid_count_del/v_perslid_count_imp) * 100; IF ((v_perslid_count_del/v_perslid_count_imp * 100) > c_max_percentage_delete) THEN - + fac.imp_writelog (p_applname, p_applrun, 'E', - 'Import afgebroken: er moeten ' || - TO_CHAR (v_perslid_del_percentage) || - '% van de personen in Facilitor verwijderd worden terwijl een maximum van '|| - TO_CHAR (v_perslid_del_percentage) || + 'Import afgebroken: er moeten ' || + TO_CHAR (v_perslid_del_percentage) || + '% van de personen in Facilitor verwijderd worden terwijl een maximum van '|| + TO_CHAR (v_perslid_del_percentage) || '% is toegestaan. Neem eventueel contact op met applicatiebeheer.', '' ); - v_continue := false; - - + v_continue := false; + + END IF; - + END IF; - - END IF; - + + END IF; + IF v_continue THEN /* @@ -2049,14 +2048,14 @@ BEGIN WHERE alg_locatie_verwijder is null AND upper(alg_locatie_code) like c_locatie_code; */ - + v_errmes := 'Zoeken Functie Intern'; SELECT prs_srtperslid_key INTO v_srtperslid_key FROM prs_srtperslid WHERE prs_srtperslid_verwijder is null AND prs_srtperslid_upper = c_srtperslid_upper; - + v_errmes := 'Zoeken kenmerk Fax'; SELECT min(prs_kenmerk_key) INTO v_kenmerk_key_fax @@ -2064,14 +2063,14 @@ BEGIN WHERE prs_kenmerk_upper = c_kenmerk_upper_fax AND prs_kenmerk_verwijder is null AND prs_kenmerk_niveau = 'P'; - - - -- ******** + + + -- ******** -- 'Delete' - -- ******** + -- ******** v_action := 'DELETE'; - + update prs_perslid x set prs_perslid_einddatum = sysdate where EXISTS ( @@ -2079,70 +2078,70 @@ BEGIN FROM PRS_PERSLID p, BAMG_v_imp_telefoon tel WHERE p.prs_perslid_upper = tel.perslid_upper(+) AND tel.perslid_upper IS NULL - AND p.prs_perslid_nr = 'IMPORT' + AND p.prs_perslid_nr = 'IMPORT' AND p.prs_perslid_verwijder IS NULL - AND ((p.prs_perslid_einddatum IS NULL) OR (p.prs_perslid_einddatum > sysdate)) + AND ((p.prs_perslid_einddatum IS NULL) OR (p.prs_perslid_einddatum > sysdate)) AND x.prs_perslid_key = p.prs_perslid_key AND rownum = 1); - + v_errormsg := 'Try to open cursor (mod)'; v_errmes := v_errormsg; v_action := 'INSERT/UPDATE'; - + FOR rec_prs_upd IN c_prs_update LOOP BEGIN - - v_goto_next_record := false; - + + v_goto_next_record := false; + IF (rec_prs_upd.verdieping_volgnr is not null AND rec_prs_upd.ruimte_nr is not null) THEN - + v_errormsg := 'Getting v_gebouw_key'; - v_errormsg := 'Opvragen verdiepinggegevens in Facilitor'; + v_errormsg := 'Opvragen verdiepinggegevens in Facilitor'; -- BAMG_import_export.set_geb_key(v_locatie_code,rec_prs_upd.gebouw_code); SELECT BAMG_import_export.get_geb_key(c_locatie_code,rec_prs_upd.gebouw_code) INTO v_gebouw_key FROM dual; - + v_errormsg := 'Opvragen verdiepinggegevens in Facilitor'; BAMG_import_export.set_ver_key(v_gebouw_key,rec_prs_upd.verdieping_volgnr); SELECT BAMG_import_export.get_ver_key(v_gebouw_key,rec_prs_upd.verdieping_volgnr) INTO v_verdieping_key FROM dual; - + v_errormsg := 'Opvragen ruimtegegevens in Facilitor'; BAMG_import_export.set_rui_key(v_verdieping_key,rec_prs_upd.ruimte_nr); SELECT BAMG_import_export.get_rui_key(v_verdieping_key,rec_prs_upd.ruimte_nr) INTO v_ruimte_key FROM dual; - + COMMIT; - + ELSE - + v_gebouw_key := -1; v_verdieping_key := -1; - v_ruimte_key := -1; - + v_ruimte_key := -1; + END IF; - + v_errormsg := 'Herleiden afdeling met naam <'||nvl(rec_prs_upd.afdeling_naam,'')||'>'; BAMG_import_export.set_afd_key(rec_prs_upd.afdeling_parent,rec_prs_upd.afdeling_naam); SELECT BAMG_import_export.get_afd_key(rec_prs_upd.afdeling_parent,rec_prs_upd.afdeling_naam) INTO v_afdeling_key FROM dual; - + IF (v_afdeling_key > 0) THEN - + IF (rec_prs_upd.prs_perslid_key <= 0) THEN - - v_errormsg := 'Toevoegen persoon met naam <'||nvl(rec_prs_upd.perslid_naam,'')||'>'; - - SELECT prs_s_prs_alluitvoerende_keys.NEXTVAL - INTO v_perslid_key + + v_errormsg := 'Toevoegen persoon met naam <'||nvl(rec_prs_upd.perslid_naam,'')||'>'; + + SELECT prs_s_prs_alluitvoerende_keys.NEXTVAL + INTO v_perslid_key FROM DUAL; - - INSERT INTO PRS_PERSLID + + INSERT INTO PRS_PERSLID (PRS_PERSLID_KEY ,PRS_PERSLID_MODULE ,PRS_SRTPERSLID_KEY @@ -2150,7 +2149,6 @@ BEGIN ,PRS_PERSLID_NAAM ,PRS_PERSLID_NR ,PRS_PERSLID_OSLOGIN - ,PRS_PERSLID_WACHTWOORD ,PRS_PERSLID_TELEFOONNR ) VALUES (v_perslid_key @@ -2160,25 +2158,24 @@ BEGIN ,rec_prs_upd.perslid_naam ,c_perslid_nr_import ,NULL - ,c_perslid_wachtwoord ,rec_prs_upd.perslid_telefoon - ); - - ELSE - + ); + + ELSE + v_perslid_key := rec_prs_upd.prs_perslid_key; - + v_errormsg := 'Wijzigen persoon met naam <'||nvl(rec_prs_upd.perslid_naam,'')||'>'; - - UPDATE PRS_PERSLID + + UPDATE PRS_PERSLID SET PRS_AFDELING_KEY = v_afdeling_key , PRS_PERSLID_NAAM = rec_prs_upd.perslid_naam , PRS_PERSLID_TELEFOONNR = rec_prs_upd.perslid_telefoon WHERE prs_perslid_key = v_perslid_key; - - - END IF; - + + + END IF; + -- FlexProp FAXNUMMER select count(*) into v_count @@ -2186,65 +2183,65 @@ BEGIN where prs_kenmerklink_verwijder is null and prs_kenmerk_key = v_kenmerk_key_fax and prs_link_key = v_perslid_key; - + IF (v_count = 0) THEN IF (rec_prs_upd.fax IS NOT NULL) THEN - - INSERT INTO PRS_KENMERKLINK + + INSERT INTO PRS_KENMERKLINK (PRS_LINK_KEY ,PRS_KENMERKLINK_NIVEAU ,PRS_KENMERK_KEY ,PRS_KENMERKLINK_WAARDE - ) VALUES + ) VALUES (v_perslid_key ,'P' ,v_kenmerk_key_fax - ,rec_prs_upd.fax); - - END IF; + ,rec_prs_upd.fax); + + END IF; ELSE IF (rec_prs_upd.fax IS NOT NULL) THEN - - UPDATE PRS_KENMERKLINK + + UPDATE PRS_KENMERKLINK set PRS_KENMERKLINK_WAARDE = rec_prs_upd.fax where prs_kenmerklink_verwijder is null and prs_kenmerk_key = v_kenmerk_key_fax and prs_link_key = v_perslid_key; ELSE - + DELETE FROM PRS_KENMERKLINK where prs_kenmerklink_verwijder is null and prs_kenmerk_key = v_kenmerk_key_fax and prs_link_key = v_perslid_key; - END IF; - END IF; - + END IF; + END IF; + -- WERKPLEK aanmaken en koppelen indien noodzakelijk - --fac.imp_writelog (p_applname, p_applrun, 'I', 'WERKPLEK aanmaken en koppelen indien noodzakelijk', to_char(v_perslid_key)||','||to_char(v_ruimte_key)); + --fac.imp_writelog (p_applname, p_applrun, 'I', 'WERKPLEK aanmaken en koppelen indien noodzakelijk', to_char(v_perslid_key)||','||to_char(v_ruimte_key)); BAMG_import_export.set_wrk_key(v_ruimte_key,v_perslid_key); - + v_buffercount := v_buffercount + 1; - + IF v_buffercount >= c_commitbuffer THEN COMMIT; v_buffercount := 0; END IF; - + ELSE - + v_errormsg := 'v_afdeling_key <= 0 !!! Log iets indien de afdeling NIET leeg is'; IF (rec_prs_upd.afdeling_naam IS NOT NULL) THEN - + v_errormsg := 'Kan geen afdeling vinden voor afdeling met naam <'||rec_prs_upd.afdeling_naam||'> bij persoon <'||rec_prs_upd.perslid_naam||'>'; fac.imp_writelog (p_applname, p_applrun, 'E', '', v_errormsg); - + END IF; - - END IF; - - + + END IF; + + EXCEPTION WHEN OTHERS THEN @@ -2257,7 +2254,7 @@ BEGIN END; END LOOP; - END IF; + END IF; EXCEPTION WHEN OTHERS @@ -2325,7 +2322,7 @@ AS rec_ruimte c_ruimte%ROWTYPE; rec_artikel c_artikel%ROWTYPE; rec_deel c_deel%ROWTYPE; - + -- Error handling BEGIN v_count := 0; @@ -2333,15 +2330,15 @@ BEGIN LOOP BEGIN v_prijs := res.getruimteprijs(rec_ruimte.res_rsv_ruimte_key); - UPDATE res_rsv_ruimte + UPDATE res_rsv_ruimte SET res_status_bo_key = 5 - , res_rsv_ruimte_prijs = v_prijs - WHERE res_rsv_ruimte_key = rec_ruimte.res_rsv_ruimte_key + , res_rsv_ruimte_prijs = v_prijs + WHERE res_rsv_ruimte_key = rec_ruimte.res_rsv_ruimte_key AND res_status_bo_key <> 6; v_count := v_count+1; - + BEGIN fac.trackaction('RESAFM', rec_ruimte.res_rsv_ruimte_key, 24041, NULL, NULL); END; - + END; END LOOP; @@ -2352,13 +2349,13 @@ BEGIN LOOP BEGIN v_prijs := res.getartikelprijs(rec_artikel.res_rsv_artikel_key); - UPDATE res_rsv_artikel + UPDATE res_rsv_artikel SET res_status_bo_key = 5 - , res_rsv_artikel_prijs = v_prijs - WHERE res_rsv_artikel_key = rec_artikel.res_rsv_artikel_key + , res_rsv_artikel_prijs = v_prijs + WHERE res_rsv_artikel_key = rec_artikel.res_rsv_artikel_key AND res_status_bo_key <> 6; - fac.trackaction('RESAFM', rec_artikel.res_rsv_ruimte_key, 24041, NULL, 'Catering afgemeld'); + fac.trackaction('RESAFM', rec_artikel.res_rsv_ruimte_key, 24041, NULL, 'Catering afgemeld'); v_count := v_count+1; END; END LOOP; @@ -2370,14 +2367,14 @@ BEGIN LOOP BEGIN v_prijs := res.getdeelprijs(rec_deel.res_rsv_deel_key); - UPDATE res_rsv_deel + UPDATE res_rsv_deel SET res_status_bo_key = 5 - , res_rsv_deel_prijs = v_prijs - WHERE res_rsv_deel_key = rec_deel.res_rsv_deel_key + , res_rsv_deel_prijs = v_prijs + WHERE res_rsv_deel_key = rec_deel.res_rsv_deel_key AND res_status_bo_key <> 6; - - fac.trackaction('RESAFM', rec_deel.res_rsv_ruimte_key, 24041, NULL, 'Voorziening(en) afgemeld'); - + + fac.trackaction('RESAFM', rec_deel.res_rsv_ruimte_key, 24041, NULL, 'Voorziening(en) afgemeld'); + v_count := v_count+1; END; END LOOP; @@ -2393,9 +2390,9 @@ END; / CREATE OR REPLACE VIEW BAMG_V_NOTI_CNTREMINDER -(CODE, SENDER, RECEIVER, TEXT, KEY, +(CODE, SENDER, RECEIVER, TEXT, KEY, PAR1, PAR2, XKEY) -AS +AS SELECT '', '', c.prs_perslid_key_beh, 'Rappèl: Contract ' || c.cnt_contract_nummer_intern diff --git a/Hout/hout.sql b/Hout/hout.sql index 8b916461b..3654cf70f 100644 --- a/Hout/hout.sql +++ b/Hout/hout.sql @@ -1,7 +1,7 @@ -- Script containing customer specific configuration sql statements for Hout -- (c) 2007 Facilitor Software Nederland/Dijkoraad IT bv --- $Revision: 38 $ --- $Modtime: 16-05-11 14:05 $ +-- $Revision: 39 $ +-- $Modtime: 7-06-11 10:06 $ -- -- Support: +31 53 4800700 @@ -64,7 +64,6 @@ CREATE OR REPLACE PROCEDURE hout_import_prs ( v_prs_werkplek_volgnr_num NUMBER(3); v_prs_werkplek_omschrijving VARCHAR2(256); v_prs_werkplek_volgnr VARCHAR2(256); - v_prs_perslid_wachtwoord VARCHAR2(256); -- PRS_BEDRIJF CURSOR c1(p_imp_file_applicatie VARCHAR2) @@ -558,19 +557,6 @@ BEGIN ); END IF; -- - v_errorhint := 'Ongeldige loginnaam'; - v_prs_perslid_wachtwoord := trim(v_prs_perslid_wachtwoord); - IF LENGTH (v_prs_perslid_oslogin) > 30 - THEN - v_prs_perslid_oslogin := SUBSTR(v_prs_perslid_oslogin,1,30); - fac.imp_writelog(p_applname - ,p_applrun - ,'W' - ,v_aanduiding||'Loginnaam persoon is te lang' - ,'Aanduiding wordt afgebroken tot [' || v_prs_perslid_oslogin || ']' - ); - END IF; - -- -- Insert geformatteerde import record IF v_ongeldig = 0 diff --git a/SKAF/skaf.sql b/SKAF/skaf.sql index eb8a1248c..25d0548dc 100644 --- a/SKAF/skaf.sql +++ b/SKAF/skaf.sql @@ -1,7 +1,7 @@ -- Script containing customer specific configuration sql statements for SKAF -- (c) 2009 SG|facilitor bv --- $Revision: 9 $ --- $Modtime: 16-05-11 15:33 $ +-- $Revision: 10 $ +-- $Modtime: 7-06-11 10:15 $ -- -- Support: +31 53 4800710 @@ -937,8 +937,7 @@ BEGIN prs_perslid_telefoonnr, prs_perslid_email, prs_perslid_nr, - prs_perslid_oslogin, - prs_perslid_wachtwoord + prs_perslid_oslogin ) VALUES ('PRS', v_srtperslid_key, v_afdeling_key, recperslid.prs_perslid_naam, @@ -948,9 +947,11 @@ BEGIN recperslid.prs_perslid_telefoonnr, recperslid.prs_perslid_email, recperslid.prs_perslid_nr, - v_oslogin, - v_wachtwoord - ); + v_oslogin + ) RETURNING prs_perslid_key INTO v_perslid_key; + + prs.setpassword(v_perslid_key, v_wachtwoord); + COMMIT; ELSE IF (v_count > 1) @@ -977,9 +978,12 @@ BEGIN prs_perslid_telefoonnr = recperslid.prs_perslid_telefoonnr, prs_perslid_email = recperslid.prs_perslid_email, prs_perslid_nr = recperslid.prs_perslid_nr, - prs_perslid_oslogin = COALESCE (v_oslogin, prs_perslid_oslogin), - prs_perslid_wachtwoord = COALESCE (v_wachtwoord, prs_perslid_wachtwoord) + prs_perslid_oslogin = COALESCE (v_oslogin, prs_perslid_oslogin) WHERE prs_perslid_key = v_perslid_key; + IF v_wachtwoord IS NOT NULL THEN + prs.setpassword(v_perslid_key, v_wachtwoord); + END IF; + COMMIT; END IF; EXCEPTION @@ -1351,16 +1355,16 @@ END skaf_update_prs; CREATE OR REPLACE VIEW skaf_v_factuur_bestand (fin_factuur_key, fin_factuur_bestand) -AS +AS SELECT kf.fin_factuur_key, kf.fin_kenmerkfactuur_waarde FROM fin_kenmerkfactuur kf WHERE kf.fin_kenmerkfactuur_verwijder IS NULL -AND fin_kenmerk_key = +AND fin_kenmerk_key = (select fac.safe_to_number(fac_usrdata_omschr) - from fac_usrdata - where fac_usrtab_key = - (select fac_usrtab_key - from fac_usrtab + from fac_usrdata + where fac_usrtab_key = + (select fac_usrtab_key + from fac_usrtab where fac_usrtab_naam = '$SYSTEM') and fac_usrdata_code='$FIN_KENMERK_KEY_BESTAND' and fac_usrdata_verwijder is null @@ -1506,12 +1510,12 @@ AS AND bes.bes_bestelling_key = bi.bes_bestelling_key AND kp.prs_kostenplaats_key = bes.prs_kostenplaats_key AND f.prs_kostensoort_key = ks.prs_kostensoort_key(+) - AND f.bes_bestelopdr_key = bo.bes_bestelopdr_key + AND f.bes_bestelopdr_key = bo.bes_bestelopdr_key AND f.fin_factuur_key = fr.fin_factuur_key AND f.fin_factuur_key = fb.fin_factuur_key(+); -CREATE OR REPLACE VIEW skaf_v_factuur_geg +CREATE OR REPLACE VIEW skaf_v_factuur_geg AS SELECT * from skaf_v_factuur_mldcnt_gegevens UNION @@ -1724,7 +1728,7 @@ END; CREATE OR REPLACE VIEW skaf_v_rap_sch_ruimtenivo (fclt_f_locatie, fclt_f_gebouw, fclt_f_verdieping, ruimte, fclt_f_ruimtesoort, fclt_f_vloer, oppervlak) AS - SELECT l.alg_locatie_code || '-' || l.alg_locatie_omschrijving, g.alg_gebouw_naam, to_char(v.alg_verdieping_volgnr), + SELECT l.alg_locatie_code || '-' || l.alg_locatie_omschrijving, g.alg_gebouw_naam, to_char(v.alg_verdieping_volgnr), r.alg_ruimte_nr, sr.alg_srtruimte_omschrijving, vloer.fac_usrdata_omschr, r.alg_ruimte_bruto_vloeropp FROM alg_v_aanwezigruimte r, alg_srtruimte sr, alg_verdieping v, alg_gebouw g, alg_locatie l, (SELECT rr.alg_ruimte_key, ud.fac_usrdata_omschr, ud.fac_usrdata_key @@ -1737,7 +1741,7 @@ AS AND k.alg_refkenmerk_key = rk.alg_refkenmerk_key AND TO_CHAR (ud.fac_usrdata_key) = ok.alg_onrgoedkenmerk_waarde AND k.alg_kenmerk_key = 1020 - AND rr.alg_ruimte_key = ok.alg_onrgoed_key) vloer + AND rr.alg_ruimte_key = ok.alg_onrgoed_key) vloer WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key(+) AND r.alg_verdieping_key = v.alg_verdieping_key AND v.alg_gebouw_key = g.alg_gebouw_key @@ -1758,7 +1762,7 @@ AS SELECT fclt_f_locatie, fclt_f_vloer, SUM(oppervlak) FROM skaf_v_rap_sch_ruimtenivo GROUP BY fclt_f_locatie, fclt_f_vloer; - + CREATE OR REPLACE VIEW skaf_v_rap_sch_locatie (fclt_f_locatie, oppervlak) AS @@ -1775,17 +1779,17 @@ CREATE OR REPLACE VIEW skaf_v_fclt_factuur_header ( result_order ) AS -SELECT '<' || fac_usrdata_code || '>' || fac_usrdata_omschr || '', 1 -FROM fac_usrdata -WHERE fac_usrtab_key = - (SELECT fac_usrtab_key - FROM fac_usrtab +SELECT '<' || fac_usrdata_code || '>' || fac_usrdata_omschr || '', 1 +FROM fac_usrdata +WHERE fac_usrtab_key = + (SELECT fac_usrtab_key + FROM fac_usrtab WHERE fac_usrtab_naam = '$SYSTEM') AND UPPER(fac_usrdata_code) LIKE (SELECT UPPER(fac_usrdata_omschr) || '%' - FROM fac_usrdata - WHERE fac_usrtab_key = - (SELECT fac_usrtab_key - FROM fac_usrtab + FROM fac_usrdata + WHERE fac_usrtab_key = + (SELECT fac_usrtab_key + FROM fac_usrtab WHERE fac_usrtab_naam = '$SYSTEM') AND fac_usrdata_code = '$PREFIX_FCLT_FACTUUR_XML_HEADER' AND fac_usrdata_verwijder is null) @@ -1863,7 +1867,7 @@ AS fin_factuur_debiteur_nr) fg UNION ALL SELECT fin_factuurregel_nr regelnummer, - (SELECT COUNT(fin_factuur_key) + (SELECT COUNT(fin_factuur_key) FROM skaf_v_factuur_geg_akkoord fc WHERE fc.fin_factuur_key = fg.fin_factuur_key GROUP BY fin_factuur_key, @@ -1929,7 +1933,7 @@ AS SELECT fin_factuur_key FROM skaf_v_factuur_geg_akkoord GROUP BY fin_factuur_key; - + BEGIN -- DE EXPORT IS OP BASIS VAN EEN VIEW GEREALISEERD, WAARNA NU ALS LAATSTE STAP NOG WAT ADMINISTRATIE VOLGT... FOR cfact IN cfactuur @@ -1984,7 +1988,7 @@ SELECT REPLACE(REPLACE(f.fin_factuur_key AND f.fin_factuur_key = t.fac_tracking_refkey AND f.fin_factuur_statuses_key = 7; - + CREATE OR REPLACE PROCEDURE skaf_select_undo_exact ( p_applname IN VARCHAR2, @@ -2017,7 +2021,7 @@ AS WHERE t1.fac_srtnotificatie_key = t.fac_srtnotificatie_key) AND f.fin_factuur_key = t.fac_tracking_refkey AND fin_factuur_statuses_key = 7; - + v_errormsg VARCHAR (200); oracle_err_num NUMBER; oracle_err_mes VARCHAR2 (200); @@ -2027,15 +2031,15 @@ BEGIN FOR cfact IN cfactuur LOOP -- Eerst de factuur in tracking zetten... - -- Omdat van 7 naar 6 niet mag/geoorloofd is, lukt het niet via + -- Omdat van 7 naar 6 niet mag/geoorloofd is, lukt het niet via -- de reguliere functie fin.setfactuurstatus (cfact.fin_factuur_key, 6, NULL); - + -- Dan maar zelf en custom-made: fac.trackaction ('FINFOK', cfact.fin_factuur_key, NULL, NULL, 'Factuur uit archief teruggezet'); UPDATE fin_factuur SET fin_factuur_statuses_key = 6 WHERE fin_factuur_key = cfact.fin_factuur_key; - + END LOOP; END; / @@ -2069,7 +2073,7 @@ END; -BEGIN adm.systrackscript('$Workfile: skaf.sql $', '$Revision: 9 $', 0); END; +BEGIN adm.systrackscript('$Workfile: skaf.sql $', '$Revision: 10 $', 0); END; / diff --git a/Wehk/WEHK.sql b/Wehk/WEHK.sql index 12b50b11b..00814a18f 100644 --- a/Wehk/WEHK.sql +++ b/Wehk/WEHK.sql @@ -1,7 +1,7 @@ -- Script containing customer specific configuration sql statements for WEHK: Wehkamp -- (c) 2010 SG|facilitor bv --- $Revision: 29 $ --- $Modtime: 14-04-11 16:36 $ +-- $Revision: 30 $ +-- $Modtime: 7-06-11 10:05 $ -- -- Support: +31 53 4800700 @@ -65,9 +65,6 @@ CREATE OR REPLACE PROCEDURE wehk_import_prs ( v_prs_werkplek_volgnr VARCHAR2(256); v_prs_perslid_tussenvoegsel VARCHAR2(256); - v_prs_perslid_wachtwoord VARCHAR2(256); - - -- PRS_BEDRIJF CURSOR c1(p_imp_file_applicatie VARCHAR2) IS @@ -483,19 +480,6 @@ BEGIN ); END IF; -- - v_errorhint := 'Ongeldige loginnaam'; - v_prs_perslid_wachtwoord := trim(v_prs_perslid_wachtwoord); - IF LENGTH (v_prs_perslid_oslogin) > 30 - THEN - v_prs_perslid_oslogin := SUBSTR(v_prs_perslid_oslogin,1,30); - fac.imp_writelog(p_applname - ,p_applrun - ,'W' - ,v_aanduiding||'Loginnaam persoon is te lang' - ,'Aanduiding wordt afgebroken tot <' || v_prs_perslid_oslogin || '>' - ); - END IF; - -- -- Insert geformatteerde import record IF v_ongeldig = 0