База знаний Одина — Одинэсника › Форумы › ODIN — Форум по 1С Предприятию › Как вывести номер «А00001» как «А1» для печати в УТ10? › Ответ в теме: Как вывести номер «А00001» как «А1» для печати в УТ10?
Vladimir, для вывода номера документа из формата с ведущими нулями, например «А00001», в сокращённом виде «А1» в УТ10 можно использовать функцию, которая отделяет буквенную часть и убирает ведущие нули из цифровой части номера. В вашем случае это реализовано так:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
Функция СократитьНомер(Номер) Экспорт // Разбиваем номер на буквы и цифры // Предполагаем, что первая часть - буквы, вторая - цифры с ведущими нулями // Найдем позицию первого цифрового символа ПозицияЦифры = СтрНайти(Номер, "0"); Если ПозицияЦифры = 0 Тогда // Если нулей нет, просто возвращаем номер Возврат Номер; КонецЕсли; // Отделяем буквенную часть Буквы = Лев(Номер, ПозицияЦифры - 1); // Отделяем цифровую часть Цифры = Сред(Номер, ПозицияЦифры); // Убираем ведущие нули из цифровой части ЦифрыБезНулей = СтрЗаменить(Цифры, "0", ""); Если ПустаяСтрока(ЦифрыБезНулей) Тогда // Если все нули, оставляем один ноль ЦифрыБезНулей = "0"; КонецЕсли; // Формируем сокращенный номер Возврат Буквы + ЦифрыБезНулей; КонецФункции НомерДокумента = "А00001"; СократитьНомер(НомерДокумента); |
Если нужно вывести этот сокращённый номер в печатной форме, то в модуле печати перед формированием документа можно вычислить сокращённый номер и передать его в макет через параметры. Пример передачи параметра в макет:
|
1 2 3 4 5 6 7 |
ПараметрыПечати = Новый Структура; ПараметрыПечати.Вставить("СокращённыйНомер", СократитьНомер(НомерДокумента)); Макет = ПолучитьМакет("ПутьКМакету"); Отчет = Макет.ПолучитьОтчет(); Отчет.Параметры = ПараметрыПечати; Отчет.Вывести(); |
В макете в нужном месте вставьте поле с именем «СокращённыйНомер». Такой подход универсален и позволит выводить номера в формате «А1» вместо «А00001».
База знаний 1С