9
sz
10.06.08
✎
15:13
|
//Описание: Формирует код элемента используя внутренний ИД, для записи в КПК
// Связано с использованием в типовой конфигурации текстовых полей
// Кода элементов справочников и для использования враспределенной базе
// Вход: Объект - элемент справочнока
// Выход: Рез - Результирующее значение кода элемента справочника
Функция ФормированиеКода(Объект) Экспорт
Перем Рез;
Рез="";
с = ЗначениеВСтрокуВнутр(Объект.ТекущийЭлемент());
// строка вида {"B","0","0","46","0","0"," 86ВЛГ"}
Вид = Сред(с, 3, 1);
// тип
с = Сред(с, 15);
разд = Найти(с, """");
Тип = Лев(с, разд-1);
// номер, код ИБ
разд = Найти(с, """");
Номер = СокрЛ(Сред(с, разд+11, 10));
КодИБ = Сред(с, разд + 21, 3);
Рез = Строка(КодСимв(КодИБ));
Рез = Строка(Рез) + Строка(КодСимв(Прав(КодИБ,1)));
Рез = Строка(Рез) + СокрЛП(Номер);
Рез = Число(Рез);
Возврат Рез;
КонецФункции
|
|