Имя: Пароль:
1C
1С v8
Вывести код контрагента без нулей
,
0 jjorik2000
 
21.05.14
06:21
Вывожу в отчете код контрагента. Он может быть 00000001; 00000175.
Необходимо вывести всЁ без первых нулей!
ПомоХите!)
1 Лодырь
 
21.05.14
06:23
Переведи в число, укажи формат без лидирующих нулей.
2 Лодырь
 
21.05.14
06:24
Проблемы будут если добрый человек сделает тебе номер вида Ы0000666
3 Wobland
 
21.05.14
06:24
ОбщегоНазначения.ПолучитьНомерНаПечать?
4 jsmith82
 
21.05.14
06:24
Юзай функцию типовых конфиг номер документа на печать типа
5 kosts
 
21.05.14
06:45
Функция всЁбезпервыхнулей(ИсходныйНомер)
    Если ПустаяСтрока(ИсходныйНомер) или ИсходныйНомер = "0" или Лев(ИсходныйНомер, 1) <> "0" или Тогда
        Возврат ИсходныйНомер;
    Иначе
        Возврат всЁбезпервыхнулей(Сред(ИсходныйНомер, 2));
    КонецЕсли;
КонецФункции
6 Wobland
 
21.05.14
06:53
(5) "0000"
7 kosts
 
21.05.14
06:56
(6) "0" кажись
8 Wobland
 
21.05.14
07:01
(7) ага. а я хотел пустую строку ;)
9 kosts
 
21.05.14
07:03
(8) Последний ноль не первый.
10 Kookish
 
21.05.14
07:07
(0) Лень даже руку поднять и на лицо положить.
11 jjorik2000
 
21.05.14
07:33
Ребята, спасибо!
Вот такоооой вариант отлично сработал:

КодКонтрагента = ВыборкаДетальныеЗаписи.Код;
КодКонтрагента = СтрЗаменить(Формат(Число(КодКонтрагента), "ЧРГ='_'"), "_", "");
12 jjorik2000
 
21.05.14
07:35
Но если нет префиксов!!!(
Если код ММ00001, то ошибка!
{Форма.ФормаОтчета.Форма(22)}: Преобразование значения к типу Число не может быть выполнено
13 Starhan
 
21.05.14
07:50
Замени префикс на ноли или пробел.
14 jjorik2000
 
21.05.14
07:53
СПС!)
Программист всегда исправляет последнюю ошибку.