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

MNNL#87614 SNOW-export/Van putOrders.bat naar MNNL_PRE_PUTORDERS (voor 2025.1 release)

Browse Source 
svn path=/Customer/trunk/; revision=68016
This commit is contained in:
Maarten van der Heide
2025-02-17 16:46:13 +00:00
parent 1048f4de11
commit a389080df9
1 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
MNNL/mnnl.sql
View File

@@ -7575,8 +7575,7 @@ END mnnl_select_nachtwerk;
-- via API) opnieuw uitgeven via orderqueue.
-- 2. Laatste sync-datum registreren, zodat eerdere wijzigingen
-- niet nogmaals worden doorgezet.
CREATE OR REPLACE PROCEDURE MNNL_SELECT_SNOW (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2)
CREATE OR REPLACE PROCEDURE MNNL_SELECT_SNOW
AS
-- Nieuwe notitie(s) sinds laatste sync!
CURSOR c_sync
@@ -7731,7 +7730,7 @@ BEGIN
v_errormsg := 'Fout bijwerken tracking';
fac.trackaction ('ORDUPD', rec.mld_opdr_key, NULL, NULL, SUBSTR (rec.actie, 2));
fac.trackaction ('ORDUPD2SNOW', rec.mld_opdr_key, NULL, NULL, SUBSTR (rec.actie, 2));
COMMIT;
v_count := v_count + 1;
@@ -7742,19 +7741,19 @@ BEGIN
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 (p_applname, 'W', rec.aanduiding || v_errormsg, '');
fac.writelog ('ORDUPD2SNOW', 'W', rec.aanduiding || v_errormsg, '');
COMMIT;
END;
END LOOP;
fac.writelog (p_applname, 'S', 'Opdrachten/#sync: ' || TO_CHAR (v_count), v_errormsg);
fac.writelog ('ORDUPD2SNOW', 'S', 'Opdrachten/#sync: ' || TO_CHAR (v_count), v_errormsg);
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname, 'E', 'SNOW-export afgebroken!', v_errormsg);
fac.writelog ('ORDUPD2SNOW', 'E', 'SNOW-export afgebroken!', v_errormsg);
END MNNL_SELECT_SNOW;
/
@@ -9652,6 +9651,13 @@ EXCEPTION
END;
/
CREATE OR REPLACE PROCEDURE MNNL_PRE_PUTORDERS
AS
BEGIN
MNNL_SELECT_SNOW;
END MNNL_PRE_PUTORDERS;
/
------ payload end ------
SET DEFINE OFF