Один склад, 2 фирмы

	ТекстЗапроса = 
    "//{{ЗАПРОС(Сформировать)
    |Период с ДатаНачала по ДатаКонца;
    |Фирма            = Регистр.ПартииНаличие.Фирма;
    |УпрАналитика    = Регистр.ПартииНаличие.Фирма.УпрАналитика;
    |ЮрЛицо         = Регистр.ПартииНаличие.Фирма.ЮрЛицо;
    |СтатусПартии     = Регистр.ПартииНаличие.СтатусПартии;
    |Номенклатура    = Регистр.ПартииНаличие.Номенклатура;
    |МОЛ            = Регистр.ПартииНаличие.МОЛ;
    |Партия            = Регистр.ПартииНаличие.Партия;
    |СвойствоПартии    = Регистр.ПартииНаличие.Партия.Свойство;
    |Поставщик        = Регистр.ПартииНаличие.Партия.Поставщик;
    |Док            = Регистр.ПартииНаличие.ТекущийДокумент;
    |КодОперации    = Регистр.ПартииНаличие.КодОперации;
    |Количество = Регистр.ПартииНаличие.Количество;
    |Сумма = Регистр.ПартииНаличие.СуммаРуб;
    |Функция НачОстС = НачОст(Сумма);
    |Функция ПриходС = Приход(Сумма);
    |Функция РасходС = Расход(Сумма);
    |Функция КонОстС = КонОст(Сумма);"; 

	ТекстПрямЗапр=" 
	|SEL ECT    
	|	julianday(Substr(Рег.ДатаКонцаПер,1,4)||'-'||Substr(Рег.ДатаКонцаПер,5,2)||'-'||Substr(Рег.ДатаКонцаПер,7,2))-julianday(Substr(Рег.ДатаНачалаПер,1,4)||'-'||Substr(Рег.ДатаНачалаПер,5,2)||'-'||Substr(Рег.ДатаНачалаПер,7,2)) as РазмерОтрезка,
	|	Рег.ДатаНачалаПер as [НачалоПериода $Дата],
	|	Рег.ВремяНачалаПер as ВремяНачалаПерМил,
	|	(julianday(Substr(Рег.ДатаНачалаПер,1,4)||'-'||Substr(Рег.ДатаНачалаПер,5,2)||'-'||Substr(Рег.ДатаНачалаПер,7,2))-julianday('1800-01-01'))*864000000+Рег.ВремяНачалаПер as ДатаВремяНачПерВМил,
	|	Рег.ДатаКонцаПер as [КонецПериода $Дата],
	|	Рег.ВремяКонцаПер as ВремяКонцаПерМил,
	|	(julianday(Substr(Рег.ДатаКонцаПер,1,4)||'-'||Substr(Рег.ДатаКонцаПер,5,2)||'-'||Substr(Рег.ДатаКонцаПер,7,2))-julianday('1800-01-01'))*864000000+Рег.ВремяКонцаПер as ДатаВремяКонПерВМил,
	|	Рег.Номенклатура as [Номенклатура $Справочник.Номенклатура],
	|	Рег.Партия as [Партия $Справочник.Партии],
	|	Рег.Количество as Количество
	|
	|FROM
	|	(
	|	SELECT
	|		CASE WHEN ЖурПриход.Date<:ДатаС THEN :ДатаС ELSE ЖурПриход.Date END as ДатаНачалаПер,
	|		CASE WHEN ЖурПриход.Date<:ДатаС THEN 0 ELSE str2id(replace(ЖурПриход.Time,' ','')) END as ВремяНачалаПер,
	|		Жур.Date as ДатаКонцаПер,
	|		str2id(replace(Жур.Time,' ','')) as ВремяКонцаПер,
	|		РегПарт.Номенклатура as Номенклатура,
	|		РегПарт.Партия as Партия,
	|		РегПарт.Количество as Количество,
	|	    РегПарт2.Фирма as ФирмаПродавец
	|	FR OM
	|		[Журнал] as Жур 
	|	INNER JOIN [Регистр.ПартииНаличие] as РегПарт on 
	|		(
	|			(РегПарт.IdDoc = Жур.IdDoc) 
	|			and (РегПарт.Debkred=1) 
	|			and (РегПарт.Фирма=:ФирмаПолучатель) 
	|			and (Жур.date between :ДатаС and :ДатаПо)  
	|		)
	|	INNER JOIN [Справочник.Партии] as СпрПарт on РегПарт.Партия=СпрПарт.Id
	|	INNER JOIN [Журнал] as ЖурПриход on ЖурПриход.IdDoc=Substr(СпрПарт.ПриходныйДокумент,5,9)
	|	INNER JOIN [Регистр.ПартииНаличие] as РегПарт2 on 
	|		(
	|			(РегПарт2.IdDoc = ЖурПриход.IdDoc)
	|			and (РегПарт2.Debkred=0)
	|			and (РегПарт2.Фирма=:ФирмаПродавец) 
	|		)
	|	) as Рег 
	|
	|GROUP BY
	|	ДатаВремяНачПерВМил,
	|	ДатаВремяКонПерВМил,
	|	Номенклатура,
	|	Партия,
	|	Количество
	|
	|";

	    //Конт.УстановитьНовыйНомер(СокрЛП(Константа.ПрефиксИБ) + ПрефиксЮрЛицаФирмы);