Имя: Пароль:
1C
1С v8
Заполнить реквизит справочника из другого справочника
0 EKO LX
 
12.09.12
14:47
что не так?

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

   Если ИК.ЭтоГруппа Тогда
       Продолжить;
   КонецЕсли;

   НужныйОбъект = Справочники.Контрагенты.ПолучитьСсылку();
   Если НужныйОбъект.Код          = ИК.Код И
        НужныйОбъект.Наименование = ИК.Наименование
   Тогда
   Выборка = ИК.ВладелецКарты.Выбрать();
   Пока Выборка.Следующий() Цикл
   Объект = Выборка.ПолучитьОбъект();
   Объект.ВладелецКарты = НужныйОбъект.Ссылка;
   Попытка
       Объект.Записать();
   Исключение
       Предупреждение("Не удалось записать объект """ + Объект + """
                      |" + ОписаниеОшибки(),60);
   КонецПопытки;
   КонецЦикла;
       
   КонецЕсли;
   КонецЦикла;
КонецПроцедуры
1 salvator
 
12.09.12
14:49
2 ДенисЧ
 
12.09.12
14:49
НужныйОбъект = Справочники.Контрагенты.ПолучитьСсылку();

Уважаемый, стенка справа, конвой готов... Команда, Цельсь! Пли!
3 almar
 
12.09.12
14:49
Вот это что?
НужныйОбъект = Справочники.Контрагенты.ПолучитьСсылку();
4 EKO LX
 
12.09.12
14:52
не знаю поэтому спрашиваю
AdBlock убивает бесплатный контент. 1Сергей