![]() |
Модераторы: stron |
![]() ![]() ![]() |
|
Materium |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 127 Регистрация: 4.12.2006 Где: Питер Репутация: нет Всего: 2 |
Добрый день! Изучаю 1С 8.2
Хочу проставить артикулы во всей номенклатуре. Тип артикула - строка, длина пусть 4. Например: Артикул = "0001" Теперь в цикле значение нужно увеличивать, чтобы получалось "0002"... "0010".....0011" и т.д. и присваивать очередной номенклатуре. Подскажите функцию, которая таким образом работает со строкой. --------------------
#!sub abc {return "ok"}${&abc()}="TMTOWTDI";print "$ok"; |
|||
|
||||
Materium |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 127 Регистрация: 4.12.2006 Где: Питер Репутация: нет Всего: 2 |
Всем большое спасибо за ответы, уже решил сам вот так:
&НаСервере Процедура Установка() НовНомер = 0; Результат = Справочники.Номенклатура.Выбрать(); Пока Результат.Следующий() Цикл НовНомер = НовНомер + 1; Рез = Результат.ПолучитьОбъект(); Если Не Рез.ЭтоГруппа Тогда Рез.Артикул = ДополнитьСтроку(НовНомер); Рез.Записать(); КонецЕсли; КонецЦикла; Сообщить("Обработка справочника окончена, Артикулы заполнены!"); КонецПроцедуры &НаСервере Функция ДополнитьСтроку(Знач Парам) Длина=4; Парам = "" + Парам; Добавить = Длина - СтрДлина(Парам); Если Добавить > 0 Тогда Добавок=""; Для Сч = 1 По Добавить Цикл Добавок=Добавок + "0"; КонецЦикла; Возврат Добавок+Парам; Иначе Возврат Парам; КонецЕсли; КонецФункции --------------------
#!sub abc {return "ok"}${&abc()}="TMTOWTDI";print "$ok"; |
|||
|
||||
VOdesse |
|
|||
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 9.1.2013 Репутация: нет Всего: нет |
Юра Столбовский
Вот вам правильный результат: &НаСервере Процедура Установка() НовНомер = 1; Результат = Справочники.Номенклатура.Выбрать(); Пока Результат.Следующий() Цикл Рез = Результат.ПолучитьОбъект(); Если Рез.ЭтоГруппа Тогда Продолжить; КонецЕсли; Рез.Артикул = Формат(НовНомер,"ЧЦ=4; ЧВН=; ЧГ=0"); Рез.Записать(); НовНомер = НовНомер + 1; КонецЦикла; Сообщить(“Обработка справочника окончена, Артикулы заполнены!”); КонецПроцедуры |
|||
|
||||
![]() ![]() ![]() |
Правила форума "1C: Предприятие, SAP, ERP и учётные системы" | |
|
Запрещается! 1. Обсуждение крэков, кейгенов и других подобных программ Пробуйте искать сами или обращайтесь в приват к участникам форума. Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения. Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...) 2. Давать ссылки на взломанные продукты
|
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |