УТ 11.5 ошибка Поле "Оформление продажи" не заполнено при создании номенклатуры программно

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