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=38392
This commit is contained in:
Sander Schepers
2018-07-04 13:32:16 +00:00
parent a3b2f8d72f
commit fc12160741
1 changed files with 83 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
ASDL/asdl.sql
View File

@@ -2541,6 +2541,7 @@ IS
v_stationsmanager VARCHAR (256);
v_uitvoerjaar VARCHAR (256);
v_uitvoerweek VARCHAR (256);
v_uitvoermaand VARCHAR (256);
v_uitvoerder VARCHAR (256);
v_uitvoerdernaam VARCHAR(256);
v_serviceordernr VARCHAR (256);
@@ -2688,6 +2689,7 @@ BEGIN
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 (
@@ -2698,14 +2700,14 @@ BEGIN
END IF;
--Controle of de melding al is aangemaakt.
IF TO_NUMBER(TO_CHAR(v_uitvoerjaar, 'YYYY')||TO_CHAR(v_uitvoerweek, 'WW')) <= TO_NUMBER(TO_CHAR(SYSDATE, 'YYYY')||TO_CHAR(SYSDATE, 'WW'))+1
THEN v_ongeldig := 1;
fac.imp_writelog (
p_import_key,
'W',
v_aanduiding || 'Melding in volgende of voorgaande weken',
'Melding wordt niet ingelezen!');
END IF;
--IF TO_NUMBER(TO_CHAR(v_uitvoerjaar)||TO_CHAR(v_uitvoerweek)) <= TO_NUMBER(TO_CHAR(SYSDATE, 'YYYY')||TO_CHAR(SYSDATE, 'WW'))+1
--THEN v_ongeldig := 1;
-- fac.imp_writelog (
-- p_import_key,
-- 'W',
-- v_aanduiding || 'Melding in volgende of voorgaande weken',
-- 'Melding wordt niet ingelezen!');
--END IF;
IF LENGTH (v_serviceordernr) > 50
THEN
@@ -2763,8 +2765,9 @@ BEGIN
stationsmanager_key,
stationsmanager,
uitvoerdatum,
uitvoerjaar,
uitvoerweek,
uitvoermaand,
uitvoerjaar,
uitvoerder,
serviceordernr,
onderwerp,
@@ -2773,16 +2776,17 @@ BEGIN
v_fac_import_key,
v_fac_import_index,
SYSDATE,
v_mld_stdmelding_key,
TO_NUMBER(v_mld_stdmelding_key),
v_mld_stdmelding_oms,
v_alg_locatie_code,
v_alg_locatie_oms,
v_stationsmanager_key,
TO_NUMBER(v_stationsmanager_key),
v_stationsmanager,
next_day( to_date('04-jan-' || v_uitvoerjaar, 'dd-mm-yyyy' ) + (v_uitvoerweek-2)*7, 'maan'),
v_uitvoerjaar,
NEXT_DAY(TO_DATE('04-jan-' || v_uitvoerjaar, 'dd-mm-yyyy' ) + (v_uitvoerweek-2)*7, 'maan'),
v_uitvoerweek,
v_uitvoerder,
v_uitvoermaand,
v_uitvoerjaar,
TO_NUMBER(v_uitvoerder),
v_serviceordernr,
v_onderwerp,
v_omschrijving);
@@ -2911,6 +2915,7 @@ IS
/
CREATE OR REPLACE PROCEDURE ASDL_EXPORT_GLASBON_MELDING
(
p_applname IN VARCHAR2,
@@ -2966,6 +2971,14 @@ FOR recmld IN cmld
recmld.onderwerp)
RETURNING mld_melding_key, mld_stdmelding_key, mld_melding_datum INTO v_mld_melding_key, v_mld_stdmelding_key, v_mld_melding_datum;
INSERT INTO fac_tracking
(fac_srtnotificatie_key,
fac_tracking_refkey,
fac_tracking_oms)
VALUES (43,
v_mld_melding_key,
'Melding aangemaakt door ASDL_EXPORT_GLASBON_MELDING');
INSERT INTO mld_kenmerkmelding
(mld_melding_key,
mld_kenmerk_key,
@@ -3074,6 +3087,7 @@ END;
/
------ payload end ------
SET DEFINE OFF