11 lines
8.4 KiB
JSON
11 lines
8.4 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare subroutine rlist, set_list_box_data, security_err_msg\r\ndeclare function send_event, set_property, end_window, security_check, rowexists\r\ndeclare function center_window, fieldcount, post_event, msg, next_mesa_invoice_key\r\n$insert logical\r\n$insert company_equ\r\n$insert order_equ\r\n$insert invoice_equ\r\n$insert security_rights_equ\r\n$insert rlist_equates\r\n$insert lsl_common\r\n$insert msg_equates\r\n$insert quote_equ\r\n$insert quote_spec_equ\r\n$insert prod_spec_equ\r\nequ CrLf$ to char(13):char(10)\r\nequ PSN$ to 15\r\n\r\nReadOk = true$\r\nVoid = set_property( @window, '@CalledFromOrder', '' )\r\nVoid = set_property( @window, '@AutoCreate', 0 )\r\nif index( CreateParam, 'CENTER', 1 ) or index( CreateParam, 'CREATE', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\nVoid = set_property( @window, '@OrigInvoiceDetail', '' )\r\nVoid = set_property( @window, '@RecToUse', '' )\r\nKeys = field( CreateParam, '*', 1 )\r\nif Keys then\r\n if fieldcount( Keys, @vm ) > 1 then\r\n\t * need to send to qbf\r\n\t convert @vm to @fm in Keys\r\n\t Void = set_property( @window, 'QBFLIST', Keys ) \r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .invoice_no->text = Keys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .invoice_no->text = Keys\r\n Void = send_event( @window:'.INVOICE_NO', 'LOSTFOCUS', '' )\r\n end\r\n gosub CheckRead\r\n if ReadOk else\r\n Void = end_window( @window, '' )\r\n return 0\r\n end\r\nend else\r\n gosub CheckRead\r\n if ReadOk then\r\n\t if field( CreateParam, '*', 2 ) = 'CREATE' then\r\n\t * called from invoice load the information\r\n\t Void = set_property( @window, '@CalledFromOrder', 1 )\r\n\t OrderKey = field( CreateParam, '*', 3 )\r\n\t LineItems = field( CreateParam, '*', 4 )\r\n\t \tShipNo = field( CreateParam, '*',5)\t\t\t;* Added 2/28/2005 JCH\r\n \r\n Void = send_event( @window:'.INVOICE_NO', 'GOTFOCUS' )\r\n Void = set_property( @window, '@AutoCreate', 1 )\r\n Void = send_event( @window:'.INVOICE_NO', 'LOSTFOCUS' )\r\n Void = set_property( @window, '@AutoCreate', 0 )\r\n\t \t \r\n\t \r\n\t void = post_event( @window:'.SHIP_DATE', 'GOTFOCUS', '' )\r\n\t void = set_property( @window:'.SHIP_DATE', 'FOCUS', 1 )\r\n\t OrderRec = xlate( 'ORDER', OrderKey, '', 'X' )\r\n\t Controls = 'BILL_TO_ADDR/SHIP_TO_ADDR/BILL_TO_COMPANY/SHIP_TO_COMPANY/'\r\n\t Controls:= 'ORDER_NO/PO/CUST_NO/BILL_TO_ATTN/'\r\n\t Controls:= 'BILL_TO_CITY/BILL_TO_STATE/BILL_TO_ZIP/SHIP_TO_ATTN/'\r\n\t Controls:= 'SHIP_TO_CITY/SHIP_TO_STATE/SHIP_TO_ZIP/'\r\n\t Controls:= 'SHIPPERINFO/ACCOUNT_NO/CUST_INVOICE_NOTES/TERMS'\r\n\t swap '/' with @rm:@window:'.' in Controls\r\n\t Controls = @window:'.':Controls\r\n\t BillToAddr = OrderRec<order_bill_to_address$>\r\n\t ShipToAddr = OrderRec<order_ship_to_address$>\r\n\t if BillToAddr else\r\n\t BillToAddr = @vm\r\n\t end\r\n\t if ShipToAddr else\r\n\t ShipToAddr = @vm\r\n\t end\r\n\t InvNotes = OrderRec<order_invoice_notes$>\r\n\t swap @tm with CrLf$ in InvNotes\r\n\t ValsToLoad = BillToAddr:@rm:ShipToAddr:@rm\r\n\t ValsToLoad:= OrderRec<order_bill_to_company$>:@rm\r\n\t ValsToLoad:= OrderRec<order_ship_to_company$>:@rm\r\n\t ValsToLoad:= OrderKey:@rm:OrderRec<order_po$>:@rm:OrderRec<order_cust_no$>:@rm\r\n\t ValsToLoad:= OrderRec<order_bill_to_attn$>:@rm\r\n\t ValsToLoad:= OrderRec<order_bill_to_city$>:@rm:OrderRec<order_bill_to_state$>:@rm\r\n\t ValsToLoad:= OrderRec<order_bill_to_zip$>:@rm:OrderRec<order_ship_to_attn$>:@rm\r\n\t ValsToLoad:= OrderRec<order_ship_to_city$>:@rm\r\n\t ValsToLoad:= OrderRec<order_ship_to_state$>:@rm:OrderRec<order_ship_to_zip$>:@rm\r\n\t ValsToLoad:= OrderRec<order_ship_via$>:@rm:OrderRec<order_account_no$>:@rm\r\n\t ValsToLoad:= InvNotes:@rm:OrderRec<order_terms$>\r\n\t LCnt = fieldcount( LineItems, @vm )\r\n\t ArrayVar = ''\r\n\t for i = 1 to LCnt\r\n\t ThisRowNum = LineItems<1,i>\r\n\t ArrayVar<1,i> = ThisRowNum\r\n\t ArrayVar<2,i> = OrderRec<order_quote_ids$,ThisRowNum>\r\n\t ArrayVar<3,i> = OrderRec<order_schedule_ids$,ThisRowNum> \r\n\t ArrayVar<4,i> = OrderRec<order_wo$,ThisRowNum> \r\n\t ArrayVar<5,i> = OrderRec<order_part_num$,ThisRowNum> \r\n\t ArrayVar<6,i> = OrderRec<order_lot_num$,ThisRowNum> \r\n\t ArrayVar<7,i> = '' ;* gl account leave null \r\n\t ArrayVar<8,i> = oconv( OrderRec<order_setup_charge$,ThisRowNum>, 'MD2,$' )\r\n\t ArrayVar<9,i> = oconv( OrderRec<order_srp_charge$,ThisRowNum>, 'MD2,$' ) \r\n\t ArrayVar<10,i> = OrderRec<order_quantity$,ThisRowNum> \r\n\t ArrayVar<13,i> = oconv( OrderRec<order_price$,ThisRowNum>, 'MD2,$' ) \r\n\t ArrayVar<15,i> = OrderRec<order_prod_spec_ids$,ThisRowNum>\r\n\t ArrayVar<16,i> = OrderRec<order_waf_inv_ids$,ThisRowNum>\r\n\t next i\r\n\t RecToUse = ''\r\n\t RecToUse<invoice_setup_charge$> = iconv( ArrayVar<8>, 'MD2,$' )\r\n\t RecToUse<invoice_srp_charge$> = iconv( ArrayVar<9>, 'MD2,$' )\r\n\t RecToUse<invoice_quantity$> = ArrayVar<10>\r\n\t RecToUse<invoice_price$> = iconv( ArrayVar<13>, 'MD2,$' )\r\n\t RecToUse<invoice_ship_no$>\t\t = ShipNo\t\t\t\t\t\t\t\t;* 2/28/2005 JCH\r\n\t RecToUse<invoice_order_no$> = OrderKey\r\n\t RecToUse<invoice_order_line_item$> = ArrayVar<1>\r\n\t Void = set_property( @window, 'RECORD', RecToUse )\r\n\t Void = set_property( Controls, 'ARRAY':@rm:'ARRAY':@rm:'TEXT', ValsToLoad )\r\n\t .invoice_detail->array = ArrayVar\r\n\t Void = set_property( @window, '@OrigInvoiceDetail', ArrayVar )\r\n\t Void = send_event( @window:'.INVOICE_DETAIL', 'CALCULATE', 14 ) \r\n\t Void = send_event( @window:'.INVOICE_DETAIL', 'CALCULATE', 15 ) \t \r\n\t Void = send_event( @window:'.INVOICE_DETAIL', 'CALCULATE', 16 ) \t \r\n\t Void = send_event( @window:'.TOTAL_SHIP_QTY', 'CALCULATE', 1 )\r\n\t Void = send_event( @window:'.TOTAL_SHIP_AMT', 'CALCULATE', 1 )\t \r\n\t Void = send_event( @window:'.INVOICE_AMOUNT', 'CALCULATE', 1 )\t\r\n\t Void = send_event( @window:'.BALANCE', 'CALCULATE', 1 )\t\t \t \r\n\t * now load the symbollics\r\n\t Tcust = .cust_no->text\r\n\t .cust_name->text = xlate( 'COMPANY', Tcust, company_co_name$, 'X' )\r\n\t .cust_division->text = xlate( 'COMPANY', Tcust, company_division$, 'X' )\r\n\t\t\tSubInfo = xlate( 'PROD_SPEC', ArrayVar<PSN$,1>, prod_spec_spec_substrate$, 'X' )\r\n .waf_size->text = SubInfo<1,QSSubWafersize$>\r\n * NOW DETERMINE IF THE INVOICE CONTAINS SILICON GERMAINE AND IF SO GIVE A MESSAGE\r\n AllProducts = xlate( 'PROD_SPEC', OrderRec<order_prod_spec_ids$>, 'SUB_PRODUCT', 'X' )\r\n if index( AllProducts, 'SiGe', 1 ) then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'Silicon Germane is contained in one or more of the invoice lines...Please use the proper GL Codes.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo ) \r\n end\r\n\t end\r\n\tend else\r\n\t Void = end_window( @window, '' )\r\n\t return 0\r\n end\r\nend\r\nif security_check( 'Invoice', Edit$ ) else\r\n security_err_msg( 'Invoice', Edit$ )\r\nend\r\nVoid = set_property( @window, '@NoRead', 0 )\r\nVoid = set_property( @window, '@OrigInvoiceDetail', '' )\r\nRETURN 0\r\n\r\n*===========================================================================*\r\nCheckRead:\r\n\tif security_check( 'Invoice', Read$ ) then\r\n\t set_list_box_data( @window )\r\n\tend else\r\n\t security_err_msg( 'Invoice', Read$ )\r\n\t ReadOk = false$\r\n\tend\r\nreturn\r\n\r\n*===========================================================================*"
|
|
}
|
|
}
|
|
} |