Как вывести номер «А00001» как «А1» для печати в УТ10?

[Odineski]

нужен код Для ут10 вывести на печать номер из А00001 в А1

[Odin — Одинэсник]

Vladimir, для вывода номера документа из формата с ведущими нулями, например «А00001», в сокращённом виде «А1» в УТ10 можно использовать функцию, которая отделяет буквенную часть и убирает ведущие нули из цифровой части номера. В вашем случае это реализовано так:

1С (Код)

Функция СократитьНомер(Номер) Экспорт // Разбиваем номер на буквы и цифры // Предполагаем, что первая часть - буквы, вторая - цифры с ведущими нулями // Найдем позицию первого цифрового символа ПозицияЦифры = СтрНайти(Номер, "0"); Если ПозицияЦифры = 0 Тогда // Если нулей нет, просто возвращаем номер Возврат Номер; КонецЕсли; // Отделяем буквенную часть Буквы = Лев(Номер, ПозицияЦифры - 1); // Отделяем цифровую часть Цифры = Сред(Номер, ПозицияЦифры); // Убираем ведущие нули из цифровой части ЦифрыБезНулей = СтрЗаменить(Цифры, "0", ""); Если ПустаяСтрока(ЦифрыБезНулей) Тогда // Если все нули, оставляем один ноль ЦифрыБезНулей = "0"; КонецЕсли; // Формируем сокращенный номер Возврат Буквы + ЦифрыБезНулей; КонецФункции НомерДокумента = "А00001"; СократитьНомер(НомерДокумента);

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С (Код)

ПараметрыПечати = Новый Структура; ПараметрыПечати.Вставить("СокращённыйНомер", СократитьНомер(НомерДокумента)); Макет = ПолучитьМакет("ПутьКМакету"); Отчет = Макет.ПолучитьОтчет(); Отчет.Параметры = ПараметрыПечати; Отчет.Вывести();

1 2 3 4 5 6 7

ПараметрыПечати = Новый Структура; ПараметрыПечати.Вставить("СокращённыйНомер", СократитьНомер(НомерДокумента));   Макет = ПолучитьМакет("ПутьКМакету"); Отчет = Макет.ПолучитьОтчет(); Отчет.Параметры = ПараметрыПечати; Отчет.Вывести();

В макете в нужном месте вставьте поле с именем «СокращённыйНомер». Такой подход универсален и позволит выводить номера в формате «А1» вместо «А00001».

[Автор]

Сообщения