|
0
maxxxl-ms
19.07.12
✎
10:57
|
Здравствуйте, очень надеюсь на вашу помощь. Имееться обработка Выгрузка номенклатуры.ert, в ней часть кода такая:
// Предопределенная процедура.
//
Процедура ПриОткрытии()
Форма.ИспользоватьСлой("Основной,Подвал");
Кодировка.ДобавитьЗначение(0, "Windows");
Кодировка.ДобавитьЗначение(1, "DOS");
Направление.ДобавитьЗначение(0, "Импортные товары");
Направление.ДобавитьЗначение(1, "Промышленные товары");
Направление.ДобавитьЗначение(2, "Запасные части");
Направление.ДобавитьЗначение(3, "Сельхозтехника");
флТолькоВключаемые = 1;
КонецПроцедуры // ПриОткрытии()
//******************************************************************************
// Процедуры управления добавления данных с списки значений
Процедура ПоКнопкеДобавитьГруппу(Режим)
ТаблицаДляПодбора = Группы;
ОткрытьПодбор("Справочник.Номенклатура","ДляВыбора",1, Режим);
КонецПроцедуры
Тут мы выбираем из справочника номенклатура каталоги товаров, при этом производя выборку из списка путём ручного ввода(поиска) по каталогу и затем нажимаем enter чтобы добавить товар в ТаблицаДляПодбора, вот за это отвечает думаю этот код:
Процедура ОбработкаПодбора(Элемент, Конт)
Если ТаблицаДляПодбора = Группы Тогда
Если (Элемент.Вид() = "Номенклатура") и (Группы.Принадлежит(Элемент) = 0) и (Элемент.ЭтоГруппа() = 1) Тогда
Группы.ДобавитьЗначение(Элемент.ТекущийЭлемент(),Элемент.Наименование);
КонецЕсли;
Иначе
Если (Элемент.Вид() = "Номенклатура") и (ТаблицаДляПодбора.Принадлежит(Элемент) = 0) и (Элемент.ЭтоГруппа() = 0) Тогда
ТаблицаДляПодбора.ДобавитьЗначение(Элемент.ТекущийЭлемент(),Элемент.Наименование);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Так вот сама задача состоит в том, можно ли сделать так чтобы из справочника номенклатура в ТаблицаДляПодбора, выборка происходила автоматически без ввода вручную, например заранне ввести весь список каталогов и чтобы оттуда черпались каталоги, сравнивались с теми что есть в номенклатуре и вносились в ТаблицаДляПодбора? Подскажите может есть что то подобное в качестве примера.
|
|
