Files
open-insight/LSL2/OIEVENT/LOSTFOCUS/REPORT_SLIST_CFG.TABLE_NAME.json
2024-03-25 15:12:53 -07:00

11 lines
1.2 KiB
JSON

{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function msg, post_event, get_eventstatus, msg, fieldcount\r\ndeclare subroutine forward_event, rlist\r\n\r\n$insert logical\r\n$insert msg_equates\r\n$insert rlist_equates\r\n\r\nTtable = Trim(.table_name->text)\r\nIf Ttable Then\r\n Open Ttable To DataTable Else\r\n Void = msg( '', Ttable: ' is in use somewhere else...' )\r\n Void = post_event( @window:'.TABLENAME', 'GOTFOCUS' )\t \r\n End\r\n Columns = ''\r\n DictTable = 'DICT.':Ttable\r\n Cmd = \"SELECT \":DictTable:\" BY @ID WITH F1 = 'F' 'S'\"\r\n rlist( Cmd, target_activelist$, '', '', '' )\r\n if @reccount then\r\n Eof = false$\r\n loop\r\n readnext DictId else Eof = true$\r\n until Eof\r\n Columns := DictId:@vm\r\n repeat\r\n Columns[-1,1] = ''\r\n Void = set_property( @window, '@Columns', Columns )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'Error while selecting from ':DictTable\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\n\r\nRETURN 0\r\n"
}
}
}