Удалить префикс, лидирующие нули

andrey5565 311 6 8 8
1С Удаление

Удаляет префикс, по типу "ТДУТ-", чистит лидирующие нули;

&НаКлиенте
Функция ФорматироватьНомерДокуметаНаКлиенте(Знач НомерДокумента)
	
	НомерДокументаСтрокой 	= Строка(НомерДокумента);
	
	НомерДокументаСтрокой	= СтрЗаменить(НомерДокументаСтрокой, "-", "");
	
	ПозицияПервогоНуля		= СтрНайти(НомерДокументаСтрокой, "0", НаправлениеПоиска.СНачала);
	
	НомерДокументаСтрокой 	= Сред(НомерДокументаСтрокой, ПозицияПервогоНуля, СтрДлина(НомерДокументаСтрокой)); //символы = цифры;
	
	Счетчик = 1;
	Пока Лев(НомерДокументаСтрокой, 1) = "0" Цикл
		НомерДокументаСтрокой = Сред(НомерДокументаСтрокой, Счетчик + 1);
	КонецЦикла;

	Возврат НомерДокументаСтрокой;
	
КонецФункции // ()
0 
Орфографическая ошибка в ФорматироватьНомерДокуметаНаКлиенте: Докумета
‹ ›

См. также

Удалить префикс объекта и лидирующие нули (ЗУП 3)

Как удалить префикс и лидирующие нули?

Номер без префикса и лидирующих нулей

УдалитьЛидирующиеНулиИзНомераОбъекта (БСП)

Убрать префикс и лидирующие нули

НомерНаПечать (БСП)

Получает номер документа для вывода на печать; из номера удаляются префиксы и лидирующие нули

Сократить лидирующие нули

УдалитьПрефиксыИзНомераОбъекта (БСП)

Модератору