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

added remaining LSL2 entities

Browse Source
This commit is contained in:
Infineon\StieberD
2024-03-25 15:12:53 -07:00
parent 15b25a611c
commit 81e4baccb1
4474 changed files with 99825 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
LSL2/OIEVENT/MENU/RDS.MENU.SEND_MESSAGE.MESSAGE_W%002FATTACHMENT.json Normal file
View File

@ -0,0 +1,11 @@
{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box, NextKey\r\nDECLARE SUBROUTINE obj_AppWindow\r\n\r\n$insert msg_equates\r\n\r\nRdsNo = .rds_no->text\r\nif RdsNo then\r\n if rowexists( 'RDS', RdsNo ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n convert @fm to @vm in Qbf\r\n end else\r\n Qbf = ''\r\n end\r\n \r\n NoteID = NextKey('NOTES')\r\n obj_AppWindow('ViewRelated','NOTE_MESSAGE':@RM:NoteID:@RM:'RDS':@FM:RdsNo)\r\n \r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this run data sheet first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must have a run data sheet present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0"
}
}
}