11 lines
752 B
JSON
11 lines
752 B
JSON
{
|
|
"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"
|
|
}
|
|
}
|
|
} |