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

12
LSL2/STPROC/OBJ_POST_LOG.txt
View File

@ -44,9 +44,11 @@ LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
IsProd = Environment_Services('IsProd')
If IsProd EQ True$ then
MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_OBJPOSTLOG'
MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_OBJPOSTLOG'
MonaInboundResource = 'GRP_OPENINSIGHT_MES_OP_FE_SAP_INBOUND'
end else
MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_DEV_OBJPOSTLOG'
MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_DEV_OBJPOSTLOG'
MonaInboundResource = 'GRP_OPENINSIGHT_MES_OP_FE_DEV_SAP_INBOUND'
end
ErrTitle = 'Error in Stored Procedure "obj_Post_Log"'
@ -145,7 +147,7 @@ Post:
RETURN
END
If @RecCount EQ 0 then Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_INBOUND', 'SetSAPBatchQueue', 'ok')
If @RecCount EQ 0 then Mona_Services('PostStatus', MonaInboundResource, 'SetSAPBatchQueue', 'ok')
Done = 0
LOOP
READNEXT PostLogKey USING CursorVar ELSE Done = 1
@ -170,9 +172,9 @@ Post:
If (Field(PostLogKey, '*', 2)) LT AllowedTime then
Resp = Database_Services('UnlockKeyID', 'WO_MAT', PostLogRec<POST_LOG_REC_KEY1$>)
If Resp NE False$ then
Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_INBOUND', 'SetSAPBatchQueue', 'ok')
Mona_Services('PostStatus', MonaInboundResource, 'SetSAPBatchQueue', 'ok')
end else
Mona_Services('PostStatus', 'GRP_OPENINSIGHT_MES_OP_FE_SAP_INBOUND', 'SetSAPBatchQueue', 'critical')
Mona_Services('PostStatus', MonaInboundResource, 'SetSAPBatchQueue', 'critical')
LogData = ''
LogData<1> = LoggingDTM
LogData<2> = TableKey