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

Removed second RDS lock message. Removed unused control on reactor maintenance report form.

Browse Source
This commit is contained in:
Infineon\StieberD
2025-04-16 11:07:57 -07:00
parent 333cf0b8e2
commit 6575d73001
3 changed files with 576 additions and 910 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
LSL2/STPROC/COMM_RDS.txt
View File

@ -1285,33 +1285,6 @@ FirstRefresh:
* * * * * * *
RDSNo = Get_Property(@WINDOW:'.RDS_NO','TEXT')
RecordLocked = Database_Services('IsKeyIDLocked', 'RDS', RDSNo)
SelfLocked = Database_Services('IsKeyIDSelfLocked', 'RDS', RDSNo)
Open 'RDS' to hRDS then
If SelfLocked then
WriteV @User4 on hRDS, RDSNo, RDS_LOCKED_BY$ else
Null
end
WriteV @Station on hRDS, RDSNo, RDS_LOCKED_BY_STATION$ else
Null
end
end
If RecordLocked and Not(SelfLocked) then
ReadV LockHolder from hRDS, RDSNo, RDS_LOCKED_BY$ then
ReadV StationName from hRDS, RDSNo, RDS_LOCKED_BY_STATION$ then
If StationName NE '' then
StationLoc = Xlate('LSL_CLIENTS', StationName, 'LOCATION', 'X')
end else
StationName = 'Unknown'
StationLoc = 'Unknown'
end
DisplayName = Oconv(LockHolder,'[XLATE_CONV,LSL_USERS*FIRST_LAST]')
Message = 'This record is currently locked by ':DisplayName:' from location ':StationLoc:'.'
Msg(@Window, Message)
end
end
end
end
OverGrowRequired = Get_Property(@WINDOW:'.OVERGROW_REQ','CHECK')
@ -2884,16 +2857,6 @@ return
Close:
* * * * * * * *
RDSNo = Get_Property(@WINDOW:'.RDS_NO','TEXT')
Open 'RDS' to hRDS then
ReadV LockHolder from hRDS, RDSNo, RDS_LOCKED_BY$ then
If LockHolder EQ @User4 then
WriteV '' on hRDS, RDSNo, RDS_LOCKED_BY$ else
Null
end
end
end
end
return
@ -2953,3 +2916,4 @@ RefreshWaferCounterData:
return