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

FSN#16166 Wachtwoord

Browse Source 
svn path=/Customer/trunk/; revision=14824
This commit is contained in:
Jos Groot Lipman
2011-06-07 08:39:18 +00:00
parent e298041772
commit 5a480b538d
7 changed files with 388 additions and 420 deletions
Download Patch File Download Diff File Expand all files Collapse all files

158
AA/AAEN/aaen.sql
View File

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

13
AA/aa_prs_pack.sql
View File

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

8
AKZA/AKZA.SQL
View File

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

513
BAMG/bamg.sql
View File

File diff suppressed because it is too large Load Diff

18
Hout/hout.sql
View File

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

78
SKAF/skaf.sql
View File

@@ -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 || '</' || fac_usrdata_code || '>', 1
FROM fac_usrdata
WHERE fac_usrtab_key =
(SELECT fac_usrtab_key
FROM fac_usrtab
SELECT '<' || fac_usrdata_code || '>' || fac_usrdata_omschr || '</' || fac_usrdata_code || '>', 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;
/

20
Wehk/WEHK.sql
View File

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