{
    "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"
        }
    }
}