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

CONN#22359+CONN#22385

Browse Source 
svn path=/Customer/trunk/; revision=15104
This commit is contained in:
Maarten van der Heide
2012-02-03 09:25:28 +00:00
parent 36219cb48e
commit 205fa4b987
1 changed files with 154 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

182
CONN/conn.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for CONN: Connexxion
-- (c) 2005-2010 SG|facilitor bv
-- $Revision: 179 $
-- $Modtime: 14-12-11 13:19 $
-- $Revision: 180 $
-- $Modtime: 3-02-12 11:20 $
--
-- Support: +31 53 4800710
@@ -4453,7 +4453,7 @@ BEGIN
FROM DUAL;
fac.imp_writelog (p_applname, p_applrun, 'S',
'Cxx factuurimport $Revision: 179 $', '');
'Cxx factuurimport $Revision: 180 $', '');
OPEN cfactuur;
IF cfactuur%ISOPEN THEN
@@ -5602,7 +5602,7 @@ AS
SELECT a.prs_afdeling_key
INTO v_afdeling_key
FROM prs_afdeling a
WHERE a.prs_afdeling_upper = UPPER (p_afd_code) AND a.prs_afdeling_verwijder IS NULL;
WHERE TRIM(a.prs_afdeling_upper) = UPPER (TRIM(p_afd_code)) AND a.prs_afdeling_verwijder IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
@@ -5615,7 +5615,7 @@ AS
SELECT a.prs_afdeling_key
INTO v_divisie_key
FROM prs_v_afdeling a
WHERE a.prs_afdeling_upper = UPPER (p_dvb_divisie) AND a.prs_afdeling_verwijder IS NULL AND a.niveau = 1;
WHERE UPPER (TRIM(a.prs_afdeling_omschrijving)) = UPPER (TRIM(p_dvb_divisie)) AND a.prs_afdeling_verwijder IS NULL AND a.niveau = 1;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
@@ -8334,7 +8334,7 @@ AS
AND sd.bes_srtdeel_verwijder IS NULL
AND sd.prs_bedrijf_key = b.prs_bedrijf_key;
/* Formatted on 20-6-2011 16:56:16 (QP5 v5.115.810.9015) */
/* Formatted on 3-2-2012 9:48:48 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW conn_v_rap_inspectieobj_expimp
(
fclt_f_locatiecode,
@@ -8351,6 +8351,7 @@ CREATE OR REPLACE VIEW conn_v_rap_inspectieobj_expimp
fclt_f_voltage,
fclt_f_apkplicht,
fclt_f_keuring_categorie,
fclt_f_contract_nr, -- Per CONN#22359!
fclt_f_leverancier,
fclt_f_soortcontrole,
periode,
@@ -8375,18 +8376,27 @@ AS
k6.voltage,
k7.apkplicht,
k8.categorie,
COALESCE (lev_onderhd.naam, lev_onderst.naam) leverancier,
COALESCE (lev_onderhd.cnt_contract_nummer_intern,
lev_onderst.cnt_contract_nummer_intern)
contract_nr,
COALESCE (lev_onderhd.prs_bedrijf_naam,
lev_onderst.prs_bedrijf_naam)
leverancier,
csd.ins_srtcontrole_omschrijving,
TO_CHAR (csd.ins_srtcontrole_periode),
DECODE (
y.ins_deelsrtcontrole_datum,
NULL,
x.ins_deel_aanmaak + csd.ins_srtcontrole_periode,
y.ins_deelsrtcontrole_datum + csd.ins_srtcontrole_periode
TO_CHAR (x.ins_deel_aanmaak + csd.ins_srtcontrole_periode,
'dd-mm-yyyy'),
TO_CHAR (
y.ins_deelsrtcontrole_datum + csd.ins_srtcontrole_periode,
'dd-mm-yyyy'
)
),
DECODE (y.ins_deelsrtcontrole_datum,
NULL, x.ins_deel_aanmaak,
y.ins_deelsrtcontrole_datum),
NULL, TO_CHAR (x.ins_deel_aanmaak, 'dd-mm-yyyy'),
TO_CHAR (y.ins_deelsrtcontrole_datum, 'dd-mm-yyyy')),
NULL controledatum,
NULL controlopmerking,
k9.afgekeurd
@@ -8456,8 +8466,8 @@ AS
LEFT JOIN
(SELECT DISTINCT
co.cnt_ins_deel_key,
c.cnt_contract_nummer_intern,
b.prs_bedrijf_naam
naam
FROM cnt_contract_object co,
cnt_contract c,
ins_tab_discipline cd,
@@ -8486,8 +8496,8 @@ AS
(SELECT DISTINCT
co.cnt_ins_srtdeel_key,
g.alg_locatie_key,
c.cnt_contract_nummer_intern,
b.prs_bedrijf_naam
naam
FROM cnt_contract_object co,
cnt_contract c,
ins_tab_discipline cd,
@@ -8652,7 +8662,7 @@ AS
ON x.ins_alg_ruimte_key = z2.prs_werkplek_key
AND x.ins_alg_ruimte_type = z2.alg_ruimte_type;
/* Formatted on 30-6-2011 15:35:15 (QP5 v5.115.810.9015) */
/* Formatted on 1-2-2012 14:45:54 (QP5 v5.115.810.9015) */
CREATE OR REPLACE PROCEDURE conn_import_inspectieobj (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
@@ -8685,6 +8695,7 @@ IS
v_voltage VARCHAR2 (255); -- C60
v_apkplicht VARCHAR2 (255); -- C60
v_categorie VARCHAR2 (255); -- C60
v_cnt_contract_nummer_intern VARCHAR2 (255); -- C30
v_prs_bedrijf_naam VARCHAR2 (255); -- C60
v_ins_srtcontrole_oms VARCHAR2 (255); -- C60
x_periode VARCHAR2 (255); -- N4
@@ -8737,6 +8748,7 @@ BEGIN
fac.imp_getfield (v_newline, c_delim, v_voltage);
fac.imp_getfield (v_newline, c_delim, v_apkplicht);
fac.imp_getfield (v_newline, c_delim, v_categorie);
fac.imp_getfield (v_newline, c_delim, v_cnt_contract_nummer_intern);
fac.imp_getfield (v_newline, c_delim, v_prs_bedrijf_naam);
fac.imp_getfield (v_newline, c_delim, v_ins_srtcontrole_oms);
fac.imp_getfield (v_newline, c_delim, x_periode);
@@ -8777,6 +8789,7 @@ BEGIN
AND UPPER (v_apkplicht) = 'APKPLICHT'
AND UPPER (v_categorie) = 'KEURING_CATEGORIE'
AND UPPER (v_prs_bedrijf_naam) = 'LEVERANCIER'
AND UPPER (v_cnt_contract_nummer_intern) = 'CONTRACT_NR' -- Per CONN#22359!
AND UPPER (v_ins_srtcontrole_oms) = 'SOORTCONTROLE'
AND UPPER (x_periode) = 'PERIODE'
AND UPPER (x_controle_gepland) = 'CONTROLE_GEPLAND'
@@ -9030,6 +9043,26 @@ BEGIN
);
END IF;
--
v_errormsg := 'Contractnummer ongeldig';
v_cnt_contract_nummer_intern :=
TRIM (v_cnt_contract_nummer_intern);
IF LENGTH (v_cnt_contract_nummer_intern) > 30
THEN
v_cnt_contract_nummer_intern :=
SUBSTR (v_cnt_contract_nummer_intern, 1, 30);
fac.imp_writelog (
p_applname,
p_applrun,
'W',
v_aanduiding || v_errormsg,
'Contractnummer wordt afgebroken tot ['
|| v_cnt_contract_nummer_intern
|| ']'
);
END IF;
--
v_errormsg := 'Leverancier ongeldig';
v_prs_bedrijf_naam := TRIM (v_prs_bedrijf_naam);
@@ -9144,6 +9177,7 @@ BEGIN
voltage,
apkplicht,
categorie,
cnt_contract_nummer_intern,
prs_bedrijf_naam,
ins_srtcontrole_omschrijving,
ins_deelsrtcontrole_datum,
@@ -9165,6 +9199,7 @@ BEGIN
v_voltage,
v_apkplicht,
v_categorie,
v_cnt_contract_nummer_intern,
v_prs_bedrijf_naam,
v_ins_srtcontrole_oms,
v_ins_controle_datum_d,
@@ -9245,7 +9280,7 @@ EXCEPTION
END conn_import_inspectieobj;
/
/* Formatted on 30-6-2011 15:45:15 (QP5 v5.115.810.9015) */
/* Formatted on 3-2-2012 11:18:55 (QP5 v5.115.810.9015) */
CREATE OR REPLACE PROCEDURE conn_update_inspectieobj (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2
@@ -9602,7 +9637,39 @@ AS
AS
CURSOR c1
IS
SELECT ins_discipline_omschrijving,
SELECT obj.ins_discipline_omschrijving,
obj.ins_srtgroep_omschrijving,
obj.ins_srtdeel_omschrijving,
obj.ins_deel_omschrijving,
obj.merk,
obj.TYPE,
obj.hoogte,
obj.belasting,
obj.bereik,
obj.voltage,
DECODE (UPPER (obj.apkplicht), 'JA', 129, 'NEE', 130, -1)
apkplicht,
obj.categorie,
obj.alg_locatie_code,
obj.alg_ruimte_nr, -- CONN#21887/Relevant igv. nieuwe objecten!
obj.cnt_contract_nummer_intern,
obj.ins_srtcontrole_omschrijving,
obj.ins_deelsrtcontrole_datum,
DECODE (
COALESCE (cb.prs_bedrijf_naam, obj.prs_bedrijf_naam),
NULL,
obj.ins_deelsrtcontrole_opmerking,
COALESCE (cb.prs_bedrijf_naam, obj.prs_bedrijf_naam)
|| ':'
|| CHR (13)
|| CHR (10)
|| COALESCE (obj.ins_deelsrtcontrole_opmerking, '-')
)
ins_deelsrtcontrole_opmerking,
DECODE (UPPER (obj.afgekeurd), 'JA', 129, 'NEE', 130, -1)
afgekeurd,
cb.cnt_contract_key
FROM (SELECT ins_discipline_omschrijving,
ins_srtgroep_omschrijving,
ins_srtdeel_omschrijving,
ins_deel_omschrijving,
@@ -9612,34 +9679,37 @@ AS
belasting,
bereik,
voltage,
DECODE (UPPER (apkplicht),
'JA', 129,
'NEE', 130,
-1)
apkplicht,
categorie,
alg_locatie_code,
alg_ruimte_nr, -- CONN#21887/Relevant igv. nieuwe objecten!
prs_bedrijf_naam, -- Wordt nog niets mee gedaan!
cnt_contract_nummer_intern, -- Per CONN#22359!
prs_bedrijf_naam,
ins_srtcontrole_omschrijving,
ins_deelsrtcontrole_datum,
DECODE (
prs_bedrijf_naam,
NULL,
ins_deelsrtcontrole_opmerking,
prs_bedrijf_naam
|| ':'
|| CHR (13)
|| CHR (10)
|| COALESCE (ins_deelsrtcontrole_opmerking, '-')
)
ins_deelsrtcontrole_opmerking,
DECODE (UPPER (afgekeurd),
'JA', 129,
'NEE', 130,
-1)
afgekeurd
FROM conn_imp_inspectieobj;
FROM conn_imp_inspectieobj) obj
LEFT JOIN
(SELECT c.cnt_contract_nummer_intern,
b.prs_bedrijf_naam,
c.cnt_contract_key,
b.prs_bedrijf_key
FROM cnt_contract c,
ins_tab_discipline td,
cnt_disc_params dp,
prs_bedrijf b
WHERE c.cnt_contract_verwijder IS NULL
AND c.ins_discipline_key =
td.ins_discipline_key
AND td.ins_discipline_verwijder IS NULL
AND td.ins_discipline_key =
dp.cnt_ins_discipline_key
AND dp.cnt_srtcontract_type = 3 -- Ondersteuning/Support
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key)
cb
ON obj.cnt_contract_nummer_intern =
cb.cnt_contract_nummer_intern;
v_errormsg VARCHAR2 (1024);
c_ruimte_nr VARCHAR2 (10) := 'WERKPLAATS';
@@ -10717,6 +10787,44 @@ AS
v_count_cupdate := v_count_cupdate + 1;
END IF;
-- Uitbreiden contract-object-scope als contractnummer voorkomt in
-- importbestand (ie. cnt_contract_key kon worden bepaald) en deze
-- relatie nog niet bestaat!
IF (rec.cnt_contract_key IS NOT NULL)
THEN
v_errormsg := 'Fout bij bepalen contract-object-relatie';
SELECT COUNT ( * )
INTO ccount
FROM cnt_contract_object
WHERE cnt_contract_object_verwijder IS NULL
AND cnt_contract_key = rec.cnt_contract_key
AND cnt_ins_srtdeel_key = v_srtdeel_key;
IF ccount = 0
THEN
v_errormsg := 'Fout bij toevoegen contract-object-scope';
INSERT INTO cnt_contract_object (
cnt_contract_key,
cnt_ins_srtdeel_key
)
VALUES (rec.cnt_contract_key, v_srtdeel_key);
fac.imp_writelog (
p_applname,
p_applrun,
'I',
'INS-Objecten/contractscope uitgebreid: '
|| rec.cnt_contract_nummer_intern
|| ' plus '
|| rec.ins_srtdeel_omschrijving,
''
);
COMMIT;
END IF;
END IF;
EXCEPTION
WHEN OTHERS
THEN
@@ -10790,7 +10898,7 @@ END conn_update_inspectieobj;
BEGIN fac.registercustversion('CONN', 49); END;
/
BEGIN adm.systrackscript('$Workfile: conn.sql $', '$Revision: 179 $', 0); END;
BEGIN adm.systrackscript('$Workfile: conn.sql $', '$Revision: 180 $', 0); END;
/
COMMIT;