1С Формат Плюс

Остатки в колонке списка

Процедура СписокПриПолученииДанных(Элемент, ОформленияСтрок) СписокНоменклатурыОграничение = Новый СписокЗначений; Для Каждого Оформление Из ОформленияСтрок Цикл Если Оформление.ДанныеСтроки.ЭтоГруппа Тогда Продолжить; КонецЕсли; СписокНоменклатурыОграничение.Добавить(Оформление.ДанныеСтроки.Ссылка); КонецЦикла; ЗапросОстатка = Новый Запрос; ЗапросОстатка.Текст = " \| ВЫБРАТЬ \| ХозрасчетныйОстатки.Счет, \| ХозрасчетныйОстатки.Субконто1 как номенклатура, \| ХозрасчетныйОстатки.КоличествоОстаток \| ИЗ \| РегистрБухгалтерии.Хозрасчетный.Остатки(, Счет = &ВыбСчет, , Субконто1 В (&ВыбНоменклатура)) КАК ХозрасчетныйОстатки"; ЗапросОстатка.УстановитьПараметр("ВыбСчет", ПланыСчетов.Хозрасчетный.ТоварыНаСкладах); ЗапросОстатка.УстановитьПараметр("ВыбНоменклатура", СписокНоменклатурыОграничение); //Пока Выборка.Следующий() Цикл // Сообщить("По счету " + Выборка.Счет + " остаток товара " + Выборка.Субконто1 + " = " + Выборка.КоличествоОстаток); //КонецЦикла; ТаблицаРезультатов = ЗапросОстатка.Выполнить().Выгрузить(); Для Каждого Оформление Из ОформленияСтрок Цикл Остатки = ТаблицаРезультатов.Найти(Оформление.ДанныеСтроки.Ссылка, "Номенклатура"); // Если Остатки = Неопределено Тогда Продолжить; КонецЕсли; Оформление.Ячейки.Ост.УстановитьТекст(Остатки.КоличествоОстаток); Оформление.Ячейки.Ост.Выравнивание = ГоризонтальноеПоложение.Право; КонецЦикла; КонецПроцедуры
Категория: 8.0 \| Добавил: Tarlich (29.04.2010)
Просмотров: 338 \| Рейтинг: 0.0/0 \|

Количество отзывов: 0

Вы не можете оставлять комментарий. требуется регистрация.
[ Регистрация | Вход ]