Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
14 Июн 2021, 23:58
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
МультиВход
 
collapse

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

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

Оффлайн Рукожоп

  • *
  • Регистрация: 2017-04-19
  • Сообщений: 5
  • РЕПУТАЦИЯ: 0
Функция ИзменитьНоменклатуру(НоменклатураСтр, Номенклатура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

  • *****
  • Регистрация: 2013-03-21
  • Сообщений: 1067
  • РЕПУТАЦИЯ: 155
  • КПД: 15%
  • Кто сгорел, того не подожжешь
  • Профессия: Ученик 1С
(0)
ИзмЗапись = ИзмСпр.ПолучитьОбъект();
посмотри отладчиком: ТипЗнч(ИзмЗапись)

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


Теги:
 


* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Последние вакансии

* Том 10 авторов за месяц

Геннадий ОбьГЭС Геннадий ОбьГЭС
72 Сообщений
LexaK
62 Сообщений
antoneus antoneus
31 Сообщений
Ивашка
27 Сообщений
KATERINA 861
23 Сообщений
neek666
23 Сообщений
SSC
15 Сообщений
alexandr_ll
15 Сообщений
Алексей_1985_06
11 Сообщений
pouyo
8 Сообщений

* Кто онлайн

  • Точка Гостей: 194
  • Точка Скрытых: 0
  • Точка Пользователей: 1
  • Точка Сейчас на форуме:

* Облако тэгов

* Инструменты

* Дополнительно

Поиск