v8: Акт сверки взаиморасчетов в разрезе договоров

 перем Организация, Контрагент, ДоговорКонтрагента, Сделка, ДатаНачала, ДатаОкончания, Комментарий, Ответственный, ВалютаДокумента, ПредставительОрганизации, ПредставительКонтрагента, ОстатокНаНачало, Расхождение, СверкаСогласована, ПоДаннымОрганизации, ПоДаннымКонтрагента, СписокСчетов, Дата, Номер, Проведен, Ссылка;

перем МассивОбъектов, ОбъектыПечати, МетаданныеПоДокументам, мВалютаРегламентированногоУчета;





Организация = СсылкаНаОбъект.Организация;

Контрагент = СсылкаНаОбъект.Контрагент;

ДоговорКонтрагента = СсылкаНаОбъект.ДоговорКонтрагента;

Сделка = СсылкаНаОбъект.Сделка;

ДатаНачала = СсылкаНаОбъект.ДатаНачала;

ДатаОкончания = СсылкаНаОбъект.ДатаОкончания;

Комментарий = СсылкаНаОбъект.Комментарий;

Ответственный = СсылкаНаОбъект.Ответственный;

ВалютаДокумента = СсылкаНаОбъект.ВалютаДокумента;

ПредставительОрганизации = СсылкаНаОбъект.ПредставительОрганизации;

ПредставительКонтрагента = СсылкаНаОбъект.ПредставительКонтрагента;

ОстатокНаНачало = СсылкаНаОбъект.ОстатокНаНачало;

Расхождение = СсылкаНаОбъект.Расхождение;

СверкаСогласована = СсылкаНаОбъект.СверкаСогласована;

ПоДаннымОрганизации = СсылкаНаОбъект.ПоДаннымОрганизации;

ПоДаннымКонтрагента = СсылкаНаОбъект.ПоДаннымКонтрагента;

СписокСчетов = СсылкаНаОбъект.СписокСчетов;

Дата = СсылкаНаОбъект.Дата;

Номер = СсылкаНаОбъект.Номер;

Проведен = СсылкаНаОбъект.Проведен;

ПометкаУдаления = СсылкаНаОбъект.ПометкаУдаления;

Ссылка = СсылкаНаОбъект;

МассивОбъектов = Новый Массив;

МассивОбъектов.Добавить(СсылкаНаОбъект);

ОбъектыПечати = Новый СписокЗначений;





КоличествоСчетов = СписокСчетов.Количество();





ФильтрСписокСчетов = Новый массив();

Для каждого СтрокаСчета Из СписокСчетов Цикл

	Если НЕ ЗначениеЗаполнено(СтрокаСчета.Счет) или СтрокаСчета.УчаствуетВРасчетах = Ложь Тогда

		Продолжить;

	Иначе

		ФильтрСписокСчетов.Добавить(СтрокаСчета.Счет);

	КонецЕсли; 

КонецЦикла; 

ЗаполнитьПоДаннымБухгалтерскогоУчетаВТ(ФильтрСписокСчетов);

//Процедура заполнения

Если ФильтрСписокСчетов = Неопределено Тогда

	

	СписокСчетовСтрока = "";

	Для каждого СтрокаСчета Из СписокСчетов Цикл

		Если НЕ ЗначениеЗаполнено(СтрокаСчета.Счет) или СтрокаСчета.УчаствуетВРасчетах = Ложь Тогда

			Продолжить;

		Иначе

			СписокСчетовСтрока = СписокСчетовСтрока + ?(ПустаяСтрока(СписокСчетовСтрока), "", ", ") + Строка(СтрокаСчета.Счет);

		КонецЕсли; 

	КонецЦикла; 

	

	ФильтрСписокСчетов = БухгалтерскийУчет.ПолучитьМассивСчетов("Хозрасчетный", СписокСчетовСтрока);

	

	Если ФильтрСписокСчетов.Количество() = 0 Тогда

		ОбщегоНазначения.СообщитьОбОшибке("Неверно задан список счетов, по которым производится сверка!",,,СтатусСообщения.Важное);

		Возврат;

	КонецЕсли;

	

Иначе

	

	СписокСчетовСтрока = "";

	Для Каждого Счет ИЗ ФильтрСписокСчетов Цикл

		СписокСчетовСтрока = СписокСчетовСтрока + ?(ПустаяСтрока(СписокСчетовСтрока), "", ", ") + Строка(Счет);

	КонецЦикла;

	

	ФильтрСписокСчетов = БухгалтерскийУчет.ПолучитьМассивСчетов("Хозрасчетный", СписокСчетовСтрока);

	

