Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Вписать базовую единицу
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.1 (8.0)
danie
Точу под себя обработку импорта в справочники из екселя.




Процедура ЗагрузкаВСправочник()

//Выбор: Новый элемент "Главного справочника"(например справочника "Модели", элементу которого
//подчинен справочник "СерийныеНомера") или пишем в тот, который уже есть

//Пишем в подчиненный справочник
МассивКолонкаТЗ=тзДанные.ВыгрузитьКолонку(ЭлементыФормы.ВыборКолонкиТЗДляЗагрузк
и.Значение);
Для Каждого н Из МассивКолонкаТЗ Цикл
НовыйЭлементСправоч=Справочники[ЭлементыФормы.ВыборСправочника.Значение].Создать
Элемент();

Если ЭлементыФормы.ВыборРеквизитКодНаименование.Значение="Код" Тогда
НовыйЭлементСправоч.Код=н;
ИначеЕсли ЭлементыФормы.ВыборРеквизитКодНаименование.Значение="Наименование" Тогда
НовыйЭлементСправоч.Наименование=н;
Иначе
НовыйЭлементСправоч[ЭлементыФормы.ВыборРеквизитКодНаименование.Значение]=н;
КонецЕсли;
Если ФлажокПодчиненныйСправочник=Истина Тогда
НовыйЭлементСправоч.Владелец=ИмяЭлементаГлавногоСправочника.Ссылка;
КонецЕсли;
Если ФлажокИерархическийСправочник=Истина Тогда
НовыйЭлементСправоч.Родитель=Справочники[ЭлементыФормы.ВыборСправочника.Значение
].
НайтиПоНаименованию(ЭлементыФормы.ВыборРодителяДляЭлементов.Значение);
КонецЕсли;

НовыйЭлементСправоч.Записать();
КонецЦикла;
КонецПроцедуры



Кидаю товар в номенклатуру - ругается на незаполненную "базовую единицу" измерения (обязательный реквизит для номенклатуры). Как ее вбить в код обработки по умолчанию?
danie
закрыто
Vofka
smile.gif
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.