Как быстро убрать ведущие нули кода?

30.07.09

✎

13:06

Нужно вывести в отчет код товара без нулей..
пока вариант такой:
НомерКод = СокрЛП(ТаблОстатков.Номенклатура.Код);
Пока Лев(НомерКод, 1)="0" Цикл
НомерНоменклатуры=Сред(НомерКод, 2);
КонецЦикла;

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

1 Нуф-Нуф

30.07.09

✎

13:07

СокрЛП(Число(ТаблОстатков.Номенклатура.Код))

2 Дуб

30.07.09

✎

13:09

(0) а если Строка(Число(Код)) ?
Не взлетает?

3 SpitFire

30.07.09

✎

13:09

"а если Строка(Число(Код)) "
а если в коде дефис ?

4 Нуф-Нуф

30.07.09

✎

13:11

(3) тогда нафига лидирующие нули?

5 Токс3

30.07.09

✎

13:11

Формат(ТаблОстатков.Номенклатура.Код,"Ч")
""+Число(ТаблОстатков.Номенклатура.Код)

6 Дуб

30.07.09

✎

13:11

(3) так это к (0) вопрос. Есть префиксы или что ещё в коде?..

7 SpitFire

30.07.09

✎

13:12

Юзер может в код вбить всякую гадость.
Обычно поле код я дизейблю.

8 Litlbuch

30.07.09

✎

13:14

(6) нет префиксов нет...

""+Число(ТаблОстатков.Номенклатура.Код) работает...

9 SpitFire

30.07.09

✎

13:14

Это пока приводится к Числу...

10 Нуф-Нуф

30.07.09

✎

13:15

в (1) тоже все работает

11 SpitFire

30.07.09

✎

13:15

Точка, точка, запятая вышла полная ж...

12 Дуб

30.07.09

✎

13:15

(9) расслабься: мы-ж не универсальный механизм предлагаем. В конце концов - можно Попытку замутить..

13 Litlbuch

30.07.09

✎

13:19

а может и не привеститсь??

14 Дуб

30.07.09

✎

13:20

(13) ;)

15 Дуб

30.07.09

✎

13:20

(13) сначала на вопрос в (6) ответь.

16 Токс3

30.07.09

✎

13:21

(11)
СНулями=ТаблОстатков.Номенклатура.Код;

БезНулейНоСоВсякойХнёй=Прав(СНулями,СтрДлина(СНулями)+1-Найти(СНулями,Лев(СтрЗаменить(СНулями,"0",""),1)));

17 Litlbuch

30.07.09

✎

13:22

(15) см (8)

18 Дуб

30.07.09

✎

13:26

(17) ну вот сама себе и ответила :)

19 Litlbuch

30.07.09