Имя: Пароль:
1C
1С v8
Дополнительный реквизит
0 programer_
1c_nn15
 
28.09.11
14:31
Добрый день , в Бухгалтерии нужно программно получить дополнительный реквизит справочника, реквизит создан в пользовательском режиме, вариант ссылка.назвреквизита не срабатывает, кто знает подскажите
1 Нуф-Нуф
 
28.09.11
14:32
эээ дополнительный реквизит в пользовательском режиме?
2 programer_
1c_nn15
 
28.09.11
14:32
да сэр!))
3 sda553
 
28.09.11
14:35
избранные пользователи могут менять матрицу под себя.
4 Anita_Rost
 
28.09.11
14:38
Опиши подробней вопрос. А то ничего не понятно. И напиши управляемое приложение или нет
5 sda553
 
28.09.11
14:38
а...понял 1С 8.2
6 Aprobator
 
28.09.11
14:40
сдается мне, что этот реквизит, что то типа характеристики.
7 programer_
1c_nn15
 
28.09.11
14:40
Нувобщем всё просто , нужно создать реквизит при этом не поменяв конфигурацию, в справочнике подразделения. Заходим в элемент справочника, наверху на панели инстр. есть кнопка с характерным названием "Дополнительные реквизиты"
8 Aprobator
 
28.09.11
14:40
и искать надо в РС, с которым связано поле, в котором пользователь создает этот "реквизит".
9 Ненавижу 1С
 
гуру
28.09.11
14:41
а бухгалтера еще не могут дополнительные подписки на проведение документов создавать?
10 Aprobator
 
28.09.11
14:41
(7) что и требовалось доказать.
11 Reaper_1c
 
28.09.11
14:41
Стаж 4 года..
12 programer_
1c_nn15
 
28.09.11
14:41
До этого использовал категории и свойства вот решил выяснить что это за зверь такой дополнительный реквизит))
13 unregistered
 
28.09.11
14:44
(0) Запрос к регистру сведений ЗначенияСвойствОбъектов с отбором по "Объект" - ссылка на документ и "Свойство" - элемент ПВХ "СвойстваОбъектов".
14 programer_
1c_nn15
 
28.09.11
14:46
похоже это и есть категории и свойства
15 Anita_Rost
 
28.09.11
14:47
(14) ага
16 programer_
1c_nn15
 
28.09.11
15:00
Тогда как то так

Функция ОпределитьЗначениеСвойства(ЗначениеСвойства,ВыбОбъект) Экспорт
  Перем Стр;
   
  Стр = "";
   
  Спр = ПланыВидовХарактеристик.СвойстваОбъектов;
  ВыбСпр = Спр.НайтиПоНаименованию(ЗначениеСвойства);
  Если Не ВыбСпр = Спр.ПустаяСсылка() Тогда
      Запрос = Новый Запрос("
      |Выбрать * Из РегистрСведений.ЗначенияСвойствОбъектов
      |ГДЕ Объект = &ВыбОбъект И Свойство = &ВыбСвойство");

      Запрос.УстановитьПараметр("ВыбОбъект",ВыбОбъект);
      Запрос.УстановитьПараметр("ВыбСвойство",ВыбСпр);
       
      Выборка = Запрос.Выполнить().Выбрать();
      Выборка.Следующий();
      Стр = Выборка.Значение;
  КонецЕсли;    
   
  Возврат Стр;    
КонецФункции
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший