Files
open-insight/LSL2/OIEVENT/OPTIONS/QUOTE.QUOTE_OLD_ID.json
2024-03-25 15:12:53 -07:00

11 lines
1.4 KiB
JSON

{
"header": {
"version": 1,
"type": "record"
},
"body": {
"record1": {
"<1>": "declare function entid, repository, start_window, msg, key_sort, rowexists\r\ndeclare subroutine make.list\r\n$insert msg_equates\r\n\r\nCustNo = .cust_no->text\r\nif CustNo then\r\n * row one = call window with current key\r\n\t* row two = call window with no keys\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'QUOTE_LOOKUP_OPTS3' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tCurOldQuote = .quote_old_id->text\r\n\tif ChoosenRow = 1 then\r\n\t ;* go view current quote\r\n\t if CurOldQuote then\r\n\t RetVal = start_window( 'QUOTE_OLD', @window, CurOldQuote:'*CENTER', '', '' ) \r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t Text = 'You have not entered an old quote number...' \r\n\t\t MsgInfo<mtext$> = Text\r\n\t\t MsgInfo<micon$> = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n end\r\n end else\r\n if ChoosenRow = 2 then\r\n\t * call quote window\r\n\t\t\tRetVal = start_window( 'QUOTE_OLD', @window, '*Choosing*QUOTE', '', '' )\r\n\t\tend\r\n end \r\nend else\r\n MsgRec = ''\r\n MsgRec<mtext$> = 'You must enter a customer first...' \r\n MsgRec<micon$> = 'H'\r\n Void = msg( '', MsgRec ) \r\nend\r\nRETURN 0\r\n*===========================================================================*"
}
}
}