|
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Номенклатура.Ссылка,
| Номенклатура.Наименование,
| Номенклатура.Артикул
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.Код = &Код";
//| И Номенклатура.Наименование = &Наименование
//Запрос.УстановитьПараметр("Наименование", Наименование);
Запрос.УстановитьПараметр("Код", Код);
Результат = Запрос.Выполнить();
ВыборкаНом = Результат.Выбрать();
Пока ВыборкаНом.Следующий() Цикл
НайденнаяСсылка = ВыборкаНом.Ссылка ;
КонецЦикла;
Если НЕ НайденнаяСсылка = "" ТОгда
Товар = НайденнаяСсылка.ПолучитьОбъект();
Товар.ВидНоменклатуры = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глТекущийПользователь, "ОсновнойВидНоменклатуры");
Если ЕдИзмр = "упак" Тогда
Товар.БазоваяЕдиницаИзмерения = ЕдИзмУпак;
Товар.Весовой = Ложь;
иначе
Если ЕдИзмр = "шт" Тогда
Товар.БазоваяЕдиницаИзмерения = ЕдИзмШт;
Товар.Весовой = Ложь;
иначе
Если ЕдИзмр = "кг" Тогда
Товар.БазоваяЕдиницаИзмерения = ЕдИзмКг;
Товар.Весовой = Истина;
иначе
Если ЕдИзмр = "флак" Тогда
Товар.БазоваяЕдиницаИзмерения = ЕдИзмФл;
Товар.Весовой = Ложь;
иначе
Если ЕдИзмр = "набор" Тогда
Товар.БазоваяЕдиницаИзмерения = ЕдИзмНаб;
Товар.Весовой = Ложь;
иначе
Если ЕдИзмр = "бут" Тогда
Товар.БазоваяЕдиницаИзмерения = ЕдИзмБут;
Товар.Весовой = Ложь;
иначе
Если ЕдИзмр = "л" Тогда
Товар.БазоваяЕдиницаИзмерения = ЕдИзмЛ;
Товар.Весовой = Ложь;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Попытка
Товар.Записать();
Сообщить("Элемент с кодом ["+Код+"] в справочнике изменен!");
Исключение
Сообщить("Элемент с кодом ["+Код+"] не удалось изменить!");
КонецПопытки;
КонецЕсли; |
|