Книга знаний

1С:Предприятие / Приемы программирования / Формы

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

Автор статьи: acsent | Редакторы: Волшебник, Гений 1С, ZolotarevAA, romix, FlyingOff,
Последняя редакция №2 от 27.07.06 | История
URL: http://kb.mista.ru/article.php?id=310

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



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



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

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

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

    "ВЫБРАТЬ

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

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

    |ИЗ

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

    |        ,

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

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

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



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

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

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

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

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

        КонецЕсли;    

    КонецЦикла;    

    

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

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

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

    

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

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

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

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

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

            КонецЕсли;    

        КонецЕсли;    

    КонецЦикла;    

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



см. также:
Книга знаний: Дополнительная вычисляемая или текстовая колонка в списке

Описание | Рубрикатор | Поиск | ТелепатБот | Захваченные статьи | Установки | Форум
© Станислав Митичкин (Волшебник), 2005-2024 | Mista.ru

Яндекс.Метрика