Есть длина строки = 10
нумерация идет ,например 0000000001,0000000002, и тд
как оставить "чистый" номер ?
например из 0000000209 оставить 209

Число?

(0) Ты действительно программируешь на 1С три года?

Поставить числовой тип у номера?

тип строка

(2)+1

оставить строку

(6) Написать обработку не предлагать?

Строка(Число(НомерСНулями))

ОбщегоНазначения.ПолучитьНомерНаПечать

Строка(Число(000000001)) Взлетит?

НомерНаПечать

нули убрать я знаю как.. но уберутся и внутренние нули из 209 останется 29

(12) Пятница не завтра

(12) Чукча не читатель?

(13) сегодня?

(12) Тяжелый случай..

(12) кОндидат наук?

СтрЗаменить(Номер,"0","");

хотя не покатит:)

в номерер тоже убьет

(18) Еще один..

да можно перебирать с лева направо. но я думал может проще как то

перебирать пока следующий символ <> 0

(22) проснись, епт.. строка(число(твойномер))..

(12) LOL

номер и так тип строка.

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

а то, что в (9) посмотреть не айс?

ВК не предлагали ешё написать?

(27) Ты чо секреты мастерства начинающим раздаешь, он даже пятерки еще не намотал :))

(22) про преобразование типов слышал?

(15) В обед не закусывал

(30) Я сегодня добрый

(33) Из-за таких дореньких слой икры и масла на булке у 1сников истончается

(34) Неее. Чем больше раздаешь, тем больше получаешь.

предлагаю накидать автору годных алгоритмов. Число не предлагать!

(34) Не истончается. Автор сюда скоро вернется проблемы с нумерацией разгребать.

Таким конфигурастам надо презервативы бесплатно раздавать...

чем больше таких авторов, тем больше зарплата. Надо его всячески поддерживать. А то если будут все шибко умные, написать отчет будет стоить 50 рублей.

(37) предполагаешь, что он подразумевает нумерацию? Тогда ветку надо переносить на пятницу...

Предлагаю так: все 0=" "
СокрЛП(Номер)
ну а потом " "=0

(41) а с префиксами чего делать будешь?

(36)
Для Ном = 1 По 9999999999 Цикл
   Проверка = Прав("0000000000 + Формат(Ном, "ЧРГ=''; ЧГ=0;"), 10);
   Если Проверка = Номер Тогда
       Номер = Формат(Ном, "ЧРГ=''; ЧГ=0;");
       Прервать;
   КонецЕсли;
КонецЦикла;


Чем тупее тема, тем больше в ней ответов.
Если создать тему "сколько будет 2+2?" будет в ней 1000 ответов - 4?

(42) вот сейчас ты конкретно отобрал у кого то кусок масла :(

префиксов нет
тип значения строка = 10 символов.

блин... ну есть же уже готовая функция во всех, пожалуй, типовых...
зоопарк велосипедистов...

(43) Ошибся:
Прав("0000000000" + …);

(42) кстати, а вот 77 лучше с неявным преобразованием работала, сейчас 8ка ошибки выдает

(46) Я правильно понял? твой ник читается "ДУРо"?

ОбщегоНазначения.ПолучитьНомерНаПечать - у меня не типовая
этого нет

Автор ты сначало руками перенумеруй номера типа 000206 на 0002О2, т.е. между цифрами замени 0 на букву.

А потом воспользуйся секретным оружием из (18)...

вот нетленка, делюсь:

Если Ном="0000000001" Тогда Возврат "1"
ИначеЕсли Ном="0000000002" Тогда Возврат "2"
ИначеЕсли Ном="0000000003" Тогда Возврат "3"
ИначеЕсли Ном="0000000004" Тогда Возврат "4"
.....
КонецЕсли;

(42) Вот жить будет (46)

(53) а может справочник соответсвий? -)))

Пока 1=1 Цикл
   Если Лев(ТвойНомер,1) = "0" Тогда
       ТвойНомер = Прав(ТвойНомер, СтрДлина(ТвойНомер)-1);
   Иначе
       Прервать;
   КонецЕсли;
КонецЦикла;

(53) Выложи весь код пжл...

ТС дибил

похоже автор толстый тролль

(44) не взлетит -)
2 + 2 = 3.9999999999999999999999999999999...

(53) надо было так делать
Если Ном = Формат(1,"ЧЦ=10; ЧВН=; ЧГ=0") Тогда Возврат "1"
ИначеЕсли Ном=Формат(2,"ЧЦ=10; ЧВН=; ЧГ=0") Тогда Возврат "2"
ИначеЕсли Ном=Формат(3,"ЧЦ=10; ЧВН=; ЧГ=0") Тогда Возврат "3"
ИначеЕсли Ном=Формат(4,"ЧЦ=10; ЧВН=; ЧГ=0") Тогда Возврат "4"
.....
КонецЕсли;

гыгыгы это развод :)

(53) дык можно же табличку соответствия забацать. Например на справочнике, а потом запросом получать соответствие.

Абаржался!!!

Тема дня, ё-моё...

(63) не по джедайски. табличку надо заполнять на лету :)

(61) Самое интересное должно быть там, где многоточие

Даже миста перестала отображать код правильна...

а можно еще вот так

Для Сч = 1 По 10000000000 Цикл
 Если Ном = Формат(Сч,"ЧЦ=10; ЧВН=; ЧГ=0") Тогда Возврат Сч;
КонецЦикла

(53) Неужели индусы кодят уже и на 1с.

(68) Миста обладает искуственным интелектом... Гов нокод не подсвечивается...

(66) да один раз можно. Количество записей, соответственно самой большой разрядности из всех документов. Надо же что бы универсально было, для многих документов )))

(68) в лайфе не кажет

(73) А в (43) тогда что?

Теперь Dooro надо создать кучу тем на мисте, чтобы эта тема похоронилась как можно глубже и как можно быстрее забылась

(75) Это уже невозможно, такие темы забываются небыстро

(66) сделать регистр сведений...
Измерение - любой возможный номер документа с нулями...
Ресурс - представление без нулей...
заполнять в модуле сеанса и пользоваться...
потом чистить, чтобы база не росла...

(74) тогда тема была еще в V8

(14)
тест


Пока Истина Цикл
Прервать;
КонецЦикла
[\1C]

(74) баг

(70) дык, был же где-то здесь Индийска Программиста.

(75) Легче новый ник придумать..

(82) три года опыта пропадет

Формат(НомерДок,"Ч10"); // для 1с77

Процедура dooro(ТвойКод)

   Нуль = Найти(ТвойКод, Символ(48));
   Если Нуль Тогда
       ТвойКод = Сред(ТвойКод,2);
       dooro(ТвойКод);
   КонецЕсли;

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

0+Номердок

(75) Да ладно вам! Человек развивается... Двигается куда-то... Вот уже дошел до "Число"...  :)

(83) Где ты опыт увидел...

(77) правильно, классификатор номеров. И пусть 1С по интернету всем подписчикам ИТС бесплатно его высылает.

(86) в 8ке вылетит

(88) В лк у Dooro
написано стаж 3 года

(90) а в 7 нет :)

(89) Название нужно придумать... Типо Общероссийский Классификатор Номеров: ОКН.

(85) а что - разрешено рекурсивно вызывать процедуры?

(89) зачем? можно ссылку на инф_остарте продавать за деньги...

+93 ...номеров документов: ОКНД.

(92) знаю... уроды еще те

(94) ЭЭЭЭЭ...это шутка?

(91) Это я видел, только где опыт не понял =)

(95)+ а здесь рекламу повесить...

(94) О_О

(94) Ну вообще-то нельзя... Но если никто не видит - то можно.

(94) О_о... меняй ник

(94) а ты попробуй, удивишься

(98) нет... это заразно...

среда удалась

(102) где нельзя?

Просто ржу :)

Тоже помогу ТС, написал функцию, она работает для длины номера в 10 символов, но можно чуть подделать и будет очень универсально

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

(103) нас за это в институте по рукам били и заставляли делать рекурсивные функции.

(92)кстати, в 8ке и бесконечная рекурсия не интересно работает :(
вылетает

(110) делай рекурсивные подпрограммы...

(111) хе :) я всегда говорил, что восьмерка гав но

(111) А есть что то, где бесконечная рекурсия работает интересно?

(114) попробуй на 77 :)

(115) + 100500

я плакаль

(107) Вот этому товарищу нельзя: aleks-id

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

мля :)))))))))))

(117) +1

бугага :))))

almar подонок...

(119) чем (8) не устроило?

(119) Это просто звиздец какой-то! Это просто генитально! Звезду товарищу almar! остальных на колыму!

(119) Бу-га-га!!!!

админы, вычислите тс по ип, накатайте руководству - пусть выкинут с соответствующей записью в трудовой!!!

(124) Ниасилен принцип действия.
И автор пока не признался, может он документы так перенумеровывает.

(111) ага, у SQL сервера бесконечные дедлоки тоже не интересно работают. отваливаются почему то.

(119) :))))))

В конфе "КД" есть очень много уже написанных функций для работы с номерами и приведением их к нужной длине, выделению префиксов и прочих. Можно посмотреть там)
(119) а если префикс?)

(124) он же сказал: "номер и так тип строка.". А в (8) Строка(...)
з.ы вообще-то в (8) надо формат(..)

Данную тему теперь нужно давать почитать всем кто ищет работничков :) чтобы знали, что можно получить от прогера за стотыщ и больше

(127) не умничай! Иди про рекурсию читай!

Не стыдно чего-нибудь не знать, но стыдно не хотеть учиться.

(132) формат там накуй не нужен, если в номере только цифры, как у ТС.

(119) БаГаГа!

(132) Вадим, вот от тебя я этого не ожидал,
загони в табло Строка(Число("00000001")) и удивись

День прожит не зря!

Через вебсевис надо делать.

(138) причем в клюшках тоже работает, мультиплатформенный код получается

Вспоминается Ганжа и тот жмот из Большой перемены.. "Аттракцион неслыханной..." тупости..

(133) вроде он с Украины. Там не стотыщ.

(140) А может кто-нить запрос накатает, который вернет нужный номер?

(141) на клюшках (86) короче будет

(138) "Вадим" -  как бэ тоже, Внезапно! :)

(146) пардон, совсем дурной стал КонецЕсли с КонецЦикла путаю

Напишу полный вариант к (41)  
СтрЗаменить(СокрЛП(СтрЗаменить("0000001001", "0", " ")), " ", "0")

мля.
где ж тут кнопка то - "добавить в базу знаний" ?

(148) тема

(148) интересный ход

almar не зря :)
Сколько людей не добрых , ужас.

(136)

00001000 - что будет на выходе из (8)?

(148) 5 баллов

(148) "010" Как отработает послеСокрЛП

(148) Однако!

(153) "1000"

(155) йес!

СтрЗаменить(СокрЛ(СтрЗаменить("0000001001", "0", " ")), " ", "0")

(155) Там будет " 10".

Да ладно вам.. Навалились... Мысль-то верная!

(158) 5+

(148) Что будет с "000 Васе И. 24"?

(158) Точно!!!

(157) а НПП куда делся ?

СокрЛП(СтрЗаменить(СокрЛ(СтрЗаменить("0000001001", "0", " ")), " ", "0"))

(155) прав, вот так будет правильно


СтрЗаменить(СокрЛ(СтрЗаменить("0000001001", "0", " ")), " ", "0")

(165) баян

(167) а вдруг справа пробел?

(148) СокрЛП заменить на СокрЛ и последние нули не стерутся

(165) он про (158)

(167) (167) он про (158)

(168) откуда?

(164) откуда ему там взяться?

люблю мисту... добрые люди... отзывчивые...

я тоже люблю :)

(172) СтрЗаменить(СокрЛП(СтрЗаменить("010", "0", " ")), " ", "0")

Подняли настроение...

(173) Будет, снеговик вредный. Придется форматировать

(175) пиши еще!

(178) ну и хер с ним :)

(172)баян.

экзамен в ГАИ.
Э.  спрашивает - "кто из этих трех машин первый проедет перекресток"
С.  - "водитель маршрутки"
Э.  - "его ж тут нет"
С. - "сейчас подъедет"

(180) что значит хер сним!?

потом же будет ветка "Как убрать пробел?"

:)

всё равно алмара способ быстрее отработает, хоть этот и в одну строчку.

(182) Это будет завтра, надо же улыбнуться в конце рабочего дня.

Для н = 1 до 10 Цикл
Если Лев(Номер,10-н)= Лев("0000000000",10-н)Тогда
   Номер=Сред(Номер,10-н);
   Прервать;
КонецЕсли;
КонецЦикла;

Весна, миграция? Внезапно - видимо самый запоздалый..

Решение с использованием запроса:

ВЫБРАТЬ
   ВЫБОР
       КОГДА ПОДСТРОКА(&Строка, 1, 1) <> "0"
           ТОГДА &Строка
       ИНАЧЕ ВЫБОР
               КОГДА ПОДСТРОКА(&Строка, 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)
                                                                   КОНЕЦ
                                                           КОНЕЦ
                                                   КОНЕЦ
                                           КОНЕЦ
                                   КОНЕЦ
                           КОНЕЦ
                   КОНЕЦ
           КОНЕЦ
   КОНЕЦ КАК Поле2

