При закрытии настройки сохраняются. При нажатии на кнопку "обновить" время и остатки обновляются на текущие. Сделано на базе подбора номенклатуры с возможностью просмотра всего справочника или только остатков по складу, с ирархией и без. В режиме справочника позволяет проводить все те же действия что и справочник список номенклатуры (добавление, изменение, и т.д). Возможность поиска по наименованию, полному наименованию, коду.
Кнопки - создание нового документа. При желании можно изменить на свои или убрать вовсе.
Есть возможность перетаскивания строк мышкой из обработки в документ для этого необходимо добавить в данные документы следующий код:
в модуль формы:
Процедура ОбщееПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Колонка)
СтандартнаяОбработка = Ложь;
ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Копирование;
Если Тип(ПараметрыПеретаскивания.Значение) = Тип("Массив") Тогда
Для каждого ПеретаскиваемаяСтрока из ПараметрыПеретаскивания.Значение Цикл
ДобавляемаяСтрока = ЭтотОбъект[Элемент.Имя].Добавить();
ЗаполнитьЗначенияСвойств(ДобавляемаяСтрока, ПеретаскиваемаяСтрока);
КонецЦикла;
Иначе
ДобавляемаяСтрока = ЭтотОбъект[Элемент.Имя].Добавить();
ЗаполнитьЗначенияСвойств(ДобавляемаяСтрока, ПараметрыПеретаскивания.Значение);
КонецЕсли;
КонецПроцедуры
Процедура ОбщаяПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Колонка)
СтандартнаяОбработка = Ложь;
ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Копирование;
ПараметрыПеретаскивания.ДопустимыеДействия = ДопустимыеДействияПеретаскивания.Копирование;
КонецПроцедуры
В процедуру ПриОткрытии :
ПодключитьВозможностьПеретаскивания(ЭтаФорма);
В Основной модуль:
Процедура ПодключитьВозможностьПеретаскивания(НужнаяФорма) Экспорт
Для каждого ЭлементФормы из НужнаяФорма.ЭлементыФормы Цикл
Если ТипЗнч(ЭлементФормы) = Тип("ТабличноеПоле") Тогда
ЭлементФормы.РазрешитьНачалоПеретаскивания = Истина;
ЭлементФормы.РазрешитьПеретаскивание = Истина;
ЭлементФормы.РежимВыделения = РежимВыделенияТабличногоПоля.Множественный;
ЭлементФормы.УстановитьДействие("Перетаскивание", Новый Действие("ОбщееПеретаскивание"));
ЭлементФормы.УстановитьДействие("ПроверкаПеретаскивания", Новый Действие("ОбщаяПроверкаПеретаскивания"));
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Вступайте в нашу телеграмм-группу Инфостарт
