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

Sourcesafe $Modtime was hier nog niet vervangen door SVN $Id

Browse Source 
svn path=/Customer/trunk/; revision=19960
This commit is contained in:
Jos Groot Lipman
2013-11-27 09:09:46 +00:00
parent 698485254d
commit 07048e1222
5 changed files with 211 additions and 211 deletions
Download Patch File Download Diff File Expand all files Collapse all files

230
ALLI/alli.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for ALLI
-- (c) 2012 SG|facilitor bv
-- $Revision$
-- $Modtime: 28-06-12 12:15 $
-- $Id$
--
-- Support: +31 53 4800700
@@ -50,7 +50,7 @@ IS
v_prs_perslid_email VARCHAR2 (256);
v_prs_perslid_oslogin VARCHAR2 (256);
v_prs_perslid_bedrijfsdeel VARCHAR2 (256);
-- Overig:
v_alg_locatie_code VARCHAR2 (256);
v_alg_gebouw_code VARCHAR2 (256);
@@ -90,42 +90,42 @@ BEGIN
-- 06 - Afdelingscode
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_afdeling_code);
-- 07 - Afdelingsnaam (niet de code!)
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);
-- 09 - Email adres van medewerker
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_email);
-- 10 - Mobiel van medewerker
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_mobiel);
-- 11 - Telenr (035) van medewerker
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_telefoonnr);
-- 12 - Bedrijfsonderdeel van medewerker
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_bedrijfsdeel);
-------------------------------------------------------------------------
-- xx - Usernaam/login
-- fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_oslogin);
v_prs_perslid_oslogin := NULL;
-- xx - Locatiecode werkplek van medewerker
--fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_locatie_code);
v_alg_locatie_code := NULL;
-- xx - Gebouwcode werkplek van medewerker
--fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_gebouw_code);
v_alg_gebouw_code := NULL;
-------------------------------------------------------------------------
--
v_aanduiding :=
@@ -185,7 +185,7 @@ BEGIN
COMMIT;
--
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 := TRIM (v_prs_perslid_oslogin);
@@ -247,7 +247,7 @@ BEGIN
END IF;
COMMIT;
--
v_errorhint := 'Ongeldig tussenvoegsel';
v_prs_perslid_tussenvoegsel := TRIM (v_prs_perslid_tussenvoegsel);
@@ -269,7 +269,7 @@ BEGIN
--
v_errorhint := 'Ongeldige voorletters';
-- 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);
IF LENGTH (v_prs_perslid_voorletters) > 10
@@ -304,10 +304,10 @@ BEGIN
END IF;
COMMIT;
v_errorhint := 'Ongeldige afdelingcode';
v_prs_afdeling_code := TRIM (v_prs_afdeling_code);
@@ -442,7 +442,7 @@ BEGIN
COMMIT;
END IF;
v_errorhint := 'Ongeldig telefoonnummer';
v_prs_perslid_telefoonnr := TRIM (v_prs_perslid_telefoonnr);
@@ -500,7 +500,7 @@ BEGIN
(prs_perslid_nr, prs_perslid_naam,
prs_perslid_tussenvoegsel,
prs_perslid_voorletters,
prs_perslid_voornaam,
prs_perslid_voornaam,
prs_afdeling_code, prs_afdeling_naam,
prs_srtperslid_omschrijving,
alg_locatie_code, alg_gebouw_code,
@@ -514,7 +514,7 @@ BEGIN
VALUES (v_prs_perslid_nr, v_prs_perslid_naam,
v_prs_perslid_tussenvoegsel,
v_prs_perslid_voorletters,
v_prs_perslid_voornaam,
v_prs_perslid_voornaam,
v_prs_afdeling_code, v_prs_afdeling_naam,
v_prs_srtperslid_omschrijving,
v_alg_locatie_code, v_alg_gebouw_code,
@@ -643,7 +643,7 @@ IS
FROM alli_imp_prs ip
WHERE ip.prs_perslid_nr = p.prs_perslid_nr);
CURSOR csperslid
IS
SELECT prs_srtperslid_omschrijving
@@ -661,7 +661,7 @@ IS
IS
SELECT distinct (prs_perslid_bedrijfsdeel) prs_perslid_bedrijfsdeel
FROM alli_imp_prs;
CURSOR cperslid
IS
SELECT *
@@ -919,9 +919,9 @@ BEGIN
WHERE prs_afdeling_naam = recafdeling.prs_afdeling_code
AND prs_bedrijf_key = 5
AND prs_afdeling_verwijder IS NULL;
COMMIT;
END IF;
EXCEPTION
WHEN OTHERS
@@ -956,7 +956,7 @@ BEGIN
''
);
COMMIT;
v_count_tot := 0;
v_count_error := 0;
@@ -982,7 +982,7 @@ BEGIN
(fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
VALUES (121, SUBSTR(recbedrijf.prs_perslid_bedrijfsdeel,1,30), recbedrijf.prs_perslid_bedrijfsdeel);
COMMIT;
END IF;
EXCEPTION
WHEN OTHERS
@@ -1092,7 +1092,7 @@ BEGIN
prs_perslid_telefoonnr,
prs_perslid_mobiel,
prs_perslid_email,
prs_perslid_nr,
prs_perslid_nr,
prs_perslid_oslogin
)
VALUES ('PRS', v_srtperslid_key,
@@ -1103,7 +1103,7 @@ BEGIN
recperslid.prs_perslid_telefoonnr,
recperslid.prs_perslid_mobiel,
recperslid.prs_perslid_email,
recperslid.prs_perslid_nr,
recperslid.prs_perslid_nr,
recperslid.prs_perslid_oslogin
);
COMMIT;
@@ -1129,7 +1129,7 @@ BEGIN
prs_perslid_mobiel = COALESCE (recperslid.prs_perslid_mobiel, prs_perslid_mobiel),
prs_perslid_email = COALESCE (recperslid.prs_perslid_email, prs_perslid_email),
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;
COMMIT;
END IF;
@@ -1143,7 +1143,7 @@ BEGIN
AND prs_kenmerklink_niveau = 'P'
AND prs_kenmerk_key = 1060
AND prs_kenmerklink_verwijder IS NULL;
IF (v_count = 0)
THEN
v_errorhint := 'Fout bij toevoegen kenmerk bedrijfsonderdeel';
@@ -1161,7 +1161,7 @@ BEGIN
AND prs_kenmerk_key = 1060
AND prs_kenmerklink_verwijder IS NULL;
COMMIT;
END IF;
@@ -1526,7 +1526,7 @@ SELECT BES_BESTELLING_KEY, to_char(BES_BESTELLING_KEY)
FROM BES_BESTELLING;
--select *
--select *
--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')
--and BI.BES_BESTELOPDR_ITEM_KEY = BO.BES_BESTELOPDR_ITEM_KEY
@@ -1550,13 +1550,13 @@ IS
v_count_import NUMBER (10);
v_count NUMBER;
-- De importvelden:
v_bes_bestelopdr_id VARCHAR2 (256);
v_bes_srtdeel_nr VARCHAR2 (256);
v_serienummer VARCHAR2 (256);
v_soort VARCHAR2 (256);
v_datum VARCHAR2 (256);
CURSOR c1
@@ -1587,22 +1587,22 @@ BEGIN
-- v_bes_srtdeel_nr VARCHAR2 (256);
-- v_serienummer VARCHAR2 (256);
-- v_datum VARCHAR2 (256);
-- 01 - Bestelopdrachtnummer
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 1, v_bes_bestelopdr_id);
-- 02 - Artikelnummer
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 2, v_bes_srtdeel_nr);
-- 03 - Serienummer of IMEI nummer.
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 3, v_serienummer);
-- 04 - Soort object: Notebook (N) of Telefoon (T)
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 4, v_soort);
-- 05 - Verzenddatum cq. Aanschafdatum
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 5, v_datum);
--
v_aanduiding :=
@@ -1636,7 +1636,7 @@ BEGIN
--
v_errorhint := 'Ongeldig bestelopdrachtnr';
v_bes_bestelopdr_id := TRIM (v_bes_bestelopdr_id);
IF (v_bes_bestelopdr_id IS NOT NULL)
THEN
IF LENGTH (v_bes_bestelopdr_id) > 30
@@ -1650,7 +1650,7 @@ BEGIN
v_errorhint := 'Ongeldig artikelnr';
v_bes_srtdeel_nr := TRIM (v_bes_srtdeel_nr);
IF (v_bes_srtdeel_nr IS NOT NULL)
THEN
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)
VALUES (v_bes_bestelopdr_id, v_bes_srtdeel_nr, v_serienummer, v_soort, v_datum);
COMMIT;
v_count_import := v_count_import + 1;
EXCEPTION
@@ -1779,72 +1779,72 @@ IS
v_count_tot NUMBER (10);
v_count_error NUMBER (10);
v_count NUMBER (10);
v_aantal NUMBER (10);
v_bes_bestelling_key NUMBER (10);
v_prs_perslid_key NUMBER (10);
v_bes_srtgroep_key NUMBER (10);
c_ins_srtgroep_key_temp NUMBER (10) := 1;
c_ins_kenmerk_key_temp NUMBER (10) := 1;
l_ins_srtdeel_key NUMBER (10);
l_ins_deel_key NUMBER (10);
l_code_notebook_telefoon VARCHAR2 (100);
c_ins_srtdeel_key_telefoon NUMBER (10) := 9201;
c_ins_srtdeel_key_notebook NUMBER (10) := 9202;
c_notebook_bestelling_key NUMBER (10) := 1;
c_notebook_artikel_key NUMBER (10) := 2;
c_notebook_serienr_key NUMBER (10) := 3;
c_notebook_datum_key NUMBER (10) := 4;
c_mobiel_bestelling_key NUMBER (10) := 5;
c_mobiel_artikel_key NUMBER (10) := 6;
c_mobiel_serienr_key NUMBER (10) := 7;
c_mobiel_datum_key NUMBER (10) := 8;
-- Alle ingelezen CYOD artikelen met serienummers
CURSOR c_cyod_artikelen
IS
SELECT *
FROM alli_imp_cyod_serienummers;
BEGIN
v_count_tot := 0;
v_count_error := 0;
v_count_error := 0;
v_aanduiding := '';
-- Alle artikelen verwerken...
FOR rec_cyod IN c_cyod_artikelen
LOOP
BEGIN
v_count_tot := v_count_tot + 1;
v_aanduiding :=
'['
|| 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.datum
|| '] ';
v_errorhint := 'Fout bij bepalen combi bestelopdracht en artikelnummer';
-- Op zoek naar:
-- 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
@@ -1852,33 +1852,33 @@ IS
-- 1) De bestellingaanvraag (bes_bestelling_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).
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
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 sd.bes_srtgroep_key = sg.bes_srtgroep_key
AND BI.BES_BESTELOPDR_ITEM_KEY = BOI.BES_BESTELOPDR_ITEM_KEY
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
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).
-- 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.
l_code_notebook_telefoon := NULL;
l_code_notebook_telefoon := NULL;
v_errorhint := 'Fout bij bepalen soort object';
IF rec_cyod.soort = 'T'
THEN
-- Ik ben een telefoon, bepaal een nieuwe default naam/code voor het object
l_ins_srtdeel_key := c_ins_srtdeel_key_telefoon;
ELSE
ELSE
IF rec_cyod.soort = 'N'
THEN
-- Ik ben een notebook, bepaal een nieuwe default naam/code voor het object
@@ -1887,14 +1887,14 @@ IS
l_ins_srtdeel_key := NULL;
END IF;
END IF;
IF l_ins_srtdeel_key IS NOT NULL
THEN
-- 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.
-- 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(*)
INTO v_aantal
FROM ins_deel d, ins_kenmerkdeel k
@@ -1905,78 +1905,78 @@ IS
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_kenmerkdeel_waarde = rec_cyod.serienummer;
IF v_aantal = 0
THEN
-- 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
FROM ins_srtdeel
FROM ins_srtdeel
WHERE ins_srtdeel_key= l_ins_srtdeel_key;
-- Insert van persoonsgebonden object.
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)
VALUES ('INS', l_ins_srtdeel_key, v_prs_perslid_key, 'P', l_code_notebook_telefoon);
v_errorhint := 'Object is toegevoegd';
fac.imp_writelog (p_import_key,
'I',
v_aanduiding || 'Objectnaam ' || l_code_notebook_telefoon || ' is toegevoegd',
v_errorhint
);
SELECT MAX(ins_deel_key) INTO l_ins_deel_key FROM ins_deel;
IF l_ins_srtdeel_key = c_ins_srtdeel_key_notebook
THEN
-- Ik ben een notebook, vul de kenmerken
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)
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 || ']';
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;
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)
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 || ']';
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;
ELSE
IF l_ins_srtdeel_key = c_ins_srtdeel_key_telefoon
THEN
-- Ik ben een telefoon, vul de kenmerken
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)
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 || ']';
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;
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)
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 || ']';
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;
END IF;
END IF;
ELSE
-- 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;
@@ -1995,10 +1995,10 @@ IS
v_aanduiding || 'Soort object is onbekend: moet N(otebook) of T(elefoon) zijn',
v_errorhint
);
END IF;
END IF;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
@@ -2019,8 +2019,8 @@ IS
COMMIT;
END;
END LOOP;
fac.imp_writelog (p_import_key,
'S',
'CYOD Serienummers: verwerkte regels zonder foutmelding: '
@@ -2034,9 +2034,9 @@ IS
''
);
COMMIT;
END alli_update_cyod_serienummers;
/
@@ -2066,7 +2066,7 @@ AS
AND cnt_contract_verwijder IS NULL
AND cnt_contract_status = 0 /* actief */
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),
'Rapp<EFBFBD>l: Contract '
|| c.cnt_contract_nummer_intern
@@ -2202,7 +2202,7 @@ AS
CREATE OR REPLACE VIEW alli_v_bestelling_maninfo
(fclt_f_aanvraagnr,
fclt_x_jaar,
fclt_x_kwartaal,
fclt_x_kwartaal,
fclt_x_maand,
besteldatum,
fclt_3d_discipline_key,
@@ -2216,7 +2216,7 @@ CREATE OR REPLACE VIEW alli_v_bestelling_maninfo
AS SELECT TO_CHAR(b.bes_bestelling_key),
TO_CHAR(MIN(bes_bestelling_datum), 'YYYY') jaar,
'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,
MIN(dis.ins_discipline_key),
MIN(dis.ins_discipline_omschrijving) catalogus,