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

22.06.16

Статья в которой описан, простой способ убрать префикс и лидирующие нули из номера документа.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
УбратьПрефиксИЛидирующиеНулиИзНомера .epf 5,97Kb ver:1 30	30	1 850 руб. Купить	1 SM Скачать

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

Для этого можно воспользоватся маленькой обработкой прикрепленной к статьи или использовать ниже приведенный код.

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

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

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

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

Вступайте в нашу телеграмм-группу Инфостарт

Печать Префикс Лидирующие

+19 –4

См. также

Отключение уведомления "Расширение конфигурации неактивно"

Универсальные функции Работа с интерфейсом Программист 1С:Предприятие 8 Бесплатно (free)

Порой необходимо временно отключить расширение 1С, не удаляя его, чтобы не потерять данные. Но в этом случае при каждом запуске всем будет лезть уведомление о неактивном расширении, хотя очевидно, это техническая информация, которой не стоит лишний раз пугать пользователей.

14.05.2025 5467 DeerCven 15

В помощь разработчику: преобразование табличного документа в запрос

Инструментарий разработчика Универсальные функции Запросы Программист 1С:Предприятие 8 1C:Бухгалтерия 1С:Бухгалтерия 3.0 1С:Зарплата и Управление Персоналом 3.x Бесплатно (free)

Внешняя обработка для создания запроса на основании табличных данных.

22.07.2024 9324 237 ixijixi 10

Загрузка табличного документа в таблицу значений. Пять строк кода, которые изменили мир

Универсальные функции Программист 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Благодаря этим пяти строчкам можно больше не заморачиваться с загрузкой из внешних файлов. Пользуюсь везде, всегда и постоянно.

21.05.2024 46517 dimanich70 83

165

Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

Универсальные функции Программист 1С:Предприятие 8 1C:Бухгалтерия Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024 6879 6 John_d 13

GUID в 1С 8.3

Универсальные функции Программист Стажер 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024 57648 atdonya 31

Переоткрытие внешних обработок

Универсальные функции Программист 1С:Предприятие 8 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023 8652 ke.92@mail.ru 17

Генерация штрихкода и QR, разбор настроек и примеры

БСП (Библиотека стандартных подсистем) Сканер штрих-кода Универсальные функции Этикетки, ценники Программист Бизнес-аналитик 1C:Бухгалтерия Бесплатно (free)

Разберем на примерах использование компоненты из БСП для генерации штрихкода и матричных кодов.

15.09.2023 39530 YA_418728146 14

127

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Программист 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023 22847 YA_418728146 8

174

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. aleksey2 91 22.06.16 21:09 Сейчас в теме

А если префикс = "00" ?

2. Yashazz 4889 23.06.16 00:37 Сейчас в теме

Забавно. Буквально вчера решал эту общеизвестную задачку и думал, как бы поэффективнее. Способ замен, конечно, тоже рассматривал, но... Автор, простите, а если номер "00012034", что будет? Верно, лажа будет. Вот если использовать Лев(,1) и Прав(,1) или новомодные СтрНачинаетсяС и СтрЗаканчиваетсяНа, тогда ещё куда ни шло. А так явный минус.

Ну и вообще, кажется мне, что не самый это изящный и быстрый способ.

Ответить

5. bad_boys 18 23.06.16 10:16 Сейчас в теме

(2) Yashazz, функции СтрНачинаетсяС и СтрЗаканчиваетсяНа не на всех релизах конфигурации работают...
Если номер документа "00012034" после обработки станет "12034", что вполне корректно..

13. Yashazz 4889 23.06.16 19:38 Сейчас в теме

(5) не релизах конфигурации, а релизах платформы. Не ниже 8.3.7, ну я и написал, что "новомодные")

Хожу второй день и пытаюсь решить задачу в духе работ Ильдаровича. Чтобы стильно и извратно)))

15. v3rter 24.06.16 09:36 Сейчас в теме

(13) Yashazz, Подкину для вдохновения https://meduza.io/shapito/2016/06/21/politehnicheskiy-muzey-nauchilsya-svorachivat-artema-chayku-v-lsdu3 , политота, конечно, но алгоритм многообещающий )

3. alex-l19041 8 23.06.16 09:44 Сейчас в теме

а зачем изобретать "велосипед", если можно вызвать готовую функцию общего модуля ОбщегоНазначения.ПолучитьНомерНаПечать(документ);

Ответить

4. bad_boys 18 23.06.16 10:14 Сейчас в теме

(3) alex-l19041, ОбщегоНазначения.ПолучитьНомерНаПечать(документ) удаляет только ПрефиксПодразделения или ПрефиксИнформационнойБазы... Если вручную бухгалтер поменял префикс на какой захотел, он не удалится стандартной функцией.

44. NoRazum 30 16.11.21 16:53 Сейчас в теме

(4) ОбщегоНазначения.ПолучитьНомерНаПечать если её вызывать в цикле и много документов, то она очень медленно работает.

6. c300pm 23.06.16 10:57 Сейчас в теме

в БП 3.0 с нумерацией типа ААББ-000001 корректно работает?

7. bad_boys 18 23.06.16 11:02 Сейчас в теме

(6) c300pm, не могу сказать не проверял на БП 3.0...
Тем не менее была просьба доработать такой механизм для печати, поскольку стандартный не отрабатывал...
Какая конфигурация и какой релиз уже не помню...
Мой способ не является эталоном, но как мне кажется имеет право на жизнь))

8. 1С_Мастер 61 23.06.16 11:07 Сейчас в теме

Очевидно, что это вариант не сработает с номером АА-123, так как в нем ни одного нуля нет. Или, например, с номером АА-101 сработает неверно, оставив от него только 1

10. bad_boys 18 23.06.16 11:17 Сейчас в теме

(8) 1С_Мастер, да на Ваших примерах работать не будет(((

9. v3rter 23.06.16 11:11 Сейчас в теме

Думаю, более правильно будет просматривать посимвольно справа налево до первой не цифры, затем полученную подстроку чистить от ведущих нулей, например так Строка(Число("0"+ПромежуточнаяПодстрока))

11. bad_boys 18 23.06.16 11:18 Сейчас в теме

(9) v3rter, согласен Ваш вариант более коректный чем мой....

48. vik2006 143 14.06.23 08:13 Сейчас в теме

(11) вставить в конце цикла условие, и приращение счетчика. Условие - длина номера. а так оно будет зацикливать, если нет нулей

12. v3rter 23.06.16 11:25 Сейчас в теме

Хотя есть альтернативный способ - выкинуть из номера все нецифровые символы, затем ведущие нули. Недостаток: кривые номера типа Н1АБ0000021 превратятся в 10000021, а не в 21. Такие "чудо-номера" бывают от кривых префиксов при обмене.

14. Yashazz 4889 24.06.16 09:29 Сейчас в теме

Если исходить из того, что все нецифровые префиксы уже отброшены, то самое топорное решение это Формат(Число(Номер)).

16. Ovrfox 14 24.06.16 09:48 Сейчас в теме

Вот простой код, который сработает, если номер содержит число.

Функция ТолькоНомер(ВхНомер)
	Рез = СокрЛП(ВхНомер);
	Ном = СтрДлина(Рез);
	Пока Ном > 0 Цикл
		Если Найти("0123456789", Сред(Рез,Ном,1))=0 Тогда
			прервать;
		Иначе
			Ном = Ном - 1;
		КонецЕсли; 
	КонецЦикла; 
	Возврат ""+Число(Сред(Рез,Ном+1));
КонецФункции

Показать

19. v3rter 24.06.16 12:51 Сейчас в теме

Как всегда шедевры. Математики поймут )

Попробую расшифровать для тех, кому лень разбираться.

Первая функция: рекурсивно проверяются символы справа налево до первой не цифры,
затем происходит возврат правой части строки по накопленному значению К;
( КодСимвола() / 5 - 10.5 ) возвращает значение от -0,9 до 0,9 для символов с "0" до "9",
Цел() отсекает дробную часть, в результате для цифр получится 0, для остальных символов не ноль;
?(Цел(КодСимвола(Прав("!" + Стр, К + 1)) / 5 - 10.5),<не цифра>,<цифра>) базируется на особенности преобразования нуля в булево ложь, а "!" + Стр - подстраховка от пустой строки на входе.

Вторая функция: все числа заменяются пробелами "матрёшкой" вложенных функций
СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Номер
, "0", " "), "1", " "), "2", " "), "3", " "), "4", " "), "5", " "), "6", " "), "7", " "), "8", " "), "9", " ")
СокрП отсекает пробелы справа, остаток замереятся через СтрДлина и вырезается часть с середины до конца с позиции +1, где должны начинаться цифры.

