http://catalog.mista.ru/public/17140/
Процедура Инициализировать(Объект, ИмяТабличнойЧасти, ТабличноеПоле) Экспорт
Форма = ПланыСчетов.Хозрасчетный.ПолучитьФормуВыбора();
Счет = Форма.ОткрытьМодально();
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ХозрасчетныйОстатки.Субконто1,
| ХозрасчетныйОстатки.КоличествоОстаток,
| ХозрасчетныйОстатки.Субконто1.ЕдиницаХраненияОстатков,
| ХозрасчетныйОстатки.СуммаОстаток
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.Остатки(&Период, Счет = &Счет, , Субконто2 = &Склад) КАК ХозрасчетныйОстатки
|
|УПОРЯДОЧИТЬ ПО
| ХозрасчетныйОстатки.Субконто1.Наименование";
Запрос.УстановитьПараметр("Период", Объект.Дата);
Запрос.УстановитьПараметр("Склад", Объект.Склад);
Запрос.УстановитьПараметр("Счет", Счет);
Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Объект[ИмяТабличнойЧасти].Очистить();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
СтрокаТабличнойЧасти = Объект[ИмяТабличнойЧасти].Добавить();
СтрокаТабличнойЧасти.Номенклатура = ВыборкаДетальныеЗаписи.Субконто1;
СтрокаТабличнойЧасти.КоличествоУчет = ВыборкаДетальныеЗаписи.КоличествоОстаток;
СтрокаТабличнойЧасти.Количество = ВыборкаДетальныеЗаписи.КоличествоОстаток;
СтрокаТабличнойЧасти.ЕдиницаИзмерения = ВыборкаДетальныеЗаписи.Субконто1ЕдиницаХраненияОстатков;
СтрокаТабличнойЧасти.Коэффициент = 1;
СтрокаТабличнойЧасти.Цена = ВыборкаДетальныеЗаписи.СуммаОстаток;
СтрокаТабличнойЧасти.Сумма = СтрокаТабличнойЧасти.Количество * СтрокаТабличнойЧасти.Цена;
СтрокаТабличнойЧасти.СуммаУчет = СтрокаТабличнойЧасти.Сумма;
СтрокаТабличнойЧасти.СуммаРегл = СтрокаТабличнойЧасти.Сумма;
СтрокаТабличнойЧасти.Качество = Справочники.Качество.НайтиПоКоду("000000001");
КонецЦикла;
КонецПроцедуры