11 lines
2.0 KiB
JSON
11 lines
2.0 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function relational_call, start_window, msg, entid, repository\r\ndeclare function key_sort, send_event, rowexists\r\ndeclare subroutine make.list\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_equ\r\n\r\nSelpos = .invoice_detail->selpos\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\nSelpos = .order_detail->selpos\r\nColData = get_property( @window:'.INVOICE_DETAIL', 'COLDATA' )\r\nbegin case\r\n case Column = 2 ;* quote\r\n Quotes = .invoice_detail->array<2>\r\n \tPopupId = entid( @appid<1>, 'POPUP', '', 'INVOICE_GOTO_QUOTE' )\r\n\t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\tif ChoosenRow then\r\n\t\t\tif ChoosenRow = 1 then ;* view current\r\n\t\t\t Keys = Quotes<1,Row>\r\n\t end else\r\n\t if ChoosenRow = 2 then ;* all\r\n\t Keys = Quotes\r\n\t end\r\n\t end\r\n\t Void = start_window( 'QUOTE', @window, Keys, '', '' )\r\n end\r\n case Column = 3 ;* schedule\r\n Schedules = .invoice_detail->array<3>\r\n \tPopupId = entid( @appid<1>, 'POPUP', '', 'INVOICE_GOTO_SCHED' )\r\n\t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\tif ChoosenRow then\r\n\t\t\tif ChoosenRow = 1 then ;* view current\r\n\t\t\t Keys = Schedules<1,Row>\r\n\t end else\r\n\t if ChoosenRow = 2 then ;* all\r\n\t Keys = Schedules\r\n\t end\r\n\t end\r\n\t Void = start_window( 'SCHEDULE', @window, Keys, '', '' )\r\n end\r\n case Column = 7 ;* GL Account\r\n PopupId = entid( @appid<1>, 'POPUP', '', 'GL_ACCTS_MESA' ) \r\n\t ChoosenAcct = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\tif ChoosenAcct then\r\n\t\t ColData<1,Row> = ChoosenAcct\r\n\t\t .invoice_detail->coldata = ColData\r\n end\r\n case Otherwise$\r\nend case\r\nRETURN 0\r\n\r\n"
|
|
}
|
|
}
|
|
} |