КонецЕсли; 





Запрос = Новый Запрос;

Запрос.УстановитьПараметр("ДатаНачала",    ?(НЕ ЗначениеЗаполнено(ДатаНачала),    Неопределено, ДатаНачала));

Запрос.УстановитьПараметр("ДатаОкончания", ?(НЕ ЗначениеЗаполнено(ДатаОкончания), Неопределено, КонецДня(ДатаОкончания)));

Запрос.УстановитьПараметр("Организация",   Организация);

Запрос.УстановитьПараметр("Контрагент",    Контрагент);

Запрос.УстановитьПараметр("Валюта",        ?(НЕ ЗначениеЗаполнено(ВалютаДокумента) или (ВалютаДокумента = мВалютаРегламентированногоУчета), неопределено,ВалютаДокумента));

Запрос.УстановитьПараметр("ФильтрСписокСчетов", ФильтрСписокСчетов);





АналитикаРасчетов = новый Массив();

АналитикаРасчетов.Добавить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты);

АналитикаРасчетов.Добавить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Договоры);

Запрос.УстановитьПараметр("АналитикаРасчетов",    АналитикаРасчетов);





Запрос.УстановитьПараметр("ДоговорКонтрагента", ?(НЕ ЗначениеЗаполнено(ДоговорКонтрагента),Неопределено,ДоговорКонтрагента));





Запрос.Текст = 

"ВЫБРАТЬ

|	ХозрасчетныйОбороты.Период КАК Дата,

|	ХозрасчетныйОбороты.Регистратор КАК ДокументРегистратор,

|	ХозрасчетныйОбороты.Субконто2 КАК Договор,

|	ВЫБОР

|		КОГДАВалюта = НЕОПРЕДЕЛЕНО

|			ТОГДА ХозрасчетныйОбороты.СуммаОборотДт

|		ИНАЧЕ ХозрасчетныйОбороты.ВалютнаяСуммаОборотДт

|	КОНЕЦ КАК Дебет,

|	ВЫБОР

|		КОГДАВалюта = НЕОПРЕДЕЛЕНО

|			ТОГДА ХозрасчетныйОбороты.СуммаОборотКт

|		ИНАЧЕ ХозрасчетныйОбороты.ВалютнаяСуммаОборотКт

|	КОНЕЦ КАК Кредит,

|	ЕСТЬNULL(ХозрасчетныйОбороты.Регистратор.НомерВходящегоДокумента, НЕОПРЕДЕЛЕНО) КАК НомерВходящегоДокумента,

|	ЕСТЬNULL(ХозрасчетныйОбороты.Регистратор.ДатаВходящегоДокумента, НЕОПРЕДЕЛЕНО) КАК ДатаВходящегоДокумента,

|	ХозрасчетныйОбороты.КорСчет,

|	ХозрасчетныйОбороты.КорСубконто1,

|	ХозрасчетныйОбороты.КорСубконто2,

|	ХозрасчетныйОбороты.КорСубконто3,

|	ХозрасчетныйОбороты.Валюта,

|	ХозрасчетныйОбороты.ВалютнаяСуммаОборот,

|	ВЫБОР

|		КОГДА ХозрасчетныйОбороты.КорСубконто1 ССЫЛКА Справочник.ПрочиеДоходыИРасходы

|			ТОГДА ХозрасчетныйОбороты.КорСубконто1.ВидПрочихДоходовИРасходов

|		ИНАЧЕ НЕОПРЕДЕЛЕНО

|	КОНЕЦ КАК ВидПрочихДоходовИРасходов,

|	ХозрасчетныйОбороты.Счет

|ПОМЕСТИТЬ ВременнаяТаблицаДанных

|ИЗ

|	РегистрБухгалтерии.Хозрасчетный.Обороты(

|			&ДатаНачала,

|			&ДатаОкончания,

|			Регистратор,

|			Счет В (&ФильтрСписокСчетов),

|			&АналитикаРасчетов,

|			Организация =Организация

|				И ВЫБОР

|					КОГДАВалюта = НЕОПРЕДЕЛЕНО

|						ТОГДА ИСТИНА

|					ИНАЧЕ Валюта =Валюта

|				КОНЕЦ

|				И Субконто1 =Контрагент

|				И ВЫБОР

|					КОГДАДоговорКонтрагента = НЕОПРЕДЕЛЕНО

|						ТОГДА ИСТИНА

|					ИНАЧЕ Субконто2 =ДоговорКонтрагента

|				КОНЕЦ,

|			,

|			) КАК ХозрасчетныйОбороты

|ГДЕ

|	ВЫБОР

|			КОГДА ХозрасчетныйОбороты.КорСчет В (&ФильтрСписокСчетов)

|				ТОГДА ВЫБОР

|						КОГДАДоговорКонтрагента = НЕОПРЕДЕЛЕНО

|							ТОГДА НЕ ЕСТЬNULL(ХозрасчетныйОбороты.КорСубконто1, НЕОПРЕДЕЛЕНО) =Контрагент

|						ИНАЧЕ НЕ(ЕСТЬNULL(ХозрасчетныйОбороты.КорСубконто1, НЕОПРЕДЕЛЕНО) =Контрагент

|									И ЕСТЬNULL(ХозрасчетныйОбороты.КорСубконто2, НЕОПРЕДЕЛЕНО) =ДоговорКонтрагента)

|					КОНЕЦ

|			ИНАЧЕ ИСТИНА

|		КОНЕЦ

|	И НЕ(ВЫБОР

|					КОГДАВалюта = НЕОПРЕДЕЛЕНО

|						ТОГДА ХозрасчетныйОбороты.СуммаОборотДт

|					ИНАЧЕ ХозрасчетныйОбороты.ВалютнаяСуммаОборотДт

|				КОНЕЦ = 0

|				И ВЫБОР

|					КОГДАВалюта = НЕОПРЕДЕЛЕНО

|						ТОГДА ХозрасчетныйОбороты.СуммаОборотКт

|					ИНАЧЕ ХозрасчетныйОбороты.ВалютнаяСуммаОборотКт

|				КОНЕЦ = 0)

|;

|

|////////////////////////////////////////////////////////////////////////////////

|ВЫБРАТЬ

|	ВременнаяТаблицаДанных.Дата,

|	ВременнаяТаблицаДанных.ДокументРегистратор,

|	ВременнаяТаблицаДанных.Договор,

|	СУММА(ВременнаяТаблицаДанных.Дебет) КАК Дебет,

|	СУММА(ВременнаяТаблицаДанных.Кредит) КАК Кредит,

|	ВременнаяТаблицаДанных.НомерВходящегоДокумента,

|	ВременнаяТаблицаДанных.ДатаВходящегоДокумента,

|	ВременнаяТаблицаДанных.КорСчет,

|	ВЫРАЗИТЬ(ВременнаяТаблицаДанных.КорСубконто1 КАК Справочник.ПрочиеДоходыИРасходы) КАК КорСубконто1,

|	ВременнаяТаблицаДанных.Валюта,

|	СУММА(ВременнаяТаблицаДанных.ВалютнаяСуммаОборот) КАК ВалютнаяСуммаОборот,

|	ВременнаяТаблицаДанных.ВидПрочихДоходовИРасходов,

|	ВременнаяТаблицаДанных.Счет

|ИЗ

|	ВременнаяТаблицаДанных КАК ВременнаяТаблицаДанных

|

|СГРУППИРОВАТЬ ПО

|	ВременнаяТаблицаДанных.Договор,

|	ВременнаяТаблицаДанных.НомерВходящегоДокумента,

|	ВременнаяТаблицаДанных.ДатаВходящегоДокумента,

|	ВременнаяТаблицаДанных.КорСчет,

|	ВЫРАЗИТЬ(ВременнаяТаблицаДанных.КорСубконто1 КАК Справочник.ПрочиеДоходыИРасходы),

|	ВременнаяТаблицаДанных.Валюта,

|	ВременнаяТаблицаДанных.ВидПрочихДоходовИРасходов,

|	ВременнаяТаблицаДанных.Счет,

|	ВременнаяТаблицаДанных.Дата,

|	ВременнаяТаблицаДанных.ДокументРегистратор

|

|ИМЕЮЩИЕ

|	НЕ(СУММА(ВременнаяТаблицаДанных.Дебет) = 0

|			И СУММА(ВременнаяТаблицаДанных.Кредит) = 0)

|

|УПОРЯДОЧИТЬ ПО

|	ВременнаяТаблицаДанных.Дата,

|	ВременнаяТаблицаДанных.ДокументРегистратор";





Выборка = Запрос.Выполнить().Выбрать();

ТдРезультат=Запрос.Выполнить().Выгрузить();