phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Second fix for FILE_TRANSMISSION.

Browse Source
This commit is contained in:
Infineon\Mitchem 2024-12-05 09:40:52 -07:00
parent 53c9125d73
commit 85ef53e1fd
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
LSL2/STPROC/FTP_SERVICES.txt
View File

@ -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 FTP_Services, Memory_Services, Logging_Services, SRP_Path, SRP_Decode, RTI_CreateGUID
Declare function Environment_Services, Database_Services, Utility, SRP_Run_Command 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 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' LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\FTP'
LogDate = Oconv(Date(), 'D4/') LogDate = Oconv(Date(), 'D4/')
@ -710,6 +710,7 @@ Service ProcessRequest(FTPRequestID)
If Error_Services('NoError') then If Error_Services('NoError') then
Result = 'Success' Result = 'Success'
Shipment_Services('ClearMONACritical', 'FILE_TRANSMISSION')
If (ProcessDirectory NE '') AND (LocalFile NE '') then If (ProcessDirectory NE '') AND (LocalFile NE '') then
// Move the local file to the process directory. // Move the local file to the process directory.
ProcessFile = SRP_Path('Combine', ProcessDirectory, SRP_Path('GetFilename', LocalFile)) ProcessFile = SRP_Path('Combine', ProcessDirectory, SRP_Path('GetFilename', LocalFile))
@ -726,6 +727,7 @@ Service ProcessRequest(FTPRequestID)
end end
end else end else
Result = Error_Services('GetMessage') Result = Error_Services('GetMessage')
Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', Result)
Recipients = XLATE('NOTIFICATION','COC_DELIVERY',NOTIFICATION_USER_ID$,'X') Recipients = XLATE('NOTIFICATION','COC_DELIVERY',NOTIFICATION_USER_ID$,'X')
SendFrom = 'System' SendFrom = 'System'
Subject = 'COC FTP Delivery Failue.' Subject = 'COC FTP Delivery Failue.'
@ -896,3 +898,4 @@ LsToMls:
return return