Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема ЗАГАДКА   2 одинаковых запроса - разный результат (число прочтений - 297 )
koluchiy2k
Junior Member
**
Отсутствует


1C++ rocks!

Сообщений: 31
Зарегистрирован: 26. Января 2009
ЗАГАДКА   2 одинаковых запроса - разный результат
27. Февраля 2009 :: 07:03
Печать  
есть два запроса
результат выгружается в таблицу значений
первая таблица получается развернутой (отдельной строкой каждое значение и сумма)
вторая свернутой (сумма всех повторяющихся значений)

в чем прикол?

вот код...

Процедура СуммаВыписанных()
     рс3 = СоздатьОбъект("ODBCRecordSet");
     
     ТекстЗапроса3 = "
     |SELECT $РасходнаяНакладнаяСтроки.Товар [Товар $Справочник.Номенклатура]
     |, Sum($РасходнаяНакладнаяСтроки.Всего) СуммаВсего
     |FROM $ДокументСтроки.РасходнаяНакладная AS РасходнаяНакладнаяСтроки
     |FULL OUTER JOIN _1SJOURN AS Журнал ON РасходнаяНакладнаяСтроки.IDDOC = Журнал.IDDOC
     |WHERE (Журнал.DATE_TIME_IDDOC > :ДатаНач)
     |AND (Журнал.DATE_TIME_IDDOC < :ДатаКон)
     |GROUP BY $РасходнаяНакладнаяСтроки.Товар
     |";
     
     рс3.УстановитьТекстовыйПараметр("ДатаНач", Дата1);
     рс3.УстановитьТекстовыйПараметр("ДатаКон", Дата2+1);
     рс3.АвтоТипизация(1);
     рс3.ВыполнитьИнструкцию(ТекстЗапроса3, ТЗВыпис);
КонецПроцедуры

//*******************************************************
Процедура СуммаВозвратов()
     рс4 = СоздатьОбъект("ODBCRecordSet");
     
     ТекстЗапроса4 = "
     |SELECT $ВозвратОтПокупателяСтроки.Товар [Товар $Справочник.Номенклатура]
     |, Sum($ВозвратОтПокупателяСтроки.Всего) СуммаВсего
     |FROM $ДокументСтроки.ВозвратОтПокупателя AS ВозвратОтПокупателяСтроки
     |FULL OUTER JOIN _1SJOURN AS Журнал ON ВозвратОтПокупателяСтроки.IDDOC = Журнал.IDDOC
     |WHERE (Журнал.DATE_TIME_IDDOC > :ДатаНач)
     |AND (Журнал.DATE_TIME_IDDOC < :ДатаКон)
     |GROUP BY $ВозвратОтПокупателяСтроки.Товар
     |";

     рс4.УстановитьТекстовыйПараметр("ДатаНач", Дата1);
     рс4.УстановитьТекстовыйПараметр("ДатаКон", Дата2+1);
     рс4.АвтоТипизация(1);
     рс4.ВыполнитьИнструкцию(ТекстЗапроса4, ТЗВозвр);
КонецПроцедуры

//****************************************************

Дата1 и Дата2 - Задаются в диалого формы

ТЗВозвр и ТЗВыпис - Соответственно таблицы значений (нарисованы в форме)

  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать