Бухгалтерский учет, налогообложение, отчетность, МСФО, анализ бухгалтерской информации, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Перебрать и обработать программно свойства контрагентов

Thorben
читатель
офлайн
Дата регистрации: 12.02.2009
Сообщений: 156
Пост №1
 
27.04.2009 09:15

Уважаемые специалисты. У нас в УТ 1С: Предприятие 8.1 последний релиз для всей номенклатуры установлен ряд свойств на одноименной закладке. Например есть свойства А и Б. У каждого свойства могут быть разные значения. Возможно ли программно их перебрать и установить нужные значения?
За пару строк кода был бы благодарен.

Денис (САМАРА)
активный пользователь
офлайн
Дата регистрации: 09.04.2008
Сообщений: 8351
Пост №2
 
27.04.2009 12:34

"НужноеСвойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Нужное");
ЗаменяемоеЗначение = 500;

Если НужноеСвойство.Пустая() Тогда
Сообщить("Не найдено свойство по наименованию """""Нужное"""", СтатусСообщения.Внимание);
Возврат;
КонецЕсли;

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЗначенияСвойствОбъектов.Объект КАК Ссылка
|ИЗ
| РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
|ГДЕ
| ЗначенияСвойствОбъектов.Свойство = &Свойство
| И ЗначенияСвойствОбъектов.Значение = &Значение"
;

Запрос.УстановитьПараметр("Свойство", НужноеСвойство);
Запрос.УстановитьПараметр("Значение", ЗаменяемоеЗначение);

ВыборкаКонтрагентов = Запрос.Выполнить().Выбрать();

НаборЗаписей = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Свойство.Установить(НужноеСвойство);

Пока ВыборкаКонтрагентов.Следующий() Цикл

НаборЗаписей.Отбор.Объект.Установить(ВыборкаКонтрагентов.Ссылка);

НаборЗаписей.Прочитать();

НаборЗаписей[0].Объект = ВыборкаКонтрагентов.Ссылка;
НаборЗаписей[0].Свойство = НужноеСвойство;
НаборЗаписей[0].Значение = 100;

НаборЗаписей.Записать();

КонецЦикла;"

Thorben
читатель
офлайн
Дата регистрации: 12.02.2009
Сообщений: 156
Пост №3
 
27.04.2009 12:39

Спасибо! Буду пробовать.

Показывать по 10 20 40 сообщений

Читают тему:

1 гостей
Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация
Предложения партнеров
Обучение пользователей продуктов 1С

1С бесплатно 1С-Отчетность 1С:ERP Управление предприятием 1С:Бесплатно 1С:Бухгалтерия 8 1С:Бухгалтерия 8 КОРП 1С:Бухгалтерия автономного учреждения 1С:Бухгалтерия государственного учреждения 1С:Бюджет муниципального образования 1С:Бюджет поселения 1С:Вещевое довольствие 1С:Деньги 1С:Документооборот 1С:Зарплата и кадры бюджетного учреждения 1С:Зарплата и кадры государственного учреждения 1С:Зарплата и управление персоналом 1С:Зарплата и управление персоналом КОРП 1С:Комплексная автоматизация 8 1С:Лекторий 1С:Предприятие 1С:Предприятие 7.7 1С:Предприятие 8 1С:Розница 1С:Управление нашей фирмой 1С:Управление производственным предприятием 1С:Управление торговлей 1СПредприятие 8

Все теги