|
9
Alpen906
04.02.14
✎
10:29
|
Лови пример. Думаю разберешься
Процедура СписокПриПолученииДанных(Элемент, ОформленияСтрок)
Если НЕ (ВыводитьОстатки И ЗначениеЗаполнено(Склад)) Тогда
Возврат;
КонецЕсли;
МассивНоменклатуры = Новый Массив;
Соответствие = Новый Соответствие;
Организация = глЗначениеПеременной("ОсновнаяОрганизация");
Для Каждого Строка Из ОформленияСтрок Цикл
МассивНоменклатуры.Добавить(Строка.ДанныеСтроки.Ссылка);
Соответствие.Вставить(Строка.ДанныеСтроки.Ссылка, Строка);
СчетаУчета = БухгалтерскийУчет.ПолучитьСчетаУчетаНоменклатуры(Организация, Строка.ДанныеСтроки.Ссылка, Склад);
Строка.Ячейки.СчетУчета.УстановитьТекст(СокрЛП(СчетаУчета.СчетУчета));
КонецЦикла;
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("СписокНоменклатуры", МассивНоменклатуры);
Запрос.УстановитьПараметр("Счет10", ПланыСчетов.Хозрасчетный.Материалы);
Запрос.УстановитьПараметр("Склад", Склад);
Запрос.Текст = "
|ВЫБРАТЬ
| ХозрасчетныйОстатки.Субконто1 КАК Номенклатура,
| ХозрасчетныйОстатки.КоличествоОстаток КАК Количество
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.Остатки(
| ,
| Счет В ИЕРАРХИИ (&Счет10),
| ,
| Субконто1 В (&СписокНоменклатуры) И
| Субконто2 = &Склад) КАК ХозрасчетныйОстатки";
Выб = Запрос.Выполнить().Выбрать();
Пока Выб.Следующий() Цикл
Строка = Соответствие.Получить(Выб.Номенклатура.Ссылка);
Строка.Ячейки.Количество.УстановитьТекст(Формат(Выб.Количество, "ЧЦ=15; ЧДЦ=3"));
Если Выб.Количество < 0 Тогда
Строка.Ячейки.Количество.ЦветТекста = WebЦвета.Красный;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
|
|