Код

...:ВыбДата~~" + СтрокаФи... 

Код

{call sp_executesql(N'
SELECT
	SUM(ОстНаСкладе) ОстНаСкладе,
	SUM(ОстНаФирме) ОстНаФирме,
	SUM(РезервНаСкладе) РезервНаСкладе,
	SUM(РезервНаФирме) РезервНаФирме,
	(ОстНаСкладе - РезервНаСкладе) ОстатокСклад,
	(ОстНаФирме - РезервНаФирме) ОстатокФирма
FROM
(SELECT
	РегОстатки.sp411 ОстНаСкладе,
	0 ОстНаФирме,
	0 РезервНаСкладе,
	0 РезервНаФирме
FROM
	rg405 as РегОстатки
WHERE
	РегОстатки.Period = @ВыбДата2 AND РегОстатки.sp4062 = @ВыбФирма0 AND РегОстатки.sp408 = @ВыбНоменкл0  AND РегОстатки.sp418 = @ВыбСклад0
UNION ALL
SELECT
	0 ОстНаСкладе,
	РегОстатки.sp411 ОстНаФирме,
	0 РезервНаСкладе,
	0 РезервНаФирме
FROM
	rg405 as РегОстатки
WHERE
	РегОстатки.Period = @ВыбДата2 AND РегОстатки.sp4062 = @ВыбФирма0 AND РегОстатки.sp408 = @ВыбНоменкл0
UNION ALL
SELECT
	0 ОстНаСкладе,
	0 ОстНаФирме,
	РегРезервы.sp4479 РезервНаСкладе,
	0 РезервНаФирме
FROM
	rg4480 as РегРезервы
WHERE
	РегРезервы.Period = @ВыбДата2 AND РегРезервы.sp4475 = @ВыбФирма0 AND РегРезервы.sp4477 = @ВыбНоменкл0  AND РегРезервы.sp4476 = @ВыбСклад0
UNION ALL
SELECT
	0 ОстНаСкладе,
	0 ОстНаФирме,
	РегРезервы.sp4479 РезервНаСкладе,
	0 РезервНаФирме
FROM
	rg4480 as РегРезервы
WHERE
	РегРезервы.Period = @ВыбДата2 AND РегРезервы.sp4475 = @ВыбФирма0 AND РегРезервы.sp4477 = @ВыбНоменкл0)
', N'@ВыбДата2 datetime,@ВыбФирма0 char(9),@ВыбНоменкл0 char(9),@ВыбСклад0 char(9)'
,{d '2011-09-01'},'     2   ','   BEL   ','     1   ')}
 

Код

{Глобальный модуль(144)}: State 42000, native 8120, message [Microsoft][ODBC SQL Server Driver][SQL Server]Column 'Выборка.ОстНаСкладе' is invalid in the select list because it is not contained in either an aggregate function or the GROUP BY clause.
{call sp_executesql(N'
SELECT
	SUM(Выборка.ОстНаСкладе) ОстНаСкладе,
	SUM(Выборка.ОстНаФирме) ОстНаФирме,
	SUM(Выборка.РезервНаСкладе) РезервНаСкладе,
	SUM(Выборка.РезервНаФирме) РезервНаФирме,
	(ОстНаСкладе - РезервНаСкладе) ОстатокСклад,
	(ОстНаФирме - РезервНаФирме) ОстатокФирма
FROM
(SELECT
	РегОстатки.sp411 ОстНаСкладе,
	0 ОстНаФирме,
	0 РезервНаСкладе,
	0 РезервНаФирме
FROM
	rg405 as РегОстатки
WHERE
	РегОстатки.Period = @ВыбДата2 AND РегОстатки.sp4062 = @ВыбФирма0 AND РегОстатки.sp408 = @ВыбНоменкл0  AND РегОстатки.sp418 = @ВыбСклад0
UNION ALL
SELECT
	0 ОстНаСкладе,
	РегОстатки.sp411 ОстНаФирме,
	0 РезервНаСкладе,
	0 РезервНаФирме
FROM
	rg405 as РегОстатки
WHERE
	РегОстатки.Period = @ВыбДата2 AND РегОстатки.sp4062 = @ВыбФирма0 AND РегОстатки.sp408 = @ВыбНоменкл0
UNION ALL
SELECT
	0 ОстНаСкладе,
	0 ОстНаФирме,
	РегРезервы.sp4479 РезервНаСкладе,
	0 РезервНаФирме
FROM
	rg4480 as РегРезервы
WHERE
	РегРезервы.Period = @ВыбДата2 AND РегРезервы.sp4475 = @ВыбФирма0 AND РегРезервы.sp4477 = @ВыбНоменкл0  AND РегРезервы.sp4476 = @ВыбСклад0
UNION ALL
SELECT
	0 ОстНаСкладе,
	0 ОстНаФирме,
	РегРезервы.sp4479 РезервНаСкладе,
	0 РезервНаФирме
FROM
	rg4480 as РегРезервы
WHERE
	РегРезервы.Period = @ВыбДата2 AND РегРезервы.sp4475 = @ВыбФирма0 AND РегРезервы.sp4477 = @ВыбНоменкл0) as Выборка
', N'@ВыбДата2 datetime,@ВыбФирма0 char(9),@ВыбНоменкл0 char(9),@ВыбСклад0 char(9)'
,{d '2011-09-01'},'     2   ','   BEL   ','     1   ')}
СтруктураОстатков = НаборЗаписей.ВыполнитьСкалярный(ТекстЗапроса);
{Глобальный модуль(144)}: State 42000, native 8120, message [Microsoft][ODBC SQL Server Driver][SQL Server]Column 'Выборка.ОстНаСкладе' is invalid in the select list because it is not contained in either an aggregate function or the GROUP BY clause.
 

Код

Функция глВернутьЦену(Номенклатура, ТипЦены, ДатаЦены = 0, ЦенаЦены = 0, ЕдЦены = 0, ВалЦены = 0, НаценкаЦены = 0, НайденнаяЦена = 0) Экспорт
	Перем ЦеныНоменклатуры;
	Перем Рассчетная;
	Перем НужныйТипЦен;
	Перем ЕстьУдаленные;


	Рез = 1;
	НайденнаяЦена = ПолучитьПустоеЗначение("Справочник.Цены");

	Если ПустоеЗначение(ДатаЦены) = 1 Тогда
		ДатаЦены = РабочаяДата();
	КонецЕсли;

	// Найдет или нужную цену в справочнике
	// если она рассчитывается, то найдем базовую цену
	Рассчетная		= ТипЦены.Рассчитывается;
	НужныйТипЦен	= ?(ПустоеЗначение(Рассчетная) = 1, ТипЦены, ТипЦены.БазовыйТипЦен);

	НаборЗаписей = СоздатьОбъект("ODBCRecordset");
	НаборЗаписей.РежимRPC(1);
	ТекстЗапросаЦены = "
	|SELECT
	|  СпрН.Descr Наименование,
	|  СпрЦ.ID [Ссылка $Справочник.Цены],
	|  $ПоследнееЗначение.Цены.Цена(СпрЦ.ID, :ВыбДата) Цена,
	|  $ПоследнееЗначение.Цены.Единица(СпрЦ.ID, :ВыбДата) [Единица $Справочник.Единицы],
	|  $СпрЦ.Валюта [Валюта $Справочник.Валюты],
	|  $СпрЦ.Процент Процент,
	|  СпрЦ.IsMark Пометка
	|FROM
	|  $Справочник.Номенклатура СпрН
	|LEFT JOIN
	|  $Справочник.Цены СпрЦ ON СпрЦ.ParentExt = СпрН.ID AND
	|				   $СпрЦ.ТипЦен = :ТипЦен
	|WHERE
	|  СпрН.ID = :ВыбНом
	|";


	НаборЗаписей.УстановитьТекстовыйПараметр("ВыбДата",ДатаЦены);
	НаборЗаписей.УстановитьТекстовыйПараметр("ТипЦен",НужныйТипЦен);
	НаборЗаписей.УстановитьТекстовыйПараметр("ВыбНом",Номенклатура);
	Структура = НаборЗаписей.ВыполнитьСкалярный(ТекстЗапросаЦены);

	Если Структура.Пометка = 1 Тогда
		Рез = - 1;
	КонецЕсли;

	НайденнаяЦена = Структура.Ссылка.ТекущийЭлемент();
	Если ПустоеЗначение(НайденнаяЦена) = 1 Тогда

		// Нет такой цены
		Возврат 0;
	КонецЕсли;

	// Заполним все ценовые характериситики

	// если не задана единица цены на эту дату, то потом придется обрабатывать случай нулевого коэффициента у  пустой единицы
	ЕдЦены		= Структура.Единица;

	Если ПустоеЗначение(Рассчетная) = 1 Тогда

		//Если цена не рассчитывается
		ЦенаЦены	= Структура.Цена;

		// элемент справочника существует Валюту и Наценку возьмем из него
		ВалЦены		= Структура.Валюта;
		НаценкаЦены	= Структура.Процент;
	Иначе

		//Если цена рассчитывается
		БазоваяЦена 	= Структура.Цена;
		БазоваяВалюта	= Структура.Валюта;

		// Цены у базового типа могут отличаться
		ЦенаЦены    = глПересчет(БазоваяЦена, БазоваяВалюта, ДатаЦены, ТипЦены.Валюта, ДатаЦены);
		ЦенаЦены    = глОкруглить(ЦенаЦены * (100 + ТипЦены.Процент) / 100, ТипЦены.ПорядокОкругления);

		// элемент справочника Цены не существует (расчетный). Валюту и Наценку возьмем из типа цены
		ВалЦены		= ТипЦены.Валюта;
		НаценкаЦены	= ТипЦены.Процент;
	КонецЕсли;

	Возврат Рез;
КонецФункции // глВернутьЦену()