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

FSN#12144 (helped by AEG)

Browse Source 
svn path=/Customer/trunk/; revision=13170
This commit is contained in:
Peter Feij
2007-02-07 08:13:10 +00:00
parent 64953df867
commit d674581840
1 changed files with 19 additions and 146 deletions
Download Patch File Download Diff File Expand all files Collapse all files

165
CONN/conn.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for CONN: Connexxion
-- (c) 2005-2006 Dijkoraad IT bv
-- $Revision: 85 $
-- $Modtime: 16-01-07 13:55 $
-- $Revision: 86 $
-- $Modtime: 7-02-07 9:51 $
--
-- Support: +31 53 4800700
@@ -979,6 +979,8 @@ AS
-- CONN#321
--
-- view werkt niet meer omdat kenmerk 1001 niet meer bestaat ?????
create or replace view CONN_V_BESTELLER_Z_KOSTENPL (NAAM, AFDELING, LIMIET)
AS select pf.PRS_PERSLID_NAAM_FULL, a.PRS_AFDELING_OMSCHRIJVING, kl.PRS_KENMERKLINK_WAARDE from prs_v_aanwezigperslid p, prs_afdeling a, prs_v_aanwezigkenmerklink kl, prs_v_perslid_fullnames pf
where p.prs_perslid_key = kl.PRS_LINK_KEY
@@ -1136,16 +1138,12 @@ order by 1,5;
CREATE OR REPLACE VIEW CONN_V_PERSLID_Z_LOGWWMAIL (NAAM,NUMMER,LOGIN,WACHTWOORD,EMAIL) AS
SELECT pf.prs_perslid_naam_full, p.prs_perslid_nr, p.prs_perslid_oslogin,
RPAD (' ', LENGTH (p.prs_perslid_wachtwoord) + 1, '*'),
(SELECT prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE prs_kenmerk_key = 5 AND kl.prs_link_key = p.prs_perslid_key)
p.prs_perslid_email
FROM prs_perslid p, prs_v_perslid_fullnames pf
WHERE pf.prs_perslid_key = p.prs_perslid_key
AND ( p.prs_perslid_oslogin IS NULL
OR p.prs_perslid_wachtwoord IS NULL
OR p.prs_perslid_key NOT IN (SELECT prs_link_key
FROM prs_kenmerklink
WHERE prs_kenmerk_key = 5)
OR p.prs_perslid_email IS NULL
);
--insert into fac_usrrap (FAC_USRRAP_OMSCHRIJVING, FAC_USRRAP_VIEW_NAME, FAC_USRRAP_INFO) values
@@ -1211,6 +1209,8 @@ SELECT B.prs_bedrijf_naam as BEDRIJF
AND AB.prs_afdeling_key1 = AD.prs_afdeling_key
AND PF.prs_perslid_key = p.prs_perslid_key;
-- view wordt niet meer gebruikt omdat kenmerken niet meer bestaan
CREATE OR REPLACE VIEW CONN_FIATTERING
(BESTELLER, LIMIET, FIATTEUR1, LIMIET1, FIATTEUR2,
LIMIET2)
@@ -3223,7 +3223,7 @@ DECLARE
v_perslid_nr prs_perslid.prs_perslid_nr%type;
BEGIN
IF (:old.prs_kenmerk_key = 5) or (:old.prs_kenmerk_key = 1080) or (:old.prs_kenmerk_key = 1081) THEN
IF (:old.prs_kenmerk_key = 1080) THEN
BEGIN
@@ -3241,31 +3241,11 @@ BEGIN
v_perslid_nr := '';
END;
-- Emailadres
IF (:old.prs_kenmerk_key = 5) THEN
update CONN_EXP_TELEFOON
set EMAIL = ''
where PERSONEELSNR = v_perslid_nr;
END IF;
-- Faxnr
IF (:old.prs_kenmerk_key = 1080) THEN
update CONN_EXP_TELEFOON
set FAXNR = ''
where PERSONEELSNR = v_perslid_nr;
END IF;
-- Mobielnr
IF (:old.prs_kenmerk_key = 1081) THEN
update CONN_EXP_TELEFOON
set MOBIELNR = ''
where PERSONEELSNR = v_perslid_nr;
END IF;
END;
@@ -3299,10 +3279,7 @@ BEGIN
v_kenmerklink_waarde := '';
END IF;
IF (:NEW.prs_kenmerk_key = 5) -- Email (type = P)
OR (:NEW.prs_kenmerk_key = 1080) -- Faxnr (type = P)
OR (:NEW.prs_kenmerk_key = 1081) -- Mobielnr (type = P)
IF (:NEW.prs_kenmerk_key = 1080) -- Faxnr (type = P)
THEN
BEGIN
@@ -3330,15 +3307,6 @@ BEGIN
END;
-- Email (type = P)
IF (:NEW.prs_kenmerk_key = 5) THEN
UPDATE CONN_EXP_TELEFOON
SET EMAIL = SUBSTR(v_kenmerklink_waarde,1,50)
WHERE PERSONEELSNR = v_perslid_nr;
END IF;
-- Faxnr (type = P)
IF (:NEW.prs_kenmerk_key = 1080) THEN
@@ -3348,16 +3316,6 @@ BEGIN
END IF;
-- Mobielnr (type = P)
IF (:NEW.prs_kenmerk_key = 1081) THEN
UPDATE CONN_EXP_TELEFOON
SET MOBIELNR = SUBSTR(v_kenmerklink_waarde,1,15)
WHERE PERSONEELSNR = v_perslid_nr;
END IF;
END;
END IF;
@@ -3646,18 +3604,18 @@ CREATE OR REPLACE TRIGGER conn_prs_perslid_u_i
DECLARE
v_aantal NUMBER (1);
v_fout VARCHAR2 (2048);
v_prs_kenmerk_mobiel_key prs_kenmerk.prs_kenmerk_key%TYPE;
v_prs_kenmerk_fax_key prs_kenmerk.prs_kenmerk_key%TYPE;
v_prs_kenmerk_email_key prs_kenmerk.prs_kenmerk_key%TYPE;
v_prs_kenmerklink_mobiel prs_kenmerklink.prs_kenmerklink_waarde%TYPE;
v_prs_kenmerklink_fax prs_kenmerklink.prs_kenmerklink_waarde%TYPE;
v_prs_kenmerklink_email prs_kenmerklink.prs_kenmerklink_waarde%TYPE;
BEGIN
IF :NEW.prs_perslid_nr IS NOT NULL
AND ( NVL (:NEW.prs_perslid_oslogin, CHR (191)) <>
NVL (:OLD.prs_perslid_oslogin, CHR (191))
OR NVL (:NEW.prs_perslid_telefoonnr, CHR (191)) <>
NVL (:OLD.prs_perslid_telefoonnr, CHR (191))
OR NVL (:NEW.prs_perslid_mobiel, CHR (191)) <>
NVL (:OLD.prs_perslid_mobiel, CHR (191))
OR NVL (:NEW.prs_perslid_email, CHR (191)) <>
NVL (:OLD.prs_perslid_email, CHR (191))
)
THEN
-- er is een relevante wijziging
@@ -3672,23 +3630,12 @@ BEGIN
-- update conn_exp_telefoon
UPDATE conn_exp_telefoon
SET login = :NEW.prs_perslid_oslogin,
telefoonnr = :NEW.prs_perslid_telefoonnr
telefoonnr = :NEW.prs_perslid_telefoonnr,
mobielnr = :NEW.prs_perslid_mobiel,
email = :NEW.prs_perslid_email
WHERE personeelsnr = :NEW.prs_perslid_nr;
ELSE
-- insert conn_exp_telefoon
BEGIN
SELECT prs_kenmerk.prs_kenmerk_key
INTO v_prs_kenmerk_mobiel_key
FROM prs_kenmerk
WHERE prs_kenmerk.prs_kenmerk_upper = 'MOBIELNR'
AND prs_kenmerk.prs_kenmerk_niveau = 'P'
AND prs_kenmerk.prs_kenmerk_verwijder IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_prs_kenmerk_mobiel_key := 0;
END;
BEGIN
SELECT prs_kenmerk.prs_kenmerk_key
INTO v_prs_kenmerk_fax_key
@@ -3702,32 +3649,6 @@ BEGIN
v_prs_kenmerk_fax_key := 0;
END;
BEGIN
SELECT prs_kenmerk.prs_kenmerk_key
INTO v_prs_kenmerk_email_key
FROM prs_kenmerk
WHERE prs_kenmerk.prs_kenmerk_upper = 'EMAILADRES'
AND prs_kenmerk.prs_kenmerk_niveau = 'P'
AND prs_kenmerk.prs_kenmerk_verwijder IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_prs_kenmerk_email_key := 0;
END;
BEGIN
SELECT prs_kenmerklink_waarde
INTO v_prs_kenmerklink_mobiel
FROM prs_kenmerklink
WHERE prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = v_prs_kenmerk_mobiel_key
AND prs_link_key = :NEW.prs_perslid_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_prs_kenmerklink_mobiel := NULL;
END;
BEGIN
SELECT prs_kenmerklink_waarde
INTO v_prs_kenmerklink_fax
@@ -3741,27 +3662,14 @@ BEGIN
v_prs_kenmerklink_fax := NULL;
END;
BEGIN
SELECT prs_kenmerklink_waarde
INTO v_prs_kenmerklink_email
FROM prs_kenmerklink
WHERE prs_kenmerklink_verwijder IS NULL
AND prs_kenmerk_key = v_prs_kenmerk_email_key
AND prs_link_key = :NEW.prs_perslid_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_prs_kenmerklink_email := NULL;
END;
INSERT INTO conn_exp_telefoon
(personeelsnr, login,
telefoonnr, mobielnr,
faxnr, email
)
VALUES (:NEW.prs_perslid_nr, :NEW.prs_perslid_oslogin,
:NEW.prs_perslid_telefoonnr, v_prs_kenmerklink_mobiel,
v_prs_kenmerklink_fax, v_prs_kenmerklink_email
:NEW.prs_perslid_telefoonnr, :NEW.prs_perslid_mobiel,
v_prs_kenmerklink_fax, :NEW.prs_perslid_email
);
END IF;
END IF;
@@ -5490,8 +5398,6 @@ AS
v_prs_perslid_tussenvoegsels prs_perslid.prs_perslid_tussenvoegsel%TYPE;
v_prs_perslid_titel prs_perslid.prs_perslid_titel%TYPE := NULL;
v_prs_perslid_einddatum prs_perslid.prs_perslid_einddatum%TYPE;
v_email_kenmerk_key prs_kenmerk.prs_kenmerk_key%TYPE;
v_email_kenmerklink_key prs_kenmerklink.prs_kenmerklink_key%TYPE;
v_standplaats_kenmerk_key prs_kenmerk.prs_kenmerk_key%TYPE;
v_standplaats_kenmerklink_key prs_kenmerklink.prs_kenmerklink_key%TYPE;
v_count NUMBER (10);
@@ -5651,39 +5557,6 @@ AS
);
END IF;
END;
--nu nog het email-kenmerk voor beide situaties!!!
/* select prs_kenmerk.prs_kenmerk_key
into v_email_kenmerk_key
from prs_kenmerk
where prs_kenmerk_upper='EMAILADRES';
begin
select prs_kenmerklink_key
into v_email_kenmerklink_key
from prs_kenmerklink
where prs_link_key=v_prs_perslid_key
and prs_kenmerk_key=v_email_kenmerk_key;
if p_dvb_k_emailzake is null then
delete from prs_kenmerklink
where prs_kenmerklink_key=v_email_kenmerklink_key;
else
update prs_kenmerklink
set prs_kenmerklink_waarde=p_dvb_k_emailzake
where prs_kenmerklink_key=v_email_kenmerklink_key;
end if;
exception when no_data_found then -- nieuwe toevoegen indien niet leeg
if p_dvb_k_emailzake is not null then
insert into prs_kenmerklink
( prs_link_key
, prs_kenmerklink_niveau
, prs_kenmerk_key
, prs_kenmerklink_waarde)
values
( v_prs_perslid_key
, 'P'
, v_email_kenmerk_key
, p_dvb_k_emailzake);
end if;
end; */
END IF;
v_count := prs_perslid_verwijder; -- CONN#410