процедура установка закупа в 1 с 7. редакция 4,5

Процедура УстановкаЗакупа()
	
	ВыбратьСтроки();
	Пока ПолучитьСтроку() = 1 Цикл
		СпрЦены = СоздатьОбъект("Справочник.Цены");
		СпрЦены.ИспользоватьВладельца(Товар);
		Если СпрЦены.НайтиПоРеквизиту("ТипЦен",ТипЦен,0) = 1 Тогда
			Если СпрЦены.Цена.Получить(ДатаДок)<>Цена Тогда
				СпрЦены.Цена.Установить(ДатаДок,Цена);    
			КонецЕсли;
		Иначе
			СпрЦены.Новый();
			СпрЦены.ТипЦен =  ТипЦен;
			СпрЦены.Валюта = ТипЦен.Валюта;
			СпрЦены.Владелец = Товар;
			СпрЦены.Записать();
			
		КонецЕсли;
	КонецЦикла;  
	
	ВыбратьСтроки();
	Пока ПолучитьСтроку() = 1 Цикл
		Если РозничнаяЦена = 0 Тогда
		    Продолжить;
		КонецЕсли;
		СпрЦены = СоздатьОбъект("Справочник.Цены");
		СпрЦены.ИспользоватьВладельца(Товар);
		Если СпрЦены.НайтиПоРеквизиту("ТипЦен",Константа.РозничныйТипЦен,0) = 1 Тогда
			Если СпрЦены.Цена.Получить(ДатаДок)<>РозничнаяЦена Тогда
				СпрЦены.Цена.Установить(ДатаДок,РозничнаяЦена);    
			КонецЕсли;
		Иначе
			СпрЦены.Новый();
			СпрЦены.ТипЦен =  Константа.РозничныйТипЦен;
			СпрЦены.Валюта = ТипЦен.Валюта;
			СпрЦены.Владелец = Товар;
			СпрЦены.Записать();
			
		КонецЕсли;
	КонецЦикла;
	
	
	
КонецПроцедуры