From 07048e1222444f3d72c59c2285648bc239e70ce8 Mon Sep 17 00:00:00 2001 From: Jos Groot Lipman Date: Wed, 27 Nov 2013 09:09:46 +0000 Subject: [PATCH] Sourcesafe $Modtime was hier nog niet vervangen door SVN $Id svn path=/Customer/trunk/; revision=19960 --- ALLI/alli.sql | 230 +++++++++++++++++++++++++------------------------- BAMG/bamg.sql | 4 +- SGGR/sggr.sql | 2 +- VGLD/vgld.sql | 80 +++++++++--------- VIAR/viar.sql | 106 +++++++++++------------ 5 files changed, 211 insertions(+), 211 deletions(-) diff --git a/ALLI/alli.sql b/ALLI/alli.sql index 0159baa34..c4476d2ba 100644 --- a/ALLI/alli.sql +++ b/ALLI/alli.sql @@ -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è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, diff --git a/BAMG/bamg.sql b/BAMG/bamg.sql index c30c310d6..fc000c675 100644 --- a/BAMG/bamg.sql +++ b/BAMG/bamg.sql @@ -1,7 +1,7 @@ -- Script containing customer specific configuration sql statements for BAMG: BAM Groep -- (c) 2005-2007 Dijkoraad IT bv -- $Revision$ --- $Modtime: 24-09-12 16:20 $ +-- $Id$ -- -- Support: +31 53 4800700 @@ -1228,7 +1228,7 @@ AS fclt_f_actief FROM bamg_v_overzicht_locatie WHERE fclt_f_actief = 'Nee'; - + CREATE OR REPLACE VIEW BAMG_V_EXPORT_AFMELDEN (RESULT_ORDER, RESULT) AS diff --git a/SGGR/sggr.sql b/SGGR/sggr.sql index 6b677bcd6..7c3c1a38c 100644 --- a/SGGR/sggr.sql +++ b/SGGR/sggr.sql @@ -1,7 +1,7 @@ -- Script containing customer specific db-configuration for SGGR. -- (c) 2012 SG|facilitor bv -- $Revision$ --- $Modtime: 23-07-12 13:08 $ +-- $Id$ -- -- Support: +31 53 4800700 diff --git a/VGLD/vgld.sql b/VGLD/vgld.sql index 9608d413f..ade4e9f4a 100644 --- a/VGLD/vgld.sql +++ b/VGLD/vgld.sql @@ -1,7 +1,7 @@ -- Script containing customer specific configuration sql statements for VGLD -- (c) 2013 SG|facilitor bv -- $Revision$ --- $Modtime: 28-06-12 12:15 $ +-- $Id$ -- -- Support: +31 53 4800700 @@ -39,8 +39,8 @@ IS v_prs_perslid_mobiel VARCHAR2 (256); v_prs_perslid_email VARCHAR2 (256); v_prs_perslid_oslogin VARCHAR2 (256); - - + + -- Overig: v_alg_locatie_code VARCHAR2 (256); v_alg_gebouw_code VARCHAR2 (256); @@ -80,34 +80,34 @@ BEGIN -- 06 - Afdelingscode 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); - + -- 08 - Email adres van medewerker fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_email); - + -- 09 - Mobiel van medewerker fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_mobiel); - + -- 10 - Telnr van medewerker fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_telefoonnr); - + -- 11 - Usernaam/login fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_oslogin); - + ------------------------------------------------------------------------- - + -- 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 := @@ -167,7 +167,7 @@ BEGIN COMMIT; -- - + v_errorhint := 'Ongeldig loginnaam'; v_prs_perslid_oslogin := TRIM (v_prs_perslid_oslogin); @@ -228,7 +228,7 @@ BEGIN END IF; COMMIT; - + -- v_errorhint := 'Ongeldig tussenvoegsel'; v_prs_perslid_tussenvoegsel := TRIM (v_prs_perslid_tussenvoegsel); @@ -283,10 +283,10 @@ BEGIN END IF; COMMIT; - - - - + + + + v_errorhint := 'Ongeldige afdelingcode'; v_prs_afdeling_code := TRIM (v_prs_afdeling_code); @@ -314,7 +314,7 @@ BEGIN END IF; COMMIT; - + -- v_errorhint := 'Ongeldige functie'; v_prs_srtperslid_omschrijving := TRIM (v_prs_srtperslid_omschrijving); @@ -395,7 +395,7 @@ BEGIN COMMIT; END IF; - + v_errorhint := 'Ongeldig telefoonnummer'; v_prs_perslid_telefoonnr := TRIM (v_prs_perslid_telefoonnr); @@ -427,7 +427,7 @@ BEGIN (prs_perslid_nr, prs_perslid_naam, prs_perslid_tussenvoegsel, prs_perslid_voorletters, - prs_perslid_voornaam, + prs_perslid_voornaam, prs_afdeling_code, prs_srtperslid_omschrijving, alg_locatie_code, alg_gebouw_code, @@ -440,7 +440,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_srtperslid_omschrijving, v_alg_locatie_code, v_alg_gebouw_code, @@ -542,7 +542,7 @@ IS -- v_perslid_key NUMBER (10); v_afdeling_key NUMBER (10); - + v_srtperslid_key NUMBER (10); v_oslogin VARCHAR2 (30); v_wachtwoord VARCHAR2 (30); @@ -568,7 +568,7 @@ IS FROM vgld_imp_prs ip WHERE ip.prs_perslid_nr = p.prs_perslid_nr); - + CURSOR csperslid IS SELECT prs_srtperslid_omschrijving @@ -581,7 +581,7 @@ IS SELECT UPPER(prs_afdeling_code) prs_afdeling_code, MIN(prs_afdeling_naam) prs_afdeling_naam FROM vgld_imp_prs GROUP BY UPPER (prs_afdeling_code); - + CURSOR cperslid IS SELECT * @@ -803,9 +803,9 @@ BEGIN || TO_CHAR (v_count_error), '' ); - + COMMIT; - + v_count_tot := 0; v_count_error := 0; @@ -842,7 +842,7 @@ BEGIN FROM prs_afdeling WHERE prs_afdeling_verwijder IS NULL AND UPPER (prs_afdeling_naam) = UPPER (recperslid.prs_afdeling_code); - + v_errorhint := 'Fout bij bepalen persoon'; @@ -866,7 +866,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, @@ -877,7 +877,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; @@ -903,12 +903,12 @@ 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; - + EXCEPTION WHEN OTHERS @@ -1263,9 +1263,9 @@ END vgld_update_prs; ------- +------ ------ FACTUUREXPORT / KOPPELING EXACT ------- +------ -- 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) @@ -1929,7 +1929,7 @@ SELECT (CASE l.alg_locatie_key, g.alg_gebouw_key, v.alg_verdieping_key, - r.alg_ruimte_key + r.alg_ruimte_key FROM res_v_aanwezigrsv_ruimte rrr, res_ruimte_opstelling rro, res_v_res_ruimte_gegevens rrg, @@ -1938,9 +1938,9 @@ SELECT (CASE prs_v_perslid_fullnames gastheer, alg_locatie l, alg_gebouw g, - alg_verdieping v, + alg_verdieping v, alg_ruimte r, - alg_onrgoedkenmerk rk, + alg_onrgoedkenmerk rk, res_status_fo sf, res_activiteit a, res_discipline rd @@ -1961,7 +1961,7 @@ SELECT (CASE AND rrr.res_activiteit_key = a.res_activiteit_key AND a.res_srtactiviteit_key = 1 -- Ruimte (géén Voorz. + WP)! AND rrg.res_discipline_key = rd.ins_discipline_key; - + BEGIN adm.systrackscript('$Workfile: vgld.sql $', '$Revision$', 0); END; diff --git a/VIAR/viar.sql b/VIAR/viar.sql index 96de1bab7..e3aaec59b 100644 --- a/VIAR/viar.sql +++ b/VIAR/viar.sql @@ -1,7 +1,7 @@ -- Script containing customer specific configuration sql statements for VIAR -- (c) 2013 SG|facilitor bv -- $Revision$ --- $Modtime: 28-06-12 12:15 $ +-- $Id$ -- -- Support: +31 53 4800700 @@ -39,8 +39,8 @@ IS v_prs_perslid_mobiel VARCHAR2 (256); v_prs_perslid_email VARCHAR2 (256); v_prs_perslid_oslogin VARCHAR2 (256); - - + + -- Overig: v_alg_locatie_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_naam); - + -- 05 - Afdelingscode 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); - + -- 07 - Email adres van medewerker fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_email); - + -- 08 - Mobiel van medewerker fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_mobiel); - + -- 09 - Telnr van medewerker fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_telefoonnr); - + -- 10 - Usernaam/login fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_oslogin); - - + + -- v_aanduiding := @@ -153,7 +153,7 @@ BEGIN COMMIT; -- - + v_errorhint := 'Ongeldig loginnaam'; v_prs_perslid_oslogin := TRIM (v_prs_perslid_oslogin); @@ -198,8 +198,8 @@ BEGIN COMMIT; END IF; - - + + -- v_errorhint := 'Ongeldig tussenvoegsel'; v_prs_perslid_tussenvoegsel := TRIM (v_prs_perslid_tussenvoegsel); @@ -254,10 +254,10 @@ BEGIN END IF; COMMIT; - - - - + + + + v_errorhint := 'Ongeldige afdelingcode'; v_prs_afdeling_code := TRIM (v_prs_afdeling_code); @@ -285,7 +285,7 @@ BEGIN END IF; COMMIT; - + -- v_errorhint := 'Ongeldige functie'; v_prs_srtperslid_omschrijving := TRIM (v_prs_srtperslid_omschrijving); @@ -366,7 +366,7 @@ BEGIN COMMIT; END IF; - + v_errorhint := 'Ongeldig telefoonnummer'; v_prs_perslid_telefoonnr := TRIM (v_prs_perslid_telefoonnr); @@ -398,7 +398,7 @@ BEGIN (prs_perslid_naam, prs_perslid_tussenvoegsel, prs_perslid_voorletters, - prs_perslid_voornaam, + prs_perslid_voornaam, prs_afdeling_code, prs_srtperslid_omschrijving, alg_locatie_code, alg_gebouw_code, @@ -411,7 +411,7 @@ BEGIN VALUES (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_srtperslid_omschrijving, v_alg_locatie_code, v_alg_gebouw_code, @@ -513,7 +513,7 @@ IS -- v_perslid_key NUMBER (10); v_afdeling_key NUMBER (10); - + v_srtperslid_key NUMBER (10); v_oslogin 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 -- 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. -- 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. @@ -544,8 +544,8 @@ IS SELECT 1 FROM viar_imp_prs ip WHERE UPPER(ip.prs_perslid_oslogin) = UPPER(p.prs_perslid_oslogin)); - - + + CURSOR csperslid IS SELECT prs_srtperslid_omschrijving @@ -558,7 +558,7 @@ IS SELECT UPPER(prs_afdeling_code) prs_afdeling_code, MIN(prs_afdeling_naam) prs_afdeling_naam FROM viar_imp_prs GROUP BY UPPER (prs_afdeling_code); - + CURSOR cperslid IS SELECT * @@ -607,7 +607,7 @@ BEGIN AND COALESCE(sp.prs_srtperslid_opp,1) > 0 AND p.prs_perslid_verwijder IS NULL 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. SELECT DECODE (COUNT (*), 0, 1, COUNT (*)) INTO v_count_prs_import @@ -617,7 +617,7 @@ BEGIN AND p.prs_perslid_verwijder IS NULL 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) >= (100 - c_max_delta_percentage ) @@ -789,9 +789,9 @@ BEGIN || TO_CHAR (v_count_error), '' ); - + COMMIT; - + v_count_tot := 0; v_count_error := 0; @@ -808,7 +808,7 @@ BEGIN || ' - ' || recperslid.prs_afdeling_code || ' - '; - + v_errorhint := 'Fout bij bepalen functie [' || recperslid.prs_srtperslid_omschrijving @@ -887,12 +887,12 @@ BEGIN prs_perslid_telefoonnr = COALESCE (recperslid.prs_perslid_telefoonnr, prs_perslid_telefoonnr), prs_perslid_mobiel = COALESCE (recperslid.prs_perslid_mobiel, prs_perslid_mobiel), 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; COMMIT; END IF; - + EXCEPTION WHEN OTHERS @@ -1302,7 +1302,7 @@ CREATE OR REPLACE VIEW viar_v_rap_mld_mipp fclt_f_voorraadmedicatie, fclt_f_overig ) -AS SELECT +AS SELECT to_char(m.mld_melding_key), d.ins_discipline_key, d.ins_discipline_omschrijving, @@ -1322,11 +1322,11 @@ AS SELECT to_char(m.mld_melding_datum,'YYYY-MM-DD'), m.mld_melding_einddatum, 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 ELSE 0 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 ELSE 0 END, @@ -1341,7 +1341,7 @@ AS SELECT 60 )) || 'm' dagenuurmin, - CASE + CASE WHEN ms.mld_statuses_key IN (0, 2, 3, 4, 7, 99) THEN 'Open' ELSE 'Afgesloten' END, @@ -1355,46 +1355,46 @@ AS SELECT 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 ), 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 WHERE ud.fac_usrtab_key = 21 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 WHERE ud.fac_usrtab_key = 24 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 WHERE ud.fac_usrtab_key = 2 AND ud.fac_usrdata_key = fac.safe_to_number(km.mld_kenmerkmelding_waarde) AND KM.MLD_KENMERK_KEY = 30 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, - (SELECT ud.fac_usrdata_omschr + (SELECT ud.fac_usrdata_omschr FROM fac_usrdata ud, mld_kenmerkmelding km WHERE ud.fac_usrtab_key = 3 AND ud.fac_usrdata_key = fac.safe_to_number(km.mld_kenmerkmelding_waarde) AND KM.MLD_KENMERK_KEY = 31 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, - (SELECT ud.fac_usrdata_omschr + (SELECT ud.fac_usrdata_omschr FROM fac_usrdata ud, mld_kenmerkmelding km WHERE ud.fac_usrtab_key = 4 AND ud.fac_usrdata_key = fac.safe_to_number(km.mld_kenmerkmelding_waarde) AND KM.MLD_KENMERK_KEY = 32 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, - (SELECT ud.fac_usrdata_omschr + (SELECT ud.fac_usrdata_omschr FROM fac_usrdata ud, mld_kenmerkmelding km WHERE ud.fac_usrtab_key = 5 AND ud.fac_usrdata_key = fac.safe_to_number(km.mld_kenmerkmelding_waarde) AND KM.MLD_KENMERK_KEY = 33 AND KM.MLD_KENMERKMELDING_VERWIJDER IS NULL - AND KM.MLD_MELDING_KEY = m.mld_melding_key - ) overig + AND KM.MLD_MELDING_KEY = m.mld_melding_key + ) overig FROM mld_melding m, mld_statuses ms, mld_stdmelding std, ins_tab_discipline d, ins_srtdiscipline sd, mld_opdr o, prs_perslid u, mld_kenmerkmelding km1, @@ -1427,7 +1427,7 @@ AS SELECT AND COALESCE(o.mld_opdr_key,-1) = ( SELECT COALESCE(max(mld_opdr_key),-1) FROM mld_opdr WHERE mld_melding_key = m.mld_melding_key); - + @@ -1458,7 +1458,7 @@ AS SELECT --- WHERE aa.prs_afdeling_key = 24 --- AND aa.niveau = g.fac_gebruiker_prs_level_write)))) --- -- in ASP: if (params.loc_key>0) ---- +--- --- AND fac_functie_code = 'WEB_MLDBOF' ---; @@ -1489,7 +1489,7 @@ AS SELECT --- WHERE aa.prs_afdeling_key = 24 --- AND aa.niveau = g.fac_gebruiker_prs_level_write)))) --- -- in ASP: if (params.loc_key>0) ---- +--- --- AND fac_functie_code = 'WEB_MLDBOF' ---;