УТ 11.4: Новая архитектура взаиморасчетов - отчеты и обработки

 ВЫБРАТЬ
    вв0.АналитикаУчетаПоПартнерам КАК АналитикаУчетаПоПартнерам,
    вв0.ЗаказКлиента КАК ЗаказКлиента,
    вв0.Валюта КАК Валюта,
    вв0.АналитикаУчетаПоПартнерам.Партнер КАК Партнер,
    СУММА(вв0.СуммаПриход) КАК СуммаПриход,
    СУММА(вв0.ДолгПриход) КАК ДолгПриход,
    СУММА(вв0.ПредоплатаПриход) КАК ПредоплатаПриход,

    СУММА(вв0.СуммаРасход) КАК СуммаРасход,
    СУММА(вв0.ДолгРасход) КАК ДолгРасход,
    СУММА(вв0.ПредоплатаРасход) КАК ПредоплатаРасход,

    СУММА(вв0.СуммаПриход - вв0.СуммаРасход - (вв0.ДолгПриход+вв0.ПредоплатаРасход - вв0.ДолгРасход-вв0.ПредоплатаПриход)) КАК Разность
ИЗ
    (ВЫБРАТЬ
        РасчетыСКлиентамиОбороты.АналитикаУчетаПоПартнерам КАК АналитикаУчетаПоПартнерам,
        РасчетыСКлиентамиОбороты.ЗаказКлиента КАК ЗаказКлиента,
        РасчетыСКлиентамиОбороты.Валюта КАК Валюта,
        РасчетыСКлиентамиОбороты.СуммаПриход КАК СуммаПриход,
        РасчетыСКлиентамиОбороты.СуммаРасход КАК СуммаРасход,
        0 КАК ПредоплатаПриход,
        0 КАК ПредоплатаРасход,
        0 КАК ДолгПриход,
        0 КАК ДолгРасход
    ИЗ
        РегистрНакопления.РасчетыСКлиентами.Обороты(&НачалоПериода,&КонецПериода , , ) КАК РасчетыСКлиентамиОбороты
    
    ОБЪЕДИНИТЬ ВСЕ
    
    ВЫБРАТЬ
        РасчетыСКлиентамиПоСрокамОбороты.АналитикаУчетаПоПартнерам,
        РасчетыСКлиентамиПоСрокамОбороты.ОбъектРасчетов,
        РасчетыСКлиентамиПоСрокамОбороты.Валюта,
        0,
        0,
        РасчетыСКлиентамиПоСрокамОбороты.ПредоплатаПриход,
        РасчетыСКлиентамиПоСрокамОбороты.ПредоплатаРасход,
        РасчетыСКлиентамиПоСрокамОбороты.ДолгПриход,
        РасчетыСКлиентамиПоСрокамОбороты.ДолгРасход
    ИЗ
        РегистрНакопления.РасчетыСКлиентамиПоСрокам.Обороты(&НачалоПериода,&КонецПериода , , ) КАК РасчетыСКлиентамиПоСрокамОбороты) КАК вв0
        ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.АналитикаУчетаПоПартнерам КАК РегАналитика
        ПО (РегАналитика.КлючАналитики = вв0.АналитикаУчетаПоПартнерам)
{ГДЕ
    вв0.АналитикаУчетаПоПартнерам.Партнер.*}

СГРУППИРОВАТЬ ПО
    вв0.АналитикаУчетаПоПартнерам,
    вв0.ЗаказКлиента,
    вв0.Валюта,
    вв0.АналитикаУчетаПоПартнерам.Партнер

ИМЕЮЩИЕ
    не СУММА(вв0.СуммаПриход - вв0.СуммаРасход - (вв0.ДолгПриход+вв0.ПредоплатаРасход - вв0.ДолгРасход-вв0.ПредоплатаПриход))=0
 

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

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
	Если ОбменДанными.Загрузка Тогда
		Возврат;
	КонецЕсли;
	
	ДополнительныеСвойства.Вставить("ЭтоНовый",    ЭтоНовый());
	ДополнительныеСвойства.Вставить("РежимЗаписи", РежимЗаписи);
КонецПроцедуры


Процедура ОбработкаПроведения(Отказ, РежимПроведения)
	
	ПроведениеСерверУТ.ИнициализироватьДополнительныеСвойстваДляПроведения(Ссылка, ДополнительныеСвойства, РежимПроведения);	
	
	Движения.РасчетыСКлиентами.Записывать=Истина;
	
	// ........
	// здесь формируется набор записей регистра накопления РасчетыСКлиентами
	
	ПроведениеСерверУТ.ЗаписатьНаборыЗаписей(ЭтотОбъект);
	
	
КонецПроцедуры