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

Alarm trigger with NICA_ORDERS table

Browse Source 
solution tested and ready for deployment

updated SRP_Git_Services to handle creating local copies of inherited entities

updated HgCV OCAP order trigger to also look for active prove-in orders

moved error services common into sysprog to avoid compilation issues
This commit is contained in:
Infineon\StieberD
2024-12-12 13:24:48 -07:00
parent 3cd56295dc
commit ab8f9d3c24
24 changed files with 3167 additions and 1571 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
SYSPROG/STPROC/SRP_GIT_SERVICES.txt
View File

@ -468,15 +468,23 @@ Service PullEntities(EntityList, StatusList, StatusCtrl, CommitId)
If Get_Status(ErrCode) then
SRP_Git_Services("SendStatus", StatusCtrl, " -- Save Failed\n Locked!\n", "", LogPos)
end else
Set_Status(0)
Repository("WRITE", EntityId, "", 1, 1, "", "", "", "", "", EntityId[-1, "B*"], Record)
If Get_Status(ErrCode) then
SRP_Git_Services("SendStatus", StatusCtrl, " -- Save Failed\n", ErrCode, LogPos)
end else
SRP_Git_Services("SendStatus", StatusCtrl, " -- Saved\n", "", LogPos)
Get_Status(ErrCode)
If Type EQ "STPROC" OR Type EQ "OIWIN" OR Type EQ "OIEVENT" then EntitiesToCompile := EntityId:@FM
end
Set_Status(0)
Repository("WRITE", EntityId, "", 1, 1, "", "", "", "", "", EntityId[-1, "B*"], Record)
If Get_Status(ErrCode) then
Set_Status(0)
Repository("NEW", EntityId, "", 1, 1, "", "", "", "", "", EntityId[-1, "B*"], Record)
If Get_Status(ErrCode) then
SRP_Git_Services("SendStatus", StatusCtrl, " -- Save Failed\n", ErrCode, LogPos)
end else
SRP_Git_Services("SendStatus", StatusCtrl, " -- Saved\n", "", LogPos)
Get_Status(ErrCode)
If Type EQ "STPROC" OR Type EQ "OIWIN" OR Type EQ "OIEVENT" then EntitiesToCompile := EntityId:@FM
end
end else
SRP_Git_Services("SendStatus", StatusCtrl, " -- Saved\n", "", LogPos)
Get_Status(ErrCode)
If Type EQ "STPROC" OR Type EQ "OIWIN" OR Type EQ "OIEVENT" then EntitiesToCompile := EntityId:@FM
end
Set_Status(0)
Repository("UNLOCK", EntityId)
end