4
mzelensky
10.08.11
✎
17:02
|
(3) +++
я правда вот так делал
Запрос = V81.NewObject("запрос");
ПарамКонтр="";
Если ИД<>"" тогда
К=V81.Справочники.Контрагенты.ПолучитьСсылку(ИД);
Запрос.УстановитьПараметр("ПарамКонтр", К.ссылка);
ПарамКонтр=" И (Контр.Ссылка=&ПарамКонтр) ";
КонецЕсли;
Запрос.Текст = "ВЫБРАТЬ
//|ПЕРВЫЕ 5
| Контр.Ссылка как КСсылка,
| Контр.Наименование как Наименование,
| Контр.Комментарий,
| Контр.ЮрФизЛицо,
| Контр.КПП,
| Контр.ИНН,
| Контр.КодПоОКПО,
| Контр.НаименованиеПолное,
| Контр.ДокументУдостоверяющийЛичность,
|
| дог.Наименование как ДогНаимен,
| дог.Ссылка как ДСсылка,
| дог.Владелец,
| дог.ВидДоговора,
| дог.ВалютаВзаиморасчетов как Валюта,
| дог.ВедениеВзаиморасчетов как Взаиморасчеты
|ИЗ
| Справочник.Контрагенты КАК Контр
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ДоговорыКонтрагентов КАК дог
| ПО Контр.Ссылка = дог.Владелец
|ГДЕ
| (дог.Организация =&Орг)
| И (Контр.ЭтоГруппа = ЛОЖЬ)
| И (НЕ дог.Ссылка ЕСТЬ NULL )
| "+ ПарамКонтр +"
|
|УПОРЯДОЧИТЬ ПО
| Контр.наименование
|ИТОГИ ПО
| Контр.Ссылка";
Запрос.УстановитьПараметр("Орг", V81.Справочники.Организации.НайтиПоНаименованию(Элементыформы.ОргИсточника.Значение));
РодП=Справочники.Контрагенты.НайтиПоНаименованию(ПодразделениеПриемника.Наименование);
Если РодП.Пустая() тогда
РодП=Справочники.Контрагенты.СоздатьГруппу();
РодП.Наименование=ПодразделениеПриемника.Наименование;
РодП.Записать();
КонецЕсли;
//Заполняем связку контрагента и договора
выборка = запрос.выполнить().выбрать(V81.обходрезультатаЗапроса.ПоГруппировкам);
пока выборка.следующий() цикл
СтрокаUID = V81.XMLСтрока(Выборка.КСсылка.УникальныйИдентификатор());
|
|