11 lines
738 B
JSON
11 lines
738 B
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare subroutine forward_event\r\ndeclare function set_eventstatus, get_eventstatus\r\n$insert quote_equ\r\n\r\nVoid = set_eventstatus(0)\r\nforward_event( NextColumn, NextRow )\r\nStat= get_eventstatus()\r\nif Stat = 0 then\r\n\tarrayinfo = .order_detail->array\r\n\tQuotes_Id = arrayinfo<1,1> \r\n\tIf .Name_No->text = '' Then\r\n\t * XLATE THE NAME_NO OUT OF THE QUOTE TABLE AND PUT IN .NAME_NO\r\n\t .Name_No->text = xlate( 'QUOTE', Quotes_Id, quote_name_no$, 'X' )\r\n\t .contact_name->text = xlate( 'QUOTE', Quotes_Id, 'CONTACT_NAME', 'X' )\r\n\tEnd\r\nend\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |