Как убрать нули в печатной форме Торг12 в графе основание?

[Александр25]

Подскажите как сделать так, чтобы в графе "основание" печатной формы торг12 выводился номер счета без нулей слева? Ссылка на форму http://files.mail.ru/0E0CEH

[sergejK74]

Попробуй заменить

Код Выделить Развернуть

Если Основание.Вид() = "ЗаявкаПокупателя" Тогда
ПечОснование = "Счет №" + Основание.НомерДок + " от " + Основание.ДатаДок;
КонецЕсли;
на

Код Выделить Развернуть

Если Основание.Вид() = "ЗаявкаПокупателя" Тогда
ПечОснование = "Счет №" + глНомерНаПечать(Основание) + " от " + Основание.ДатаДок;
КонецЕсли;

[Александр25]

Попробуй заменить

Код Выделить Развернуть

Если Основание.Вид() = "ЗаявкаПокупателя" Тогда
ПечОснование = "Счет №" + Основание.НомерДок + " от " + Основание.ДатаДок;
КонецЕсли;
на

Код Выделить Развернуть

Если Основание.Вид() = "ЗаявкаПокупателя" Тогда
ПечОснование = "Счет №" + глНомерНаПечать(Основание) + " от " + Основание.ДатаДок;
КонецЕсли;

Не помогло, осталось без изменения (

[sergejK74]

А если хорошо по тексту модуля поискать.
Это дважды встречается.

[Александр25]

А если хорошо по тексту модуля поискать.
Это дважды встречается.

))))) додумался раньше чем прочитал этот пост. вставил в 2 места без изменений!!

[sergejK74]

Я тоже проверил, перед тем как второй раз написал. Это наиболее правильный вариант. Можешь просто зайти в печ.форму счета у которого не пропадают 000 и посмотреть как там сделано. Еще попробуй отладчиком точку останова здесь поставить, может что-то прояснится.

Тогда сделай просто
ПечОснование = "Счет №" + Число(Основание.НомерДок) + " от " + Основание.ДатаДок;
Ну и хотя бы один номер для примера приведи.

[Александр25]

не выходит...

[sergejK74]

Еще раз. Посмотри правильно ли выводится номер в печатной форме самой заявки, на основании которой ты делаешь накладную. Есть ли там нули? Номер заявки скопируй и вставь в сообщение.

[Александр25]

Проблема решилась таким образом:

Вот так:

[code1c]
Номер=Основание.НомерДок;

Пока Лев(Номер, 1)="0" Цикл
   Номер=Сред(Номер, 2);
КонецЦикла;
ПечОснование = "Счет №" + Номер + " от " + Основание.ДатаДок;
[/code1c]

Или если у вас ТиС то так:


[code1c]
ПечОснование = "Счет №" + глНомерНаПечать(Основание.НомерДок)+ " от " + Основание.ДатаДок;
[/code1c]

[sergejK74]

Первый вариант, конечно не очень
Проще так

Код Выделить Развернуть

Номер=Число(Основание.НомерДок);

Второй в процедуре Глобального модуля в Типовой ТиС вылетит с ошибкой

Код Выделить Развернуть

Функция глНомерНаПечать(Документ, НеПечататьВходящийНомер = 0) Экспорт
   
Номер = "";

Если ПустоеЗначение(Документ)= 0 Тогда
// Если документ имеет входящий номер, то печатать будем его.
Если (глЕстьРеквизитШапки("НомерДокВходящий", Документ.Вид()) = 1)
   и (НеПечататьВходящийНомер = 0) Тогда
Номер=СокрЛП(Документ.НомерДокВходящий);       
КонецЕсли;
потому что у строки нет метода Вид().
Наверное у кого то из нас переписанная Торговля (у меня правда демобаза 970, полностью не измененная).

Но за самостоятельное решение и за то, что сделал сам - поделился с другими надо дать тебе плюс.