(134) а вот с этого места поподробнее. в чем был неправ мой препод по системному программированию, заставивший всех использовать только рекурсивные функции и забыть использование рекурсии в процедурах?

А никто ещё не предупреждал ТС, что когда его обрезанный номер дойдет до 9 (99,999,9999...) то автонумерация у него закончится? А что будет с возможность сортировки по номеру в форме списка документов?

+(187) Хотя зря столько вложенностей.

ВЫБРАТЬ
   ВЫБОР
       КОГДА ПОДСТРОКА(&Строка, 1, 1) <> "0"
           ТОГДА &Строка
       КОГДА ПОДСТРОКА(&Строка, 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)
   КОНЕЦ КАК Поле2

Рекурсию заказывали?

Функция УбратьНули(С,В=0)
   возврат(?(В>0,?(В  =0,С*10,УбратьНули(С,В-1)*10 ),?(СтрДлина(С) = 1,КодСимв(Лев(С,1))-КодСимв("0"),УбратьНули(Лев(С,1),СтрДлина(С)-1)+УбратьНули(Прав(С,СтрДлина(С)-1)))));
КонецФункции  

Вызов:
 УбратьНули("0000454654601")

+(192) в одну строчку смотрится красивее.

Ржунимагу!!! ))))

Осталось только вариант в (191) динамически формировать в зависимости от длины строки в номере и можно сказать, что оптимальное решение найдено

Зря первый вариант выложил(192), надо было сразу этот
Функция С(С,C=0) возврат(?(C>0,?(C  =0,С*10,С(С,C-1)*10 ),?(СтрДлина(С) = 1,КодСимв(Лев(С,1))-КодСимв("0") ,С(Лев(С,1) , СтрДлина(С)-1)+С(Прав(С,СтрДлина(С)-1))))); КонецФункции

Работет только если скопируете с сообщения :-).

(196) С и C разные?

(197) не пали контору

(187) хотел тоже подобное запостить, да писать обломался )))

мало вариантов

а предлагали такой способ?

Функция Преобразоватьвчисло(СтрокаСЗначением)
   
   Если ПустоеЗначение(СписокЗначений)=0 Тогда    
       Список    =    СоздатьОбъект("СписокЗначений");    
       Список.ИзСтрокиСРазделителями(СтрокаСЗначением);
       ПолученноеЧисло=Список.ПолучитьЗначение(1);
       Возврат ПолученноеЧисло;
   Иначе
       Сообщить("Передано некоретное значение");
   КонецЕсли;        
КонецФункции

правда еще на запятые надо проверить, а то вернёт только целую часть числа

+(201) update
Функция Преобразоватьвчисло(СтрокаСЗначением)
   
   Если ПустоеЗначение(СтрокаСЗначением)=0 Тогда    
       Список    =    СоздатьОбъект("СписокЗначений");    
       Список.ИзСтрокиСРазделителями(СтрокаСЗначением);
       ПолученноеЧисло=Список.ПолучитьЗначение(1);
       Возврат ПолученноеЧисло;
   Иначе
       Сообщить("Передано некоретное значение");
   КонецЕсли;        
КонецФункции

Формат(Число(НомерСНулями), "ЧН=; ЧГ=");

Функция ВернутьЧисло(Строка1)
Число1 = Random(999999999);
Пока Вопрос("Подходит "+Число1+" ?","Да+Нет") = "Нет" Цикл
  Число1 = Random(999999999);
конецциикла
КонецФункции

(203) .. ты действуешь как новичек ...

или так
Номер = Строка(0+номер);

удивительно, хотя и задачка простенькая, но большинство даже не врубилось, что требуется. Все повелись на преобразование в число, хотя в (0) об этом ни слова..

Ошибся, млин, корректирую.

Функция ВернутьЧисло(Строка1)
Число1 = Random(999999999);
СколькоРазСпросили =0;
Пока Вопрос("Подходит "+Число1+" ?","Да+Нет") = "Нет" Цикл
 Число1 = Random(999999999);
 СколькоРазСпросили = СколькоРазСпросили + 1;
 Если  СколькоРазСпросили = 20 тогда
   Если Вопрос("Устал?","Да+Нет") = "Да" Цикл
     прервать;
   Конецесли;
  СколькоРазСпросили = 0;
 Конецесли;
конецциикла
возврат(Число1);
КонецФункции

