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

ASDL#52274 Import glasmeldingen

Browse Source 
svn path=/Customer/trunk/; revision=38139
This commit is contained in:
Sander Schepers
2018-06-11 08:44:47 +00:00
parent c185898b16
commit 0c8be288a6
1 changed files with 64 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
ASDL/asdl.sql
View File

@@ -1,4 +1,4 @@
-- Script containing customer specific configuration sql statements for Asito Digitaal Logboek
F-- Script containing customer specific configuration sql statements for Asito Digitaal Logboek
-- $Revision$
-- $Id$
@@ -2322,7 +2322,7 @@ BEGIN
END;
END LOOP;
asdl_export_glasbon_melding;
BEGIN ASDL_EXPORT_GLASBON_MELDING('GLASBON_MELDING',SYSDATE,'-1',''); END;
END;
/
@@ -2529,6 +2529,7 @@ IS
v_count_alglocatie NUMBER :=1;
v_count_weeknr NUMBER :=1;
v_count_stationsmanager NUMBER :=1;
v_count_uitvoerder NUMBER :=1;
-- De importvelden:
v_fac_import_key VARCHAR (256);
v_fac_import_index VARCHAR (256);
@@ -2541,6 +2542,7 @@ IS
v_uitvoerjaar VARCHAR (256);
v_uitvoerweek VARCHAR (256);
v_uitvoerder VARCHAR (256);
v_uitvoerdernaam VARCHAR(256);
v_serviceordernr VARCHAR (256);
v_onderwerp VARCHAR (256);
v_omschrijving VARCHAR (256);
@@ -2588,6 +2590,7 @@ BEGIN
fac.imp_getfield (v_newline, c_fielddelimitor, v_uitvoerjaar); -- Uitvoerjaar
fac.imp_getfield (v_newline, c_fielddelimitor, v_uitvoerweek); -- Uitvoerweek
fac.imp_getfield (v_newline, c_fielddelimitor, v_uitvoerder); -- Uitvoerder
fac.imp_getfield (v_newline, c_fielddelimitor, v_uitvoerdernaam); -- Uitvoerdernaam
fac.imp_getfield (v_newline, c_fielddelimitor, v_serviceordernr); -- Nummer serviceorder
fac.imp_getfield (v_newline, c_fielddelimitor, v_onderwerp); -- Onderwerp
fac.imp_getfield (v_newline, c_fielddelimitor, v_omschrijving); -- Omschrijving
@@ -2616,12 +2619,13 @@ BEGIN
AND UPPER (v_mld_stdmelding_oms) = 'MELDINGOMSCHRIJVING'
AND UPPER (v_alg_locatie_code) = 'LOCATIECODE'
AND UPPER (v_alg_locatie_oms) = 'LOCATIE'
AND UPPER (v_stationsmanager_key) = 'SM-NR'
AND UPPER (v_stationsmanager_key) = 'SMNR'
AND UPPER (v_stationsmanager) = 'STATIONSMANAGER'
AND UPPER (v_uitvoerjaar) = 'UITVOERJAAR'
AND UPPER (v_uitvoerweek) = 'UITVOERWEEK'
AND UPPER (v_uitvoerder) = 'UITVOERDER'
AND UPPER (v_serviceordernr) = 'NUMMER SERVICEORDER' --Lengte max 50
AND UPPER (v_uitvoerdernaam) = 'UITVOERDERNAAM'
AND UPPER (v_serviceordernr) = 'SERVICEORDERNUMMER' --Lengte max 50
AND UPPER (v_onderwerp) = 'ONDERWERP' --Lengte max 80
AND UPPER (v_omschrijving) = 'OMSCHRIJVING' --Lengte max 4000
THEN
@@ -2629,9 +2633,6 @@ BEGIN
END IF;
ELSE
--NOG TE MAKEN CONTROLES:
--uitvoerdatum (datum)
--Controle of de opgegeven stdmelding wel aanwezig is
SELECT COUNT ( * )
INTO v_count_melding
@@ -2679,6 +2680,23 @@ BEGIN
'Melding wordt niet ingelezen!');
END IF;
--Controle of de opgegeven uitvoerder wel aanwezig is
SELECT COUNT ( * )
INTO v_count_uitvoerder
FROM fac_usrdata uv
WHERE uv.fac_usrdata_key = v_uitvoerder
AND uv.fac_usrtab_key = 21
AND uv.fac_usrdata_verwijder IS NULL;
IF v_count_uitvoerder = 0
THEN v_ongeldig := 1;
fac.imp_writelog (
p_import_key,
'W',
v_aanduiding || 'Uitvoerder bestaat niet',
'Melding wordt niet ingelezen!');
END IF;
IF LENGTH (v_serviceordernr) > 50
THEN
v_serviceordernr := SUBSTR (v_serviceordernr, 1, 50);
@@ -2715,6 +2733,23 @@ BEGIN
|| ']');
END IF;
IF v_uitvoerjaar <> TO_CHAR(SYSDATE, 'YYYY')
THEN v_ongeldig := 1;
fac.imp_writelog (
p_import_key,
'W',
v_aanduiding || 'Melding niet in huidig jaar',
'Melding wordt niet ingelezen!');
END IF;
IF TO_NUMBER(v_uitvoerweek) <= TO_NUMBER(TO_CHAR(SYSDATE, 'WW'))
THEN v_ongeldig := 1;
fac.imp_writelog (
p_import_key,
'W',
v_aanduiding || 'Melding in deze of voorgaande week',
'Melding wordt niet ingelezen!');
END IF;
-- Insert geformatteerde import record
IF header_is_valid = 1
@@ -2829,6 +2864,7 @@ EXCEPTION
END ASDL_IMPORT_GLASBON;
/
CREATE OR REPLACE PROCEDURE ASDL_UPDATE_GLASBON (p_import_key IN NUMBER)
IS