added remaining LSL2 entities
This commit is contained in:
11
LSL2/OIEVENT/OPTIONS/QUOTE_OLD.NAME_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/QUOTE_OLD.NAME_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "$insert msg_equates\r\ndeclare function msg, key_sort\r\ndeclare subroutine make.list\r\n\r\nCustNo = .cust_no->text\r\nNameKeys = xlate( 'COMPANY', CustNo, 'NAME_KEYS', 'X' )\r\nif NameKeys then\r\n convert @vm to @fm in NameKeys\r\n NameKeys = key_sort( NameKeys, 'NAMES', 'LAST_FIRST', 1, '', '' )\r\n make.list( 0, NameKeys, '', '' )\r\n return 1\r\nend else\r\n MsgText = ''\r\n MsgText<mtext$> = 'There are no names defined for ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgText<micon$> = '!'\t\r\n Void = msg( '', MsgText ) \r\n return 0\r\nend\r\n"
|
||||
}
|
||||
}
|
||||
}
|
Reference in New Issue
Block a user