Files
open-insight/LSL2/OIEVENT/MENU/COMPANY.MENU.SEND_MESSAGE.LSL_MESSAGE_W%002FATTACHMENT.json
2024-03-25 15:12:53 -07:00

11 lines
946 B
JSON

{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nCoNo = .co_no->text\r\nif CoNo then\r\n if rowexists( 'COMPANY', CoNo ) 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 RetVal = dialog_box( 'NOTES_ATTACH', @window, 'COMPANY*':CoNo:'*':Qbf )\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this company 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 company present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
}
}
}