1С 7.7 Последняя розничная цена в выбранном периоде

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

Пер.ВыбратьЗначения(ДатаНач,ДатаКон);

Если Пер.ПолучитьЗначение() = 1 Тогда
ДействующаяЦена=глПолучитьЦену(спрНом.ТекущийЭлемент(),ТипЦен, РабочаяДата(),, ,,);	
ЦенаСтарая=Пер.Значение;  
Разница=ДействующаяЦена-ЦенаСтарая;
Если ПустоеЗначение(Разница)=0 Тогда
	НоваяСтрока();
	Номенклатура=(спрНом.ТекущийЭлемент());
	ВидТМЦ = Перечисление.ВидыТМЦ.Товар;
	Цена=ЦенаСтарая;
	РозничнаяЦена=ДействующаяЦена;
	Если Цена>0 тогда
    РозничнаяНаценка=РозничнаяЦена/Цена*100-100; 
	КонецЕсли;
    Количество=1;  
    Единица=Номенклатура.БазоваяЕдиница;
	Коэффициент=Номенклатура.БазоваяЕдиница.Коэффициент;
	Сумма=РозничнаяЦена*Количество;
 КонецЕсли;

КонецЕсли;
 


//КонецЦикла;
КонецЕсли;

КонецЦикла;