An4eus
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
egerLESHIK
Цитата:| Конфигурация "Торговля и склад" 7.7 (переписанная) |
Украина?
Цитата:| На печатную форму ценника выводится артикул следующего вида, например, 0000069. Задача стоит в том, чтобы перед выводом на печать обработать этот артикул таким образом, чтобы отсечь впереди стоящие нули и получить в итоге, в данном случае 69. |
Число(Артикул)
или вот
Код: Функция глНомерНаПечать(Документ, НеПечататьВходящийНомер = 0) Экспорт
Номер = "";
Если ПустоеЗначение(Документ)= 0 Тогда
// Если документ имеет входящий номер, то печатать будем его.
Если (глЕстьРеквизитШапки("НомерДокВходящий", Документ.Вид()) = 1)
и (НеПечататьВходящийНомер = 0) Тогда
Номер=СокрЛП(Документ.НомерДокВходящий);
КонецЕсли;
// Если входящий номер пуст или его вообще нет, то печатаем номер документа
Если ПустоеЗначение(Номер) = 1 Тогда
Номер=СокрЛП(Документ.НомерДок);
// назначенный документу префикс
Префикс=СокрЛП(Константа.ПрефиксИБ)+ СокрЛП(Документ.Фирма.ЮрЛицо.ПрефиксНомеровДокументов);
// удаление префикса из номера документа
Если Найти(Номер, Префикс)=1 Тогда
Номер=Сред(Номер, СтрДлина(Префикс)+1);
КонецЕсли;
// в документах, перенессеных из старых редакций, может остаться "минус" впереди
Если Лев(Номер, 1) = "-" Тогда
Номер = Сред(Номер, 2);
КонецЕсли;
// удаление ведущих нулей
Пока Лев(Номер, 1)="0" Цикл
Номер=Сред(Номер, 2);
КонецЦикла;
КонецЕсли;
КонецЕсли;
Возврат Номер;
КонецФункции // глНомерНаПечать() |
----------
Век живи - век учись! |
|
