Здравствуйте. Нужно получить остатки в dbf из регистра ОстаткиТМЦ(Фирма,Номенклатура,Склад,количество ) на произвольную дату. Пытаюсь построить для начала запрос к остаткам на начало месяца, обороты пока не трогаю, не получается, на ТА получается а на дату нет, вот код
[code]
db = СоздатьОбъект("OLEDBData");
     глСтрокаПрямогоПодключенияКБД = Шаблон ("Provider=VFPOLEDB.1; Mode=ReadWrite;
          |Data Source=[КаталогИБ ()];");
     Рез = db.Соединение(глСтрокаПрямогоПодключенияКБД);
     cmd = db.СоздатьКоманду(); // здесь получаем экземпляр класса "OLEDBCommand"
     cmd.Отладка(1);//0-отключить, по умолчанию отладка отключена

     ТекстЗапроса  ="
  |Select
  |  $рег.Фирма As [Фирма $Справочник.Фирмы],
  |  $рег.Номенклатура As [Номенклатура $Справочник.Номенклатура],
  |  $рег.Склад As [Склад $Справочник.Склады],
  |  $рег.Количество as Количество
  |From
  |  $Регистр.ОстаткиТМЦ as рег
  | WHERE
  |     рег.PERIOD = @PERIODR
|";  
  cmd.УстановитьТекстовыйПараметр("PERIODR",НачМесяца(наДату));

ТЗ = cmd.ВыполнитьИнструкцию(ТекстЗапроса);
     cmd.Закрыть();
     
     db.Закрыть();
     Возврат ТЗ;
[/code]

P.S. Готовый пример видел здесь: script-coding.com/v77tables.html#3.4.2.4. , но он во первых у меня не работает, а во вторых, хотелось бы разобраться с основ так сказать.

Заранее спасибо..

	ТекстЗапроса  ="
   |Select
   |  $рег.Фирма As [Фирма $Справочник.Фирмы],
   |  $рег.Номенклатура As [Номенклатура $Справочник.Номенклатура],
   |  $рег.Склад As [Склад $Справочник.Склады],
   |  $рег.Количество as Количество
   |From
   |  $Регистр.ОстаткиТМЦ as рег
   | WHERE
   |     рег.PERIOD = :PERIODR~~
|";
   cmd.УстановитьТекстовыйПараметр("PERIODR",ДобавитьМесяц(НачМесяца(наДату),-1));
 

Согласен.
но 90% не меняют периодичность.
и в примере запроса стоит НачМесяца(), соответственно период = месяц

evy16ni16 писал(а) 21. Марта 2011 :: 09:35:


Это при типизации [Номенклатура $Справочник.Номенклатура]
тебе такое даёт ?

А в регистре,измерение  "Номенклатура"  какой тип имеет у тебя ?

Подскажите еще, почему то у меня сортировка, сделанная таким образом, никак не сортирует?

|Order By $РегОстатков.Номенклатура desc;
|Order By $РегОстатков.Номенклатура asc;
 

1)А зачем делать соединение с номенклатурой, у меня же она и так есть в списке?
2)Есвенно я делал сначало по возростанию, а потом по убыванию пробывал
3)А примерно так написать нельзя? зачем сотни не нужных запросов делать?
|Order By $РегОстатков.Номенклатура.Наименование;

А, все понял, вроде как. И еще подскажите по получению оборотов

	ТекстЗапроса = "
	|SELECT
	|    Рег.Товар as [Товар $Справочник.Номенклатура],
	|    Рег.КоличествоНачальныйОстаток as КоличествоНачОст,
	|    Рег.КоличествоПриход as КоличествоПриход,
	|    Рег.КоличествоРасход as КоличествоРасход,
	|    Рег.КоличествоКонечныйОстаток as КоличествоКонОст,
	|    Рег.СуммаНачальныйОстаток as СуммаНачОст,
	|    Рег.СуммаПриход as СуммаПриход,
	|    Рег.СуммаРасход as СуммаРасход,
	|    Рег.СуммаКонечныйОстаток as СуммаКонОст,
	|FROM
	|    $РегистрОстаткиОбороты.ОстаткиТМЦ(:НачДата, :КонДата~,,,
	|					   Склад = :ВыбСклад,
	|					   (Товар), ( Количество)) as Рег";
 

Ругается на Meta name parser error: недопустимое значение параметра "$РегистрОстаткиОбороты.ОстаткиТМЦ" (7)
Или в dbf нельзя таким образом обращаться к оборота?

Пробую написать развернута, не совсем могу понять как брать Приход, Расход, и КонОст.
получается в первом селекте, я получаю начальный остаток, а во втором приходи и расход, но у меня почему то нули везде кроме как в начальном остатке.

[code]
ТекстЗапроса = "
|SELECT  
//|            СпрНоменклатура.descr as НаименованиеНом,
//|            СпрФирмы.descr as НаименованиеФирмы,
|    Рег.Номенклатура as [Номенклатура $Справочник.Номенклатура],
|    Рег.Фирма as [Фирма $Справочник.Фирмы],
|    Рег.Склад as [Склад $Справочник.Склады],
//|    SUM(Рег.КоличествоОстаток) as Количество,
|    SUM(Рег.НачОст) as НачОст,
|    SUM(Рег.Приход) as Приход,
|    SUM(Рег.Расход) as Расход,
|    SUM(Рег.КонОст) as КонОст
|FROM
|    (SELECT
|        $Р.Номенклатура AS Номенклатура,
|           $Р.Фирма AS Фирма,
|           $Р.Склад AS Склад,
//      |        $Р.Количество AS КоличествоОстаток,
|        $Р.Количество AS НачОст,
|        0 AS Приход,
|        0 AS Расход,
|        0 AS КонОст
|    FROM
|        $РегистрИтоги.ОстаткиТМЦ as Р
|    WHERE
|        (period = :ПредМесяц~~)
//|        AND ($Р.Склад=:ВыбСклад)
|
|    UNION ALL
|
|    SELECT
|        $Р.Номенклатура AS Номенклатура,
|           $Р.Фирма AS Фирма,
|           $Р.Склад AS Склад,
//      |        $Р.Количество * (1 - Р.debkred * 2) AS КоличествоОстаток,
|        0 AS НачОст,
|        0 AS Приход,
|        0 AS Расход,
|        $Р.Количество * (1 - Р.debkred * 2) AS КонОст
|    FROM
|        $Регистр.ОстаткиТМЦ AS Р
|    INNER JOIN
|        1sjourn jr ON Р.iddoc = jr.iddoc
|            AND (jr.date BETWEEN :НачалоМесяца~~ ND :ПредДата~~)
     |            AND ($ФлагРегистра.ОстаткиТМЦ = 1)
//|    WHERE
//      |        ($Р.Склад=:ВыбСклад)
|    ) Рег
//|            LEFT JOIN $Справочник.Номенклатура As СпрНоменклатура ON СпрНоменклатура.ID = Рег.Номенклатура
//|            LEFT JOIN $Справочник.Фирмы As СпрФирмы ON СпрФирмы.ID = Рег.Фирма
|GROUP BY
|    Номенклатура,Фирма,Склад";
     //одиночные параметры
cmd.УстановитьТекстовыйПараметр("ПредМесяц",(НачМесяца(НачДата)));
cmd.УстановитьТекстовыйПараметр("ПредДата",(НачДата - 1));
cmd.УстановитьТекстовыйПараметр("НачалоМесяца",НачМесяца(НачДата));


cmd.УстановитьТекстовыйПараметр("НачДата",НачДата);
cmd.УстановитьТекстовыйПараметр("КонДата",КонДата);
//cmd.УстановитьТекстовыйПараметр("выбФирма",выбФирма);
cmd.УстановитьТекстовыйПараметр("ВыбСклад",выбСклад);      
     //одиночки
     
ТЗ = cmd.ВыполнитьИнструкцию(ТекстЗапроса);
cmd.Закрыть();

[/code]

Если сделать вот так

ТекстЗапроса = "
	|SELECT  
	//|		СпрНоменклатура.descr as НаименованиеНом,
	//|		СпрФирмы.descr as НаименованиеФирмы,
	|    Рег.Номенклатура as [Номенклатура $Справочник.Номенклатура],
	|    Рег.Фирма as [Фирма $Справочник.Фирмы],
	|    Рег.Склад as [Склад $Справочник.Склады],
	//|    SUM(Рег.КоличествоОстаток) as Количество,
	|    SUM(Рег.НачОст) as НачОст,
	|    SUM(Рег.Приход) as Приход,
	|    SUM(Рег.Расход) as Расход,
	|    SUM(Рег.КонОст) as КонОст
	|FROM
	|    (SELECT
	|        $Р.Номенклатура AS Номенклатура,
	|    	 $Р.Фирма AS Фирма,
	|    	 $Р.Склад AS Склад,
//	|        $Р.Количество AS КоличествоОстаток,
	|        $Р.Количество AS НачОст,
	|        0 AS Приход,
	|        0 AS Расход,
	|        0 AS КонОст
	|    FROM
	|        $РегистрИтоги.ОстаткиТМЦ as Р
	|    WHERE
	|        (period = :ПредМесяц~~)
	//|        AND ($Р.Склад=:ВыбСклад)
	|
	|    UNION ALL
	|
	|    SELECT
	|        $Р.Номенклатура AS Номенклатура,
	|    	 $Р.Фирма AS Фирма,
	|    	 $Р.Склад AS Склад,
//	|        $Р.Количество * (1 - Р.debkred * 2) AS КоличествоОстаток,
	|        0 AS НачОст,
	|        ($Р.Количество * (1 - (Р.DEBKRED+1)%2)) AS Приход,
	|        ($Р.Количество * (Р.debkred)) AS Расход,
	|        0 AS КонОст
	|    FROM
	|        $Регистр.ОстаткиТМЦ AS Р
	|    INNER JOIN
	|        1sjourn jr ON Р.iddoc = jr.iddoc
//	|            AND (jr.date BETWEEN :НачалоМесяца~~ AND :ПредДата~~)
//	|            AND ($ФлагРегистра.ОстаткиТМЦ = 1)
	//|    WHERE
//	|        ($Р.Склад=:ВыбСклад)
	|    ) Рег
	//|		LEFT JOIN $Справочник.Номенклатура As СпрНоменклатура ON СпрНоменклатура.ID = Рег.Номенклатура
	//|		LEFT JOIN $Справочник.Фирмы As СпрФирмы ON СпрФирмы.ID = Рег.Фирма
	|GROUP BY
	|    Номенклатура,Фирма,Склад";
 

То какие то обороты, выводит, то есть у меня как то не так задан период в джойне к журналу документов

Пробывал и с галкой и без галки, один результат

--Для получения прихода/расхода ты должен просто взять строчки из таблички движений между выбранными датами.

Не получается, нули выводит, если между датами, если отбор по датам не ставить то какие то оборты выводит.

По начОст, конОст учту замечание.

|    SELECT
|	  $Р.Номенклатура AS Номенклатура,
|	     $Р.Фирма AS Фирма,
|	     $Р.Склад AS Склад,
|	  0 AS НачОст,
|	  ($Р.Количество * (1 - (Р.DEBKRED+1)%2)) AS Приход,
|	  ($Р.Количество * (Р.debkred)) AS Расход,
|	  0 AS КонОст
|    FROM
|	  $Регистр.ОстаткиТМЦ AS Р
|    INNER JOIN
|	  1sjourn jr ON Р.iddoc = jr.iddoc
	|		AND (jr.date BETWEEN :НачалоМесяца~~ AND :ПредДата~~)
 

Спасибки, работает