From 85ef53e1fdad5c1afeb35d4ddf584c2f663dc4a5 Mon Sep 17 00:00:00 2001 From: "Infineon\\Mitchem" Date: Thu, 5 Dec 2024 09:40:52 -0700 Subject: [PATCH] Second fix for FILE_TRANSMISSION. --- LSL2/STPROC/FTP_SERVICES.txt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/LSL2/STPROC/FTP_SERVICES.txt b/LSL2/STPROC/FTP_SERVICES.txt index 32eda0d..9a0108c 100644 --- a/LSL2/STPROC/FTP_SERVICES.txt +++ b/LSL2/STPROC/FTP_SERVICES.txt @@ -37,7 +37,7 @@ Equ Tab$ to Char(9) Declare function FTP_Services, Memory_Services, Logging_Services, SRP_Path, SRP_Decode, RTI_CreateGUID Declare function Environment_Services, Database_Services, Utility, SRP_Run_Command Declare subroutine FTP_Services, Memory_Services, Logging_Services, SRP_Run_Command, GetTempPath, GetTempFileName -Declare subroutine Database_Services, RList, Obj_Notes +Declare subroutine Database_Services, RList, Obj_Notes, Shipment_Services LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\FTP' LogDate = Oconv(Date(), 'D4/') @@ -710,6 +710,7 @@ Service ProcessRequest(FTPRequestID) If Error_Services('NoError') then Result = 'Success' + Shipment_Services('ClearMONACritical', 'FILE_TRANSMISSION') If (ProcessDirectory NE '') AND (LocalFile NE '') then // Move the local file to the process directory. ProcessFile = SRP_Path('Combine', ProcessDirectory, SRP_Path('GetFilename', LocalFile)) @@ -726,6 +727,7 @@ Service ProcessRequest(FTPRequestID) end end else Result = Error_Services('GetMessage') + Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', Result) Recipients = XLATE('NOTIFICATION','COC_DELIVERY',NOTIFICATION_USER_ID$,'X') SendFrom = 'System' Subject = 'COC FTP Delivery Failue.' @@ -896,3 +898,4 @@ LsToMls: return +