Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
16 окт 2021, 05:12

Значение не является значением объектного типа(ВидНоменклатуры).

Автор Рукожоп, 25 мая 2017, 10:26

0 Пользователей и 1 гость просматривают эту тему.

Рукожоп

Функция ИзменитьНоменклатуру(НоменклатураСтр, НоменклатураGUID)

   Перем ИзмЗапись, ИзмСпр;
   
   КлючGuid = Новый УникальныйИдентификатор(НоменклатураGUID);
   ВидНом = Новый УникальныйИдентификатор(НоменклатураСтр.Вид);
   ИзмСпр = Справочники.Номенклатура.ПолучитьСсылку(КлючGuid);
   ИзмЗапись = ИзмСпр.ПолучитьОбъект();
   ИзмЗапись.ВидНоменклатуры = Справочники.ВидыНоменклатуры.ПолучитьСсылку(ВидНом);
   ИзмЗапись.ЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию(НоменклатураСтр.ЕдИзм).Ссылка;
   ИзмЗапись.НаименованиеПолное = НоменклатураСтр.НаименованиеПолное;
   ИзмЗапись.Наименование = НоменклатураСтр.Наименование;
   ИзмЗапись.Комментарий = "Перекачено из Олимп";
   Если НоменклатураСтр.Услуга = 1 тогда
      ИзмЗапись.Услуга = Истина;
   иначе
      ИзмЗапись.Услуга = Ложь;
   КонецЕсли;
   Если НоменклатураСтр.СтавкаНДС = 1 тогда
      ИзмЗапись.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;
   иначеесли НоменклатураСтр.СтавкаНДС = 2 тогда
      ИзмЗапись.СтавкаНДС = Перечисления.СтавкиНДС.НДС18_118;
   иначеесли НоменклатураСтр.СтавкаНДС = 3 тогда
      ИзмЗапись.СтавкаНДС = Перечисления.СтавкиНДС.НДС10;
   иначеесли НоменклатураСтр.СтавкаНДС = 4 тогда
      ИзмЗапись.СтавкаНДС = Перечисления.СтавкиНДС.НДС10_110;
   иначеесли НоменклатураСтр.СтавкаНДС = 5 тогда
      ИзмЗапись.СтавкаНДС = Перечисления.СтавкиНДС.НДС0;
   иначеесли НоменклатураСтр.СтавкаНДС = 6 тогда
      ИзмЗапись.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
   иначеесли НоменклатураСтр.СтавкаНДС = 7 тогда
      ИзмЗапись.СтавкаНДС = Перечисления.СтавкиНДС.НДС20;
   иначеесли НоменклатураСтр.СтавкаНДС = 8 тогда
      ИзмЗапись.СтавкаНДС = Перечисления.СтавкиНДС.НДС20_120;
   Конецесли;
   ИзмЗапись.КодОКП = НоменклатураСтр.КодОКП;

   Попытка
            ИзмСпр.Записать();
         Возврат 1;
   Исключение
         Сообщить(ОписаниеОшибки());
            Возврат 0;
    КонецПопытки;
КонецФункции

wise

Представьте себе, какая была бы тишина, если бы люди говорили только то, что знают

Теги:

Похожие темы (5)

Рейтинг@Mail.ru Rambler's Top100

Поиск