11 lines
3.2 KiB
JSON
11 lines
3.2 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function set_property, rowexists, fieldcount, entid, repository\r\ndeclare subroutine yield, forward_event\r\n$insert company_equ\r\n$insert popup_equates\r\n\r\nforward_event( Flag, FocusId )\r\nif rowexists( 'ORDER', .order_no->text ) else\r\n CustNo = .cust_no->text\r\n OrigCustNo = get_property( @window, '@OrigCustNo' )\r\n CustRec = xlate( 'COMPANY', CustNo, '', 'X' )\r\n if CustNo <> OrigCustNo then\r\n\t .terms->text = xlate( 'COMPANY', CustNo, company_terms$, 'X' )\r\n\t BillShipInfo = ''\r\n\t BillShipInfo<1> = CustRec<company_bill_to_address$>\r\n\t BillShipInfo<2> = CustRec<company_ship_to_address$>\r\n\t if BillShipInfo<1> else\r\n\t BillShipInfo<1> = @vm\r\n\t end\r\n\t if BillShipInfo<2> else\r\n\t BillShipInfo<2> = @vm \r\n\t end\r\n\t BillShipInfo<3> = CustRec<company_bill_to_co$>\r\n\t BillShipInfo<4> = CustRec<company_ship_to_co$>\r\n\t BillShipInfo<5> = CustRec<company_bill_to_attn$>\r\n\t BillShipInfo<6> = CustRec<company_bill_to_city$>\r\n\t BillShipInfo<7> = CustRec<company_bill_to_state$>\r\n\t BillShipInfo<8> = CustRec<company_bill_to_zip$>\r\n\t BillShipInfo<9> = CustRec<company_ship_to_attn$>\r\n\t BillShipInfo<10> = CustRec<company_ship_to_city$>\r\n\t BillShipInfo<11> = CustRec<company_ship_to_state$>\r\n\t BillShipInfo<12> = CustRec<company_ship_to_zip$>\r\n\t BillShipInfo<13> = CustRec<company_terms$>\r\n\t BillShipInfo<14> = CustRec<company_invoice_notes$>\r\n\t convert @fm to @rm in BillShipInfo\r\n\t Controls = 'BILL_TO_ADDR/SHIP_TO_ADDR/BILL_TO_COMPANY/SHIP_TO_COMPANY/'\r\n\t Controls:= 'BILL_TO_ATTN/BILL_TO_CITY/'\r\n\t Controls:= 'BILL_TO_STATE/BILL_TO_ZIP/'\r\n\t Controls:= 'SHIP_TO_ATTN/SHIP_TO_CITY/SHIP_TO_STATE/SHIP_TO_ZIP/TERMS/'\r\n\t Controls:= 'INVOICE_NOTES'\r\n\t swap '/' with @rm:@window:'.' in Controls\r\n\t Controls = @window:'.':Controls\r\n\t Void = set_property( Controls, 'ARRAY':@rm:'ARRAY':@rm:'TEXT', BillShipInfo )\r\n\tend\r\n if .shipperinfo->text or .account_no->text else\r\n\t ShipVia = CustRec<company_shipper_info$>\r\n\t AcctNos = CustRec<company_account_no$>\r\n\t if ( fieldcount( ShipVia, @vm ) > 1 ) or ( fieldcount( AcctNos, @vm ) > 1 ) then\r\n\t * more than one show popup\r\n\t PopRec = entid( @appid<1>, 'POPUP', '', 'ORDER_SHIPPER_INFO' )\r\n\t ExpData = ''\r\n\t SvCnt = fieldcount( ShipVia, @vm )\r\n\t for i = 1 to SvCnt\r\n\t ExpData<1,-1> = ShipVia<1,i>:@svm:AcctNos<1,i>\r\n\t next i\r\n\t OverRide = ''\r\n\t OverRide<pdisplay$> = ExpData\r\n\t RetVal = repository( 'EXECUTE', PopRec, @window, OverRide )\r\n\t if RetVal then\r\n\t .shipperinfo->text = RetVal<1,1>\r\n\t .account_no->text = RetVal<1,2>\r\n\t end\r\n\t end else\r\n\t .shipperinfo->text = ShipVia\r\n\t .account_no->text = AcctNos \r\n\t end\r\n\tend\r\nend\r\nVoid = set_property( @window, '@CUST_NO', .cust_no->text )\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |