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

Запрос.Текст = " ВЫБРАТЬ

                    |    СпецификацииНоменклатуры.Ссылка

                    |ИЗ

                    |    Справочник.СпецификацииНоменклатуры КАК СпецификацииНоменклатуры

                    |ГДЕ

                    |    СпецификацииНоменклатуры.Владелец.Ссылка = &НоменклатураСсылка

                    |    И СпецификацииНоменклатуры.Организация В ИЕРАРХИИ (&Организация)";  

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

Запрос.УстановитьПараметр("Организация", Организация);

СписокСпецификаций = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка");    



ФормаВыбора = Справочники.СпецификацииНоменклатуры.ПолучитьФормуВыбора(,Элемент,Элемент);

ЭлементОтбора = ФормаВыбора.СправочникСписок.Отбор.Ссылка;

ЭлементОтбора.ВидСравнения = ВидСравнения.ВСписке;

ЭлементОтбора.Значение = СписокСпецификаций;

ЭлементОтбора.Использование = Истина;

ФормаВыбора.ЭлементыФормы.СправочникСписок.НастройкаОтбора.Ссылка.Доступность = Ложь;

ФормаВыбора.Открыть();   

 &НаКлиенте

Процедура ПоУмолчаниюОпцияНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)

    СтандартнаяОбработка = Ложь;

    ФормаВыбора = ПолучитьФорму("Справочник.ОпцииАвтомобилей.Форма.ФормаВыбора");

    ФормаВыбора.Открыть();

    ЭлементОтбора = ФормаВыбора.Список.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

    ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Ссылка");

    ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;

    ЭлементОтбора.ПравоеЗначение = СписокОпций;

    ЭлементОтбора.Использование = Истина;

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



&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

    //считаем данные по опциям доступной для данной модели 

    СписокОпций.ЗагрузитьЗначения(Объект.Владелец.ОпцииМодели.Выгрузить().ВыгрузитьКолонку("Опция"));

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

 Функция СоответствуетУсловиямФильтра(ЭлементСправочника)

Если ПустоеЗначение(ЭлементСправочника) = 0 Тогда

//Условие фильтра: текущий остаток не равен нулю

Если Регистр.ПартииТоваров.СводныйОстаток("",ЭлементСправочника.ТекущийЭлемент(),,,,,"ОстатокТовара") <> 0 Тогда

Возврат 1;

КонецЕсли;

КонецЕсли;

Возврат 0;

КонецФункции



Процедура УстановитьФильтр(Знач Группа="", Знач Иерархия="")

//Для флажка Фильтр задана формула "УстановитьФильтр()"

Если Фильтр = 1 Тогда

//Определяем параметры процедуры

Группа = ?(Группа="",ТекущийЭлемент().Родитель,Группа);

Иерархия = ?(Иерархия="",ИерархическийСписок(),Иерархия);

СписокФильтра = СоздатьОбъект("СписокЗначений");

Спр = СоздатьОбъект("Справочник.Номенклатура");

//Определяемся с использованием родителя при выборке элементов

Если ПустоеЗначение(Группа) = 0 Тогда

Спр.ИспользоватьРодителя(Группа);

КонецЕсли;

Спр.ВключатьПодчиненные(0);

//Выбираем элементы с учётом иерархии

Спр.ВыбратьЭлементы(Иерархия);

Пока Спр.ПолучитьЭлемент() = 1 Цикл

//Показваем группы, для удобства навигации

Если Спр.ЭтоГруппа() = 1 Тогда

//Добавляем группу в список фильтра

СписокФильтра.ДобавитьЗначение(Спр.ТекущийЭлемент());

Продолжить;

КонецЕсли;

//Проверяем элемент на соответствие условиям фильтра

Если СоответствуетУсловиямФильтра(Спр.ТекущийЭлемент()) = 1 Тогда

//Добавляем элемент в список фильтра

СписокФильтра.ДобавитьЗначение(Спр.ТекущийЭлемент());

КонецЕсли;

КонецЦикла;

//Устанавливаем фильтр

ИспользоватьСписокЭлементов(СписокФильтра);

Иначе

//Снимаем фильтр

ИспользоватьСписокЭлементов();

КонецЕсли;

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



Процедура ПриВыбореРодителя(Элемент)

УстановитьФильтр(Элемент)

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



Процедура ПриСменеИерархии(Способ)

УстановитьФильтр(,Способ)

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

 

// Если итоги не актуальны, то стоимости берем из временного расчета

// регистра УчетРеализации

Рег = СоздатьОбъект("Регистр.УчетРеализации");

Рег.ВременныйРасчет();

РассчитатьРегистрыПо(ТекущийДокумент());

