0
maestro-72
27.02.14
✎
12:07
|
из внешней обработки надо создать номенклатуру
на форме таблицазначений заполнена данными
Код вот:
&НаСервере
Процедура СоздатьНоменклатуру(ТЗ)
//Создаем номенклатуру
ТЗ.Сортировать("Артикул");
Арт = "???"; //Будем оценивать по артикулу повторяющиеся номенклатуры
Для Каждого СтрТаб из ТЗ Цикл
Если СокрЛП(СтрТаб.Артикул) = Арт Тогда
Продолжить;
КонецЕсли;
Арт = СокрЛП(СтрТаб.Артикул);
//Проверим номенклатуру Может уже создана
Номен = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", СтрТаб.Артикул);
Если Не Номен.Пустая() Тогда
Продолжить;
КонецЕсли;
//Требуется создать номенклатуру
Номен = Справочники.Номенклатура.СоздатьЭлемент();
Номен.Наименование = СтрТаб.Наименование;
Номен.ПолноеНаименование = СтрТаб.ПолноеНаименование;
Номен.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
Номен.Артикул = СокрЛП(СтрТаб.Артикул);
Попытка
Номен.Записать();
Исключение
Сообщить("Не удалось записать элемент номенклатуры " + СтрТаб.Наименование);
КонецПопытки;
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура Создать(Команда)
СоздатьНоменклатуру(Таблица);
КонецПроцедуры
При нажатии на кнопку создать ничего не происходит, как правильно сделать, очень срочно нужно. Где я не прав?
|
|