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

MNNL#72704 ServiceNow-koppeling/Versie 2.0

Browse Source 
svn path=/Customer/trunk/; revision=59416
This commit is contained in:
Maarten van der Heide
2023-03-02 16:10:20 +00:00
parent 39ae544caa
commit 977aa00c53
1 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
MNNL/mnnl.sql
View File

@@ -6501,7 +6501,8 @@ AS
COALESCE (o.mld_opdr_externsyncdate, TRUNC (SYSDATE)))
GROUP BY '[' || TO_CHAR (mld_melding_key) || '/' || TO_CHAR (mld_opdr_bedrijfopdr_volgnr) || '] ',
mld_opdr_key,
COALESCE (syncdate_old, TRUNC (SYSDATE));
COALESCE (syncdate_old, TRUNC (SYSDATE))
ORDER BY 1;
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
@@ -6512,12 +6513,13 @@ AS
v_kenmerkopdr_key NUMBER(10);
BEGIN
v_count := 0;
v_errormsg := 'Fout sync-en opdracht(en)';
-- Sync-en wijziging(en)!
FOR rec IN c_sync
LOOP
BEGIN
v_errormsg := 'Fout sync-en wijziging(en)';
v_errormsg := 'Fout bijwerken notitie(s)';
-- TRUC: Zet wijzigdatum van te notificeren notities op syncdate_new!
-- Bij 1 notitie zal gelden syncdate_new = wijzigdatum (en wijzigt er
@@ -6531,6 +6533,8 @@ BEGIN
-- vullen 'Laatst heropend'-kenmerk!
IF SUBSTR (rec.actie, 1, 1) = '2' -- Reopen (incl. evt. Notities)
THEN
v_errormsg := 'Fout verwijderen Klant niet akkoord';
DELETE FROM mld_kenmerkopdr
WHERE mld_kenmerk_key IN (5921, 5925) -- Klant niet akkoord (5925=TEST-opdrachttype)
AND mld_opdr_key = rec.mld_opdr_key;
@@ -6541,6 +6545,8 @@ BEGIN
WHERE mld_kenmerk_key IN (5922, 5926) -- Laatst heropend (5926=TEST-opdrachttype)
AND mld_opdr_key = rec.mld_opdr_key;
v_errormsg := 'Fout bijwerken Laatst heropend';
IF v_exist = 0
THEN
--INSERT INTO mld_kenmerkopdr (mld_kenmerk_key,
@@ -6578,6 +6584,8 @@ BEGIN
END IF;
END IF;
v_errormsg := 'Fout bijwerken opdracht';
UPDATE mld_opdr
SET mld_opdr_teverzenden = 2,
mld_opdr_verzonden = NULL,
@@ -6585,10 +6593,13 @@ BEGIN
mld_opdr_externsyncdate = rec.syncdate_new
WHERE mld_opdr_key = rec.mld_opdr_key;
v_errormsg := 'Fout bijwerken tracking';
fac.trackaction ('ORDUPD', rec.mld_opdr_key, NULL, NULL, SUBSTR (rec.actie, 2));
COMMIT;
v_count := v_count + 1;
v_errormsg := 'Done sync-en opdracht(en)';
EXCEPTION
WHEN OTHERS
THEN
@@ -6600,7 +6611,7 @@ BEGIN
END;
END LOOP;
fac.writelog (p_applname, 'S', 'Opdrachten/#sync: ' || TO_CHAR (v_count), '');
fac.writelog (p_applname, 'S', 'Opdrachten/#sync: ' || TO_CHAR (v_count), v_errormsg);
EXCEPTION
WHEN OTHERS
THEN