11 lines
693 B
JSON
11 lines
693 B
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare subroutine forward_event\r\ndeclare function editcell\r\nforward_event( NextColumn, NextRow )\r\nCurRow = .customer_info->rowdata\r\nCurRow<1,2> = oconv( CurRow<1,1>, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n.customer_info->rowdata = CurRow\r\nif NextColumn = 2 then\r\n NextRow += 1\r\n NextColumn = 1\r\n .customer_info->selpos = NextColumn:@fm:NextRow\r\nend\r\nif get_property( @window, '@JustClicked' ) then\r\n Void = editcell( CtrlEntId, '' )\r\n Void = set_property( @window, '@JustClicked' )\r\nend\r\nreturn 0\r\n"
|
|
}
|
|
}
|
|
} |