(201) в (0) кстати, не сказано и что нужно "_______209" или "209_______"
*  _ - пробел

сорьки, (209) -> (207)  ...кста, пост тоже 209 получился :)

(210) Нужно три символа с конца оставить приме не очень хороший.

(209) в сабже все очевидно: _Убрать_первые_нули_ из номера

(211) из сабжа нельзя сделать однозначный вывод ..впрочем как и вывод о авторе ветки. ...возможен развод

пля... вы ещё трёте об этом? Вот вам делать нефиг

(212) И  в (206) это не происходит? Преобразование в число идет)))

(213) может ему надо просто убрать видимость этих нулей ) перевести в числовой вид номер )

(215) в (206) происходит кривизна. Хинт: проверь для "1000"

(212)
Функция С(С)возврат(?(Лев(С,1)="0",С(Прав(С,СтрДлина(С)-1)),С));КонецФункции

(208) Бу га га!! Блин ну нельзя же так... я чуть под стол не упал... до слез...

(218) хз, как у тебя, но мне бабушка еще лет двадцать назад рассказывала, "внучек, не юзай рекурсию на восьмерке!"

(220) А с деревом ты как работаешь?

(221) дерево - отдельная история, там без рекурсии сложно, но (218) решается простецким линейным алгоритмом

"(220) А с деревом ты как работаешь?"
Если Обект = "Дерево" тогда
     сообщить("Да ну его нафиг");
     а=а/0;
Конецесли;

(222) .. но (218) решается простецким линейным алгоритмом
линейные для новичков

вот вам всем заняться нечем!!) Может лучше коллективом обработочку за меня напишите?

(225) Дава описание. За результат не ручаемся.

(225) Тут главное правильно подойти к созданию темы, если народ заинтересуется, то напишут запросто, а если банальщина типа перегрузить платежки из экселя в УТ, то тут уже придется самому

(227) Банально - документ, 12 таб.частей, около 50 реквизитов шапки. Перенести из 7.7 в 8.2)

Но есть, например, отчет, который не смог написать. Результат не сильно важен, но, боюсь, тухлыми помидорами закидают)

(228) на кой черт таких монстров городить 99.9% что можно было сделать по другому

Запрос.Текст =
   "ВЫБРАТЬ
   |    ВЫБОР
   |        КОГДА &Номер ПОДОБНО ""000000000_""
   |            ТОГДА ПОДСТРОКА(&Номер, 9, 1)
   |        КОГДА &Номер ПОДОБНО ""00000000__""
   |            ТОГДА ПОДСТРОКА(&Номер, 8, 2)
   |        КОГДА &Номер ПОДОБНО ""0000000___""
   |            ТОГДА ПОДСТРОКА(&Номер, 7, 3)
   |        КОГДА &Номер ПОДОБНО ""000000____""
   |            ТОГДА ПОДСТРОКА(&Номер, 6, 4)
   |        КОГДА &Номер ПОДОБНО ""00000_____""
   |            ТОГДА ПОДСТРОКА(&Номер, 5, 5)
   |        КОГДА &Номер ПОДОБНО ""0000______""
   |            ТОГДА ПОДСТРОКА(&Номер, 4, 6)
   |        КОГДА &Номер ПОДОБНО ""000_______""
   |            ТОГДА ПОДСТРОКА(&Номер, 3, 7)
   |        КОГДА &Номер ПОДОБНО ""00________""
   |            ТОГДА ПОДСТРОКА(&Номер, 2, 8)
   |        КОГДА &Номер ПОДОБНО ""0_________""
   |            ТОГДА ПОДСТРОКА(&Номер, 1, 9)
   |        ИНАЧЕ &Номер
   |    КОНЕЦ КАК Номер";
   
   Запрос.УстановитьПараметр("Номер",Номер);
   
можно еще в цикле собрать запрос )))

еще один алгоритм

Функция УбратьНули(пЧисло)
   мЧисло = пЧисло;
   Если Лев(пЧисло,1)="0" Тогда
       мЧисло = УбратьНули(Прав(пЧисло, стрДлина(пЧисло)-1));
   КонецЕсли;
   Возврат мЧисло;
КонецФункции


(232) А какая разница с (223)?  :-).

оказывается в клюшках допускается такой синтаксис:

Если ВыбФирма = ПолучитьПустоеЗначение("Справочник.Фирмы") = 1 Тогда

  Предупреждение("Задайте непустое значение Фирмы");

КонецЕсли;