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