Имя: Пароль:
1C
1С v8
Выбрать подходящий элемент (Контрагент и Инф. карта)
0 EKO LX
 
12.09.12
14:27
Здравствуйте. Хочу заполнить реквизит "ВладелецКарты" справочника ИнформационныеКарты из соответственно из справочника Контрагенты при условии что Код и Наименование этих справочников совпадает. очень легкая задачка, я не программист поэтому мне трудно. вот моя версия

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

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

   НужныйОбъект = Справочники.Контрагенты.ПолучитьСсылку();
   Если НужныйОбъект.Код          = ИК.Код И
        НужныйОбъект.Наименование = ИК.Наименование
   Тогда
   Выборка = ИК.ВладелецКарты.Выбрать();
   Пока Выборка.Следующий() Цикл
   Объект = Выборка.ПолучитьОбъект();
   Объект.ВладелецКарты = НужныйОбъект.Ссылка;
   Попытка
       Объект.Записать();
   Исключение
       Предупреждение("Не удалось записать объект """ + Объект + """
                      |" + ОписаниеОшибки(),60);
   КонецПопытки;
   КонецЦикла;
       
   КонецЕсли;
   КонецЦикла;
КонецПроцедуры
1 salvator
 
12.09.12
14:30
Бррр...
2 salvator
 
12.09.12
14:31
А вопрос-то в чем, собственно?
3 EKO LX
 
12.09.12
14:31
еще что нибудь?
4 EKO LX
 
12.09.12
14:31
Хочу заполнить реквизит "ВладелецКарты" справочника ИнформационныеКарты из соответственно из справочника Контрагенты при условии что Код и Наименование этих справочников совпадает
5 EKO LX
 
12.09.12
14:33
реквизит "ВладелецКарты" имеет тип данных СправочникСсылка.Контрагенты, СправочникСсылка.ФизическиеЛица, СправочникСсылка.Пользователи. нужно выбрать СправочникСсылка.Контрагенты
6 salvator
 
12.09.12
14:35
(4) В запросе добавь левое соединение со справочником Контрагенты по коду и наименованию. И потом при обходе выборки получай объект и записывай в него владельца.
7 EKO LX
 
12.09.12
14:37
а я что написал? разве не одно и тоже

Выборка = ИК.ВладелецКарты.Выбрать();
   Пока Выборка.Следующий() Цикл
   Объект = Выборка.ПолучитьОбъект();
   Объект.ВладелецКарты = НужныйОбъект.Ссылка;
8 EKO LX
 
12.09.12
14:41
Народ пожалуйста помогите, срочно нужно