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