Цитата: Злоп от Вчера в 14:05- тут как раз все понятно.Возможно, вопросики скорее к коду
ФирмаДляОстатковТМЦ = глФирмаДляОстатковТМЦ(Фирма);
ФильтрЗаявок ( ТаблицаТМЦ, ТаблицаУслуг, ВремЗаявки, ВремЗаказыЗаявки);
...
ФильтрЗаявок(ТаблицаТМЦ, ТаблицаУслуг, ВремЗаявки, ВремЗаказыЗаявки);
Если ИтогиАктуальны() = 0 Тогда
ВремЗаявки.ВременныйРасчет();
ВремЗаказыЗаявки.ВременныйРасчет();
КонецЕсли;
...
ВремЗаявки.ВыгрузитьИтоги(ТИЗаявки,1,1)
Процедура ФильтрЗаявок(ТаблицаТМЦ, ТаблицаУслуг, ВремЗаявки, ВремЗаказыЗаявки)
Перем ТаблицаНоменклатуры;
ВремЗаявки.УстановитьЗначениеФильтра("Фирма",ФирмаДляОстатковТМЦ, 2);
ВремЗаявки.УстановитьЗначениеФильтра("ДоговорПокупателя", Договор,1);
Если ИтогиАктуальны()=0 Тогда
ТаблицаТМЦ.Выгрузить(ТаблицаНоменклатуры);
Если ТаблицаУслуг.КоличествоСтрок()>0 Тогда
БылоСтрок = ТаблицаНоменклатуры.КоличествоСтрок();
ТаблицаНоменклатуры.КоличествоСтрок(БылоСтрок+ТаблицаУслуг.КоличествоСтрок());
ТаблицаНоменклатуры.Заполнить(ТаблицаУслуг,БылоСтрок+1,ТаблицаНоменклатуры.КоличествоСтрок());
КонецЕсли;
СписокТМЦ = СоздатьОбъект("СписокЗначений");
ТаблицаНоменклатуры.Выгрузить(СписокТМЦ,,,"Номенклатура");
ВремЗаявки. УстановитьЗначениеФильтра("Номенклатура",СписокТМЦ,2);
ВремЗаказыЗаявки.УстановитьЗначениеФильтра("Номенклатура",СписокТМЦ,2);
ВремЗаявки. ВременныйРасчет();
ВремЗаказыЗаявки.ВременныйРасчет();
КонецЕсли;
КонецПроцедуры // ФильтрЗаявок()
Процедура глФильтрОстатковТМЦ(Конт,ТаблНоменклатуры, СписокПараметров, ВремОстаткиТМЦ, ВремРезервыТМЦ = "") Экспорт
ФирмаДляОстатковТМЦ = СписокПараметров.Получить("ФирмаДляОстатковТМЦ");
ВремОстаткиТМЦ. УстановитьЗначениеФильтра("Фирма" ,ФирмаДляОстатковТМЦ,2);
Если (ТипЗначенияСтр(ВремРезервыТМЦ) = "Регистр") Тогда
ВремРезервыТМЦ.УстановитьЗначениеФильтра("Фирма" ,ФирмаДляОстатковТМЦ,2);
КонецЕсли;
Если Конт.ИтогиАктуальны()=0 Тогда
// подготовка фильтров
СписокТМЦ = СоздатьОбъект("СписокЗначений");
ТаблНоменклатуры.Выгрузить(СписокТМЦ,,,"Номенклатура");
// установка фильтров
ВремОстаткиТМЦ.УстановитьЗначениеФильтра("Номенклатура",СписокТМЦ,2);
ВремОстаткиТМЦ.ВременныйРасчет();
Если (ТипЗначенияСтр(ВремРезервыТМЦ) = "Регистр") Тогда
// установка фильтров
ВремРезервыТМЦ.УстановитьЗначениеФильтра("Номенклатура",СписокТМЦ,2);
ВремРезервыТМЦ.ВременныйРасчет();
КонецЕсли;
КонецЕсли;
КонецПроцедуры // ФильтрОстатковТМЦ()