Формат( , "ЧГ=") в обоих случаях убирает разделители разрядов при обратном преобразовании числа в текст, потом что через Строка() "формируется ... полное представление в стандартном виде, соответствующем национальным установкам". Или как у Ovrfox в (16) вместо Формат(, "ЧГ=") можно попробовать неявное преобразование в строку ""+Число(

17. likelol.91 24.06.16 09:49 Сейчас в теме

у меня во всех базах так:
Формат(Число(Прав(Номер,7)),"ЧГ=0")

Ответить

18. ildarovich 8043 24.06.16 11:54 Сейчас в теме

Вот еще варианты:

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

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

Ответить

22. m..adm 271 29.06.16 15:17 Сейчас в теме

(18) ildarovich, Код должен быть читабелен, чтобы не ломать голову в рекурсиях.

20. NoMax 233 27.06.16 00:12 Сейчас в теме

Было еще на клюшках
http://infostart.ru/public/57242/

21. v3rter 27.06.16 09:15 Сейчас в теме

(20) NoMax,

Было еще на клюшках http://infostart.ru/public/57242/

Было, да сплыло - нет больше этой ссылки. И вот что там было:

Функция ClearZero(PERNR)  экспорт
Воз = PERNR;
апр=СтрДлина(Воз);
Для АНК = 1 По апр Цикл
аст = Сред(Воз, АНК);
Если Лев(аст, 1) <> "0" Тогда
Воз = Сред(Воз, АНК );
Возврат Воз;
КонецЕсли;
КонецЦикла;
КонецФункции
//В модуле формы ищем поля для которых нужно применить функцию.
//К примеру нужно чтобы поле  НомерДокумента = Докум.НомерДок; печаталось без нулей,
//заменяем на   НомерДокумента = ClearZero(Докум.НомерДок);

Показать

То есть убираются только ведущие нули, на номерах с префиксами не сработает.

23. m..adm 271 29.06.16 15:52 Сейчас в теме

я бы так отсеивал лишние нули

	НовыйНомер = "";
	Начнем = Ложь;
	Для Ном = 1 По СтрДлина(Номер) Цикл
		тКод 	 = КодСимвола(Номер,Ном);
		ЭтоЧисло = тКод > 47 И тКод < 58; //цифры от 0 до 9
		Начнем 	 = Начнем ИЛИ ЭтоЧисло И НЕ тКод = 48;
		Если Начнем И ЭтоЧисло Тогда 
			НовыйНомер = НовыйНомер + Сред(Номер,Ном,1);
		КонецЕсли;
	КонецЦикла;

Показать

24. v3rter 29.06.16 17:16 Сейчас в теме

(23) m..adm, Кстати, это способ, упомянутый в (12), в целом годный, хороший с единственным недостатком

кривые номера типа Н1АБ0000021 превратятся в 10000021, а не в 21

40. mounter 21.08.20 13:27 Сейчас в теме

Доработал (23). Удаляет любые префиксы перебором справа-налево до первого не числового символа. Мне нужно было для передачи на внешний веб-сервис, а префиксов в базе не типовых полно. Встроенные процедуры не справляются. Возвращает строку без разделителей разрядов и ведущих нулей.

Функция ОбработатьНомерДокумента(ВхНомер)

    Номер = ВхНомер ;   
    НовыйНомер = "";
    СтрДлина=СтрДлина(Номер);
    Для Ном = 0 По СтрДлина-1 Цикл
        тКод      = КодСимвола(Номер, СтрДлина - Ном);
        ЭтоЧисло = тКод > 47 И тКод < 58; //цифры от 0 до 9
        Если ЭтоЧисло Тогда 
            НовыйНомер = Сред(Номер,СтрДлина - Ном,1) + НовыйНомер; 
        Иначе
            Прервать;
        КонецЕсли;
    КонецЦикла;

    Возврат СтрЗаменить(Формат(Число(НовыйНомер),"ЧРГ='-'"),"-","");
	
КонецФункции

Показать

25. vadim1011985 102 29.06.16 17:45 Сейчас в теме

Решил и я предложить свой вариант

Процедура Команда1(Команда)
	
	НомерНаПечать = ПолучитьНомерНаПечать(Объект.Номер);
	
	Объект.Номер = НомерНаПечать;
	
КонецПроцедуры

Функция ПолучитьНомерНаПечать (Номер) 
	
	Пока СтрДлина(Номер)>0 Цикл 
		
		Попытка 
			
			НомерНаПечать = Строка(Число(Номер));
			
			Возврат НомерНаПечать;
			
		Исключение
			//Если СтрДлина > 0 Тогда
			Номер = Прав(номер,СтрДлина(Номер)-1);
                      //  Иначе
                     //   Возврат 0;
                    //    конецЕсли; 
	
	      //  Продолжить;
			
		КонецПопытки;	
			
		КонецЦикла;

Возврат  "";
		
КонецФункции

Показать

26. v3rter 30.06.16 09:50 Сейчас в теме

(25) vadim1011985, тоже хороший способ. На случай кривых номеров я бы сделал Возврат "________"; чтобы была возможность вписать номер вручную не перепечатывая документ повторно.

27. Ovrfox 14 30.06.16 10:48 Сейчас в теме

(25) Вы меня мзвините, но этот код не годится.
Пример Номер А24.0000147. Правильно вернуть 147, а не 24.0000147

28. vadim1011985 102 30.06.16 11:10 Сейчас в теме

(27) Ovrfox, согласен, есть такое , но опять же можно использовать функцию СтрЗаменить где поменять точки и запятые на какой-нибудь символ. А вообще можно придумать такой пример который с предельной функцией не будет работать

Процедура Команда1(Команда)
    
    НомерНаПечать = ПолучитьНомерНаПечать(Объект.Номер);
    
    Объект.Номер = НомерНаПечать;
    
КонецПроцедуры

Функция ПолучитьНомерНаПечать (Номер) 
    
Номер = СтрЗаменить(Номер,".","@");
Номер = СтрЗаменить(Номер,",","@");

 

    Пока СтрДлина(Номер)>0 Цикл 
        
        Попытка 
            
            НомерНаПечать = Строка(Число(Номер));
            
            Возврат НомерНаПечать;
            
        Исключение
            //Если СтрДлина > 0 Тогда
            Номер = Прав(номер,СтрДлина(Номер)-1);
                      //  Иначе
                     //   Возврат 0;
                    //    конецЕсли; 
    
          //  Продолжить;
            
        КонецПопытки;    
            
        КонецЦикла;

Возврат  "______________";
        
КонецФункции

Показать

29. v3rter 30.06.16 11:40 Сейчас в теме

(27) Ovrfox, а так?

НомерНаПечать = Строка(Цел(Число(Номер)));

30. vadim1011985 102 30.06.16 11:50 Сейчас в теме

(29) v3rter, так вернет 24.

Ovrfox прав , нужно заменять "." и "," то есть знаки которые могу повлиять на формирование числа

49. djdiamond 24.04.24 11:54 Сейчас в теме

(25)

Пока СтрДлина(Номер)>0 Цикл

Попытка

НомерНаПечать = Строка(Число(Номер));

Возврат НомерНаПечать;

Исключение
//Если СтрДлина > 0 Тогда
Номер = Прав(номер,СтрДлина(Номер)-1);
// Иначе
// Возврат 0;
// конецЕсли;

// Продолжить;

КонецПопытки;

КонецЦикла;

Возврат "";

Показать

Преобразовывать это 000036163 в это 36 163 не гуд. формат сохраняйте данных)

