программное удаление записей в РС

&НаКлиенте
Процедура УдалитьНоменклатуру(Команда)  
	УдалитьНоменклатуруНаСервере();
КонецПроцедуры

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

&НаКлиенте
Процедура Удалить(Команда) 
	УдалитьНаСервере();
	//для каждого строка из объект.товары цикл 
	//	УдалитьНаСервере();  
	//	отбор = новый структура; 
	//	отбор.Вставить("Номенклатура", истина);
	//	отбор.Вставить("Характеристика", истина);
	//	отбор.Вставить("Штрихкод", истина);
	//	отбор.Вставить("Партия", истина);
	//	отбор.Вставить("ЕдиницаИзмерения", истина);
	//	СтрокиУдалить = Объект.Товары.НайтиСтроки(Отбор); 
	//	Пока СтрокиУдалить.Количество() > 0 цикл 
	//		объект.товары.Удалить(СтрокиУдалить[0]);
	//        СтрокиУдалить = объект.товары.НайтиСтроки(Отбор);
	//    КонецЦикла;
	//конеццикла;
КонецПроцедуры

&НаСервере
Процедура УдалитьНаСервере()  
	//Товар = Объект.Товары;
	//выборка = справочники.НоменклатураПрисоединенныеФайлы.выбрать();
	//пока выборка.Следующий() цикл
	//	выборка.ПолучитьОбъект().УстановитьПометкуУдаления(Истина);
	//конеццикла; 
	для каждого строка из Объект.Товары цикл    
		ЗаписьРС = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьМенеджерЗаписи();   
				
		ЗаписьРС.Номенклатура = Строка.Номенклатура; 
		ЗаписьРС.Штрихкод = Строка.Штрихкод; 
		ЗаписьРС.Характеристика = Строка.Характеристика; 
		ЗаписьРС.Партия =  Строка.Партия;
		ЗаписьРС.ЕдиницаИзмерения = Строка.ЕдиницаИзмерения; 
		ЗаписьРС.Прочитать();   
		ЗаписьРС.Удалить();
	конеццикла;   
	Номенклатура = Справочники.Номенклатура.Выбрать();
	Если Номенклатура.ПометкаУдаления = Истина Тогда 
		НоменклатураОбъект = Номенклатура.ПолучитьОбъект();
		НоменклатураОбъект.Удалить();
	КонецЕсли;
КонецПроцедуры