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

Калинин Михаил 12 1

1С

Подскажите универсальный способ как убрать из номера документа префикс и лидирующие нули.

ред. 4 года назад

Недостаточно рейтинга для добавления отрицательного голоса. Шаблон будет скрыт из ваших результатов поиска.

‹ ›

Ответы

Лучший ответ buketoff
#1, 20 февраля 2020 15:42

Процедура ОбработатьНомерДокумента()

       НомерБезПрефикса = Объект.ВходящийНомер; 
       Пока Найти(НомерБезПрефикса,"0") <> 1 Цикл
               НомерБезПрефикса = Сред(НомерБезПрефикса,2); //удаляет лидирующие ненули
       КонецЦикла;

       НомерБезНулей = НомерБезПрефикса;
       Пока Найти(НомерБезНулей,"0") = 1 Цикл
                НомерБезНулей = Сред(НомерБезНулей,2); //удаляет лидирующие нули
       КонецЦикла;
       Объект.ОбработанныйНомер = НомерБезНулей;

КонецПроцедуры

Валерий Дяченко
#2, 21 февраля 2020 13:34

Не сработает, если номер забил все 0, например ПФ-12345678

Bezeus
#3, 21 февраля 2020 13:46

Сработает, если префикс определять по символу "-", а не "0"

Валерий Дяченко
#4, 21 февраля 2020 15:01

Тогда уж так наверное:

Пока Найти("0123456789", Лев(НомерБезПрефикса, 1)) = 0 Цикл
		НомерБезПрефикса = Сред(НомерБезПрефикса, 2); //удаляет лидирующие ненули
	КонецЦикла;
	НомерБезНулей = НомерБезПрефикса;
	Пока Найти(НомерБезНулей, "0") = 1 Цикл
		НомерБезНулей = Сред(НомерБезНулей,2); //удаляет лидирующие нули
	КонецЦикла;

FastCode
#5, 07 мая 2020 08:14

Автор: ildarovich

Первый вариант:

Функция ЧислоСправа(Стр, К = 0)
   Возврат ?(Цел(КодСимвола(Прав("!" + Стр, К + 1)) / 5 - 10.5), Формат(Число("0" + Прав(Стр, К)), "ЧГ="), ЧислоСправа(Стр, К + 1))
КонецФункции

Второй вариант:

Функция ЧислоСправа1(Номер)
   Возврат Формат(Число("0" + Сред(Номер, СтрДлина(СокрП(
   СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Номер
   , "0", " "), "1", " "), "2", " "), "3", " "), "4", " "), "5", " "), "6", " "), "7", " "), "8", " "), "9", " "))) + 1)), "ЧГ=")
КонецФункции