Рег.Товар = Товар;

Рег.Клиент = Клиент;

Рег.ОстаткиПолучить();

ТекОстаток = Рег.ОстатокТовара;

ТекСтоимость = Рег.Стоимость;

ТекПродСтоимость = Рег.ПродСтоимость;

 

// Если итоги не актуальны, то стоимости берем из временного расчета

// регистра УчетРеализации

Рег = СоздатьОбъект("Регистр.УчетРеализации");

Рег.ВременныйРасчет();

РассчитатьРегистрыНа(ТекущийДокумент());

Рег.Товар = Товар;

Рег.Клиент = Клиент;

Рег.ОстаткиПолучить();

ТекОстаток = Рег.ОстатокТовара;

ТекСтоимость = Рег.Стоимость;

ТекПродСтоимость = Рег.ПродСтоимость;

 // Пример 1

// Если итоги не актуальны, то стоимости берем из временного расчета

// регистра УчетРеализации

Рег = СоздатьОбъект("Регистр.УчетРеализации");

Рег.ВременныйРасчет();

РассчитатьРегистрыНа(ТекущийДокумент());

Рег.Товар = Товар;

Рег.Клиент = Клиент;

Рег.ОстаткиПолучить();

ТекОстаток = Рег.ОстатокТовара;

ТекСтоимость = Рег.Стоимость;

ТекПродСтоимость = Рег.ПродСтоимость;



// Пример 2

РегТовары = СоздатьОбъект("Регистр.Товары");

РегДоходы = СоздатьОбъект("Регистр.Доходы");



//установка флага временного расчета для регистров

РегТовары.ВременныйРасчет(1);

РегДоходы.ВременныйРасчет(1);

 // Пример 1

// Для регистра с измерениями «Товар», «Склад», «МОЛ» запись

Рег.СводныеОстатки(Тов1, , );

//означает, что ресурсы будут получены только по одному товару (Тов1), но по всем складам и всем МОЛам.

Процедура ПолучитьСводныеОстатки(Товар, ОстатокТовара, Стоимость);

   Регистр.УчетТовара.СводныеОстатки(Товар, );

   ОстатокТовара = Регистр.УчетТовара.ОстаткиТовара;

   Стоимость = Регистр.УчетТовара.СтоимостьТовара;

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



// Пример 2

РегТовары = СоздатьОбъект("Регистр.Товары")

//получить сводные остатки по товару

РегТовары.СводныеОстатки(ТекТовар,); //указано только одно измерение

КолвоТовара = РегТовары.Количество;

СтоимостьТовара = РегТовары.Стоимость;



//получить стоимость всех товаров на данном складе

РегТовары.СводныеИтоги(,ТекСклад); //указано только одно измерение

СтоимостьПоСкладу = РегТовары.Стоимость;

 // Пример 1

// Для регистра с измерениями «Товар», «Склад», «МОЛ» запись

Рег.СводныйОстаток(Тов1, , "ОстатокТовара");

//означает, что ресурс «ОстатокТовара» будет получен только по одному товару (Тов1), но по всем складам и всем МОЛам.

Процедура ПолучитьСводныйОстаток(Товар, Ост);

   Ост = Регистр.УчетТовара.СводныйОстаток(Товар, , "ОстаткиТовара");

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



// Пример 2

РегТовары = СоздатьОбъект("Регистр.Товары")

//получить остаток данного товара на всех складах

КолвоТовара = РегТовары.СводныйОстаток (ТекТовар,,"Количество");

СтоимостьТовара = РегТовары.СводныйОстаток (ТекТовар,,"Стоимость");

//получить стоимость всех товаров на данном складе

СтоимостьПоСкладу = РегТовары.СводныйОстаток (,ТекСклад,"Стоимость");

 

// Пример 1

Процедура ПолучитьОстатки(Товар, Склад, ОстатокТовара, Стоимость);

   Регистр.УчетТовара.Остатки(Товар, Склад);

   ОстатокТовара = Регистр.УчетТовара.ОстаткиТовара;

   Стоимость = Регистр.УчетТовара.СтоимостьТовара;

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



// Пример 2

РегТовары = СоздатьОбъект("Регистр.Товары")

//получить остаток данного товара на данном складе по кол-ву и по сумме

РегТовары.Остатки (ТекТовар, ТекСклад);

Колво = РегТовары.Количество;

Стоимость = РегТовары.Стоимость;



// Пример 3

рег1=создатьобъект("Регистр.Остатки");

рег1.Остатки(Товар, Склад, Контрагент);

Сообщить(" Кол-во="+рег1.Количество+

          " Сумма="+рег1.Сумма);