Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

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

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

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

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

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

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

"НужноеСвойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Нужное");<br> ЗаменяемоеЗначение = 500;<br> <br> Если НужноеСвойство.Пустая() Тогда<br> Сообщить("Не найдено свойство по наименованию """""Нужное"""", СтатусСообщения.Внимание);<br> Возврат;<br> КонецЕсли; <br> <br> Запрос = Новый Запрос;<br> Запрос.Текст =<br> "ВЫБРАТЬ<br> | ЗначенияСвойствОбъектов.Объект КАК Ссылка<br> |ИЗ<br> | РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов<br> |ГДЕ<br> | ЗначенияСвойствОбъектов.Свойство = &Свойство<br> | И ЗначенияСвойствОбъектов.Значение = &Значение"<br> ;<br> <br> Запрос.УстановитьПараметр("Свойство", НужноеСвойство);<br> Запрос.УстановитьПараметр("Значение", ЗаменяемоеЗначение);<br> <br> ВыборкаКонтрагентов = Запрос.Выполнить().Выбрать();<br> <br> НаборЗаписей = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей();<br> НаборЗаписей.Отбор.Свойство.Установить(НужноеСвойство);<br> <br> Пока ВыборкаКонтрагентов.Следующий() Цикл<br> <br> НаборЗаписей.Отбор.Объект.Установить(ВыборкаКонтрагентов.Ссылка);<br> <br> НаборЗаписей.Прочитать();<br> <br> НаборЗаписей[0].Объект = ВыборкаКонтрагентов.Ссылка;<br> НаборЗаписей[0].Свойство = НужноеСвойство;<br> НаборЗаписей[0].Значение = 100;<br> <br> НаборЗаписей.Записать();<br> <br> КонецЦикла;"

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

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

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

Читают тему:

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