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

CSUN#40729 -- Automatisering Facilitor koppelingen (bon PostNL / ABN AMRO)

Browse Source 
svn path=/Customer/trunk/; revision=35994
This commit is contained in:
Arthur Egberink
2017-11-14 15:52:15 +00:00
parent bf90590c24
commit c58a08830f
1 changed files with 23 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
CSUN/CSUN.sql
View File

@@ -659,16 +659,23 @@ AS
FROM mld_melding
WHERE mld_melding_key = p_key;
SELECT fac.safe_to_number (prs_kenmerklink_waarde)
INTO v_client
FROM prs_kenmerklink
WHERE prs_kenmerk_key = 1080 AND prs_link_key = v_perslid_key;
BEGIN
SELECT fac.safe_to_number (prs_kenmerklink_waarde)
INTO v_client
FROM prs_kenmerklink
WHERE prs_kenmerk_key = 1080 AND prs_link_key = v_perslid_key;
EXCEPTION WHEN NO_DATA_FOUND
THEN
v_client := NULL;
END;
IF v_locatie_key = 28581 -- Locatie key van locatie ONBEKEND
IF v_locatie_key = 28581 AND v_client IS NOT NULL -- Locatie key van locatie ONBEKEND
THEN
BEGIN
IF v_client = 462 -- pilot voor RWS
OR v_client = 241 -- Arcadis
OR v_client = 801 -- PostNL Pakket
OR v_client = 344 -- ABN Amro
THEN
SELECT alg_locatie_key
INTO v_locatie_key
@@ -821,6 +828,7 @@ AS
v_flag_on_bonote NUMBER (10);
v_from VARCHAR2 (4000);
v_body VARCHAR2 (4000);
v_locatie_code VARCHAR2 (1000); -- om te voorkomen dat we foutmeldingen krijgen als de locatie niet bepaald kan worden.
v_pos NUMBER;
v_externnr VARCHAR2 (1000);
v_omschrijving_ruimte VARCHAR2(1000);
@@ -944,6 +952,9 @@ BEGIN
|| CHR (10)
|| v_omschrijving_ruimte;
-- zoek de locatie
v_locatie_code := csun_get_html_valuepair (v_body, 'Object', 'Postcode');
v_locatie_code := SUBSTR(v_locatie_code, 8, INSTR(v_locatie_code, ' '));
END IF;
EXCEPTION
WHEN OTHERS
@@ -1249,6 +1260,12 @@ BEGIN
'Database fout - Neem contact op met uw systeembeheerder '
|| errormsg);
END CASE;
IF v_locatie_code IS NOT NULL
THEN
csun_set_kenmerk('MLD',181, mldkey, v_locatie_code, 0); -- locatie_code klant kenmerk
CSUN.mld_after_insert (mldkey);
END IF;
-- Log het binnenkomende bericht als dat nodig is.
-- IF sender = 23 THEN -- ABNAMRO
-- insert into fac_rapport (fac_rapport_node, fac_rapport_volgnr, fac_rapport_regel, fac_rapport_soort)
@@ -2059,7 +2076,7 @@ IS
WHERE alg_locatie_verwijder IS NULL
AND aogk.alg_kenmerk_key = 1160 -- vervaldatum
AND l.alg_locatie_key = aogk.alg_onrgoed_key
AND fac.safe_to_date(aogk.alg_onrgoedkenmerk_waarde, 'dd-mm-yyyy') < SYSDATE - 182;
AND fac.safe_to_date(aogk.alg_onrgoedkenmerk_waarde, 'dd-mm-yyyy') < SYSDATE - 10;
CURSOR c_rayonl
IS