скажите как убрать лидирующие нули в номере документа

по-символьно проверить

ОбщегоНазначения.ПолучитьНомерНаПечать()

Функция УбратьЛидирующиеНули(НомерДокумента)
   Пока Найти(НомерДокумента, "0") > 0 Цикл
       УбратьЛидирующиеНули(Прав(НомерДокумента, СтрДлина(НомерДокумента)-1));
   КонецЦикла;
   Возврат    НомерДокумента;
КонецФункции

(2) А вдруг пишется очередная нетленка?

(4) я не телепат в последнее время

Сред(НомерДокумента, 2) кошернее =)

(6) Согласен, но мы не ищем легких путей...

Попытка
   НомерДокумента = Формат(Число(НомерДокумента), "ЧГ=");
Исключение
   //Тут перебираем циклом до строчного символа
КонецПопытки;

(8) лучше всего подошло

(9) а если буква перед нулем будет???
Не задумывался?

(10)точно не будет

(10) тогда ноль не лидирующий :)

или так можно:
СтрЗаменить(СокрЛ(СтрЗаменить(СокрП(Номер), "0", " ")), " ", "0")

прочитал как "летающие пули".. пора в отпуск..

(10)Ну если совсем надо убрать ноли, можно сделать так:
Функция УбратьЛидирующиеНули(НомерДокумента)
   
   Попытка
       НомерДокумента = Формат(Число(НомерДокумента), "ЧГ=");
   Исключение
       Пока Лев(НомерДокумента, 1) = "0" Цикл
           НомерДокумента = Сред(НомерДокумента, 2);
       КонецЦикла;
       Фл = "";
       Пока КодСимвола(НомерДокумента) < 48 Или КодСимвола(НомерДокумента) > 57 Цикл
           Фл = Фл + Лев(НомерДокумента, 1);
           НомерДокумента = Сред(НомерДокумента, 2);
       КонецЦикла;
       НомерДокумента = Фл + УбратьЛидирующиеНули(НомерДокумента);
   КонецПопытки;
   Возврат НомерДокумента;
   
КонецФункции

+(15)Вместо
Пока Лев(НомерДокумента, 1) = "0" Цикл
   НомерДокумента = Сред(НомерДокумента, 2);
КонецЦикла;
Поставить (13)

) да так пожалуй еще лучше))) всем спасибо) и кстати вопрос немного не в тему как закрывать созданную тему?

(17)Если непосредственно в номере есть буква то (15) повиснет, исправил:
Функция УбратьЛидирующиеНули(НомерДокумента)
   
   Попытка
       НомерДокумента = Формат(Число(НомерДокумента), "ЧГ=");
   Исключение
       НомерДокумента = СтрЗаменить(СокрЛ(СтрЗаменить(СокрП(НомерДокумента), "0", " ")), " ", "0");
       Префикс = "";
       Пока КодСимвола(НомерДокумента) < 48 Или КодСимвола(НомерДокумента) > 57 Цикл
           Префикс = Префикс + Лев(НомерДокумента, 1);
           НомерДокумента = Сред(НомерДокумента, 2);
       КонецЦикла;
       Если Не ПустаяСтрока(Префикс) Тогда
           НомерДокумента = Префикс + УбратьЛидирующиеНули(НомерДокумента);
       КонецЕсли;
   КонецПопытки;
   Возврат НомерДокумента;
   
КонецФункции