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

YKPN#58281 -- Koppeling met Qyn voor KPN RES

Browse Source 
svn path=/Customer/trunk/; revision=43341
This commit is contained in:
Arthur Egberink
2019-07-12 09:58:24 +00:00
parent b7ff4ef31f
commit 8e28146efe
1 changed files with 36 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
YKPN/ykpn.sql
View File

@@ -7521,8 +7521,9 @@ AS
v_melding_key NUMBER (10);
v_kenmerk_key NUMBER (10);
v_bedrijf_key NUMBER (10);
v_typeopdr_key NUMBER (10);
v_opdr_key NUMBER (10);
v_typeopdr_key NUMBER (10);
v_statusopdr_key NUMBER (10);
v_behandelaar_key NUMBER (10);
v_behandelaar2_key NUMBER (10);
v_regexp VARCHAR2 (100);
@@ -7590,13 +7591,44 @@ BEGIN
INSERT INTO fac_rapport (fac_rapport_node, fac_rapport_volgnr, fac_rapport_regel) VALUES ('PROCESSEMAIL', 8, 'actie: '|| SUBSTR(v_actie, 1, 1900));
v_errormsg := 'Opzoeken van de opdracht';
SELECT mld_opdr_key, mld_melding_key
INTO v_opdr_key, v_melding_key
SELECT mld_opdr_key, mld_melding_key, mld_typeopdr_key, mld_statusopdr_key
INTO v_opdr_key, v_melding_key, v_typeopdr_key, v_statusopdr_key
FROM mld_opdr o, prs_contactpersoon cp
WHERE mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr = REPLACE(v_externnummer, 'R')
WHERE mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr = REGEXP_SUBSTR (v_externnummer, '[[:digit:]]{5,}/[[:digit:]]*')
AND o.mld_uitvoerende_keys = cp.prs_bedrijf_key
AND cp.prs_perslid_key = v_from_key;
IF v_statusopdr_key = 5 -- Toegekend
THEN
mld.setopdrachtstatus (v_opdr_key, 8, v_from_key); -- Geaccepteerd.
END IF;
BEGIN
SELECT mld_kenmerk_key
INTO v_kenmerk_key
FROM mld_kenmerk
WHERE mld_kenmerk_niveau = 'O'
AND mld_stdmelding_key = v_opdr_key
AND mld_srtkenmerk_key = 18; -- Ref. Nr. Leverancier
YKPN.set_kenmerk('MLD', v_kenmerk_key, v_opdr_key, v_naam, 0);
EXCEPTION WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
v_errormsg
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog ('PROCESSEMAIL',
'I',
'Ref. nr leverancier kan niet opgeslagen worden.',
v_errormsg);
END;
IF v_closed IS NULL OR v_closed = 'false'
THEN
INSERT INTO mld_opdr_note (mld_opdr_key, prs_perslid_key, mld_opdr_note_omschrijving)