11 lines
686 B
JSON
11 lines
686 B
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare subroutine forward_event\r\ndeclare function send_event\r\n$insert schedule_srl_equ\r\n\r\nforward_event( CtrlEntId, CtrlClassId, RowNum, RowData )\r\nRecord = get_property( @window, 'RECORD' )\r\nRecord = insert( Record, schedule_srl_sched_qty$, RowNum, 0, '' )\r\nRecord = insert( Record, schedule_srl_sched_date$, RowNum, 0, '' )\r\nVoid = set_property( @window, 'RECORD', Record )\r\nVoid = send_event( @window:'.TOT_SCHED', 'CALCULATE', 1 )\r\nVoid = send_event( @window:'.TOT_NOT_SCHED', 'CALCULATE', 1 )\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |