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