Показано с 1 по 10 из 18
Древовидный режим
-
08.03.2015, 05:12 #9
- Регистрация
- 14.01.2012
- Сообщений
- 5
- Сказал(а) спасибо
- 4
- Поблагодарили 0 раз(а) в 0 сообщениях
Бьюсь над той же проблемой - знаний мало, а кажется вот покопаюсь чуть и сделаю. Капаюсь уже 3 дня и ночи - не выходит. Есть обработка заливки номенклатуры. Хочу доделать, что бы сразу заливалить дополнительные реквизиты. В обработке вставляю код для реквизита "Модель" (код ниже). В итоге получаю ошибку - "Поле объекта не обнаружено (Модель)". Большое спасибо за подсказку. УТ 11.1 1С_8.3
&НаСервере
Процедура ЗагрузкаНоменклатуры()
Для Каждого СтрСП Из Объект.СписокЗагрузки Цикл
//Читаем данные
Артикул = сокрлп(СтрСП.Артикул);
Наименование = СтрСП.Наименование;
НаименованиеПолное = СтрСП.НаименованиеПолное;
Родитель = сокрлп(СтрСП.Группа);
ТекстовоеОписание = СтрСП.ТекстовоеОписание;
ВидНом = справочники.ВидыНоменклат� �ры.НайтиПоНаименованию(Ст� �СП.ВидНоменклатуры);
ТипНоменклатуры = ВидНом.ТипНоменклатуры;
ЕдиницаИзмерения = Справочники.ЕдиницыИзмере� �ия.НайтиПоНаименованию(Ст� �СП.ЕдиницаИзмерения);
Производитель = Справочники.Производители. НайтиПоНаименованию(СокрЛ� �(СтрСП.Производитель));
Модель = Справочники.НаборыДополни� �ельныхРеквизитовИСведени� �.Модель;
Группа = Справочники.Номенклатура.Н айтиПоНаименованию(Родите� �ь,Истина);
//Если нет такой тогда создаем.
Если Группа = Справочники.Номенклатура.П устаяСсылка() Тогда
Группа = Справочники.Номенклатура.С оздатьГруппу();
Группа.Наименование = Родитель;
Группа.Родитель = Объект.ВерхняяГруппа;
Группа.Записать();
КонецЕсли;
Далее по коду идут проверки уникальности, я пропуская, а потом код записи новых значений:
Если Номен = Справочники.Номенклатура.П устаяСсылка() Тогда
Номен = Справочники.Номенклатура.С оздатьЭлемент();
Номен.Артикул = Артикул;
Номен.Наименование = Наименование;
Номен.НаименованиеПолное = НаименованиеПолное;
Номен.ЕдиницаИзмерения = ЕдиницаИзмерения;
Номен.ТипНоменклатуры = ТипНоменклатуры;
Номен.СтавкаНДС = Объект.СтавкаНДС;
Номен.ВидНоменклатуры = ВидНом;
Номен.Родитель = Группа.Ссылка;
Номен.Описание = ТекстовоеОписание;
Номен.Производитель = Производитель;
Номен.Модель = Объект.Модель;
Номен.ВариантОформленияПр� �дажи = ВидНом.ВариантОформленияП� �одажи;
Сообщить("Создана номенклатура: "+Наименование);
Номен.Записать();
ИначеЕсли Объект.ИзменятьСуществующ� �е Тогда
НоменОб = Номен.ПолучитьОбъект();
НоменОб.Артикул = Артикул;
НоменОб.Наименование = Наименование;
НоменОб.НаименованиеПолно� � = НаименованиеПолное;
НоменОб.ЕдиницаИзмерения = ЕдиницаИзмерения;
НоменОб.ТипНоменклатуры = ТипНоменклатуры;
НоменОб.СтавкаНДС = Объект.СтавкаНДС;
НоменОб.ВидНоменклатуры = ВидНом;
НоменОб.Родитель = Группа.Ссылка;
НоменОб.Описание = ТекстовоеОписание;
НоменОб.Производитель = Производитель;
НоменОб.Модель = Объект.Модель;
НоменОб.ВариантОформления� �родажи = ВидНом.ВариантОформленияП� �одажи;
-
Похожие темы
-
Загрузка изменение справочника Номенклатура из УТ11 кто сможет написать?
от victor3comp в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 0Последнее сообщение: 11.12.2012, 07:14 -
Номенклатура и цены Штрих-М Торговое предприятие prof v.4.17.01
от yurik_ageev в разделе 1С - Предприятие 7.7Ответов: 1Последнее сообщение: 17.07.2012, 15:26 -
Внешняя обработка - Перемещение неиспользуемых элементов справочника "Номенклатура"
от DreamCatcher69 в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 0Последнее сообщение: 06.06.2012, 13:41
Социальные закладки