Модераторы: stron
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с текстом 1с 8.2 
V
    Опции темы
Materium
Дата 22.12.2012, 18:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 127
Регистрация: 4.12.2006
Где: Питер

Репутация: нет
Всего: 2



Добрый день! Изучаю 1С 8.2
Хочу проставить артикулы во всей номенклатуре.
Тип артикула - строка, длина пусть 4.
Например: Артикул = "0001"
Теперь в цикле значение нужно увеличивать, чтобы получалось "0002"... "0010".....0011" и т.д. и присваивать очередной номенклатуре.
Подскажите функцию, которая таким образом работает со строкой.


--------------------
#!sub abc {return "ok"}${&abc()}="TMTOWTDI";print "$ok";
PM MAIL   Вверх
Materium
Дата 23.12.2012, 11:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 127
Регистрация: 4.12.2006
Где: Питер

Репутация: нет
Всего: 2



Всем большое спасибо за ответы, уже решил сам вот так:

&НаСервере
Процедура Установка()
    НовНомер = 0;
    Результат = Справочники.Номенклатура.Выбрать();
    Пока Результат.Следующий() Цикл
        НовНомер = НовНомер + 1;
        Рез = Результат.ПолучитьОбъект();
        Если Не Рез.ЭтоГруппа Тогда
            Рез.Артикул = ДополнитьСтроку(НовНомер);            
            Рез.Записать();
        КонецЕсли;
    КонецЦикла;
    Сообщить("Обработка справочника окончена, Артикулы заполнены!");
КонецПроцедуры

&НаСервере
Функция ДополнитьСтроку(Знач Парам)
    Длина=4;
    Парам = "" + Парам;
    Добавить = Длина - СтрДлина(Парам);
        Если Добавить > 0  Тогда
            Добавок="";
            Для Сч = 1 По Добавить  Цикл
            Добавок=Добавок + "0";
            КонецЦикла;
            Возврат Добавок+Парам;
        Иначе
            Возврат    Парам;
        КонецЕсли;
КонецФункции

--------------------
#!sub abc {return "ok"}${&abc()}="TMTOWTDI";print "$ok";
PM MAIL   Вверх
VOdesse
Дата 9.1.2013, 11:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 9.1.2013

Репутация: нет
Всего: нет



Юра Столбовский
Вот вам правильный результат:
&НаСервере
Процедура Установка()
НовНомер = 1;
Результат = Справочники.Номенклатура.Выбрать();

Пока Результат.Следующий() Цикл

Рез = Результат.ПолучитьОбъект();
Если Рез.ЭтоГруппа Тогда
Продолжить;
КонецЕсли;
Рез.Артикул = Формат(НовНомер,"ЧЦ=4; ЧВН=; ЧГ=0");
Рез.Записать();
НовНомер = НовНомер + 1;

КонецЦикла;

Сообщить(“Обработка справочника окончена, Артикулы заполнены!”);
КонецПроцедуры
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "1C: Предприятие, SAP, ERP и учётные системы"
stron

Запрещается!

1. Обсуждение крэков, кейгенов и других подобных программ

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

Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения.

Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...)

2. Давать ссылки на взломанные продукты

  • Пожалуйста, пользуйтесь поиском перед тем, как задать вопрос - возможно ответ уже есть на форуме.
  • Название темы должно отражать её суть
  • Действия модераторов можно обсудить здесь

С уважением, stron, Pegas.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема »


 




[ Время генерации скрипта: 0.0599 ]   [ Использовано запросов: 20 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.