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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
LSL2/OIEVENT/CHANGED/REACTOR_LOG_SRPT1.REACTORSECTIONS.json
View File

@ -1,11 +0,0 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function scroll_enable, send_message\r\n\r\nequ EditTableInsDel$ to 4 ;* ALLOW ROW INSERTION AND/OR DELETION FOR EDITTABLE STYLE\r\nequ Protected$ to 8 ;* AS DOCUMENTED IN THE COLSYTLE MESSAGE IN HELP\r\nequ ReadOnly$ to 2048 ;* FIGURED THIS OUT BY SETTING THE STYLE IN THE WINDOW THEN DEBUGGING\r\n\r\nSectionNo = NewData[1,1]\r\n\r\nIf SectionNo Then \r\n X = XLATE(\"CONFIG\",\"REACTOR_SELECTIONS\",SectionNo,\"X\")\t \t\r\n Treactors = .reactors->array\r\n Treactors<1> = X\r\n .reactors->array = Treactors\r\n *Void = scroll_enable( '', @window:'.REACTORS' )\r\nend\r\n* WILL LOOK INTO THIS LATER IDEA IS TO REENABLE THE REACTORS CONTROL Later Dude! \r\n*end else\r\n* ThisEditTable = @window:'.REACTORS'\r\n* Styles = send_message( ThisEditTable, \"COLSTYLE\", 0, '' )\r\n* Styles<1> = bitand( Styles<1>, Protected$ )\r\n* Void = send_message( ThisEditTable, \"COLSTYLE\", 0, Styles )\r\n* Style = get_property( ThisEditTable, \"STYLE\" )\r\n* if Style[1,2] _eqc \"0x\" then\r\n* convert @lower_case to @upper_case in Style\r\n*\t Style = iconv( Style[3,999], 'MX' )\r\n* end\r\n* Style = bitor( Style, EditTableInsDel$ )\r\n* Void = set_property( ThisEditTable, 'STYLE', Style ) \r\n* .reactors->array = @vm:@vm\r\n* *.reactors->enabled = 1 \r\nRETURN 0"
}
}
}

1437
LSL2/OIWIN/REACTOR_LOG_SRPT1.json
View File

File diff suppressed because it is too large Load Diff

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