Sourcesafe $Modtime was hier nog niet vervangen door SVN $Id
svn path=/Customer/trunk/; revision=19960
This commit is contained in:
230
ALLI/alli.sql
230
ALLI/alli.sql
@@ -1,7 +1,7 @@
|
|||||||
-- Script containing customer specific configuration sql statements for ALLI
|
-- Script containing customer specific configuration sql statements for ALLI
|
||||||
-- (c) 2012 SG|facilitor bv
|
-- (c) 2012 SG|facilitor bv
|
||||||
-- $Revision$
|
-- $Revision$
|
||||||
-- $Modtime: 28-06-12 12:15 $
|
-- $Id$
|
||||||
--
|
--
|
||||||
-- Support: +31 53 4800700
|
-- Support: +31 53 4800700
|
||||||
|
|
||||||
@@ -50,7 +50,7 @@ IS
|
|||||||
v_prs_perslid_email VARCHAR2 (256);
|
v_prs_perslid_email VARCHAR2 (256);
|
||||||
v_prs_perslid_oslogin VARCHAR2 (256);
|
v_prs_perslid_oslogin VARCHAR2 (256);
|
||||||
v_prs_perslid_bedrijfsdeel VARCHAR2 (256);
|
v_prs_perslid_bedrijfsdeel VARCHAR2 (256);
|
||||||
|
|
||||||
-- Overig:
|
-- Overig:
|
||||||
v_alg_locatie_code VARCHAR2 (256);
|
v_alg_locatie_code VARCHAR2 (256);
|
||||||
v_alg_gebouw_code VARCHAR2 (256);
|
v_alg_gebouw_code VARCHAR2 (256);
|
||||||
@@ -90,42 +90,42 @@ BEGIN
|
|||||||
|
|
||||||
-- 06 - Afdelingscode
|
-- 06 - Afdelingscode
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_afdeling_code);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_afdeling_code);
|
||||||
|
|
||||||
-- 07 - Afdelingsnaam (niet de code!)
|
-- 07 - Afdelingsnaam (niet de code!)
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_afdeling_naam);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_afdeling_naam);
|
||||||
|
|
||||||
-- 08 - Functieomschrijving van medewerker
|
-- 08 - Functieomschrijving van medewerker
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_srtperslid_omschrijving);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_srtperslid_omschrijving);
|
||||||
|
|
||||||
-- 09 - Email adres van medewerker
|
-- 09 - Email adres van medewerker
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_email);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_email);
|
||||||
|
|
||||||
-- 10 - Mobiel van medewerker
|
-- 10 - Mobiel van medewerker
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_mobiel);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_mobiel);
|
||||||
|
|
||||||
-- 11 - Telenr (035) van medewerker
|
-- 11 - Telenr (035) van medewerker
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_telefoonnr);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_telefoonnr);
|
||||||
|
|
||||||
-- 12 - Bedrijfsonderdeel van medewerker
|
-- 12 - Bedrijfsonderdeel van medewerker
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_bedrijfsdeel);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_bedrijfsdeel);
|
||||||
|
|
||||||
|
|
||||||
-------------------------------------------------------------------------
|
-------------------------------------------------------------------------
|
||||||
-- xx - Usernaam/login
|
-- xx - Usernaam/login
|
||||||
-- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_oslogin);
|
-- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_oslogin);
|
||||||
v_prs_perslid_oslogin := NULL;
|
v_prs_perslid_oslogin := NULL;
|
||||||
|
|
||||||
|
|
||||||
-- xx - Locatiecode werkplek van medewerker
|
-- xx - Locatiecode werkplek van medewerker
|
||||||
--fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_locatie_code);
|
--fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_locatie_code);
|
||||||
v_alg_locatie_code := NULL;
|
v_alg_locatie_code := NULL;
|
||||||
|
|
||||||
-- xx - Gebouwcode werkplek van medewerker
|
-- xx - Gebouwcode werkplek van medewerker
|
||||||
--fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_gebouw_code);
|
--fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_gebouw_code);
|
||||||
v_alg_gebouw_code := NULL;
|
v_alg_gebouw_code := NULL;
|
||||||
-------------------------------------------------------------------------
|
-------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
--
|
--
|
||||||
v_aanduiding :=
|
v_aanduiding :=
|
||||||
@@ -185,7 +185,7 @@ BEGIN
|
|||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
--
|
--
|
||||||
|
|
||||||
v_errorhint := 'Ongeldig loginnaam';
|
v_errorhint := 'Ongeldig loginnaam';
|
||||||
v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_email, 1, INSTR (v_prs_perslid_email, '@', 1, 1) - 1);
|
v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_email, 1, INSTR (v_prs_perslid_email, '@', 1, 1) - 1);
|
||||||
v_prs_perslid_oslogin := TRIM (v_prs_perslid_oslogin);
|
v_prs_perslid_oslogin := TRIM (v_prs_perslid_oslogin);
|
||||||
@@ -247,7 +247,7 @@ BEGIN
|
|||||||
END IF;
|
END IF;
|
||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
|
|
||||||
--
|
--
|
||||||
v_errorhint := 'Ongeldig tussenvoegsel';
|
v_errorhint := 'Ongeldig tussenvoegsel';
|
||||||
v_prs_perslid_tussenvoegsel := TRIM (v_prs_perslid_tussenvoegsel);
|
v_prs_perslid_tussenvoegsel := TRIM (v_prs_perslid_tussenvoegsel);
|
||||||
@@ -269,7 +269,7 @@ BEGIN
|
|||||||
--
|
--
|
||||||
v_errorhint := 'Ongeldige voorletters';
|
v_errorhint := 'Ongeldige voorletters';
|
||||||
-- Deze regel zou desnoodd kunnen indien ALLI de achternaam, voorletters en tussenvoegsel zelf niet kan splitsen:
|
-- Deze regel zou desnoodd kunnen indien ALLI de achternaam, voorletters en tussenvoegsel zelf niet kan splitsen:
|
||||||
|
|
||||||
v_prs_perslid_voorletters := TRIM (v_prs_perslid_voorletters);
|
v_prs_perslid_voorletters := TRIM (v_prs_perslid_voorletters);
|
||||||
|
|
||||||
IF LENGTH (v_prs_perslid_voorletters) > 10
|
IF LENGTH (v_prs_perslid_voorletters) > 10
|
||||||
@@ -304,10 +304,10 @@ BEGIN
|
|||||||
END IF;
|
END IF;
|
||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
v_errorhint := 'Ongeldige afdelingcode';
|
v_errorhint := 'Ongeldige afdelingcode';
|
||||||
v_prs_afdeling_code := TRIM (v_prs_afdeling_code);
|
v_prs_afdeling_code := TRIM (v_prs_afdeling_code);
|
||||||
|
|
||||||
@@ -442,7 +442,7 @@ BEGIN
|
|||||||
COMMIT;
|
COMMIT;
|
||||||
END IF;
|
END IF;
|
||||||
|
|
||||||
|
|
||||||
v_errorhint := 'Ongeldig telefoonnummer';
|
v_errorhint := 'Ongeldig telefoonnummer';
|
||||||
v_prs_perslid_telefoonnr := TRIM (v_prs_perslid_telefoonnr);
|
v_prs_perslid_telefoonnr := TRIM (v_prs_perslid_telefoonnr);
|
||||||
|
|
||||||
@@ -500,7 +500,7 @@ BEGIN
|
|||||||
(prs_perslid_nr, prs_perslid_naam,
|
(prs_perslid_nr, prs_perslid_naam,
|
||||||
prs_perslid_tussenvoegsel,
|
prs_perslid_tussenvoegsel,
|
||||||
prs_perslid_voorletters,
|
prs_perslid_voorletters,
|
||||||
prs_perslid_voornaam,
|
prs_perslid_voornaam,
|
||||||
prs_afdeling_code, prs_afdeling_naam,
|
prs_afdeling_code, prs_afdeling_naam,
|
||||||
prs_srtperslid_omschrijving,
|
prs_srtperslid_omschrijving,
|
||||||
alg_locatie_code, alg_gebouw_code,
|
alg_locatie_code, alg_gebouw_code,
|
||||||
@@ -514,7 +514,7 @@ BEGIN
|
|||||||
VALUES (v_prs_perslid_nr, v_prs_perslid_naam,
|
VALUES (v_prs_perslid_nr, v_prs_perslid_naam,
|
||||||
v_prs_perslid_tussenvoegsel,
|
v_prs_perslid_tussenvoegsel,
|
||||||
v_prs_perslid_voorletters,
|
v_prs_perslid_voorletters,
|
||||||
v_prs_perslid_voornaam,
|
v_prs_perslid_voornaam,
|
||||||
v_prs_afdeling_code, v_prs_afdeling_naam,
|
v_prs_afdeling_code, v_prs_afdeling_naam,
|
||||||
v_prs_srtperslid_omschrijving,
|
v_prs_srtperslid_omschrijving,
|
||||||
v_alg_locatie_code, v_alg_gebouw_code,
|
v_alg_locatie_code, v_alg_gebouw_code,
|
||||||
@@ -643,7 +643,7 @@ IS
|
|||||||
FROM alli_imp_prs ip
|
FROM alli_imp_prs ip
|
||||||
WHERE ip.prs_perslid_nr = p.prs_perslid_nr);
|
WHERE ip.prs_perslid_nr = p.prs_perslid_nr);
|
||||||
|
|
||||||
|
|
||||||
CURSOR csperslid
|
CURSOR csperslid
|
||||||
IS
|
IS
|
||||||
SELECT prs_srtperslid_omschrijving
|
SELECT prs_srtperslid_omschrijving
|
||||||
@@ -661,7 +661,7 @@ IS
|
|||||||
IS
|
IS
|
||||||
SELECT distinct (prs_perslid_bedrijfsdeel) prs_perslid_bedrijfsdeel
|
SELECT distinct (prs_perslid_bedrijfsdeel) prs_perslid_bedrijfsdeel
|
||||||
FROM alli_imp_prs;
|
FROM alli_imp_prs;
|
||||||
|
|
||||||
CURSOR cperslid
|
CURSOR cperslid
|
||||||
IS
|
IS
|
||||||
SELECT *
|
SELECT *
|
||||||
@@ -919,9 +919,9 @@ BEGIN
|
|||||||
WHERE prs_afdeling_naam = recafdeling.prs_afdeling_code
|
WHERE prs_afdeling_naam = recafdeling.prs_afdeling_code
|
||||||
AND prs_bedrijf_key = 5
|
AND prs_bedrijf_key = 5
|
||||||
AND prs_afdeling_verwijder IS NULL;
|
AND prs_afdeling_verwijder IS NULL;
|
||||||
|
|
||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
END IF;
|
END IF;
|
||||||
EXCEPTION
|
EXCEPTION
|
||||||
WHEN OTHERS
|
WHEN OTHERS
|
||||||
@@ -956,7 +956,7 @@ BEGIN
|
|||||||
''
|
''
|
||||||
);
|
);
|
||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
v_count_tot := 0;
|
v_count_tot := 0;
|
||||||
v_count_error := 0;
|
v_count_error := 0;
|
||||||
|
|
||||||
@@ -982,7 +982,7 @@ BEGIN
|
|||||||
(fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
|
(fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
|
||||||
VALUES (121, SUBSTR(recbedrijf.prs_perslid_bedrijfsdeel,1,30), recbedrijf.prs_perslid_bedrijfsdeel);
|
VALUES (121, SUBSTR(recbedrijf.prs_perslid_bedrijfsdeel,1,30), recbedrijf.prs_perslid_bedrijfsdeel);
|
||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
END IF;
|
END IF;
|
||||||
EXCEPTION
|
EXCEPTION
|
||||||
WHEN OTHERS
|
WHEN OTHERS
|
||||||
@@ -1092,7 +1092,7 @@ BEGIN
|
|||||||
prs_perslid_telefoonnr,
|
prs_perslid_telefoonnr,
|
||||||
prs_perslid_mobiel,
|
prs_perslid_mobiel,
|
||||||
prs_perslid_email,
|
prs_perslid_email,
|
||||||
prs_perslid_nr,
|
prs_perslid_nr,
|
||||||
prs_perslid_oslogin
|
prs_perslid_oslogin
|
||||||
)
|
)
|
||||||
VALUES ('PRS', v_srtperslid_key,
|
VALUES ('PRS', v_srtperslid_key,
|
||||||
@@ -1103,7 +1103,7 @@ BEGIN
|
|||||||
recperslid.prs_perslid_telefoonnr,
|
recperslid.prs_perslid_telefoonnr,
|
||||||
recperslid.prs_perslid_mobiel,
|
recperslid.prs_perslid_mobiel,
|
||||||
recperslid.prs_perslid_email,
|
recperslid.prs_perslid_email,
|
||||||
recperslid.prs_perslid_nr,
|
recperslid.prs_perslid_nr,
|
||||||
recperslid.prs_perslid_oslogin
|
recperslid.prs_perslid_oslogin
|
||||||
);
|
);
|
||||||
COMMIT;
|
COMMIT;
|
||||||
@@ -1129,7 +1129,7 @@ BEGIN
|
|||||||
prs_perslid_mobiel = COALESCE (recperslid.prs_perslid_mobiel, prs_perslid_mobiel),
|
prs_perslid_mobiel = COALESCE (recperslid.prs_perslid_mobiel, prs_perslid_mobiel),
|
||||||
prs_perslid_email = COALESCE (recperslid.prs_perslid_email, prs_perslid_email),
|
prs_perslid_email = COALESCE (recperslid.prs_perslid_email, prs_perslid_email),
|
||||||
prs_perslid_nr = COALESCE (recperslid.prs_perslid_nr, prs_perslid_nr),
|
prs_perslid_nr = COALESCE (recperslid.prs_perslid_nr, prs_perslid_nr),
|
||||||
prs_perslid_oslogin = COALESCE (recperslid.prs_perslid_oslogin, prs_perslid_oslogin)
|
prs_perslid_oslogin = COALESCE (recperslid.prs_perslid_oslogin, prs_perslid_oslogin)
|
||||||
WHERE prs_perslid_key = v_perslid_key;
|
WHERE prs_perslid_key = v_perslid_key;
|
||||||
COMMIT;
|
COMMIT;
|
||||||
END IF;
|
END IF;
|
||||||
@@ -1143,7 +1143,7 @@ BEGIN
|
|||||||
AND prs_kenmerklink_niveau = 'P'
|
AND prs_kenmerklink_niveau = 'P'
|
||||||
AND prs_kenmerk_key = 1060
|
AND prs_kenmerk_key = 1060
|
||||||
AND prs_kenmerklink_verwijder IS NULL;
|
AND prs_kenmerklink_verwijder IS NULL;
|
||||||
|
|
||||||
IF (v_count = 0)
|
IF (v_count = 0)
|
||||||
THEN
|
THEN
|
||||||
v_errorhint := 'Fout bij toevoegen kenmerk bedrijfsonderdeel';
|
v_errorhint := 'Fout bij toevoegen kenmerk bedrijfsonderdeel';
|
||||||
@@ -1161,7 +1161,7 @@ BEGIN
|
|||||||
AND prs_kenmerk_key = 1060
|
AND prs_kenmerk_key = 1060
|
||||||
AND prs_kenmerklink_verwijder IS NULL;
|
AND prs_kenmerklink_verwijder IS NULL;
|
||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
END IF;
|
END IF;
|
||||||
|
|
||||||
|
|
||||||
@@ -1526,7 +1526,7 @@ SELECT BES_BESTELLING_KEY, to_char(BES_BESTELLING_KEY)
|
|||||||
FROM BES_BESTELLING;
|
FROM BES_BESTELLING;
|
||||||
|
|
||||||
|
|
||||||
--select *
|
--select *
|
||||||
--from bes_bestelopdr_item bo, bes_bestelling_item bi, bes_srtdeel sd
|
--from bes_bestelopdr_item bo, bes_bestelling_item bi, bes_srtdeel sd
|
||||||
--where bes_bestelopdr_key = (select bes_bestelopdr_key from bes_bestelopdr where bes_bestelopdr_id = '361/1')
|
--where bes_bestelopdr_key = (select bes_bestelopdr_key from bes_bestelopdr where bes_bestelopdr_id = '361/1')
|
||||||
--and BI.BES_BESTELOPDR_ITEM_KEY = BO.BES_BESTELOPDR_ITEM_KEY
|
--and BI.BES_BESTELOPDR_ITEM_KEY = BO.BES_BESTELOPDR_ITEM_KEY
|
||||||
@@ -1550,13 +1550,13 @@ IS
|
|||||||
v_count_import NUMBER (10);
|
v_count_import NUMBER (10);
|
||||||
v_count NUMBER;
|
v_count NUMBER;
|
||||||
-- De importvelden:
|
-- De importvelden:
|
||||||
|
|
||||||
v_bes_bestelopdr_id VARCHAR2 (256);
|
v_bes_bestelopdr_id VARCHAR2 (256);
|
||||||
v_bes_srtdeel_nr VARCHAR2 (256);
|
v_bes_srtdeel_nr VARCHAR2 (256);
|
||||||
v_serienummer VARCHAR2 (256);
|
v_serienummer VARCHAR2 (256);
|
||||||
v_soort VARCHAR2 (256);
|
v_soort VARCHAR2 (256);
|
||||||
v_datum VARCHAR2 (256);
|
v_datum VARCHAR2 (256);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CURSOR c1
|
CURSOR c1
|
||||||
@@ -1587,22 +1587,22 @@ BEGIN
|
|||||||
-- v_bes_srtdeel_nr VARCHAR2 (256);
|
-- v_bes_srtdeel_nr VARCHAR2 (256);
|
||||||
-- v_serienummer VARCHAR2 (256);
|
-- v_serienummer VARCHAR2 (256);
|
||||||
-- v_datum VARCHAR2 (256);
|
-- v_datum VARCHAR2 (256);
|
||||||
|
|
||||||
-- 01 - Bestelopdrachtnummer
|
-- 01 - Bestelopdrachtnummer
|
||||||
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 1, v_bes_bestelopdr_id);
|
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 1, v_bes_bestelopdr_id);
|
||||||
|
|
||||||
-- 02 - Artikelnummer
|
-- 02 - Artikelnummer
|
||||||
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 2, v_bes_srtdeel_nr);
|
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 2, v_bes_srtdeel_nr);
|
||||||
|
|
||||||
-- 03 - Serienummer of IMEI nummer.
|
-- 03 - Serienummer of IMEI nummer.
|
||||||
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 3, v_serienummer);
|
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 3, v_serienummer);
|
||||||
|
|
||||||
-- 04 - Soort object: Notebook (N) of Telefoon (T)
|
-- 04 - Soort object: Notebook (N) of Telefoon (T)
|
||||||
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 4, v_soort);
|
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 4, v_soort);
|
||||||
|
|
||||||
-- 05 - Verzenddatum cq. Aanschafdatum
|
-- 05 - Verzenddatum cq. Aanschafdatum
|
||||||
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 5, v_datum);
|
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 5, v_datum);
|
||||||
|
|
||||||
|
|
||||||
--
|
--
|
||||||
v_aanduiding :=
|
v_aanduiding :=
|
||||||
@@ -1636,7 +1636,7 @@ BEGIN
|
|||||||
--
|
--
|
||||||
v_errorhint := 'Ongeldig bestelopdrachtnr';
|
v_errorhint := 'Ongeldig bestelopdrachtnr';
|
||||||
v_bes_bestelopdr_id := TRIM (v_bes_bestelopdr_id);
|
v_bes_bestelopdr_id := TRIM (v_bes_bestelopdr_id);
|
||||||
|
|
||||||
IF (v_bes_bestelopdr_id IS NOT NULL)
|
IF (v_bes_bestelopdr_id IS NOT NULL)
|
||||||
THEN
|
THEN
|
||||||
IF LENGTH (v_bes_bestelopdr_id) > 30
|
IF LENGTH (v_bes_bestelopdr_id) > 30
|
||||||
@@ -1650,7 +1650,7 @@ BEGIN
|
|||||||
|
|
||||||
v_errorhint := 'Ongeldig artikelnr';
|
v_errorhint := 'Ongeldig artikelnr';
|
||||||
v_bes_srtdeel_nr := TRIM (v_bes_srtdeel_nr);
|
v_bes_srtdeel_nr := TRIM (v_bes_srtdeel_nr);
|
||||||
|
|
||||||
IF (v_bes_srtdeel_nr IS NOT NULL)
|
IF (v_bes_srtdeel_nr IS NOT NULL)
|
||||||
THEN
|
THEN
|
||||||
IF LENGTH (v_bes_srtdeel_nr) > 32
|
IF LENGTH (v_bes_srtdeel_nr) > 32
|
||||||
@@ -1705,7 +1705,7 @@ BEGIN
|
|||||||
|
|
||||||
INSERT INTO alli_imp_cyod_serienummers (bes_bestelopdr_id, bes_srtdeel_nr, serienummer, soort, datum)
|
INSERT INTO alli_imp_cyod_serienummers (bes_bestelopdr_id, bes_srtdeel_nr, serienummer, soort, datum)
|
||||||
VALUES (v_bes_bestelopdr_id, v_bes_srtdeel_nr, v_serienummer, v_soort, v_datum);
|
VALUES (v_bes_bestelopdr_id, v_bes_srtdeel_nr, v_serienummer, v_soort, v_datum);
|
||||||
|
|
||||||
COMMIT;
|
COMMIT;
|
||||||
v_count_import := v_count_import + 1;
|
v_count_import := v_count_import + 1;
|
||||||
EXCEPTION
|
EXCEPTION
|
||||||
@@ -1779,72 +1779,72 @@ IS
|
|||||||
v_count_tot NUMBER (10);
|
v_count_tot NUMBER (10);
|
||||||
v_count_error NUMBER (10);
|
v_count_error NUMBER (10);
|
||||||
v_count NUMBER (10);
|
v_count NUMBER (10);
|
||||||
|
|
||||||
v_aantal NUMBER (10);
|
v_aantal NUMBER (10);
|
||||||
|
|
||||||
v_bes_bestelling_key NUMBER (10);
|
v_bes_bestelling_key NUMBER (10);
|
||||||
v_prs_perslid_key NUMBER (10);
|
v_prs_perslid_key NUMBER (10);
|
||||||
v_bes_srtgroep_key NUMBER (10);
|
v_bes_srtgroep_key NUMBER (10);
|
||||||
|
|
||||||
c_ins_srtgroep_key_temp NUMBER (10) := 1;
|
c_ins_srtgroep_key_temp NUMBER (10) := 1;
|
||||||
c_ins_kenmerk_key_temp NUMBER (10) := 1;
|
c_ins_kenmerk_key_temp NUMBER (10) := 1;
|
||||||
|
|
||||||
l_ins_srtdeel_key NUMBER (10);
|
l_ins_srtdeel_key NUMBER (10);
|
||||||
l_ins_deel_key NUMBER (10);
|
l_ins_deel_key NUMBER (10);
|
||||||
l_code_notebook_telefoon VARCHAR2 (100);
|
l_code_notebook_telefoon VARCHAR2 (100);
|
||||||
|
|
||||||
|
|
||||||
c_ins_srtdeel_key_telefoon NUMBER (10) := 9201;
|
c_ins_srtdeel_key_telefoon NUMBER (10) := 9201;
|
||||||
c_ins_srtdeel_key_notebook NUMBER (10) := 9202;
|
c_ins_srtdeel_key_notebook NUMBER (10) := 9202;
|
||||||
|
|
||||||
c_notebook_bestelling_key NUMBER (10) := 1;
|
c_notebook_bestelling_key NUMBER (10) := 1;
|
||||||
c_notebook_artikel_key NUMBER (10) := 2;
|
c_notebook_artikel_key NUMBER (10) := 2;
|
||||||
c_notebook_serienr_key NUMBER (10) := 3;
|
c_notebook_serienr_key NUMBER (10) := 3;
|
||||||
c_notebook_datum_key NUMBER (10) := 4;
|
c_notebook_datum_key NUMBER (10) := 4;
|
||||||
|
|
||||||
c_mobiel_bestelling_key NUMBER (10) := 5;
|
c_mobiel_bestelling_key NUMBER (10) := 5;
|
||||||
c_mobiel_artikel_key NUMBER (10) := 6;
|
c_mobiel_artikel_key NUMBER (10) := 6;
|
||||||
c_mobiel_serienr_key NUMBER (10) := 7;
|
c_mobiel_serienr_key NUMBER (10) := 7;
|
||||||
c_mobiel_datum_key NUMBER (10) := 8;
|
c_mobiel_datum_key NUMBER (10) := 8;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
-- Alle ingelezen CYOD artikelen met serienummers
|
-- Alle ingelezen CYOD artikelen met serienummers
|
||||||
CURSOR c_cyod_artikelen
|
CURSOR c_cyod_artikelen
|
||||||
IS
|
IS
|
||||||
SELECT *
|
SELECT *
|
||||||
FROM alli_imp_cyod_serienummers;
|
FROM alli_imp_cyod_serienummers;
|
||||||
|
|
||||||
|
|
||||||
BEGIN
|
BEGIN
|
||||||
v_count_tot := 0;
|
v_count_tot := 0;
|
||||||
v_count_error := 0;
|
v_count_error := 0;
|
||||||
|
|
||||||
|
|
||||||
v_aanduiding := '';
|
v_aanduiding := '';
|
||||||
|
|
||||||
|
|
||||||
-- Alle artikelen verwerken...
|
-- Alle artikelen verwerken...
|
||||||
FOR rec_cyod IN c_cyod_artikelen
|
FOR rec_cyod IN c_cyod_artikelen
|
||||||
LOOP
|
LOOP
|
||||||
BEGIN
|
BEGIN
|
||||||
v_count_tot := v_count_tot + 1;
|
v_count_tot := v_count_tot + 1;
|
||||||
|
|
||||||
v_aanduiding :=
|
v_aanduiding :=
|
||||||
'['
|
'['
|
||||||
|| rec_cyod.bes_bestelopdr_id
|
|| rec_cyod.bes_bestelopdr_id
|
||||||
|| '|'
|
|| '|'
|
||||||
|| rec_cyod.bes_srtdeel_nr
|
|| rec_cyod.bes_srtdeel_nr
|
||||||
|| '|'
|
|| '|'
|
||||||
|| rec_cyod.serienummer
|
|| rec_cyod.serienummer
|
||||||
|| '|'
|
|| '|'
|
||||||
|| rec_cyod.soort
|
|| rec_cyod.soort
|
||||||
|| '|'
|
|| '|'
|
||||||
|| rec_cyod.datum
|
|| rec_cyod.datum
|
||||||
|| '] ';
|
|| '] ';
|
||||||
|
|
||||||
v_errorhint := 'Fout bij bepalen combi bestelopdracht en artikelnummer';
|
v_errorhint := 'Fout bij bepalen combi bestelopdracht en artikelnummer';
|
||||||
|
|
||||||
-- Op zoek naar:
|
-- Op zoek naar:
|
||||||
-- 1) de bestelopdracht volgens opdrachtnr: rec_cyod.bes_bestelopdr_id
|
-- 1) de bestelopdracht volgens opdrachtnr: rec_cyod.bes_bestelopdr_id
|
||||||
-- 2) het artikel dat in die opdracht zit volgens artikelnr: rec_cyod.bes_srtdeel_nr
|
-- 2) het artikel dat in die opdracht zit volgens artikelnr: rec_cyod.bes_srtdeel_nr
|
||||||
@@ -1852,33 +1852,33 @@ IS
|
|||||||
-- 1) De bestellingaanvraag (bes_bestelling_key)
|
-- 1) De bestellingaanvraag (bes_bestelling_key)
|
||||||
-- 2) De besteller (prs_perslid_key)
|
-- 2) De besteller (prs_perslid_key)
|
||||||
-- 3) De soortgroep (bes_srtgroep_key): notebook of telefoon (indien een andere, dan maken we geen serienummer erbij).
|
-- 3) De soortgroep (bes_srtgroep_key): notebook of telefoon (indien een andere, dan maken we geen serienummer erbij).
|
||||||
|
|
||||||
|
|
||||||
SELECT b.bes_bestelling_key, b.prs_perslid_key, sg.bes_srtgroep_key
|
SELECT b.bes_bestelling_key, b.prs_perslid_key, sg.bes_srtgroep_key
|
||||||
INTO v_bes_bestelling_key, v_prs_perslid_key, v_bes_srtgroep_key
|
INTO v_bes_bestelling_key, v_prs_perslid_key, v_bes_srtgroep_key
|
||||||
FROM bes_bestelling b, bes_bestelopdr bo, bes_bestelopdr_item boi, bes_bestelling_item bi, bes_srtdeel sd, bes_srtgroep sg
|
FROM bes_bestelling b, bes_bestelopdr bo, bes_bestelopdr_item boi, bes_bestelling_item bi, bes_srtdeel sd, bes_srtgroep sg
|
||||||
WHERE b.bes_bestelling_key = bi.bes_bestelling_key
|
WHERE b.bes_bestelling_key = bi.bes_bestelling_key
|
||||||
AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key
|
AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key
|
||||||
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
|
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
|
||||||
AND BI.BES_BESTELOPDR_ITEM_KEY = BOI.BES_BESTELOPDR_ITEM_KEY
|
AND BI.BES_BESTELOPDR_ITEM_KEY = BOI.BES_BESTELOPDR_ITEM_KEY
|
||||||
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
|
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
|
||||||
AND bo.bes_bestelopdr_id = rec_cyod.bes_bestelopdr_id
|
AND bo.bes_bestelopdr_id = rec_cyod.bes_bestelopdr_id
|
||||||
AND sd.bes_srtdeel_nr = rec_cyod.bes_srtdeel_nr ;
|
AND sd.bes_srtdeel_nr = rec_cyod.bes_srtdeel_nr ;
|
||||||
|
|
||||||
|
|
||||||
-- Hier komt een cruciaal stuk die bepaalt of het artikel een N(notebook) of T(telefoon is).
|
-- Hier komt een cruciaal stuk die bepaalt of het artikel een N(notebook) of T(telefoon is).
|
||||||
-- Mogelijk wordt dat in de XML door Misco meegestuurd, en anders bepalen wie die adhv de groep.
|
-- Mogelijk wordt dat in de XML door Misco meegestuurd, en anders bepalen wie die adhv de groep.
|
||||||
-- Nu doen we ff een simpele check op groep-key: indien 1623 dan is ie van de telefoon-groep, dus een telefoon.
|
-- Nu doen we ff een simpele check op groep-key: indien 1623 dan is ie van de telefoon-groep, dus een telefoon.
|
||||||
|
|
||||||
l_code_notebook_telefoon := NULL;
|
l_code_notebook_telefoon := NULL;
|
||||||
l_code_notebook_telefoon := NULL;
|
l_code_notebook_telefoon := NULL;
|
||||||
|
|
||||||
v_errorhint := 'Fout bij bepalen soort object';
|
v_errorhint := 'Fout bij bepalen soort object';
|
||||||
IF rec_cyod.soort = 'T'
|
IF rec_cyod.soort = 'T'
|
||||||
THEN
|
THEN
|
||||||
-- Ik ben een telefoon, bepaal een nieuwe default naam/code voor het object
|
-- Ik ben een telefoon, bepaal een nieuwe default naam/code voor het object
|
||||||
l_ins_srtdeel_key := c_ins_srtdeel_key_telefoon;
|
l_ins_srtdeel_key := c_ins_srtdeel_key_telefoon;
|
||||||
ELSE
|
ELSE
|
||||||
IF rec_cyod.soort = 'N'
|
IF rec_cyod.soort = 'N'
|
||||||
THEN
|
THEN
|
||||||
-- Ik ben een notebook, bepaal een nieuwe default naam/code voor het object
|
-- Ik ben een notebook, bepaal een nieuwe default naam/code voor het object
|
||||||
@@ -1887,14 +1887,14 @@ IS
|
|||||||
l_ins_srtdeel_key := NULL;
|
l_ins_srtdeel_key := NULL;
|
||||||
END IF;
|
END IF;
|
||||||
END IF;
|
END IF;
|
||||||
|
|
||||||
|
|
||||||
IF l_ins_srtdeel_key IS NOT NULL
|
IF l_ins_srtdeel_key IS NOT NULL
|
||||||
THEN
|
THEN
|
||||||
-- Eerst ff kijken of persoon het object al heeft, waarbij serienummer/IMEI nummer dezelfde is.
|
-- Eerst ff kijken of persoon het object al heeft, waarbij serienummer/IMEI nummer dezelfde is.
|
||||||
-- Dan namelijk NIET toevoegen, anders wordt het object dubbel geregistreerd.
|
-- Dan namelijk NIET toevoegen, anders wordt het object dubbel geregistreerd.
|
||||||
-- De aanschafdatum mag dan wel/hooguit worden aangepast, maar dat doen we maar even niet. We gaan ervan uit dat er eenmalig een aanlevering van goede gegevens plaatsvindt.
|
-- De aanschafdatum mag dan wel/hooguit worden aangepast, maar dat doen we maar even niet. We gaan ervan uit dat er eenmalig een aanlevering van goede gegevens plaatsvindt.
|
||||||
|
|
||||||
SELECT count(*)
|
SELECT count(*)
|
||||||
INTO v_aantal
|
INTO v_aantal
|
||||||
FROM ins_deel d, ins_kenmerkdeel k
|
FROM ins_deel d, ins_kenmerkdeel k
|
||||||
@@ -1905,78 +1905,78 @@ IS
|
|||||||
AND d.ins_deel_key=k.ins_deel_key
|
AND d.ins_deel_key=k.ins_deel_key
|
||||||
AND (ins_kenmerk_key = c_notebook_serienr_key OR ins_kenmerk_key = c_mobiel_serienr_key)
|
AND (ins_kenmerk_key = c_notebook_serienr_key OR ins_kenmerk_key = c_mobiel_serienr_key)
|
||||||
AND ins_kenmerkdeel_waarde = rec_cyod.serienummer;
|
AND ins_kenmerkdeel_waarde = rec_cyod.serienummer;
|
||||||
|
|
||||||
|
|
||||||
IF v_aantal = 0
|
IF v_aantal = 0
|
||||||
THEN
|
THEN
|
||||||
-- Persoon heeft het object met dat serienummer nog niet --> DUS TOEVOEGEN
|
-- Persoon heeft het object met dat serienummer nog niet --> DUS TOEVOEGEN
|
||||||
|
|
||||||
|
|
||||||
SELECT ins.get_description('LPN_INS_DEEL',NULL, ins_srtdeel_code_upper, l_ins_srtdeel_key)
|
SELECT ins.get_description('LPN_INS_DEEL',NULL, ins_srtdeel_code_upper, l_ins_srtdeel_key)
|
||||||
INTO l_code_notebook_telefoon
|
INTO l_code_notebook_telefoon
|
||||||
FROM ins_srtdeel
|
FROM ins_srtdeel
|
||||||
WHERE ins_srtdeel_key= l_ins_srtdeel_key;
|
WHERE ins_srtdeel_key= l_ins_srtdeel_key;
|
||||||
|
|
||||||
|
|
||||||
-- Insert van persoonsgebonden object.
|
-- Insert van persoonsgebonden object.
|
||||||
v_errorhint := 'Fout bij toevoegen van nieuw object [' || l_code_notebook_telefoon|| ']';
|
v_errorhint := 'Fout bij toevoegen van nieuw object [' || l_code_notebook_telefoon|| ']';
|
||||||
INSERT INTO ins_deel (ins_deel_module, ins_srtdeel_key, ins_alg_ruimte_key, ins_alg_ruimte_type, ins_deel_omschrijving)
|
INSERT INTO ins_deel (ins_deel_module, ins_srtdeel_key, ins_alg_ruimte_key, ins_alg_ruimte_type, ins_deel_omschrijving)
|
||||||
VALUES ('INS', l_ins_srtdeel_key, v_prs_perslid_key, 'P', l_code_notebook_telefoon);
|
VALUES ('INS', l_ins_srtdeel_key, v_prs_perslid_key, 'P', l_code_notebook_telefoon);
|
||||||
|
|
||||||
v_errorhint := 'Object is toegevoegd';
|
v_errorhint := 'Object is toegevoegd';
|
||||||
fac.imp_writelog (p_import_key,
|
fac.imp_writelog (p_import_key,
|
||||||
'I',
|
'I',
|
||||||
v_aanduiding || 'Objectnaam ' || l_code_notebook_telefoon || ' is toegevoegd',
|
v_aanduiding || 'Objectnaam ' || l_code_notebook_telefoon || ' is toegevoegd',
|
||||||
v_errorhint
|
v_errorhint
|
||||||
);
|
);
|
||||||
|
|
||||||
SELECT MAX(ins_deel_key) INTO l_ins_deel_key FROM ins_deel;
|
SELECT MAX(ins_deel_key) INTO l_ins_deel_key FROM ins_deel;
|
||||||
|
|
||||||
IF l_ins_srtdeel_key = c_ins_srtdeel_key_notebook
|
IF l_ins_srtdeel_key = c_ins_srtdeel_key_notebook
|
||||||
THEN
|
THEN
|
||||||
-- Ik ben een notebook, vul de kenmerken
|
-- Ik ben een notebook, vul de kenmerken
|
||||||
|
|
||||||
v_errorhint := 'Fout bij toevoegen kenmerk bestelnummer [' || v_bes_bestelling_key || '] bij object [' || l_code_notebook_telefoon || ']';
|
v_errorhint := 'Fout bij toevoegen kenmerk bestelnummer [' || v_bes_bestelling_key || '] bij object [' || l_code_notebook_telefoon || ']';
|
||||||
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
||||||
SELECT l_ins_deel_key, c_notebook_bestelling_key, v_bes_bestelling_key FROM DUAL;
|
SELECT l_ins_deel_key, c_notebook_bestelling_key, v_bes_bestelling_key FROM DUAL;
|
||||||
|
|
||||||
v_errorhint := 'Fout bij toevoegen kenmerk artikelnummer [' || rec_cyod.bes_srtdeel_nr || '] bij object [' || l_code_notebook_telefoon || ']';
|
v_errorhint := 'Fout bij toevoegen kenmerk artikelnummer [' || rec_cyod.bes_srtdeel_nr || '] bij object [' || l_code_notebook_telefoon || ']';
|
||||||
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
||||||
SELECT l_ins_deel_key, c_notebook_artikel_key, rec_cyod.bes_srtdeel_nr FROM DUAL;
|
SELECT l_ins_deel_key, c_notebook_artikel_key, rec_cyod.bes_srtdeel_nr FROM DUAL;
|
||||||
|
|
||||||
v_errorhint := 'Fout bij toevoegen kenmerk serienummer [' || rec_cyod.serienummer || '] bij object [' || l_code_notebook_telefoon || ']';
|
v_errorhint := 'Fout bij toevoegen kenmerk serienummer [' || rec_cyod.serienummer || '] bij object [' || l_code_notebook_telefoon || ']';
|
||||||
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
||||||
SELECT l_ins_deel_key, c_notebook_serienr_key, rec_cyod.serienummer FROM DUAL;
|
SELECT l_ins_deel_key, c_notebook_serienr_key, rec_cyod.serienummer FROM DUAL;
|
||||||
|
|
||||||
v_errorhint := 'Fout bij toevoegen kenmerk aanschafdatum [' || rec_cyod.datum || '] bij object [' || l_code_notebook_telefoon || ']';
|
v_errorhint := 'Fout bij toevoegen kenmerk aanschafdatum [' || rec_cyod.datum || '] bij object [' || l_code_notebook_telefoon || ']';
|
||||||
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
||||||
SELECT l_ins_deel_key, c_notebook_datum_key, TO_CHAR(TO_DATE(rec_cyod.datum,'YYYYMMDD'),'DD-MM-YYYY') FROM DUAL;
|
SELECT l_ins_deel_key, c_notebook_datum_key, TO_CHAR(TO_DATE(rec_cyod.datum,'YYYYMMDD'),'DD-MM-YYYY') FROM DUAL;
|
||||||
|
|
||||||
ELSE
|
ELSE
|
||||||
IF l_ins_srtdeel_key = c_ins_srtdeel_key_telefoon
|
IF l_ins_srtdeel_key = c_ins_srtdeel_key_telefoon
|
||||||
THEN
|
THEN
|
||||||
-- Ik ben een telefoon, vul de kenmerken
|
-- Ik ben een telefoon, vul de kenmerken
|
||||||
|
|
||||||
v_errorhint := 'Fout bij toevoegen kenmerk bestelnummer [' || v_bes_bestelling_key || '] bij object [' || l_code_notebook_telefoon || ']';
|
v_errorhint := 'Fout bij toevoegen kenmerk bestelnummer [' || v_bes_bestelling_key || '] bij object [' || l_code_notebook_telefoon || ']';
|
||||||
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
||||||
SELECT l_ins_deel_key, c_mobiel_bestelling_key, v_bes_bestelling_key FROM DUAL;
|
SELECT l_ins_deel_key, c_mobiel_bestelling_key, v_bes_bestelling_key FROM DUAL;
|
||||||
|
|
||||||
v_errorhint := 'Fout bij toevoegen kenmerk artikelnummer [' || rec_cyod.bes_srtdeel_nr || '] bij object [' || l_code_notebook_telefoon || ']';
|
v_errorhint := 'Fout bij toevoegen kenmerk artikelnummer [' || rec_cyod.bes_srtdeel_nr || '] bij object [' || l_code_notebook_telefoon || ']';
|
||||||
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
||||||
SELECT l_ins_deel_key, c_mobiel_artikel_key, rec_cyod.bes_srtdeel_nr FROM DUAL;
|
SELECT l_ins_deel_key, c_mobiel_artikel_key, rec_cyod.bes_srtdeel_nr FROM DUAL;
|
||||||
|
|
||||||
v_errorhint := 'Fout bij toevoegen kenmerk serienummer [' || rec_cyod.serienummer || '] bij object [' || l_code_notebook_telefoon || ']';
|
v_errorhint := 'Fout bij toevoegen kenmerk serienummer [' || rec_cyod.serienummer || '] bij object [' || l_code_notebook_telefoon || ']';
|
||||||
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
||||||
SELECT l_ins_deel_key, c_mobiel_serienr_key, rec_cyod.serienummer FROM DUAL;
|
SELECT l_ins_deel_key, c_mobiel_serienr_key, rec_cyod.serienummer FROM DUAL;
|
||||||
|
|
||||||
v_errorhint := 'Fout bij toevoegen kenmerk aanschafdatum [' || rec_cyod.datum || '] bij object [' || l_code_notebook_telefoon || ']';
|
v_errorhint := 'Fout bij toevoegen kenmerk aanschafdatum [' || rec_cyod.datum || '] bij object [' || l_code_notebook_telefoon || ']';
|
||||||
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
INSERT INTO ins_kenmerkdeel (ins_deel_key, ins_kenmerk_key, ins_kenmerkdeel_waarde)
|
||||||
SELECT l_ins_deel_key, c_mobiel_datum_key, TO_CHAR(TO_DATE(rec_cyod.datum,'YYYYMMDD'),'DD-MM-YYYY') FROM DUAL;
|
SELECT l_ins_deel_key, c_mobiel_datum_key, TO_CHAR(TO_DATE(rec_cyod.datum,'YYYYMMDD'),'DD-MM-YYYY') FROM DUAL;
|
||||||
END IF;
|
END IF;
|
||||||
END IF;
|
END IF;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
ELSE
|
ELSE
|
||||||
-- Persoon heeft het object met dat serienummer al en zou een dubbel voorkomen gaan worden --> DUS NIET TOEVOEGEN
|
-- Persoon heeft het object met dat serienummer al en zou een dubbel voorkomen gaan worden --> DUS NIET TOEVOEGEN
|
||||||
v_count_error := v_count_error + 1;
|
v_count_error := v_count_error + 1;
|
||||||
@@ -1995,10 +1995,10 @@ IS
|
|||||||
v_aanduiding || 'Soort object is onbekend: moet N(otebook) of T(elefoon) zijn',
|
v_aanduiding || 'Soort object is onbekend: moet N(otebook) of T(elefoon) zijn',
|
||||||
v_errorhint
|
v_errorhint
|
||||||
);
|
);
|
||||||
END IF;
|
END IF;
|
||||||
|
|
||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
EXCEPTION
|
EXCEPTION
|
||||||
WHEN OTHERS
|
WHEN OTHERS
|
||||||
THEN
|
THEN
|
||||||
@@ -2019,8 +2019,8 @@ IS
|
|||||||
COMMIT;
|
COMMIT;
|
||||||
END;
|
END;
|
||||||
END LOOP;
|
END LOOP;
|
||||||
|
|
||||||
|
|
||||||
fac.imp_writelog (p_import_key,
|
fac.imp_writelog (p_import_key,
|
||||||
'S',
|
'S',
|
||||||
'CYOD Serienummers: verwerkte regels zonder foutmelding: '
|
'CYOD Serienummers: verwerkte regels zonder foutmelding: '
|
||||||
@@ -2034,9 +2034,9 @@ IS
|
|||||||
''
|
''
|
||||||
);
|
);
|
||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
END alli_update_cyod_serienummers;
|
END alli_update_cyod_serienummers;
|
||||||
/
|
/
|
||||||
|
|
||||||
@@ -2066,7 +2066,7 @@ AS
|
|||||||
AND cnt_contract_verwijder IS NULL
|
AND cnt_contract_verwijder IS NULL
|
||||||
AND cnt_contract_status = 0 /* actief */
|
AND cnt_contract_status = 0 /* actief */
|
||||||
AND (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key) AND cnt.cnt_getopzegdatum (c.cnt_contract_key))
|
AND (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key) AND cnt.cnt_getopzegdatum (c.cnt_contract_key))
|
||||||
UNION
|
UNION
|
||||||
SELECT '', '', fac.safe_to_number(fac_usrdata_omschr),
|
SELECT '', '', fac.safe_to_number(fac_usrdata_omschr),
|
||||||
'Rapp<EFBFBD>l: Contract '
|
'Rapp<EFBFBD>l: Contract '
|
||||||
|| c.cnt_contract_nummer_intern
|
|| c.cnt_contract_nummer_intern
|
||||||
@@ -2202,7 +2202,7 @@ AS
|
|||||||
CREATE OR REPLACE VIEW alli_v_bestelling_maninfo
|
CREATE OR REPLACE VIEW alli_v_bestelling_maninfo
|
||||||
(fclt_f_aanvraagnr,
|
(fclt_f_aanvraagnr,
|
||||||
fclt_x_jaar,
|
fclt_x_jaar,
|
||||||
fclt_x_kwartaal,
|
fclt_x_kwartaal,
|
||||||
fclt_x_maand,
|
fclt_x_maand,
|
||||||
besteldatum,
|
besteldatum,
|
||||||
fclt_3d_discipline_key,
|
fclt_3d_discipline_key,
|
||||||
@@ -2216,7 +2216,7 @@ CREATE OR REPLACE VIEW alli_v_bestelling_maninfo
|
|||||||
AS SELECT TO_CHAR(b.bes_bestelling_key),
|
AS SELECT TO_CHAR(b.bes_bestelling_key),
|
||||||
TO_CHAR(MIN(bes_bestelling_datum), 'YYYY') jaar,
|
TO_CHAR(MIN(bes_bestelling_datum), 'YYYY') jaar,
|
||||||
'Kwartaal ' || TO_CHAR(MIN(bes_bestelling_datum), 'Q') kwartaal,
|
'Kwartaal ' || TO_CHAR(MIN(bes_bestelling_datum), 'Q') kwartaal,
|
||||||
TO_CHAR(MIN(bes_bestelling_datum), 'MM') maand,
|
TO_CHAR(MIN(bes_bestelling_datum), 'MM') maand,
|
||||||
TO_CHAR(MIN(bes_bestelling_datum), 'DD-MM-YYYY') datum,
|
TO_CHAR(MIN(bes_bestelling_datum), 'DD-MM-YYYY') datum,
|
||||||
MIN(dis.ins_discipline_key),
|
MIN(dis.ins_discipline_key),
|
||||||
MIN(dis.ins_discipline_omschrijving) catalogus,
|
MIN(dis.ins_discipline_omschrijving) catalogus,
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
-- Script containing customer specific configuration sql statements for BAMG: BAM Groep
|
-- Script containing customer specific configuration sql statements for BAMG: BAM Groep
|
||||||
-- (c) 2005-2007 Dijkoraad IT bv
|
-- (c) 2005-2007 Dijkoraad IT bv
|
||||||
-- $Revision$
|
-- $Revision$
|
||||||
-- $Modtime: 24-09-12 16:20 $
|
-- $Id$
|
||||||
--
|
--
|
||||||
-- Support: +31 53 4800700
|
-- Support: +31 53 4800700
|
||||||
|
|
||||||
@@ -1228,7 +1228,7 @@ AS
|
|||||||
fclt_f_actief
|
fclt_f_actief
|
||||||
FROM bamg_v_overzicht_locatie
|
FROM bamg_v_overzicht_locatie
|
||||||
WHERE fclt_f_actief = 'Nee';
|
WHERE fclt_f_actief = 'Nee';
|
||||||
|
|
||||||
|
|
||||||
CREATE OR REPLACE VIEW BAMG_V_EXPORT_AFMELDEN (RESULT_ORDER, RESULT)
|
CREATE OR REPLACE VIEW BAMG_V_EXPORT_AFMELDEN (RESULT_ORDER, RESULT)
|
||||||
AS
|
AS
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
-- Script containing customer specific db-configuration for SGGR.
|
-- Script containing customer specific db-configuration for SGGR.
|
||||||
-- (c) 2012 SG|facilitor bv
|
-- (c) 2012 SG|facilitor bv
|
||||||
-- $Revision$
|
-- $Revision$
|
||||||
-- $Modtime: 23-07-12 13:08 $
|
-- $Id$
|
||||||
--
|
--
|
||||||
-- Support: +31 53 4800700
|
-- Support: +31 53 4800700
|
||||||
|
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
-- Script containing customer specific configuration sql statements for VGLD
|
-- Script containing customer specific configuration sql statements for VGLD
|
||||||
-- (c) 2013 SG|facilitor bv
|
-- (c) 2013 SG|facilitor bv
|
||||||
-- $Revision$
|
-- $Revision$
|
||||||
-- $Modtime: 28-06-12 12:15 $
|
-- $Id$
|
||||||
--
|
--
|
||||||
-- Support: +31 53 4800700
|
-- Support: +31 53 4800700
|
||||||
|
|
||||||
@@ -39,8 +39,8 @@ IS
|
|||||||
v_prs_perslid_mobiel VARCHAR2 (256);
|
v_prs_perslid_mobiel VARCHAR2 (256);
|
||||||
v_prs_perslid_email VARCHAR2 (256);
|
v_prs_perslid_email VARCHAR2 (256);
|
||||||
v_prs_perslid_oslogin VARCHAR2 (256);
|
v_prs_perslid_oslogin VARCHAR2 (256);
|
||||||
|
|
||||||
|
|
||||||
-- Overig:
|
-- Overig:
|
||||||
v_alg_locatie_code VARCHAR2 (256);
|
v_alg_locatie_code VARCHAR2 (256);
|
||||||
v_alg_gebouw_code VARCHAR2 (256);
|
v_alg_gebouw_code VARCHAR2 (256);
|
||||||
@@ -80,34 +80,34 @@ BEGIN
|
|||||||
|
|
||||||
-- 06 - Afdelingscode
|
-- 06 - Afdelingscode
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_afdeling_code);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_afdeling_code);
|
||||||
|
|
||||||
-- 07 - Functieomschrijving van medewerker
|
-- 07 - Functieomschrijving van medewerker
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_srtperslid_omschrijving);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_srtperslid_omschrijving);
|
||||||
|
|
||||||
-- 08 - Email adres van medewerker
|
-- 08 - Email adres van medewerker
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_email);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_email);
|
||||||
|
|
||||||
-- 09 - Mobiel van medewerker
|
-- 09 - Mobiel van medewerker
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_mobiel);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_mobiel);
|
||||||
|
|
||||||
-- 10 - Telnr van medewerker
|
-- 10 - Telnr van medewerker
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_telefoonnr);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_telefoonnr);
|
||||||
|
|
||||||
-- 11 - Usernaam/login
|
-- 11 - Usernaam/login
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_oslogin);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_oslogin);
|
||||||
|
|
||||||
-------------------------------------------------------------------------
|
-------------------------------------------------------------------------
|
||||||
|
|
||||||
-- xx - Locatiecode werkplek van medewerker
|
-- xx - Locatiecode werkplek van medewerker
|
||||||
--fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_locatie_code);
|
--fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_locatie_code);
|
||||||
v_alg_locatie_code := NULL;
|
v_alg_locatie_code := NULL;
|
||||||
|
|
||||||
-- xx - Gebouwcode werkplek van medewerker
|
-- xx - Gebouwcode werkplek van medewerker
|
||||||
--fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_gebouw_code);
|
--fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_gebouw_code);
|
||||||
v_alg_gebouw_code := NULL;
|
v_alg_gebouw_code := NULL;
|
||||||
-------------------------------------------------------------------------
|
-------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
--
|
--
|
||||||
v_aanduiding :=
|
v_aanduiding :=
|
||||||
@@ -167,7 +167,7 @@ BEGIN
|
|||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
--
|
--
|
||||||
|
|
||||||
v_errorhint := 'Ongeldig loginnaam';
|
v_errorhint := 'Ongeldig loginnaam';
|
||||||
v_prs_perslid_oslogin := TRIM (v_prs_perslid_oslogin);
|
v_prs_perslid_oslogin := TRIM (v_prs_perslid_oslogin);
|
||||||
|
|
||||||
@@ -228,7 +228,7 @@ BEGIN
|
|||||||
END IF;
|
END IF;
|
||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
|
|
||||||
--
|
--
|
||||||
v_errorhint := 'Ongeldig tussenvoegsel';
|
v_errorhint := 'Ongeldig tussenvoegsel';
|
||||||
v_prs_perslid_tussenvoegsel := TRIM (v_prs_perslid_tussenvoegsel);
|
v_prs_perslid_tussenvoegsel := TRIM (v_prs_perslid_tussenvoegsel);
|
||||||
@@ -283,10 +283,10 @@ BEGIN
|
|||||||
END IF;
|
END IF;
|
||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
v_errorhint := 'Ongeldige afdelingcode';
|
v_errorhint := 'Ongeldige afdelingcode';
|
||||||
v_prs_afdeling_code := TRIM (v_prs_afdeling_code);
|
v_prs_afdeling_code := TRIM (v_prs_afdeling_code);
|
||||||
|
|
||||||
@@ -314,7 +314,7 @@ BEGIN
|
|||||||
END IF;
|
END IF;
|
||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
|
|
||||||
--
|
--
|
||||||
v_errorhint := 'Ongeldige functie';
|
v_errorhint := 'Ongeldige functie';
|
||||||
v_prs_srtperslid_omschrijving := TRIM (v_prs_srtperslid_omschrijving);
|
v_prs_srtperslid_omschrijving := TRIM (v_prs_srtperslid_omschrijving);
|
||||||
@@ -395,7 +395,7 @@ BEGIN
|
|||||||
COMMIT;
|
COMMIT;
|
||||||
END IF;
|
END IF;
|
||||||
|
|
||||||
|
|
||||||
v_errorhint := 'Ongeldig telefoonnummer';
|
v_errorhint := 'Ongeldig telefoonnummer';
|
||||||
v_prs_perslid_telefoonnr := TRIM (v_prs_perslid_telefoonnr);
|
v_prs_perslid_telefoonnr := TRIM (v_prs_perslid_telefoonnr);
|
||||||
|
|
||||||
@@ -427,7 +427,7 @@ BEGIN
|
|||||||
(prs_perslid_nr, prs_perslid_naam,
|
(prs_perslid_nr, prs_perslid_naam,
|
||||||
prs_perslid_tussenvoegsel,
|
prs_perslid_tussenvoegsel,
|
||||||
prs_perslid_voorletters,
|
prs_perslid_voorletters,
|
||||||
prs_perslid_voornaam,
|
prs_perslid_voornaam,
|
||||||
prs_afdeling_code,
|
prs_afdeling_code,
|
||||||
prs_srtperslid_omschrijving,
|
prs_srtperslid_omschrijving,
|
||||||
alg_locatie_code, alg_gebouw_code,
|
alg_locatie_code, alg_gebouw_code,
|
||||||
@@ -440,7 +440,7 @@ BEGIN
|
|||||||
VALUES (v_prs_perslid_nr, v_prs_perslid_naam,
|
VALUES (v_prs_perslid_nr, v_prs_perslid_naam,
|
||||||
v_prs_perslid_tussenvoegsel,
|
v_prs_perslid_tussenvoegsel,
|
||||||
v_prs_perslid_voorletters,
|
v_prs_perslid_voorletters,
|
||||||
v_prs_perslid_voornaam,
|
v_prs_perslid_voornaam,
|
||||||
v_prs_afdeling_code,
|
v_prs_afdeling_code,
|
||||||
v_prs_srtperslid_omschrijving,
|
v_prs_srtperslid_omschrijving,
|
||||||
v_alg_locatie_code, v_alg_gebouw_code,
|
v_alg_locatie_code, v_alg_gebouw_code,
|
||||||
@@ -542,7 +542,7 @@ IS
|
|||||||
--
|
--
|
||||||
v_perslid_key NUMBER (10);
|
v_perslid_key NUMBER (10);
|
||||||
v_afdeling_key NUMBER (10);
|
v_afdeling_key NUMBER (10);
|
||||||
|
|
||||||
v_srtperslid_key NUMBER (10);
|
v_srtperslid_key NUMBER (10);
|
||||||
v_oslogin VARCHAR2 (30);
|
v_oslogin VARCHAR2 (30);
|
||||||
v_wachtwoord VARCHAR2 (30);
|
v_wachtwoord VARCHAR2 (30);
|
||||||
@@ -568,7 +568,7 @@ IS
|
|||||||
FROM vgld_imp_prs ip
|
FROM vgld_imp_prs ip
|
||||||
WHERE ip.prs_perslid_nr = p.prs_perslid_nr);
|
WHERE ip.prs_perslid_nr = p.prs_perslid_nr);
|
||||||
|
|
||||||
|
|
||||||
CURSOR csperslid
|
CURSOR csperslid
|
||||||
IS
|
IS
|
||||||
SELECT prs_srtperslid_omschrijving
|
SELECT prs_srtperslid_omschrijving
|
||||||
@@ -581,7 +581,7 @@ IS
|
|||||||
SELECT UPPER(prs_afdeling_code) prs_afdeling_code, MIN(prs_afdeling_naam) prs_afdeling_naam
|
SELECT UPPER(prs_afdeling_code) prs_afdeling_code, MIN(prs_afdeling_naam) prs_afdeling_naam
|
||||||
FROM vgld_imp_prs
|
FROM vgld_imp_prs
|
||||||
GROUP BY UPPER (prs_afdeling_code);
|
GROUP BY UPPER (prs_afdeling_code);
|
||||||
|
|
||||||
CURSOR cperslid
|
CURSOR cperslid
|
||||||
IS
|
IS
|
||||||
SELECT *
|
SELECT *
|
||||||
@@ -803,9 +803,9 @@ BEGIN
|
|||||||
|| TO_CHAR (v_count_error),
|
|| TO_CHAR (v_count_error),
|
||||||
''
|
''
|
||||||
);
|
);
|
||||||
|
|
||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
v_count_tot := 0;
|
v_count_tot := 0;
|
||||||
v_count_error := 0;
|
v_count_error := 0;
|
||||||
|
|
||||||
@@ -842,7 +842,7 @@ BEGIN
|
|||||||
FROM prs_afdeling
|
FROM prs_afdeling
|
||||||
WHERE prs_afdeling_verwijder IS NULL
|
WHERE prs_afdeling_verwijder IS NULL
|
||||||
AND UPPER (prs_afdeling_naam) = UPPER (recperslid.prs_afdeling_code);
|
AND UPPER (prs_afdeling_naam) = UPPER (recperslid.prs_afdeling_code);
|
||||||
|
|
||||||
|
|
||||||
v_errorhint := 'Fout bij bepalen persoon';
|
v_errorhint := 'Fout bij bepalen persoon';
|
||||||
|
|
||||||
@@ -866,7 +866,7 @@ BEGIN
|
|||||||
prs_perslid_telefoonnr,
|
prs_perslid_telefoonnr,
|
||||||
prs_perslid_mobiel,
|
prs_perslid_mobiel,
|
||||||
prs_perslid_email,
|
prs_perslid_email,
|
||||||
prs_perslid_nr,
|
prs_perslid_nr,
|
||||||
prs_perslid_oslogin
|
prs_perslid_oslogin
|
||||||
)
|
)
|
||||||
VALUES ('PRS', v_srtperslid_key,
|
VALUES ('PRS', v_srtperslid_key,
|
||||||
@@ -877,7 +877,7 @@ BEGIN
|
|||||||
recperslid.prs_perslid_telefoonnr,
|
recperslid.prs_perslid_telefoonnr,
|
||||||
recperslid.prs_perslid_mobiel,
|
recperslid.prs_perslid_mobiel,
|
||||||
recperslid.prs_perslid_email,
|
recperslid.prs_perslid_email,
|
||||||
recperslid.prs_perslid_nr,
|
recperslid.prs_perslid_nr,
|
||||||
recperslid.prs_perslid_oslogin
|
recperslid.prs_perslid_oslogin
|
||||||
);
|
);
|
||||||
COMMIT;
|
COMMIT;
|
||||||
@@ -903,12 +903,12 @@ BEGIN
|
|||||||
prs_perslid_mobiel = COALESCE (recperslid.prs_perslid_mobiel, prs_perslid_mobiel),
|
prs_perslid_mobiel = COALESCE (recperslid.prs_perslid_mobiel, prs_perslid_mobiel),
|
||||||
prs_perslid_email = COALESCE (recperslid.prs_perslid_email, prs_perslid_email),
|
prs_perslid_email = COALESCE (recperslid.prs_perslid_email, prs_perslid_email),
|
||||||
prs_perslid_nr = COALESCE (recperslid.prs_perslid_nr, prs_perslid_nr),
|
prs_perslid_nr = COALESCE (recperslid.prs_perslid_nr, prs_perslid_nr),
|
||||||
prs_perslid_oslogin = COALESCE (recperslid.prs_perslid_oslogin, prs_perslid_oslogin)
|
prs_perslid_oslogin = COALESCE (recperslid.prs_perslid_oslogin, prs_perslid_oslogin)
|
||||||
WHERE prs_perslid_key = v_perslid_key;
|
WHERE prs_perslid_key = v_perslid_key;
|
||||||
COMMIT;
|
COMMIT;
|
||||||
END IF;
|
END IF;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
EXCEPTION
|
EXCEPTION
|
||||||
WHEN OTHERS
|
WHEN OTHERS
|
||||||
@@ -1263,9 +1263,9 @@ END vgld_update_prs;
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
------
|
------
|
||||||
------ FACTUUREXPORT / KOPPELING EXACT
|
------ FACTUUREXPORT / KOPPELING EXACT
|
||||||
------
|
------
|
||||||
|
|
||||||
-- View waarin bij de factuur met fin_factuur_key het bijbehorende factuurbestand (PDF) geldt.
|
-- View waarin bij de factuur met fin_factuur_key het bijbehorende factuurbestand (PDF) geldt.
|
||||||
CREATE OR REPLACE VIEW vgld_v_factuur_bestand (fin_factuur_key, fin_factuur_bestand)
|
CREATE OR REPLACE VIEW vgld_v_factuur_bestand (fin_factuur_key, fin_factuur_bestand)
|
||||||
@@ -1929,7 +1929,7 @@ SELECT (CASE
|
|||||||
l.alg_locatie_key,
|
l.alg_locatie_key,
|
||||||
g.alg_gebouw_key,
|
g.alg_gebouw_key,
|
||||||
v.alg_verdieping_key,
|
v.alg_verdieping_key,
|
||||||
r.alg_ruimte_key
|
r.alg_ruimte_key
|
||||||
FROM res_v_aanwezigrsv_ruimte rrr,
|
FROM res_v_aanwezigrsv_ruimte rrr,
|
||||||
res_ruimte_opstelling rro,
|
res_ruimte_opstelling rro,
|
||||||
res_v_res_ruimte_gegevens rrg,
|
res_v_res_ruimte_gegevens rrg,
|
||||||
@@ -1938,9 +1938,9 @@ SELECT (CASE
|
|||||||
prs_v_perslid_fullnames gastheer,
|
prs_v_perslid_fullnames gastheer,
|
||||||
alg_locatie l,
|
alg_locatie l,
|
||||||
alg_gebouw g,
|
alg_gebouw g,
|
||||||
alg_verdieping v,
|
alg_verdieping v,
|
||||||
alg_ruimte r,
|
alg_ruimte r,
|
||||||
alg_onrgoedkenmerk rk,
|
alg_onrgoedkenmerk rk,
|
||||||
res_status_fo sf,
|
res_status_fo sf,
|
||||||
res_activiteit a,
|
res_activiteit a,
|
||||||
res_discipline rd
|
res_discipline rd
|
||||||
@@ -1961,7 +1961,7 @@ SELECT (CASE
|
|||||||
AND rrr.res_activiteit_key = a.res_activiteit_key
|
AND rrr.res_activiteit_key = a.res_activiteit_key
|
||||||
AND a.res_srtactiviteit_key = 1 -- Ruimte (g<><67>n Voorz. + WP)!
|
AND a.res_srtactiviteit_key = 1 -- Ruimte (g<><67>n Voorz. + WP)!
|
||||||
AND rrg.res_discipline_key = rd.ins_discipline_key;
|
AND rrg.res_discipline_key = rd.ins_discipline_key;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN adm.systrackscript('$Workfile: vgld.sql $', '$Revision$', 0); END;
|
BEGIN adm.systrackscript('$Workfile: vgld.sql $', '$Revision$', 0); END;
|
||||||
|
|||||||
106
VIAR/viar.sql
106
VIAR/viar.sql
@@ -1,7 +1,7 @@
|
|||||||
-- Script containing customer specific configuration sql statements for VIAR
|
-- Script containing customer specific configuration sql statements for VIAR
|
||||||
-- (c) 2013 SG|facilitor bv
|
-- (c) 2013 SG|facilitor bv
|
||||||
-- $Revision$
|
-- $Revision$
|
||||||
-- $Modtime: 28-06-12 12:15 $
|
-- $Id$
|
||||||
--
|
--
|
||||||
-- Support: +31 53 4800700
|
-- Support: +31 53 4800700
|
||||||
|
|
||||||
@@ -39,8 +39,8 @@ IS
|
|||||||
v_prs_perslid_mobiel VARCHAR2 (256);
|
v_prs_perslid_mobiel VARCHAR2 (256);
|
||||||
v_prs_perslid_email VARCHAR2 (256);
|
v_prs_perslid_email VARCHAR2 (256);
|
||||||
v_prs_perslid_oslogin VARCHAR2 (256);
|
v_prs_perslid_oslogin VARCHAR2 (256);
|
||||||
|
|
||||||
|
|
||||||
-- Overig:
|
-- Overig:
|
||||||
v_alg_locatie_code VARCHAR2 (256);
|
v_alg_locatie_code VARCHAR2 (256);
|
||||||
v_alg_gebouw_code VARCHAR2 (256);
|
v_alg_gebouw_code VARCHAR2 (256);
|
||||||
@@ -75,26 +75,26 @@ BEGIN
|
|||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_tussenvoegsel);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_tussenvoegsel);
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_naam);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_naam);
|
||||||
|
|
||||||
|
|
||||||
-- 05 - Afdelingscode
|
-- 05 - Afdelingscode
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_afdeling_code);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_afdeling_code);
|
||||||
|
|
||||||
-- 06 - Functieomschrijving van medewerker
|
-- 06 - Functieomschrijving van medewerker
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_srtperslid_omschrijving);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_srtperslid_omschrijving);
|
||||||
|
|
||||||
-- 07 - Email adres van medewerker
|
-- 07 - Email adres van medewerker
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_email);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_email);
|
||||||
|
|
||||||
-- 08 - Mobiel van medewerker
|
-- 08 - Mobiel van medewerker
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_mobiel);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_mobiel);
|
||||||
|
|
||||||
-- 09 - Telnr van medewerker
|
-- 09 - Telnr van medewerker
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_telefoonnr);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_telefoonnr);
|
||||||
|
|
||||||
-- 10 - Usernaam/login
|
-- 10 - Usernaam/login
|
||||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_oslogin);
|
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_oslogin);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
--
|
--
|
||||||
v_aanduiding :=
|
v_aanduiding :=
|
||||||
@@ -153,7 +153,7 @@ BEGIN
|
|||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
--
|
--
|
||||||
|
|
||||||
v_errorhint := 'Ongeldig loginnaam';
|
v_errorhint := 'Ongeldig loginnaam';
|
||||||
v_prs_perslid_oslogin := TRIM (v_prs_perslid_oslogin);
|
v_prs_perslid_oslogin := TRIM (v_prs_perslid_oslogin);
|
||||||
|
|
||||||
@@ -198,8 +198,8 @@ BEGIN
|
|||||||
COMMIT;
|
COMMIT;
|
||||||
END IF;
|
END IF;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
--
|
--
|
||||||
v_errorhint := 'Ongeldig tussenvoegsel';
|
v_errorhint := 'Ongeldig tussenvoegsel';
|
||||||
v_prs_perslid_tussenvoegsel := TRIM (v_prs_perslid_tussenvoegsel);
|
v_prs_perslid_tussenvoegsel := TRIM (v_prs_perslid_tussenvoegsel);
|
||||||
@@ -254,10 +254,10 @@ BEGIN
|
|||||||
END IF;
|
END IF;
|
||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
v_errorhint := 'Ongeldige afdelingcode';
|
v_errorhint := 'Ongeldige afdelingcode';
|
||||||
v_prs_afdeling_code := TRIM (v_prs_afdeling_code);
|
v_prs_afdeling_code := TRIM (v_prs_afdeling_code);
|
||||||
|
|
||||||
@@ -285,7 +285,7 @@ BEGIN
|
|||||||
END IF;
|
END IF;
|
||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
|
|
||||||
--
|
--
|
||||||
v_errorhint := 'Ongeldige functie';
|
v_errorhint := 'Ongeldige functie';
|
||||||
v_prs_srtperslid_omschrijving := TRIM (v_prs_srtperslid_omschrijving);
|
v_prs_srtperslid_omschrijving := TRIM (v_prs_srtperslid_omschrijving);
|
||||||
@@ -366,7 +366,7 @@ BEGIN
|
|||||||
COMMIT;
|
COMMIT;
|
||||||
END IF;
|
END IF;
|
||||||
|
|
||||||
|
|
||||||
v_errorhint := 'Ongeldig telefoonnummer';
|
v_errorhint := 'Ongeldig telefoonnummer';
|
||||||
v_prs_perslid_telefoonnr := TRIM (v_prs_perslid_telefoonnr);
|
v_prs_perslid_telefoonnr := TRIM (v_prs_perslid_telefoonnr);
|
||||||
|
|
||||||
@@ -398,7 +398,7 @@ BEGIN
|
|||||||
(prs_perslid_naam,
|
(prs_perslid_naam,
|
||||||
prs_perslid_tussenvoegsel,
|
prs_perslid_tussenvoegsel,
|
||||||
prs_perslid_voorletters,
|
prs_perslid_voorletters,
|
||||||
prs_perslid_voornaam,
|
prs_perslid_voornaam,
|
||||||
prs_afdeling_code,
|
prs_afdeling_code,
|
||||||
prs_srtperslid_omschrijving,
|
prs_srtperslid_omschrijving,
|
||||||
alg_locatie_code, alg_gebouw_code,
|
alg_locatie_code, alg_gebouw_code,
|
||||||
@@ -411,7 +411,7 @@ BEGIN
|
|||||||
VALUES (v_prs_perslid_naam,
|
VALUES (v_prs_perslid_naam,
|
||||||
v_prs_perslid_tussenvoegsel,
|
v_prs_perslid_tussenvoegsel,
|
||||||
v_prs_perslid_voorletters,
|
v_prs_perslid_voorletters,
|
||||||
v_prs_perslid_voornaam,
|
v_prs_perslid_voornaam,
|
||||||
v_prs_afdeling_code,
|
v_prs_afdeling_code,
|
||||||
v_prs_srtperslid_omschrijving,
|
v_prs_srtperslid_omschrijving,
|
||||||
v_alg_locatie_code, v_alg_gebouw_code,
|
v_alg_locatie_code, v_alg_gebouw_code,
|
||||||
@@ -513,7 +513,7 @@ IS
|
|||||||
--
|
--
|
||||||
v_perslid_key NUMBER (10);
|
v_perslid_key NUMBER (10);
|
||||||
v_afdeling_key NUMBER (10);
|
v_afdeling_key NUMBER (10);
|
||||||
|
|
||||||
v_srtperslid_key NUMBER (10);
|
v_srtperslid_key NUMBER (10);
|
||||||
v_oslogin VARCHAR2 (30);
|
v_oslogin VARCHAR2 (30);
|
||||||
v_wachtwoord VARCHAR2 (30);
|
v_wachtwoord VARCHAR2 (30);
|
||||||
@@ -528,7 +528,7 @@ IS
|
|||||||
|
|
||||||
-- Let op! Personen met een functie (srt_perslid) waarvan het oppervlak expliciet op 0 is gezet, betekent een functie die tijdelijk is cq. externe is
|
-- Let op! Personen met een functie (srt_perslid) waarvan het oppervlak expliciet op 0 is gezet, betekent een functie die tijdelijk is cq. externe is
|
||||||
-- Dus oppervlak leeg laten of een oppervlak > 0 is een interne. Normailiter is oppervlak gewoon leeg.
|
-- Dus oppervlak leeg laten of een oppervlak > 0 is een interne. Normailiter is oppervlak gewoon leeg.
|
||||||
-- Via deze regel is het dus mogelijk om een externe of systeemuser aan te maken, die niet via AD wordt aangemaakt, maar handmatig.
|
-- Via deze regel is het dus mogelijk om een externe of systeemuser aan te maken, die niet via AD wordt aangemaakt, maar handmatig.
|
||||||
-- Je geeft deze persoon een SPECIALE, IN AD NIET BESTAANDE functienaam (bv EXTERN, of SYSTEM, of NOT-AD) met opp=0.
|
-- Je geeft deze persoon een SPECIALE, IN AD NIET BESTAANDE functienaam (bv EXTERN, of SYSTEM, of NOT-AD) met opp=0.
|
||||||
-- Die blijven dan gewoon in het systeem staan en worden NIET verwijderd omdat ze niet in AD export staan.
|
-- Die blijven dan gewoon in het systeem staan en worden NIET verwijderd omdat ze niet in AD export staan.
|
||||||
-- Ook personen met die als loginnaam beginnen met een _ (underscore) worden niet verwijderd.
|
-- Ook personen met die als loginnaam beginnen met een _ (underscore) worden niet verwijderd.
|
||||||
@@ -544,8 +544,8 @@ IS
|
|||||||
SELECT 1
|
SELECT 1
|
||||||
FROM viar_imp_prs ip
|
FROM viar_imp_prs ip
|
||||||
WHERE UPPER(ip.prs_perslid_oslogin) = UPPER(p.prs_perslid_oslogin));
|
WHERE UPPER(ip.prs_perslid_oslogin) = UPPER(p.prs_perslid_oslogin));
|
||||||
|
|
||||||
|
|
||||||
CURSOR csperslid
|
CURSOR csperslid
|
||||||
IS
|
IS
|
||||||
SELECT prs_srtperslid_omschrijving
|
SELECT prs_srtperslid_omschrijving
|
||||||
@@ -558,7 +558,7 @@ IS
|
|||||||
SELECT UPPER(prs_afdeling_code) prs_afdeling_code, MIN(prs_afdeling_naam) prs_afdeling_naam
|
SELECT UPPER(prs_afdeling_code) prs_afdeling_code, MIN(prs_afdeling_naam) prs_afdeling_naam
|
||||||
FROM viar_imp_prs
|
FROM viar_imp_prs
|
||||||
GROUP BY UPPER (prs_afdeling_code);
|
GROUP BY UPPER (prs_afdeling_code);
|
||||||
|
|
||||||
CURSOR cperslid
|
CURSOR cperslid
|
||||||
IS
|
IS
|
||||||
SELECT *
|
SELECT *
|
||||||
@@ -607,7 +607,7 @@ BEGIN
|
|||||||
AND COALESCE(sp.prs_srtperslid_opp,1) > 0
|
AND COALESCE(sp.prs_srtperslid_opp,1) > 0
|
||||||
AND p.prs_perslid_verwijder IS NULL
|
AND p.prs_perslid_verwijder IS NULL
|
||||||
AND (prs_perslid_oslogin IS NULL OR SUBSTR(prs_perslid_oslogin,1,1) <> '_');
|
AND (prs_perslid_oslogin IS NULL OR SUBSTR(prs_perslid_oslogin,1,1) <> '_');
|
||||||
|
|
||||||
-- Alle personen die via AD zijn geimporteerd en nu weer in AD worden aangeboden.
|
-- Alle personen die via AD zijn geimporteerd en nu weer in AD worden aangeboden.
|
||||||
SELECT DECODE (COUNT (*), 0, 1, COUNT (*))
|
SELECT DECODE (COUNT (*), 0, 1, COUNT (*))
|
||||||
INTO v_count_prs_import
|
INTO v_count_prs_import
|
||||||
@@ -617,7 +617,7 @@ BEGIN
|
|||||||
AND p.prs_perslid_verwijder IS NULL
|
AND p.prs_perslid_verwijder IS NULL
|
||||||
AND UPPER(p.prs_perslid_oslogin) = UPPER(ip.prs_perslid_oslogin);
|
AND UPPER(p.prs_perslid_oslogin) = UPPER(ip.prs_perslid_oslogin);
|
||||||
|
|
||||||
-- Als alle personen
|
-- Als alle personen
|
||||||
IF ( v_count_prs_actual = 1 OR (TRUNC ((v_count_prs_import / v_count_prs_actual) * 100) >=
|
IF ( v_count_prs_actual = 1 OR (TRUNC ((v_count_prs_import / v_count_prs_actual) * 100) >=
|
||||||
(100 - c_max_delta_percentage
|
(100 - c_max_delta_percentage
|
||||||
)
|
)
|
||||||
@@ -789,9 +789,9 @@ BEGIN
|
|||||||
|| TO_CHAR (v_count_error),
|
|| TO_CHAR (v_count_error),
|
||||||
''
|
''
|
||||||
);
|
);
|
||||||
|
|
||||||
COMMIT;
|
COMMIT;
|
||||||
|
|
||||||
v_count_tot := 0;
|
v_count_tot := 0;
|
||||||
v_count_error := 0;
|
v_count_error := 0;
|
||||||
|
|
||||||
@@ -808,7 +808,7 @@ BEGIN
|
|||||||
|| ' - '
|
|| ' - '
|
||||||
|| recperslid.prs_afdeling_code
|
|| recperslid.prs_afdeling_code
|
||||||
|| ' - ';
|
|| ' - ';
|
||||||
|
|
||||||
v_errorhint :=
|
v_errorhint :=
|
||||||
'Fout bij bepalen functie ['
|
'Fout bij bepalen functie ['
|
||||||
|| recperslid.prs_srtperslid_omschrijving
|
|| recperslid.prs_srtperslid_omschrijving
|
||||||
@@ -887,12 +887,12 @@ BEGIN
|
|||||||
prs_perslid_telefoonnr = COALESCE (recperslid.prs_perslid_telefoonnr, prs_perslid_telefoonnr),
|
prs_perslid_telefoonnr = COALESCE (recperslid.prs_perslid_telefoonnr, prs_perslid_telefoonnr),
|
||||||
prs_perslid_mobiel = COALESCE (recperslid.prs_perslid_mobiel, prs_perslid_mobiel),
|
prs_perslid_mobiel = COALESCE (recperslid.prs_perslid_mobiel, prs_perslid_mobiel),
|
||||||
prs_perslid_email = COALESCE (recperslid.prs_perslid_email, prs_perslid_email),
|
prs_perslid_email = COALESCE (recperslid.prs_perslid_email, prs_perslid_email),
|
||||||
prs_perslid_oslogin = COALESCE (recperslid.prs_perslid_oslogin, prs_perslid_oslogin)
|
prs_perslid_oslogin = COALESCE (recperslid.prs_perslid_oslogin, prs_perslid_oslogin)
|
||||||
WHERE prs_perslid_key = v_perslid_key;
|
WHERE prs_perslid_key = v_perslid_key;
|
||||||
COMMIT;
|
COMMIT;
|
||||||
END IF;
|
END IF;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
EXCEPTION
|
EXCEPTION
|
||||||
WHEN OTHERS
|
WHEN OTHERS
|
||||||
@@ -1302,7 +1302,7 @@ CREATE OR REPLACE VIEW viar_v_rap_mld_mipp
|
|||||||
fclt_f_voorraadmedicatie,
|
fclt_f_voorraadmedicatie,
|
||||||
fclt_f_overig
|
fclt_f_overig
|
||||||
)
|
)
|
||||||
AS SELECT
|
AS SELECT
|
||||||
to_char(m.mld_melding_key),
|
to_char(m.mld_melding_key),
|
||||||
d.ins_discipline_key,
|
d.ins_discipline_key,
|
||||||
d.ins_discipline_omschrijving,
|
d.ins_discipline_omschrijving,
|
||||||
@@ -1322,11 +1322,11 @@ AS SELECT
|
|||||||
to_char(m.mld_melding_datum,'YYYY-MM-DD'),
|
to_char(m.mld_melding_datum,'YYYY-MM-DD'),
|
||||||
m.mld_melding_einddatum,
|
m.mld_melding_einddatum,
|
||||||
m.mld_melding_einddatum_std,
|
m.mld_melding_einddatum_std,
|
||||||
CASE
|
CASE
|
||||||
WHEN m.mld_melding_einddatum < COALESCE(fac.gettrackingdate('MLDAFM',m.mld_melding_key),fac.gettrackingdate('MLDREJ',m.mld_melding_key), SYSDATE) THEN 1
|
WHEN m.mld_melding_einddatum < COALESCE(fac.gettrackingdate('MLDAFM',m.mld_melding_key),fac.gettrackingdate('MLDREJ',m.mld_melding_key), SYSDATE) THEN 1
|
||||||
ELSE 0
|
ELSE 0
|
||||||
END,
|
END,
|
||||||
CASE
|
CASE
|
||||||
WHEN m.mld_melding_einddatum_std < COALESCE(fac.gettrackingdate('MLDAFM',m.mld_melding_key),fac.gettrackingdate('MLDREJ',m.mld_melding_key), SYSDATE) THEN 1
|
WHEN m.mld_melding_einddatum_std < COALESCE(fac.gettrackingdate('MLDAFM',m.mld_melding_key),fac.gettrackingdate('MLDREJ',m.mld_melding_key), SYSDATE) THEN 1
|
||||||
ELSE 0
|
ELSE 0
|
||||||
END,
|
END,
|
||||||
@@ -1341,7 +1341,7 @@ AS SELECT
|
|||||||
60
|
60
|
||||||
))
|
))
|
||||||
|| 'm' dagenuurmin,
|
|| 'm' dagenuurmin,
|
||||||
CASE
|
CASE
|
||||||
WHEN ms.mld_statuses_key IN (0, 2, 3, 4, 7, 99) THEN 'Open'
|
WHEN ms.mld_statuses_key IN (0, 2, 3, 4, 7, 99) THEN 'Open'
|
||||||
ELSE 'Afgesloten'
|
ELSE 'Afgesloten'
|
||||||
END,
|
END,
|
||||||
@@ -1355,46 +1355,46 @@ AS SELECT
|
|||||||
COALESCE(sector.prs_afdeling_naam,afd.prs_afdeling_naam || '-' || afd.prs_afdeling_omschrijving),
|
COALESCE(sector.prs_afdeling_naam,afd.prs_afdeling_naam || '-' || afd.prs_afdeling_omschrijving),
|
||||||
DECODE(sector.prs_afdeling_naam, NULL, NULL, afd.prs_afdeling_naam || '-' || afd.prs_afdeling_omschrijving ),
|
DECODE(sector.prs_afdeling_naam, NULL, NULL, afd.prs_afdeling_naam || '-' || afd.prs_afdeling_omschrijving ),
|
||||||
u.prs_perslid_naam|| NVL2( u.prs_perslid_voorletters, ', ' || u.prs_perslid_voorletters, '')|| NVL2( u.prs_perslid_tussenvoegsel, ' ' || u.prs_perslid_tussenvoegsel, '')|| NVL2( u.prs_perslid_voornaam, ' (' || u.prs_perslid_voornaam || ')', '') uitvoerende,
|
u.prs_perslid_naam|| NVL2( u.prs_perslid_voorletters, ', ' || u.prs_perslid_voorletters, '')|| NVL2( u.prs_perslid_tussenvoegsel, ' ' || u.prs_perslid_tussenvoegsel, '')|| NVL2( u.prs_perslid_voornaam, ' (' || u.prs_perslid_voornaam || ')', '') uitvoerende,
|
||||||
(SELECT ud.fac_usrdata_omschr
|
(SELECT ud.fac_usrdata_omschr
|
||||||
FROM fac_usrdata ud
|
FROM fac_usrdata ud
|
||||||
WHERE ud.fac_usrtab_key = 21
|
WHERE ud.fac_usrtab_key = 21
|
||||||
AND ud.fac_usrdata_key = fac.safe_to_number(ko1.mld_kenmerkopdr_waarde)) bijna_incident,
|
AND ud.fac_usrdata_key = fac.safe_to_number(ko1.mld_kenmerkopdr_waarde)) bijna_incident,
|
||||||
(SELECT ud.fac_usrdata_omschr
|
(SELECT ud.fac_usrdata_omschr
|
||||||
FROM fac_usrdata ud
|
FROM fac_usrdata ud
|
||||||
WHERE ud.fac_usrtab_key = 24
|
WHERE ud.fac_usrtab_key = 24
|
||||||
AND ud.fac_usrdata_key = fac.safe_to_number(ko2.mld_kenmerkopdr_waarde)) risico_klasse,
|
AND ud.fac_usrdata_key = fac.safe_to_number(ko2.mld_kenmerkopdr_waarde)) risico_klasse,
|
||||||
(SELECT ud.fac_usrdata_omschr
|
(SELECT ud.fac_usrdata_omschr
|
||||||
FROM fac_usrdata ud, mld_kenmerkmelding km
|
FROM fac_usrdata ud, mld_kenmerkmelding km
|
||||||
WHERE ud.fac_usrtab_key = 2
|
WHERE ud.fac_usrtab_key = 2
|
||||||
AND ud.fac_usrdata_key = fac.safe_to_number(km.mld_kenmerkmelding_waarde)
|
AND ud.fac_usrdata_key = fac.safe_to_number(km.mld_kenmerkmelding_waarde)
|
||||||
AND KM.MLD_KENMERK_KEY = 30
|
AND KM.MLD_KENMERK_KEY = 30
|
||||||
AND KM.MLD_KENMERKMELDING_VERWIJDER IS NULL
|
AND KM.MLD_KENMERKMELDING_VERWIJDER IS NULL
|
||||||
AND KM.MLD_MELDING_KEY = m.mld_melding_key
|
AND KM.MLD_MELDING_KEY = m.mld_melding_key
|
||||||
) baxter,
|
) baxter,
|
||||||
(SELECT ud.fac_usrdata_omschr
|
(SELECT ud.fac_usrdata_omschr
|
||||||
FROM fac_usrdata ud, mld_kenmerkmelding km
|
FROM fac_usrdata ud, mld_kenmerkmelding km
|
||||||
WHERE ud.fac_usrtab_key = 3
|
WHERE ud.fac_usrtab_key = 3
|
||||||
AND ud.fac_usrdata_key = fac.safe_to_number(km.mld_kenmerkmelding_waarde)
|
AND ud.fac_usrdata_key = fac.safe_to_number(km.mld_kenmerkmelding_waarde)
|
||||||
AND KM.MLD_KENMERK_KEY = 31
|
AND KM.MLD_KENMERK_KEY = 31
|
||||||
AND KM.MLD_KENMERKMELDING_VERWIJDER IS NULL
|
AND KM.MLD_KENMERKMELDING_VERWIJDER IS NULL
|
||||||
AND KM.MLD_MELDING_KEY = m.mld_melding_key
|
AND KM.MLD_MELDING_KEY = m.mld_melding_key
|
||||||
) niet_baxter,
|
) niet_baxter,
|
||||||
(SELECT ud.fac_usrdata_omschr
|
(SELECT ud.fac_usrdata_omschr
|
||||||
FROM fac_usrdata ud, mld_kenmerkmelding km
|
FROM fac_usrdata ud, mld_kenmerkmelding km
|
||||||
WHERE ud.fac_usrtab_key = 4
|
WHERE ud.fac_usrtab_key = 4
|
||||||
AND ud.fac_usrdata_key = fac.safe_to_number(km.mld_kenmerkmelding_waarde)
|
AND ud.fac_usrdata_key = fac.safe_to_number(km.mld_kenmerkmelding_waarde)
|
||||||
AND KM.MLD_KENMERK_KEY = 32
|
AND KM.MLD_KENMERK_KEY = 32
|
||||||
AND KM.MLD_KENMERKMELDING_VERWIJDER IS NULL
|
AND KM.MLD_KENMERKMELDING_VERWIJDER IS NULL
|
||||||
AND KM.MLD_MELDING_KEY = m.mld_melding_key
|
AND KM.MLD_MELDING_KEY = m.mld_melding_key
|
||||||
) voorraadmedicatie,
|
) voorraadmedicatie,
|
||||||
(SELECT ud.fac_usrdata_omschr
|
(SELECT ud.fac_usrdata_omschr
|
||||||
FROM fac_usrdata ud, mld_kenmerkmelding km
|
FROM fac_usrdata ud, mld_kenmerkmelding km
|
||||||
WHERE ud.fac_usrtab_key = 5
|
WHERE ud.fac_usrtab_key = 5
|
||||||
AND ud.fac_usrdata_key = fac.safe_to_number(km.mld_kenmerkmelding_waarde)
|
AND ud.fac_usrdata_key = fac.safe_to_number(km.mld_kenmerkmelding_waarde)
|
||||||
AND KM.MLD_KENMERK_KEY = 33
|
AND KM.MLD_KENMERK_KEY = 33
|
||||||
AND KM.MLD_KENMERKMELDING_VERWIJDER IS NULL
|
AND KM.MLD_KENMERKMELDING_VERWIJDER IS NULL
|
||||||
AND KM.MLD_MELDING_KEY = m.mld_melding_key
|
AND KM.MLD_MELDING_KEY = m.mld_melding_key
|
||||||
) overig
|
) overig
|
||||||
FROM mld_melding m, mld_statuses ms, mld_stdmelding std, ins_tab_discipline d, ins_srtdiscipline sd,
|
FROM mld_melding m, mld_statuses ms, mld_stdmelding std, ins_tab_discipline d, ins_srtdiscipline sd,
|
||||||
mld_opdr o, prs_perslid u,
|
mld_opdr o, prs_perslid u,
|
||||||
mld_kenmerkmelding km1,
|
mld_kenmerkmelding km1,
|
||||||
@@ -1427,7 +1427,7 @@ AS SELECT
|
|||||||
AND COALESCE(o.mld_opdr_key,-1) = ( SELECT COALESCE(max(mld_opdr_key),-1)
|
AND COALESCE(o.mld_opdr_key,-1) = ( SELECT COALESCE(max(mld_opdr_key),-1)
|
||||||
FROM mld_opdr
|
FROM mld_opdr
|
||||||
WHERE mld_melding_key = m.mld_melding_key);
|
WHERE mld_melding_key = m.mld_melding_key);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@@ -1458,7 +1458,7 @@ AS SELECT
|
|||||||
--- WHERE aa.prs_afdeling_key = 24
|
--- WHERE aa.prs_afdeling_key = 24
|
||||||
--- AND aa.niveau = g.fac_gebruiker_prs_level_write))))
|
--- AND aa.niveau = g.fac_gebruiker_prs_level_write))))
|
||||||
--- -- in ASP: if (params.loc_key>0)
|
--- -- in ASP: if (params.loc_key>0)
|
||||||
---
|
---
|
||||||
--- AND fac_functie_code = 'WEB_MLDBOF'
|
--- AND fac_functie_code = 'WEB_MLDBOF'
|
||||||
---;
|
---;
|
||||||
|
|
||||||
@@ -1489,7 +1489,7 @@ AS SELECT
|
|||||||
--- WHERE aa.prs_afdeling_key = 24
|
--- WHERE aa.prs_afdeling_key = 24
|
||||||
--- AND aa.niveau = g.fac_gebruiker_prs_level_write))))
|
--- AND aa.niveau = g.fac_gebruiker_prs_level_write))))
|
||||||
--- -- in ASP: if (params.loc_key>0)
|
--- -- in ASP: if (params.loc_key>0)
|
||||||
---
|
---
|
||||||
--- AND fac_functie_code = 'WEB_MLDBOF'
|
--- AND fac_functie_code = 'WEB_MLDBOF'
|
||||||
---;
|
---;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user