Номенклатура поставщиков

НачатьТранзакцию();

Для каждого Строка из ТабличнаяЧасть Цикл
	Если Строка.Пометка И ЗначениеЗаполнено(Строка.Поле_Штрихкод) И ЗначениеЗаполнено(Строка.НоменклатураКонтрагента) Тогда 
		Попытка
			ОбъектНоменклатураКонтрагента = Строка.НоменклатураКонтрагента.ПолучитьОбъект(); 
			ОбъектНоменклатураКонтрагента.Штрихкод = СокрЛП(Строка.Поле_Штрихкод);
					
			Если НЕ ЗначениеЗаполнено(Строка.Идентификатор) Тогда
				ОбъектНоменклатураКонтрагента.Идентификатор = ОбъектНоменклатураКонтрагента.НаименованиеНоменклатуры + "#" + ОбъектНоменклатураКонтрагента.НаименованиеХарактеристики + "#" + ОбъектНоменклатураКонтрагента.НаименованиеУпаковки;
				
			КонецЕсли;
			
			Если НЕ ЗначениеЗаполнено(Строка.Упаковка) Тогда
				ОбъектНоменклатураКонтрагента.Упаковка = ОбъектНоменклатураКонтрагента.Номенклатура.ЕдиницаИзмерения;
			КонецЕсли;
			
            ОбъектНоменклатураКонтрагента.Записать();
		Исключение
			Прервать;
			ОтменитьТранзакцию();
		КонецПопытки;
	КонецЕсли;
КонецЦикла;

ЗафиксироватьТранзакцию();