11 lines
1.0 KiB
JSON
11 lines
1.0 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function get_property, rowexists, msg, dialog_box, NextKey\r\nDECLARE SUBROUTINE obj_AppWindow\r\n$insert msg_equates\r\n\r\nICARId = .icar_ref_id->text\r\nif ICARId then\r\n if rowexists( 'ICAR', ICARId ) then\r\n Qbf = get_property( @window, 'QBFLIST' )\r\n if Qbf then\r\n\t\t\tconvert @fm to @vm in Qbf\r\n end else\r\n\t\t\tQbf = ''\r\n\t\tend\r\n \r\n NoteID = NextKey('NOTES')\r\n obj_AppWindow('ViewRelated','NOTE_MESSAGE':@RM:NoteID:@RM:'ICAR':@FM:ICARId)\r\n \r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must save this ICAR 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 ICAR present...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |