|
Да в том то и дело, что она есть: //******************************************************* Процедура ВывестиСекцию(Т, ТЗ, стрПрефикс, ИмяПоказателя) Значение = ТЗ.ПолучитьЗначение(ТЗ.НомерСтроки, ИмяПоказателя); Если ИмяПоказателя = "Товар" Тогда Т.ВывестиСекцию("Строка"); Иначе Т.ВывестиСекцию("Строка"); КонецЕсли; КонецПроцедуры //******************************************* Процедура Печать() Т = СоздатьОбъект("Таблица"); Т.ИсходнаяТаблица("ОстаткиЕд"); оИтогиПоГруппировкам = СоздатьОбъект("Отчет.ИтогиПоГруппировкам"); оИтогиПоГруппировкам.Инит(Контекст, "Товар,Склад");//, 1); оИтогиПоГруппировкам.ДобавитьКолонкуСуммы("Остаток", 2, "Ч015.2-");
ТЗ.ВыбратьСтроки(); Пока ТЗ.ПолучитьСтроку() = 1 Цикл Beep(); оИтогиПоГруппировкам.ПередПечатьюСтроки(Т, ТЗ); оИтогиПоГруппировкам.ПослеПечатиСтроки(Т, ТЗ); КонецЦикла; оИтогиПоГруппировкам.ПослеПечатиТаблицы(Т, ТЗ); КонецПроцедуры //******************************************* Процедура ОстаткиТоваров() Перем _инд; ТЗ = СоздатьОбъект("ТаблицаЗначений"); Запрос = СоздатьОбъект("ODBCRecordset"); Запрос.Отладка(Отладка); filter_cache_for_clients=0; filter_cache_for_products_gr = 0; filter_cache_for_products_el = 0;
ТекстЗапроса=" | SELECT | СпрНоменклатура.ID as [Товар $Справочник.Номенклатура], | РегОстатки.Товар as идТовар, | РегОстатки.Склад as [Склад $Справочник.МестаХранения], | РегОстатки.Склад as идСклад, | РегОстатки.ОстатокТовараОстаток as Остаток | FROM | $РегистрОстатки.ОстаткиТоваров(:ДатаКон~, | inner join $Справочник.Номенклатура as СпрНоменклатура (nolock) on СпрНоменклатура.id = Товар | inner join $Справочник.МестаХранения as СпрСклады (nolock) on СпрСклады.id = Склад, | (Фирма='"+МД.ЗначениеВСтрокуБД(ПустаяФирма)+"') AND (СпрНоменклатура.IsFolder=2)" +filter_vl("СпрНоменклатура",ВыбТовары) +filter_vl("СпрСклады",ВыбСклад)+" |, | (Фирма, Товар, Склад), (ОстатокТовара)) as РегОстатки | inner join $Справочник.Номенклатура as СпрНоменклатура (nolock) on СпрНоменклатура.id = РегОстатки.Товар |"; Запрос.УстановитьТекстовыйПараметр("ДатаКон", ДатаКон); ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса); ТЗ.Сортировать("Товар,идТовар,Склад,идСклад"); Печать(); КонецПроцедуры //========================================
|