УстановитьЗначениеФильтра

Перем ТипЦен;
Перем СписокНедоступныхКолонок;
Перем ИдентификаторФормы;
Перем СписокКолонок;

Перем КонтролироватьПраваДоступа, ОсновнаяПапкаДоступаНоменклатуры, ИерархическийВид, Контрагент, ЕстьМатрица, Матрица;

Перем Рег;
Перем МестоХранения;

//******************************************************************************
//
Функция ПолучитьОстаток(РасчетИзКолонки = 0)

Если (РасчетИзКолонки = 1) и (ФлагОстатокВКолонке = 0) Тогда
Возврат "";
КонецЕсли;

Рег.УстановитьЗначениеФильтра("ТипНоменклатуры", ТипНоменклатуры);
Рег.УстановитьЗначениеФильтра("Номенклатура", ТекущийЭлемент());
Рег.УстановитьЗначениеФильтра("МестоХранения", МестоХранения,2);
//Ост = Рег.СводныйИтог(ТипНоменклатуры, ТекущийЭлемент(), МестоХранения, "Количество");
Ост = Рег.СводныйОстаток(ТипНоменклатуры, ТекущийЭлемент(), МестоХранения, "Количество");

ТабИтогов = СоздатьОбъект("ТаблицаЗначений");

КоэффициентОсн = 1;
Если ОсновнаяЕдиницаИзмерения.Выбран() = 1 Тогда
Если ОсновнаяЕдиницаИзмерения.Коэффициент <> 0 Тогда
КоэффициентОсн = ОсновнаяЕдиницаИзмерения.Коэффициент;
КонецЕсли;
КонецЕсли;

Ост = Ост/КоэффициентОсн;

Если РасчетИзКолонки = 1 Тогда
Возврат глФорматКол(Ост, "0");
Иначе
Возврат глФорматКол(Ост) + " " + ОсновнаяЕдиницаИзмерения;
КонецЕсли;

КонецФункции // ПолучитьОстаток

//******************************************************************************
Функция ПолучитьМХ()
тхт = "";
Для х = 1 По МестоХранения.РазмерСписка() Цикл
тхт = тхт + " " + МестоХранения.ПолучитьЗначение(х).Наименование + ",";
КонецЦикла;
Возврат тхт;
КонецФункции
//******************************************************************************
//
Процедура УправлениеДиалогом()

Форма.ГрафаОстаток.Видимость(ФлагОстатокВКолонке);

Для Сч = 1 По СписокНедоступныхКолонок.РазмерСписка() Цикл
Форма.ПолучитьАтрибут(СписокНедоступныхКолонок.ПолучитьЗначение(Сч)).Доступность(0);
КонецЦикла;

КонецПроцедуры // УправлениеДиалогом

//******************************************************************************
// Поиск()
//
// Параметры:
// Нет
//
// Вызывается из формул элементов диалога:
// По кнопке "Поиск"
//
// Описание:
// Вызывает обработку поиска элемента справочника по подстроке,
// если нашли, то производит выбор.
// Заменяем глобальную глПоискПоПодстроке() для случая режима подбора
//
Процедура Поиск()

Перем ПродолжитьПоиск;

Если Форма.РежимВыбора() <> 2 Тогда
глПоискПоПодстроке(Контекст);
Возврат;
КонецЕсли;

ПродолжитьПоиск = 1; // флаг поиска

// Ищем пока стоит флаг поиска
Пока ПродолжитьПоиск =1 Цикл

ПродолжитьПоиск = 0; // по умолчанию не стоит
СписокПараметров = СоздатьОбъект("СписокЗначений");
СписокПараметров.ДобавитьЗначение(Вид(),"Вид");
СписокПараметров.ДобавитьЗначение(Контекст, "Контекст");

ОткрытьФормуМодально("Обработка.ВыборИзСправочникаПоПодстроке", СписокПараметров);

Если ТипЗначенияСтр(СписокПараметров)="Справочник" Тогда
Если СписокПараметров.Вид() = Вид() Тогда
Если Форма.РежимВыбора() = 2 Тогда // Если подбор
АктивизироватьОбъект(СписокПараметров);
ПродолжитьПоиск = 1;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;

КонецПроцедуры // Поиск()

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()

СпрМХ = СоздатьОбъект("Справочник.МестаХранения");
СпрМХ.НайтиПоКоду(5);
СкладГП = СпрМХ.ТекущийЭлемент();
СпрМХ.НайтиПоКоду(3);
СкладКЦ = СпрМХ.ТекущийЭлемент();
СпрМХ.НайтиПоКоду(72);
СкладФАС = СпрМХ.ТекущийЭлемент();

МестоХранения = СоздатьОбъект("СписокЗначений");
МестоХранения.ДобавитьЗначение(СкладГП,СкладГП.Наименование);
МестоХранения.ДобавитьЗначение(СкладКЦ,СкладКЦ.Наименование);
МестоХранения.ДобавитьЗначение(СкладФАС,СкладФАС.Наименование);

ЕстьМатрица = 0;

Если ТипЗначенияСтр(Форма.Параметр) = "СписокЗначений" Тогда
//МестоХранения = Форма.Параметр.Получить("МестоХранения");
Контрагент = Форма.Параметр.Получить("Контрагент");
ТипЦен = Форма.Параметр.Получить("ТипЦен");
ТипНоменклатуры = Форма.Параметр.Получить("ТипНоменклатуры");
ВклВПрайсЛист = Форма.Параметр.Получить("ВключатьВПрайсЛист");

Если (ПустоеЗначение(ТипНоменклатуры) = 0) Тогда
УстановитьОтбор("ТипНоменклатуры", ТипНоменклатуры);
ИначеЕсли ВклВПрайсЛист = 1 Тогда
УстановитьОтбор("ВключатьВПрайсЛист", 1);
КонецЕсли;
Иначе
Контрагент = "";
КонецЕсли;

ФлагОстатокИЦенаВКолонке = ВосстановитьЗначение("ДляПодбора_ФлагОстатокИЦенаВКолонке");

УправлениеДиалогом();

РедактироватьВДиалоге(1,1);

// Управление видимостью колонок.
глУстановитьВидимостьКолонок(Контекст, ИдентификаторФормы, СписокКолонок, 1);

СохранениеПериодическихРеквизитов(0);

ОсновнаяПапкаНоменклатуры = глЗначениеПоУмолчанию("ОсновнаяПапкаНоменклатуры");
Если ТипЗначенияСтр(ОсновнаяПапкаНоменклатуры) = "Справочник" Тогда
Если ОсновнаяПапкаНоменклатуры.Вид() = "Номенклатура" Тогда
Если ОсновнаяПапкаНоменклатуры.ЭтоГруппа() = 1 Тогда
ИспользоватьРодителя(ОсновнаяПапкаНоменклатуры);
КонецЕсли;
КонецЕсли;
КонецЕсли;

ПризнакОтбора = "";
Если ТипЗначенияСтр(Форма.Параметр) = "Строка" Тогда
ПризнакОтбора = Форма.Параметр;
ИначеЕсли ТипЗначенияСтр(Форма.Параметр) = "СписокЗначений" Тогда
ПризнакОтбора = Форма.Параметр.Получить("ПризнакОтбора");
КонецЕсли;
Если ПризнакОтбора = "ПередачаВЭксплуатацию" Тогда
УстановитьОтбор("ПризнакПередачиВЭксплуатацию", 1);
КонецЕсли;

ОсновнаяПапкаДоступаНоменклатуры = глЗначениеПоУмолчанию("ОсновнаяПапкаДоступаНоменклатуры");
Если ОсновнаяПапкаДоступаНоменклатуры.Выбран() = 1 Тогда
КонтролироватьПраваДоступа = 1;
ИерархическийВид = -1;
Форма.кнПоиск.Доступность(0);
УстановитьОтбор(,);
ИначеЕсли ПустоеЗначение(Контрагент) = 0 Тогда // Дима. Установим отбор по матрице.
Матрица = Контрагент.ОсновнойДоговор.ДействующаяСпецификацияПоНоменклатуре.Получить(РабочаяДата());
Если ПустоеЗначение(Матрица) = 0 Тогда
ЕстьМатрица = 1;
КонтролироватьПраваДоступа = 0;
ИерархическийВид = -1;
Форма.кнПоиск.Доступность(0);
УстановитьОтбор(,);
ИерархическийСписок(0);
КонецЕсли;
Иначе
КонтролироватьПраваДоступа = 0;
КонецЕсли;

КонецПроцедуры // ПриОткрытии()

//******************************************************************************
// КонтрольПравДоступа()
//
Функция КонтрольПравДоступа()

Если (КонтролироватьПраваДоступа = 0) и (ЕстьМатрица = 0) Тогда
Возврат "";
КонецЕсли;

Если ТекущийЭлемент().Выбран() = 0 Тогда
Возврат "";
КонецЕсли;

Если КонтролироватьПраваДоступа = 1 Тогда
Если ИерархическийВид <> ИерархическийСписок() Тогда
ИерархическийВид = ИерархическийСписок();

Если ИерархическийВид = 1 Тогда
ИспользоватьСписокЭлементов();
Иначе

Текст = "//{{ЗАПРОС(Сформировать)
|Номенклатура = Справочник.Номенклатура.ТекущийЭлемент;
|Группировка Номенклатура без групп;
|Условие(Номенклатура в ОсновнаяПапкаДоступаНоменклатуры);
|"//}}ЗАПРОС
;
Запрос = СоздатьОбъект("Запрос");
Если Запрос.Выполнить(Текст) = 0 Тогда
Возврат "";
КонецЕсли;

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

Пока Запрос.Группировка(1) = 1 Цикл
Сп.ДобавитьЗначение(Запрос.Номенклатура);
КонецЦикла;

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

Форма.Обновить();

КонецЕсли;

КонецЕсли;
КонецЕсли;

Если ЕстьМатрица = 1 Тогда
Если ИерархическийВид <> ИерархическийСписок() Тогда
ИерархическийВид = ИерархическийСписок();
Если ИерархическийВид = 1 Тогда
ИспользоватьСписокЭлементов();
Иначе
Сп = СоздатьОбъект("СписокЗначений");
Матрица.ВыбратьСтроки();
Пока Матрица.ПолучитьСтроку() = 1 Цикл
Сп.ДобавитьЗначение(Матрица.Номенклатура);
КонецЦикла;
ИспользоватьСписокЭлементов(Сп);
Форма.Обновить();
КонецЕсли;
КонецЕсли;
КонецЕсли;

Если ИерархическийВид = 1 Тогда
Если ТекущийЭлемент().ПринадлежитГруппе(ОсновнаяПапкаДоступаНоменклатуры) = 0 Тогда
ИспользоватьРодителя(ОсновнаяПапкаДоступаНоменклатуры);
КонецЕсли;
КонецЕсли;

Возврат "";

КонецФункции // КонтрольПравДоступа()

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриПовторномОткрытии()

Если ТипЗначенияСтр(Форма.Параметр) = "СписокЗначений" Тогда
МестоХранения = Форма.Параметр.Получить("МестоХранения");
Контрагент = Форма.Параметр.Получить("Контрагент");
ТипЦен = Форма.Параметр.Получить("ТипЦен");
КонецЕсли;

КонецПроцедуры // ПриПовторномОткрытии()

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриРедактированииНовойСтроки()

УправлениеДиалогом();

СтавкаНДС = глЗначениеПоУмолчанию("ОсновнаяСтавкаНДС");
ВидНоменклатуры = глЗначениеПоУмолчанию("ОсновнойВидНоменклатуры");
ЕдиницаИзмерения = глЗначениеПоУмолчанию("ОсновнаяЕдиницаИзмерения");

КонецПроцедуры // ПриРедактированииНовойСтроки()

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриНачалеРедактированияСтроки()

УправлениеДиалогом();

КонецПроцедуры // ПриНачалеРедактированияСтроки()

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриНачалеВыбораЗначения(ИдентЭлемДиалога, ФлагСтандОбр)

КонецПроцедуры // ПриНачалеВыбораЗначения()

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриЗакрытии()

СохранитьЗначение("ДляПодбора_ФлагОстатокВКолонке", ФлагОстатокВКолонке);

КонецПроцедуры // ПриЗакрытии

Процедура ОбработкаВнешнегоСобытия(Источник, Событие, Данные)
Если СтрДлина(Данные) <= 13 Тогда
Спр = СоздатьОбъект("Справочник.Номенклатура");
Если Спр.НайтиПоРеквизиту("ШтрихКод",Данные,1) = 1 Тогда
АктивизироватьОбъект(Спр.ТекущийЭлемент());
Иначе
Предупреждение("Номенклатура с таким штрих-кодом не найдена!!!");
Возврат;
КонецЕсли;
ИначеЕсли СтрДлина(Данные) > 13 Тогда
Спр = СоздатьОбъект("Справочник.Номенклатура");
Если Спр.НайтиПоРеквизиту("ШтрихКод",Сред(Данные,13,6),1) = 1 Тогда
АктивизироватьОбъект(Спр.ТекущийЭлемент());
Иначе
Предупреждение("Номенклатура с таким штрих-кодом не найдена!!!");
Возврат;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
//*****************************************************************************
Процедура ВыборкаМХ()
МестоХранения.УдалитьВсе();
СпВыбМХ = СоздатьОбъект("СписокЗначений");
СпрМХ = СоздатьОбъект("Справочник.МестаХранения");
СпрМХ.ВыбратьЭлементы();
Пока СпрМх.ПолучитьЭлемент() = 1 Цикл
ИмяМХ = СпрМХ.ТекущийЭлемент().Наименование;
Если ИмяМХ <> "" Тогда
СпВыбМХ.ДобавитьЗначение(СпрМХ.ТекущийЭлемент(),ИмяМХ);
КонецЕсли;
КонецЦикла;
ЗнМХ = ПолучитьПустоеЗначение();
ПозицияМХ = 0;
СпВыбМХ.ОтметитьЗначения(ЗнМХ,"Укажите места хранения для учета остатков.");

Для х = 1 по СпВыбМХ.РазмерСписка() Цикл
Если СпВыбМХ.Пометка(х) = 1 Тогда
МестоХранения.ДобавитьЗначение(СпВыбМХ.ПолучитьЗначение(х),СпВыбМХ.ПолучитьЗначение(х).Наименование);
КонецЕсли;
КонецЦикла;
Если ФлагОстатокВКолонке = 1 Тогда
ПолучитьОстаток();
КонецЕсли;

КонецПроцедуры
//******************************************************************************
ИдентификаторФормы = "Справочник_Номенклатура_ФормаСписка_ДляПодбора";

// Список колонок видимостью которых будем управлять.
СписокКолонок = СоздатьОбъект("СписокЗначений");
СписокКолонок.ДобавитьЗначение("Код", "Код");
СписокКолонок.ДобавитьЗначение("Наименование", "Наименование");
СписокКолонок.ДобавитьЗначение("ОсновнаяЕдиницаИзмерения", "Ед.");
СписокКолонок.ДобавитьЗначение("СчетУчета", "Счет учета");
СписокКолонок.ДобавитьЗначение("ТипНоменклатуры", "Тип номенклатуры");
СписокКолонок.ДобавитьЗначение("ВидНоменклатуры", "Вид номенклатуры");
СписокКолонок.ДобавитьЗначение("МинОстаток", "Минимальный остаток");
СписокКолонок.ДобавитьЗначение("СтавкаНДС", "Ставка НДС (редактируется в форме элемента)");

// При первом запуске, пока пользователь не настроил видимость колонок,
// будут видимы только колонки "Код","Наименование", "Ед.", "Учетная цена".
СписокКолонок.Пометка(1, 1);
СписокКолонок.Пометка(2, 1);
СписокКолонок.Пометка(3, 1);
СписокКолонок.Пометка(4, 1);

// Список недоступных для редактирования колонок
СписокНедоступныхКолонок = СоздатьОбъект("СписокЗначений");
СписокНедоступныхКолонок.ДобавитьЗначение("Код");
СписокНедоступныхКолонок.ДобавитьЗначение("СтавкаНДС");

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