базаДанных.Открыть(":memory:");
     Запрос = базаДанных.НовыйЗапрос();
     запрос.ВыполнитьЗапрос("PRAGMA journal_mode = OFF");    
     текст="
     |Select
     |   Рег.Товар [Товар :Справочник.Номенклатура]
     |   ,SUM(Рег.НачОст) [НачОст :Число]
     |   ,SUM(Рег.Приход) [Приход :Число]
     |   ,SUM(Рег.Расход) [Расход :Число]
     |   ,SUM(Рег.НачОст+Рег.Приход-Рег.Расход) [КонОст :Число]
     |From
     |      (
     |      SELECT
     |              Итоги.Товар Товар
     |            ,Итоги.ОстатокТовара НачОст
     |            ,0 Приход
     |            ,0 Расход
     |      FROM
     |            [РегистрИтоги.ПартииТоваров] Итоги
     |
     |      WHERE
     |            Итоги.period = @ПредПериод  
     |   UNION ALL
     |      SELECT
     |             Движения.Товар
     |            ,Движения.ОстатокТовара * (1 - Движения.debkred * 2)
     |            ,0
     |            ,0
     |      FROM
     |            [Регистр.ПартииТоваров] Движения
     |   INNER Join [Журнал] Жур ON Жур.iddoc = Движения.iddoc and Жур.date BETWEEN @НачПериод And @КонПериод
     |      UNION ALL
     |      SELECT
     |             Движения2.Товар
     |            ,0
     |            ,Движения2.ОстатокТовара * (1 - Движения2.Debkred)
     |            ,Движения2.ОстатокТовара * Движения2.Debkred
     |      FROM
     |            [Регистр.ПартииТоваров] Движения2
     |   INNER Join [Журнал] Жур2 ON Жур2.iddoc = Движения2.iddoc and Жур2.date BETWEEN @Дата1 And @Дата2
     |) Рег
     |Inner join [Справочник.Номенклатура] Номенклатура on SUBSTR(Рег.Товар,5,9) = Номенклатура.id
     | --and Номенклатура.Артикул IN ('   3UA   ')
     |Group by
     |      Рег.Товар
     |";
     НачПериод = НачМесяца(ВыбНачПериода); //начало периода
     ПредПериод = НачМесяца(НачПериод-1); //предыдущее начало периода останков    
     Запрос.Подставлять("ПредПериод",ПредПериод);
     Запрос.Подставлять("НачПериод",НачПериод);
     Запрос.Подставлять("КонПериод",ВыбНачПериода-1); //для вычисления НачОст
     Запрос.Подставлять("Дата1",ВыбНачПериода);
     Запрос.Подставлять("Дата2",ВыбКонПериода);      
     Запрос.Подготовить(текст);
     тз=Запрос.Выполнить();
     тз.ВыбратьСтроку();