31. v3rter 30.06.16 12:06 Сейчас в теме

Получаются два основных подхода:
1. число справа
2. все нецифровые символы удаляются, оставшиеся цифровые склеиваются
И куча промежуточных вариантов, когда нецифровые последовательности символов в номере переносятся, объединяются, заменяются на точки-прочерки-тире и т.д.

32. dakork 38 05.08.17 13:20 Сейчас в теме

Попробуйте типовой механизм (БП 3.0) ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать(НомерОбъекта, УдалитьПрефиксИнформационнойБазы, УдалитьПользовательскийПрефикс) По умолчанию УдалитьПрефиксИнформационнойБазы = Ложь, УдалитьПользовательскийПрефикс = Ложь

33. lda0312 15.11.18 11:01 Сейчас в теме

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

Опасный код. Если в номере не будет нуля то попадаешь в вечный цикл.

34. user633533_encantado 12 15.11.18 11:06 Сейчас в теме

Статья ради статьи: как пользоваться функцией "Найти", которая , кстати, устарела.

35. Simonov_NPM 05.06.19 07:02 Сейчас в теме

Пока Лев(Номер, 1)="0" Цикл
Номер = Сред(Номер, 2);
КонецЦикла;

36. user679305_admn.nns 01.09.19 15:12 Сейчас в теме

Мой вариант:

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

37. user679305_admn.nns 01.09.19 15:15 Сейчас в теме

Если длина префикса известна, а во всех стандартных конфигурациях она равна 5, тогда

Функция УдалитьПрефикс(Знач Номер)
Длина = СтрДлина(Номер);
Номер = Прав(Номер,Длина-ДлинаПрефикса);
Возврат Номер;
КонецФункции

38. MrTom 10.04.20 13:12 Сейчас в теме

Поучаствую и я в конкурсе изобретателей велосипедов ))

Номер = Объект.Номер;
Поз = Найти(Номер,"-");
Если Поз>0 Тогда Номер = Сред(Номер, Поз+1); КонецЕсли;

Пока Лев(Номер,1)<"1" ИЛИ Лев(Номер,1)>"9" Цикл
	Номер = Сред(Номер,2);
КонецЦикла;

39. Jane1508 5 20.07.20 09:53 Сейчас в теме

(38) А если такой вариант номера А1307.002, и надо что бы лидирующие нули после "." уходили и на выходе чтобы было А1307.2. Как в таком случае?

41. daniyar5436 08.10.20 18:06 Сейчас в теме

вот по проверял и вы проверьте рабочий вариант )

Функция ПолучитьНомерНаПечать (НомДок)

	ДлСтр=СтрДлина(НомДок);
	поз=1;
	ПоследняПозицияБуквы=0;
	пока поз <= длСтр Цикл
		СимвИзНомДок=прав(Лев(НомДок,Поз),1);
		ЭтоЦифра=СтрНайти("0123456789",СимвИзНомДок)>0;
		поз=поз+1;
		если не ЭтоЦифра Тогда
			ПоследняПозицияБуквы=Поз;
		КонецЕсли;
	КонецЦикла;
	СтрокаТолькоЧисла=Прав(НомДок,ДлСтр-ПоследняПозицияБуквы+1);
	
		Пока Лев(СтрокаТолькоЧисла, 1) = "0" Цикл
			СтрокаТолькоЧисла = Сред(СтрокаТолькоЧисла, 2);
		КонецЦикла;

       возврат СтрокаТолькоЧисла ;

КонецФункции

Показать

42. progr-2008 118 22.07.21 18:05 Сейчас в теме

(41)Работает.

43. user1208936 02.11.21 22:51 Сейчас в теме

Для какой конфигурации данная обработка?

45. kassbar 159 16.01.23 12:26 Сейчас в теме

СтроковыеФункцииКлиентСервер.УдалитьПовторяющиесяСимволы(Строка,УдаляемыйСимвол)

46. websamson 307 17.03.23 10:48 Сейчас в теме

Если вдруг..
Для Альфа авто 6:

ПрефиксацияОбъектовПлатформа.ПолучитьНомерНаПечать

47. user633533_encantado 12 22.05.23 14:00 Сейчас в теме

(46)

ПрефиксацияОбъектовПлатформа.ПолучитьНомерНаПечать

это не везде в типовых есть

51. igor63 26.06.25 17:34 Сейчас в теме

(47) УНФ 3.0

Номер = ПрефиксацияОбъектовКлиентСервер.НомерНаПечать(Стр.Номер, Истина);

50. mizeri 13.03.25 17:20 Сейчас в теме

Уважаемые коллеги! Приведенный ниже пример просто как некая игра ума не более. Однако в некоторых случаях это работает. Удаление лидирующих нулей слева без циклов.


Функция УбратьЛидирующиеНулиСлева(НомерСтрокой)
	
	ПорядокНомера = СтрЗаменить(НомерСтрокой,"1","0");
	ПорядокНомера = СтрЗаменить(ПорядокНомера ,"2","0"); 
	ПорядокНомера = СтрЗаменить(ПорядокНомера ,"3","0"); 
	ПорядокНомера = СтрЗаменить(ПорядокНомера ,"4","0");
	ПорядокНомера = СтрЗаменить(ПорядокНомера ,"5","0");
	ПорядокНомера = СтрЗаменить(ПорядокНомера ,"6","0"); 
	ПорядокНомера = СтрЗаменить(ПорядокНомера ,"7","0"); 
	ПорядокНомера = СтрЗаменить(ПорядокНомера ,"8","0");
	ПорядокНомера = СтрЗаменить(ПорядокНомера ,"9","0"); 
	ПорядокНомера = ЧИСЛО("1" + ПорядокНомера ); 
	НомерЧисло = ЧИСЛО("1" + НомерСтрокой);
	НомерБезЛидирующихНулей = СтрЗаменить(Строка(НомерЧисло - ПорядокНомера),Символы.НПП,"");
	Возврат НомерБезЛидирующихНулей;
	
КонецФункции

Показать

Подход очень простой. Комбинация методов работы со строкой и с числом.

1. входящая строка приводится к числу:
- конкатенация входящий строки и символа "1" слева;
- преобразование результата конкатенации в число.

2. вычисление порядка:
- все числовые символы входящей строки заменяются символом "0";
- конкатенация результата замены и символа "1" слева.
- преобразование результата конкатенации в число.

3. вычисление разницы между первым и вторым.

4. преобразование разницы строку. Искомый результат.

Более комментировать вроде нечего. Может кому-то поможет.