Надеюсь понятно, что код вида АП предварительно обрезаем до первых трёх цифр, т.е. К = Лев(СокрЛП(КодВидаАП),3); // (где КодВидаАП - это либо трёх, либо четырёх, либо пятизначный код)