Sirius83 @ Вчера, 11:28
,
Можно сделать так:
ТЗ_Номенклатур = СоздатьОбъект("ТаблицаЗначений");
ТекстЗапроса = "
|select
| Рег.Товар as [Товар $Справочник.Номенклатура],
| sum(Рег.КоличествоОстаток) as Количество
|from
| $РегистрОстатки.ОстаткиТМЦ(
| :КонДата~,
| ,Склад in (select val from #tmp4))
| ,(Товар,Склад),) as Рег
|group by Рег.Товар";
лRecordSet=СоздатьОбъект("ODBCRecordSet");
лRecordSet.УстановитьТекстовыйПараметр("КонДата",ТекущаяДата());
лRecordSet.УложитьСписокОбъектов(ВыбСклады,"#tmp4", "Склады");
лRecordSet.Отладка(0);
Если лRecordSet.Открыть(ТекстЗапроса)=0 Тогда
Сообщить(лRecordSet.ПолучитьОписаниеОшибки());
КонецЕсли;
лRecordSet.ПолучитьРезультатыВ_ТЗ(ТЗ_Номенклатур, 1);
ТЗ_Номенклатур.ВыбратьСтроки();
Пока ТЗ_Номенклатур.ПолучитьСтроку() = 1 Цикл
_Номенклатура = ТЗ_Номенклатур.Товар;
_Количество = ТЗ_Номенклатур.Количество;
КонецЦикла;
Сообщение отредактировал Vofka - 18.07.19, 11:26