Удалить лидирующие нули из номера Документа в 1С
Способ 1
|
1 2 3 4 5 6 |
Функция УбираемЛидрНули(НомДок) Пока Найти(НомДок, "0") > 0 Цикл УбираемЛидрНули(Прав(НомДок, СтрДлина(НомДок)-1)); КонецЦикла; Возврат НомДок; КонецФункции |
Способ 2
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Функция УбираемЛидрНули(НомДок) Попытка НомДок = Формат(Число(НомДок), "ЧГ="); Исключение НомДок = СтрЗаменить(СокрЛ(СтрЗаменить(СокрП(НомДок), "0", " ")), " ", "0"); Преф = ""; Пока КодСимвола(НомДок) < 48 Или КодСимвола(НомДок) > 57 Цикл Преф = Преф + Лев(НомДок, 1); НомДок = Сред(НомДок, 2); КонецЦикла; Если Не ПустаяСтрока(Преф) Тогда НомДок = Преф + УбираемЛидрНули(НомДок); КонецЕсли; КонецПопытки; Возврат НомДок; КонецФункции |
Способ 3
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
ВЫБРАТЬ ВЫБОР КОГДА Не ПОДСТРОКА(&Номер, 1, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 1, 10) КОГДА Не ПОДСТРОКА(&Номер, 2, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 2, 9) КОГДА Не ПОДСТРОКА(&Номер, 3, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 3, 8) КОГДА Не ПОДСТРОКА(&Номер, 4, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 4, 7) КОГДА Не ПОДСТРОКА(&Номер, 5, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 5, 6) КОГДА Не ПОДСТРОКА(&Номер, 6, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 6, 5) КОГДА Не ПОДСТРОКА(&Номер, 7, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 7, 4) КОГДА Не ПОДСТРОКА(&Номер, 8, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 8, 3) КОГДА Не ПОДСТРОКА(&Номер, 9, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 9, 2) Иначе ПОДСТРОКА(&Номер, 10, 1) КОНЕЦ КАК НомерБезНулей |
Способ 4
|
1 2 3 |
Пока Лев(Номер, 1) = "0" Цикл Номер = Прав(Номер, СтрДлина(Номер) - 1); КонецЦикла; |
Способ 5
|
1 2 3 4 5 6 7 8 9 |
Функция УбираемЛидНули(НомерДок) Если Лев(НомерДок, 1) = "0" Тогда Возврат УбираемЛидНули(Прав(НомерДок, СтрДлина(НомерДок) - 1)); Иначе Возврат НомерДок; КонецЕсли; КонецФункции СтрокаИтога = УбираемЛидНули(НомерДокумента); |