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

Deprecating old services. Refactored codebase to not use SwapResources GoSub.

Browse Source
This commit is contained in:
Infineon\StieberD
2025-07-01 14:14:04 -07:00
parent b796060529
commit c786fce37b
8 changed files with 100 additions and 2083 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
LSL2/STPROC/OBJ_SAP.txt
View File

@ -65,6 +65,15 @@ LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2]
Headers = 'Logging DTM' : @FM : 'Notes'
objSapInboundSftpLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$, True$)
IsProd = Environment_Services('IsProd')
If IsProd EQ True$ then
MonaInboundResource = 'GRP_OPENINSIGHT_MES_OP_FE_SAP_INBOUND'
MonaOutboundResource = 'GRP_OPENINSIGHT_MES_OP_FE_SAP_OUTBOUND'
end else
MonaInboundResource = 'GRP_OPENINSIGHT_MES_OP_FE_DEV_SAP_INBOUND'
MonaOutboundResource = 'GRP_OPENINSIGHT_MES_OP_FE_DEV_SAP_OUTBOUND'
end
Main:
RepoID = ''
@ -377,9 +386,9 @@ SendReconcile:
SendToGroup = 'FI_SUPPORT'
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
obj_Notes('Create',Parms)
Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_OUTBOUND', 'SFTP-Interface-Outbound', 'critical')
Mona_Services('PostStatus', 'MonaOutboundResource', 'SFTP-Interface-Outbound', 'critical')
end else
Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_OUTBOUND', 'SFTP-Interface-Outbound', 'ok')
Mona_Services('PostStatus', 'MonaOutboundResource', 'SFTP-Interface-Outbound', 'ok')
end
StopTime = Time()
@ -1108,9 +1117,9 @@ SendRecord:
SendToGroup = 'FI_SUPPORT'
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
obj_Notes('Create',Parms)
Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_OUTBOUND', 'SFTP-Interface-Outbound', 'critical')
Mona_Services('PostStatus', 'MonaOutboundResource', 'SFTP-Interface-Outbound', 'critical')
end else
Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_OUTBOUND', 'SFTP-Interface-Outbound', 'ok')
Mona_Services('PostStatus', 'MonaOutboundResource', 'SFTP-Interface-Outbound', 'ok')
end
StopTime = Time()
@ -1162,9 +1171,9 @@ ReadInbound:
SendToGroup = 'FI_SUPPORT'
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
obj_Notes('Create',Parms)
Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_INBOUND', 'SFTP-Interface-Inbound', 'critical')
Mona_Services('PostStatus', MonaInboundResource, 'SFTP-Interface-Inbound', 'critical')
end else
Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_INBOUND', 'SFTP-Interface-Inbound', 'ok')
Mona_Services('PostStatus', MonaInboundResource, 'SFTP-Interface-Inbound', 'ok')
end
StopTime = Time()
@ -1211,9 +1220,9 @@ ReadInbound:
SendToGroup = 'FI_SUPPORT'
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
obj_Notes('Create',Parms)
Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_INBOUND', 'SFTP-Interface-Inbound', 'critical')
Mona_Services('PostStatus', MonaInboundResource, 'SFTP-Interface-Inbound', 'critical')
end else
Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_INBOUND', 'SFTP-Interface-Inbound', 'ok')
Mona_Services('PostStatus', MonaInboundResource, 'SFTP-Interface-Inbound', 'ok')
end
StopTime = Time()
@ -1258,9 +1267,9 @@ ReadInbound:
SendToGroup = 'FI_SUPPORT'
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
obj_Notes('Create',Parms)
Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_INBOUND', 'SFTP-Interface-Inbound', 'critical')
Mona_Services('PostStatus', MonaInboundResource, 'SFTP-Interface-Inbound', 'critical')
end else
Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_INBOUND', 'SFTP-Interface-Inbound', 'ok')
Mona_Services('PostStatus', MonaInboundResource, 'SFTP-Interface-Inbound', 'ok')
end
StopTime = Time()
@ -1312,9 +1321,9 @@ ClearInbound:
SendToGroup = 'FI_SUPPORT'
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
obj_Notes('Create',Parms)
Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_INBOUND', 'SFTP-Interface-Inbound', 'critical')
Mona_Services('PostStatus', MonaInboundResource, 'SFTP-Interface-Inbound', 'critical')
end else
Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_INBOUND', 'SFTP-Interface-Inbound', 'ok')
Mona_Services('PostStatus', MonaInboundResource, 'SFTP-Interface-Inbound', 'ok')
end
StopTime = Time()
@ -1367,9 +1376,9 @@ DirNextSeq:
SendToGroup = 'FI_SUPPORT'
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
obj_Notes('Create',Parms)
Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_OUTBOUND', 'SFTP-Interface-Outbound', 'critical')
Mona_Services('PostStatus', 'MonaOutboundResource', 'SFTP-Interface-Outbound', 'critical')
end else
Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_OUTBOUND', 'SFTP-Interface-Outbound', 'ok')
Mona_Services('PostStatus', 'MonaOutboundResource', 'SFTP-Interface-Outbound', 'ok')
end
StopTime = Time()