Размещение колонки с остатками в списке справочника

Книга знаний

Размещение колонки с остатками в списке справочника

Автор статьи:
Последняя редакция №1 от 26.07.06
URL: http://kb.mista.ru/article.php?id=310

Ключевые слова: Форма, остатки, колонка, справочник, список


Перем Запрос;



Процедура ПриОткрытии()

    Запрос = Новый Запрос;

    Запрос.Текст = 

    "ВЫБРАТЬ

    |    Рег.Номенклатура,

    |    Рег.КоличествоОстаток

    |ИЗ

    |    РегистрНакопления.ТоварыНаСкладах.Остатки(

    |        ,

    |        Склад = &Склад

    |            И Номенклатура В (&Номенклатура)) КАК Рег";

КонецПроцедуры



Процедура СправочникСписокПриПолученииДанных(Элемент, ОформленияСтрок)

    МассивНоменклатуры = Новый Массив;

    Для Каждого ОформлениеСтроки ИЗ ОформленияСтрок Цикл

        Если НЕ ОформлениеСтроки.ДанныеСтроки.ЭтоГруппа Тогда

            МассивНоменклатуры.Добавить(ОформлениеСтроки.ДанныеСтроки.Ссылка);

        КонецЕсли;    

    КонецЦикла;    

    

    Запрос.УстановитьПараметр("Склад", Склад);

    Запрос.УстановитьПараметр("Номенклатура", МассивНоменклатуры);

    тзОстатки = Запрос.Выполнить().Выгрузить();

    

    Для Каждого ОформлениеСтроки ИЗ ОформленияСтрок Цикл

        Если НЕ ОформлениеСтроки.ДанныеСтроки.ЭтоГруппа Тогда

            СтрТЗ = тзОстатки.Найти(ОформлениеСтроки.ДанныеСтроки.Ссылка, "Номенклатура");

            Если СтрТЗ <> Неопределено Тогда

                ОформлениеСтроки.Ячейки.Остаток.УстановитьТекст(СтрТЗ.КоличествоОстаток);

            КонецЕсли;    

        КонецЕсли;    

    КонецЦикла;    

КонецПроцедуры