Removed second RDS lock message. Removed unused control on reactor maintenance report form.
This commit is contained in:
@ -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"
|
||||
}
|
||||
}
|
||||
}
|
Reference in New Issue
Block a user