Функция Из_Число_В_XСчисл(Знач Значение, Шаблон)
Результат="";
Основание = СтрДлина(Шаблон);
Если Значение = 0 Тогда
Результат = "0";
Иначе
Пока Значение>0 цикл
Остат = Значение%Основание;
Результат1=Сред(Шаблон,Остат+1,1);
Значение = (Значение-Остат)/Основание;
Результат = Результат1 + Результат;
КонецЦикла;
КонецЕсли;
Возврат Результат;
КонецФункции
Функция РассчитатьКонтрольныйСимволПоПравиламЦБ(Знач УУИД)
УУИД = НРег(СтрЗаменить(УУИД, "-", ""));
Сумма = 0;
Для Позиция = 1 По СтрДлина(УУИД) Цикл
КодСимвола = КодСимвола(УУИД, Позиция);
Если КодСимвола >= 48 И КодСимвола <= 57 Тогда //цифра
Цифра = КодСимвола - 48;
ИначеЕсли КодСимвола >= 97 И КодСимвола <= 102 Тогда //буква маленькая
Цифра = КодСимвола - 87;
Иначе
Возврат "";
КонецЕсли;
Сумма = Сумма + Цифра * ((Позиция - 1) % 10 + 1);
КонецЦикла;
Остаток = Сумма % 16;
Если Остаток < 10 Тогда
Возврат Символ(Остаток + 48);
Иначе
Возврат Символ(Остаток + 87);
КонецЕсли;
КонецФункции
Функция УУИдДляЦБ(Ид) Экспорт
К = РассчитатьКонтрольныйСимволПоПравиламЦБ(Ид);
ИтоговыйИД = Строка(ИД) + "-" + Строка(К);
Возврат ИтоговыйИД;
КонецФункции
При попытке нажатия на кнопку "Выполнить" Выходит вот такая вот ошибка:
{ВнешняяОбработка.ВнешняяОбработка1.Форма.Форма.Форма(3)}: Метод объекта не обнаружен (УУИдДляЦБ)
Рез = Документы.мКредитныйДоговор.УУИдДляЦБ(СсылкаНаОбъект.УникальныйИдентификатор());
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой