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

Fix for FILE_TRANSMISSION not reporting OK status.

Browse Source
This commit is contained in:
Infineon\Mitchem
2024-12-05 09:17:52 -07:00
parent 7cc861619f
commit 53c9125d73
1 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
LSL2/STPROC/OBJ_SHIPMENT.txt
View File

@ -1818,6 +1818,8 @@ SendTechnical:
If Error_Services('HasError') then If Error_Services('HasError') then
ErrorMsg = Error_Services('GetMessage') ErrorMsg = Error_Services('GetMessage')
Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', ErrorMsg) Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', ErrorMsg)
end else
Shipment_Services('ClearMONACritical', 'FILE_TRANSMISSION')
end end
end else end else
LoggingErrMsg = 'Unable to send CSV COA via FTP for customer ' : CustNo : '. Shipment #': ShipNo :'. File was not found in the expected location' LoggingErrMsg = 'Unable to send CSV COA via FTP for customer ' : CustNo : '. Shipment #': ShipNo :'. File was not found in the expected location'
@ -1841,6 +1843,8 @@ SendTechnical:
If Error_Services('HasError') then If Error_Services('HasError') then
ErrorMsg = Error_Services('GetMessage') ErrorMsg = Error_Services('GetMessage')
Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', ErrorMsg) Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', ErrorMsg)
end else
Shipment_Services('ClearMONACritical', 'FILE_TRANSMISSION')
end end
end else end else
LoggingErrMsg = 'Unable to send CSV COA CDS via FTP for customer ' : CustNo : '. Shipment #': ShipNo :'. File was not found in the expected location' LoggingErrMsg = 'Unable to send CSV COA CDS via FTP for customer ' : CustNo : '. Shipment #': ShipNo :'. File was not found in the expected location'
@ -1901,6 +1905,8 @@ SendTechnical:
successful = RTI_OS_Directory("CREATE", CustPath) successful = RTI_OS_Directory("CREATE", CustPath)
If successful NE True$ then If successful NE True$ then
null null
end else
Shipment_Services('ClearMONACritical', 'FILE_TRANSMISSION')
end end
end end
DosTable = Export_IR(ShipNo, AutoFlag, CustPath) DosTable = Export_IR(ShipNo, AutoFlag, CustPath)
@ -1920,6 +1926,8 @@ SendTechnical:
If Error_Services('HasError') then If Error_Services('HasError') then
ErrorMsg = Error_Services('GetMessage') ErrorMsg = Error_Services('GetMessage')
Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', ErrorMsg) Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', ErrorMsg)
end else
Shipment_Services('ClearMONACritical', 'FILE_TRANSMISSION')
end end
end else end else
LoggingErrMsg = 'Unable to send CSV COA via FTP for customer ' : CustNo : '. Shipment #': ShipNo :'. File was not found in the expected location' LoggingErrMsg = 'Unable to send CSV COA via FTP for customer ' : CustNo : '. Shipment #': ShipNo :'. File was not found in the expected location'
@ -1985,6 +1993,8 @@ SendTechnical:
If Error_Services('HasError') then If Error_Services('HasError') then
ErrorMsg = Error_Services('GetMessage') ErrorMsg = Error_Services('GetMessage')
Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', ErrorMsg) Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', ErrorMsg)
end else
Shipment_Services('ClearMONACritical', 'FILE_TRANSMISSION')
end end
end else end else
LoggingErrMsg = 'Unable to send CSV COA via FTP for customer ' : CustNo : '. Shipment #': ShipNo :'. File was not found in the expected location' LoggingErrMsg = 'Unable to send CSV COA via FTP for customer ' : CustNo : '. Shipment #': ShipNo :'. File was not found in the expected location'
@ -2065,7 +2075,9 @@ SendTechnical:
If Error_Services('HasError') then If Error_Services('HasError') then
ErrorMsg = Error_Services('GetMessage') ErrorMsg = Error_Services('GetMessage')
Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', ErrorMsg) Shipment_Services('SetMONACritical', 'FILE_TRANSMISSION', ErrorMsg)
end end else
Shipment_Services('ClearMONACritical', 'FILE_TRANSMISSION')
end
end else end else
LoggingErrMsg = 'Unable to send CSV COA via FTP for customer ' : CustNo : '. Shipment #': ShipNo :'. File was not found in the expected location' LoggingErrMsg = 'Unable to send CSV COA via FTP for customer ' : CustNo : '. Shipment #': ShipNo :'. File was not found in the expected location'
Shipment_Services('SetMONACritical', 'FILE_GENERATION', LoggingErrMsg) Shipment_Services('SetMONACritical', 'FILE_GENERATION', LoggingErrMsg)
@ -2213,3 +2225,4 @@ RETURN