11 lines
901 B
JSON
11 lines
901 B
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function repository, entid\r\n\r\nPopupId = entid( @appid<1>, 'POPUP', '', 'RATIO_TYPES' )\r\nChosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\nRArray = ''\r\nbegin case\r\n\tcase ChosenRow = \"AP\"\r\n\t\tRArray = '35/40/86/86/86/40/40/50/30/86'\r\n\tcase ChosenRow = \"Kit 2000-PEP\"\r\n\t\tRArray = '33/33/70/70/70/60/60/60/33/70'\r\n\tcase ChosenRow = \"PEP\"\r\n\t\tRArray = '35/40/75/75/75/40/40/50/30/75'\t\r\n\tcase ChosenRow = \"RP\"\r\n\t\tRArray = '35/45/70/70/70/40/40/40/30/70'\t\r\n\tcase ChosenRow = \"DSP\"\t\t\t\r\n\t\tRArray = '45/50/86/86/86/40/40/50/30/86'\r\nend case\r\nconvert '/' to @vm in RArray\r\nif RArray <> '' then\r\n .ratio_info->array = RArray\r\n @@window->savewarn = 1\r\nend\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |