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

18
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
@@ -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;
@@ -1319,8 +1318,7 @@ 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.
@@ -1919,7 +1917,7 @@ BEGIN
p_applrun,
'I',
'Facilitor afdeling import version ' || currentversion,
'$Revision: 18 $'
'$Revision: 19 $'
);
-- How many active records are now present?
@@ -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;
@@ -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;

7
BAMG/bamg.sql
View File

@@ -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
@@ -1923,7 +1923,6 @@ AS
c_locatie_code VARCHAR2(30) := 'BUN%';
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_max_percentage_delete NUMBER := 10;
@@ -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,7 +2158,6 @@ BEGIN
,rec_prs_upd.perslid_naam
,c_perslid_nr_import
,NULL
,c_perslid_wachtwoord
,rec_prs_upd.perslid_telefoon
);

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

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