Eprst писал(а) 12. Марта 2012 :: 09:03:Нахрена ты пишешь
SUBSTRING($ДокС14.ТМЦ, 6, 9)
в селекте ??????
У тебя реквизит ТМЦ какого типа в документе ?
Вот весь код
RS = СоздатьОбъект("ODBCRecordset");
RS.УстБД1С();
ТекстЗапроса = "
|SELECT
| TMP.Склад as [Склад $Справочник.МестаХранения],
| TMP.ТМЦ as [ТМЦ $Справочник.Номенклатура],
| SUM(TMP.Количество) as Количество,
| SUM(TMP.Сумма) as Сумма
|FROM
|(
|SELECT
| $Док.Склад as [Склад],
| $ДокС.ТМЦ as [ТМЦ],
| $ДокС.Количество as Количество,
| $ДокС.Сумма as Сумма
|FROM
| $ДокументСтроки.РеализацияТоваров as ДокС
|INNER JOIN
| $Документ.РеализацияТоваров as Док ON Док.IDDoc = ДокС.IDDoc
| " + ?( ВыбСклад.Выбран()=1, "AND $Док.Склад IN (SELECT Val FROM #ГруппаСклад)", "") + "
| " + ?( ВыбТМЦ.Выбран()=1, "AND $ДокС.ТМЦ IN (SELECT Val FROM #ГруппаТМЦ)", "") + "
|INNER JOIN
| _1SJourn as Жур ON Жур.IDDoc = ДокС.IDDoc AND
| Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
| Жур.Closed & 1 = 1
|UNION ALL
|
|SELECT
| $Док2.Склад as [Склад],
| $ДокС2.ТМЦ as [ТМЦ],
| $ДокС2.Количество as Количество,
| $ДокС2.Сумма as Сумма
|FROM
| $ДокументСтроки.РеализацияТоваровКоммисия as ДокС2
|INNER JOIN
| $Документ.РеализацияТоваровКоммисия as Док2 ON Док2.IDDoc = ДокС2.IDDoc
| " + ?( ВыбСклад.Выбран()=1, "AND $Док2.Склад IN (SELECT Val FROM #ГруппаСклад)", "") + "
| " + ?( ВыбТМЦ.Выбран()=1, "AND $ДокС2.ТМЦ IN (SELECT Val FROM #ГруппаТМЦ)", "") + "
|INNER JOIN
| _1SJourn as Жур ON Жур.IDDoc = ДокС2.IDDoc AND
| Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
| Жур.Closed & 1 = 1
|UNION ALL
|
|SELECT
| $Док3.Склад as [Склад],
| $ДокС3.ТМЦ as [ТМЦ],
| $ДокС3.Количество as Количество,
| $ДокС3.Сумма as Сумма
|FROM
| $ДокументСтроки.РеализацияТоваровАльФараби as ДокС3
|INNER JOIN
| $Документ.РеализацияТоваровАльФараби as Док3 ON Док3.IDDoc = ДокС3.IDDoc
| " + ?( ВыбСклад.Выбран()=1, "AND $Док3.Склад IN (SELECT Val FROM #ГруппаСклад)", "") + "
| " + ?( ВыбТМЦ.Выбран()=1, "AND $ДокС3.ТМЦ IN (SELECT Val FROM #ГруппаТМЦ)", "") + "
|INNER JOIN
| _1SJourn as Жур ON Жур.IDDoc = ДокС3.IDDoc AND
| Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
| Жур.Closed & 1 = 1
|UNION ALL
|
|SELECT
| $Док4.Склад as [Склад],
| $ДокС4.ТМЦ as [ТМЦ],
| $ДокС4.Количество as Количество,
| $ДокС4.Сумма as Сумма
|FROM
| $ДокументСтроки.РеализацияТоваровАрман as ДокС4
|INNER JOIN
| $Документ.РеализацияТоваровАрман as Док4 ON Док4.IDDoc = ДокС4.IDDoc
| " + ?( ВыбСклад.Выбран()=1, "AND $Док4.Склад IN (SELECT Val FROM #ГруппаСклад)", "") + "
| " + ?( ВыбТМЦ.Выбран()=1, "AND $ДокС4.ТМЦ IN (SELECT Val FROM #ГруппаТМЦ)", "") + "
|INNER JOIN
| _1SJourn as Жур ON Жур.IDDoc = ДокС4.IDDoc AND
| Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
| Жур.Closed & 1 = 1
|UNION ALL
|
|SELECT
| $Док5.Склад as [Склад],
| $ДокС5.ТМЦ as [ТМЦ],
| $ДокС5.Количество as Количество,
| $ДокС5.Сумма as Сумма
|FROM
| $ДокументСтроки.РеализацияТоваровДастан as ДокС5
|INNER JOIN
| $Документ.РеализацияТоваровДастан as Док5 ON Док5.IDDoc = ДокС5.IDDoc
| " + ?( ВыбСклад.Выбран()=1, "AND $Док5.Склад IN (SELECT Val FROM #ГруппаСклад)", "") + "
| " + ?( ВыбТМЦ.Выбран()=1, "AND $ДокС5.ТМЦ IN (SELECT Val FROM #ГруппаТМЦ)", "") + "
|INNER JOIN
| _1SJourn as Жур ON Жур.IDDoc = ДокС5.IDDoc AND
| Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
| Жур.Closed & 1 = 1
|UNION ALL
|
|SELECT
| $Док6.Склад as [Склад],
| $ДокС6.ТМЦ as [ТМЦ],
| $ДокС6.Количество as Количество,
| $ДокС6.Сумма as Сумма
|FROM
| $ДокументСтроки.РеализацияТоваровДомБыта as ДокС6
|INNER JOIN
| $Документ.РеализацияТоваровДомБыта as Док6 ON Док6.IDDoc = ДокС6.IDDoc
| " + ?( ВыбСклад.Выбран()=1, "AND $Док6.Склад IN (SELECT Val FROM #ГруппаСклад)", "") + "
| " + ?( ВыбТМЦ.Выбран()=1, "AND $ДокС6.ТМЦ IN (SELECT Val FROM #ГруппаТМЦ)", "") + "
|INNER JOIN
| _1SJourn as Жур ON Жур.IDDoc = ДокС6.IDDoc AND
| Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
| Жур.Closed & 1 = 1
|UNION ALL
|
|SELECT
| $Док7.Склад as [Склад],
| $ДокС7.ТМЦ as [ТМЦ],
| $ДокС7.Количество as Количество,
| $ДокС7.Сумма as Сумма
|FROM
| $ДокументСтроки.РеализацияТоваровДомКниг as ДокС7
|INNER JOIN
| $Документ.РеализацияТоваровДомКниг as Док7 ON Док7.IDDoc = ДокС7.IDDoc
| " + ?( ВыбСклад.Выбран()=1, "AND $Док7.Склад IN (SELECT Val FROM #ГруппаСклад)", "") + "
| " + ?( ВыбТМЦ.Выбран()=1, "AND $ДокС7.ТМЦ IN (SELECT Val FROM #Групп