11 lines
2.3 KiB
JSON
11 lines
2.3 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function next_key, send_event, msg, security_check\r\ndeclare subroutine security_err_msg, delete_row\r\n$insert security_rights_equ\r\n$insert order_equ\r\n\r\nif security_check( 'Order', Write$ ) then\r\n * save off all data\r\n AllControls = utility( 'OBJECTLIST', @window, '' )\r\n convert @fm to @rm in AllControls\r\n AllData = get_property( Allcontrols, 'TEXT' )\r\n OrderDetail = .order_detail->array\r\n BillToArray = .bill_to_addr->array\r\n ShipToArray = .ship_to_addr->array\r\n RecToUse = ''\r\n RecToUse<order_setup_charge$> = iconv( OrderDetail<9>, 'MD2,$' )\r\n RecToUse<order_srp_charge$> = iconv( OrderDetail<10>, 'MD2,$' )\r\n RecToUse<order_quantity$> = OrderDetail<11>\r\n RecToUse<order_price$> = iconv( OrderDetail<12>, 'MD2,$' )\r\n OrigOrderNo = .order_no->text\r\n\tChoice = send_event( @window, 'CLEAR' )\r\n\tif Choice = '' then\r\n\t * if choice has a value then the user has canceled \r\n\t\topen 'ORDER' to OrderTableVar else\r\n\t\t Void = msg( '', 'Unable to open ORDER...' )\r\n\t\t return 0\r\n\t\tend\r\n\t\tNextOrderKey = next_key( 'ORDER', OrderTableVar, 'NEXT', '' )\r\n\t\t.order_no->text = NextOrderKey\r\n\t\tunlock OrderTableVar, NextOrderKey else\r\n\t\t Void = msg( '', 'Unable to unlock ORDER ':NextOrderKey )\r\n\t\t return 0\r\n\t\tend\r\n\t\tVoid = send_event( @window:'.ORDER_NO', 'LOSTFOCUS' )\r\n\t\tVoid = set_property( AllControls, 'TEXT', AllData )\r\n\t\t.order_no->text = NextOrderKey\r\n\t\t.entry_date->text = oconv( date(), 'D2/' )\r\n\t\t.entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t\t.status->value = 'O'\r\n\t\t.po->text = ''\r\n\t\t.close_date->text = ''\t\t\r\n\t\tOrderDetail<3> = str( @vm, 6 )\r\n\t\tVoid = set_property( @window, 'RECORD', RecToUse )\r\n\t\tOrderDetail<13> = str( @vm, 6 )\r\n \t.order_detail->array = OrderDetail\r\n .bill_to_addr->array = BillToArray\r\n .ship_to_addr->array = ShipToArray\r\n\t\tVoid = send_event( @window:'.ORDER_DETAIL', 'CALCULATE', 13 ) \t\t\r\n\t\t@@window->savewarn = 1\r\n end\r\nend else\r\n security_err_msg( 'Order', Write$ )\r\nend\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |