v8.2 УП: отчет Взаиморасчеты с Комиссионерами

 

/////////////////////Долг комиссионера



ВЫБРАТЬ

	ВзаиморасчетыСКонтрагентамиОстаткиИОбороты.Контрагент,

	ВзаиморасчетыСКонтрагентамиОстаткиИОбороты.ДоговорКонтрагента,

	ВзаиморасчетыСКонтрагентамиОстаткиИОбороты.СуммаВзаиморасчетовКонечныйОстаток

Поместить ДолгКомиссионера

	ИЗ

РегистрНакопления.ВзаиморасчетыСКонтрагентами.ОстаткиИОбороты(&ДатаНачало, &ДатаОкончания, , , ДоговорКонтрагента.ВидДоговора = &ВидДоговора) КАК ВзаиморасчетыСКонтрагентамиОстаткиИОбороты;



///////////////////Вознаграждение за период

ВЫБРАТЬ

	НДСРасчетыСПоставщиками.Поставщик КАК Контрагент ,

	НДСРасчетыСПоставщиками.ДоговорКонтрагента,

	СУММА(НДСРасчетыСПоставщиками.Сумма) КАК СуммаВознаграждения

ПОМЕСТИТЬ Вознаграждение

ИЗ

	РегистрНакопления.НДСРасчетыСПоставщиками КАК НДСРасчетыСПоставщиками

ГДЕ

	НДСРасчетыСПоставщиками.Период МЕЖДУ &ДатаНачало И &ДатаОкончания

	И НДСРасчетыСПоставщиками.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)



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

	НДСРасчетыСПоставщиками.Поставщик,

	НДСРасчетыСПоставщиками.ДоговорКонтрагента

;

/////СуммаОплатыЗаПериод

ВЫБРАТЬ

	ДвиженияДенежныхСредств.Контрагент КАК 	Контрагент,

	ДвиженияДенежныхСредств.ДоговорКонтрагента КАК ДоговорКонтрагента,

	СУММА(ДвиженияДенежныхСредств.Сумма) КАК СуммаОплаты

ПОМЕСТИТЬ СуммаОплатыЗаПериод

ИЗ

	РегистрНакопления.ДвиженияДенежныхСредств КАК ДвиженияДенежныхСредств

ГДЕ

	ДвиженияДенежныхСредств.Период МЕЖДУ &ДатаНачало И &ДатаОкончания



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

	ДвиженияДенежныхСредств.Контрагент, ДвиженияДенежныхСредств.ДоговорКонтрагента

;

//////////////Оборот по документу РеализаицияТоваровУслуг



ВЫБРАТЬ

	ТоварыПереданные.Контрагент,

	ТоварыПереданные.ДоговорКонтрагента,

	ТоварыПереданные.Регистратор,

	ТоварыПереданные.Номенклатура,

	ТоварыПереданные.КоличествоНачальныйОстаток,

	ТоварыПереданные.СуммаВзаиморасчетовНачальныйОстаток,

	ТоварыПереданные.КоличествоПриход,

	ТоварыПереданные.СуммаВзаиморасчетовПриход,

	ТоварыПереданные.КоличествоРасход,

	ТоварыПереданные.СуммаВзаиморасчетовРасход,

	ТоварыПереданные.КоличествоКонечныйОстаток,

	ТоварыПереданные.СуммаВзаиморасчетовКонечныйОстаток

ПОМЕСТИТЬ ОборотЗаПереодПоДокРеализация

ИЗ

	РегистрНакопления.ТоварыПереданные.ОстаткиИОбороты(

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

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

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

			,

			ВЫБОР

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

						ИЛИ &Контрагент = ЗНАЧЕНИЕ(Справочник.Контрагенты.ПустаяСсылка)

				ТОГДА ИСТИНА

				ИНАЧЕ Контрагент = &Контрагент

			КОНЕЦ

			И

			СтатусПередачи = &СтатусПередачи) КАК ТоварыПереданные

ГДЕ

	ТоварыПереданные.Регистратор ССЫЛКА Документ.РеализацияТоваровУслуг

;



////////////////////////////////////////////////////////////////////////////////

////Общий оборот по остаткам

ВЫБРАТЬ

	ТоварыПереданныеОстаткиИОбороты.Контрагент,

	ТоварыПереданныеОстаткиИОбороты.ДоговорКонтрагента,

	НЕОПРЕДЕЛЕНО КАК Регистратор,

	ТоварыПереданныеОстаткиИОбороты.Номенклатура,

	ТоварыПереданныеОстаткиИОбороты.КоличествоНачальныйОстаток,

	ТоварыПереданныеОстаткиИОбороты.СуммаВзаиморасчетовНачальныйОстаток,

	ТоварыПереданныеОстаткиИОбороты.КоличествоПриход,

	ТоварыПереданныеОстаткиИОбороты.СуммаВзаиморасчетовПриход,

	ТоварыПереданныеОстаткиИОбороты.КоличествоРасход,

	ТоварыПереданныеОстаткиИОбороты.СуммаВзаиморасчетовРасход,

	ТоварыПереданныеОстаткиИОбороты.КоличествоКонечныйОстаток,

	ТоварыПереданныеОстаткиИОбороты.СуммаВзаиморасчетовКонечныйОстаток

Поместить ОбщийОборотЗаПереод

ИЗ

	РегистрНакопления.ТоварыПереданные.ОстаткиИОбороты(

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

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

			,

			,

			ВЫБОР

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

						ИЛИ &Контрагент = ЗНАЧЕНИЕ(Справочник.Контрагенты.ПустаяСсылка)

				ТОГДА ИСТИНА

				ИНАЧЕ Контрагент = &Контрагент

			КОНЕЦ

			И

			СтатусПередачи = &СтатусПередачи) КАК ТоварыПереданныеОстаткиИОбороты;

////////////////////////////////////



//////объединение



Выбрать

	ЕстьNull(ОборотЗаПереодПоДокРеализация.Контрагент, ОбщийОборотЗаПереод.Контрагент) КАК Контрагент,

	ЕстьNull(ОборотЗаПереодПоДокРеализация.ДоговорКонтрагента,ОбщийОборотЗаПереод.ДоговорКонтрагента) КАК ДоговорКонтрагента,

	ЕстьNull(ОборотЗаПереодПоДокРеализация.Регистратор,ОбщийОборотЗаПереод.Регистратор) КАК Регистратор,

	ЕстьNull(ОборотЗаПереодПоДокРеализация.Номенклатура,ОбщийОборотЗаПереод.Номенклатура) КАК Номенклатура,

	Выбор Когда ОборотЗаПереодПоДокРеализация.КоличествоНачальныйОстаток = 0 ИЛИ ОбщийОборотЗаПереод.КоличествоНачальныйОстаток <>0 Тогда

	ОбщийОборотЗаПереод.КоличествоНачальныйОстаток Иначе

	ОборотЗаПереодПоДокРеализация.КоличествоНачальныйОстаток Конец 

	КАК КоличествоНачальныйОстаток,

	Выбор когда ОборотЗаПереодПоДокРеализация.СуммаВзаиморасчетовНачальныйОстаток = 0 ИЛИ ОбщийОборотЗаПереод.КоличествоНачальныйОстаток <>0 Тогда

	ОбщийОборотЗаПереод.СуммаВзаиморасчетовНачальныйОстаток Иначе 

	ОборотЗаПереодПоДокРеализация.СуммаВзаиморасчетовНачальныйОстаток Конец  

	КАК СуммаНачальныйОстаток,

	Выбор Когда ОборотЗаПереодПоДокРеализация.КоличествоПриход = 0 Тогда 

	ОбщийОборотЗаПереод.КоличествоПриход Иначе

	ОборотЗаПереодПоДокРеализация.КоличествоПриход Конец 

	КАК КоличествоПередано,

	Выбор Когда ОборотЗаПереодПоДокРеализация.СуммаВзаиморасчетовПриход = 0 Тогда

	ОбщийОборотЗаПереод.СуммаВзаиморасчетовПриход Иначе

	ОборотЗаПереодПоДокРеализация.СуммаВзаиморасчетовПриход Конец 

	КАК СуммаПередано,

	Выбор Когда ОборотЗаПереодПоДокРеализация.КоличествоРасход = 0 ИЛИ ОбщийОборотЗаПереод.КоличествоРасход<> 0 Тогда

	ОбщийОборотЗаПереод.КоличествоРасход Иначе 

	ОборотЗаПереодПоДокРеализация.КоличествоРасход Конец 

	КАК КоличествоРеализовано,

	Выбор Когда ОборотЗаПереодПоДокРеализация.СуммаВзаиморасчетовРасход = 0 ИЛИ ОбщийОборотЗаПереод.СуммаВзаиморасчетовРасход <> 0 Тогда

	ОбщийОборотЗаПереод.СуммаВзаиморасчетовРасход Иначе

	ОборотЗаПереодПоДокРеализация.СуммаВзаиморасчетовРасход Конец

	КАК СуммаРеализовано,

	Выбор когда ОборотЗаПереодПоДокРеализация.КоличествоКонечныйОстаток = 0 ИЛИ ОбщийОборотЗаПереод.КоличествоКонечныйОстаток<>0 Тогда

	ОбщийОборотЗаПереод.КоличествоКонечныйОстаток Иначе

	ОборотЗаПереодПоДокРеализация.КоличествоКонечныйОстаток Конец 

	КАК КоличествоКонечныйОстаток,

	Выбор Когда ОборотЗаПереодПоДокРеализация.СуммаВзаиморасчетовКонечныйОстаток = 0 ИЛИ ОбщийОборотЗаПереод.СуммаВзаиморасчетовКонечныйОстаток<>0 Тогда 

	ОбщийОборотЗаПереод.СуммаВзаиморасчетовКонечныйОстаток Иначе

	ОборотЗаПереодПоДокРеализация.СуммаВзаиморасчетовКонечныйОстаток Конец

	КАК СуммаКонечныйОстаток,

	СуммаОплатыЗаПериод.СуммаОплаты,

	Вознаграждение.СуммаВознаграждения,

	ДолгКомиссионера.СуммаВзаиморасчетовКонечныйОстаток КАК Долг,

	0 КАК СуммаНоль

		

Из  ОборотЗаПереодПоДокРеализация КАК ОборотЗаПереодПоДокРеализация



Полное Соединение ОбщийОборотЗаПереод КАК ОбщийОборотЗаПереод

По ОборотЗаПереодПоДокРеализация.Контрагент = ОбщийОборотЗаПереод.Контрагент

И ОборотЗаПереодПоДокРеализация.ДоговорКонтрагента = ОбщийОборотЗаПереод.ДоговорКонтрагента

И ОборотЗаПереодПоДокРеализация.Номенклатура = ОбщийОборотЗаПереод.Номенклатура



Левое Соединение СуммаОплатыЗаПериод КАК СуммаОплатыЗаПериод

По ОборотЗаПереодПоДокРеализация.Контрагент = СуммаОплатыЗаПериод.Контрагент

И ОборотЗаПереодПоДокРеализация.ДоговорКонтрагента = СуммаОплатыЗаПериод.ДоговорКонтрагента



Левое Соединение Вознаграждение КАК Вознаграждение

По ОборотЗаПереодПоДокРеализация.Контрагент = Вознаграждение.Контрагент

И ОборотЗаПереодПоДокРеализация.ДоговорКонтрагента = Вознаграждение.ДоговорКонтрагента



Левое Соединение ДолгКомиссионера КАК ДолгКомиссионера

По ОборотЗаПереодПоДокРеализация.Контрагент = ДолгКомиссионера.Контрагент

И ОборотЗаПереодПоДокРеализация.Контрагент = ДолгКомиссионера.Контрагент