7.7 Перебор справочника Номенклатура

Пишу перебор в ТиС справочника Номенклатуры с ценами. В ТиС 2 типа базовых цен: "Закупочная" и "СЦ".
Мой код:

Код:

СпрН = СоздатьОбъект("Справочник.Номенклатура");
СпрТЦ = СоздатьОбъект("Справочник.ТипыЦен");
СпрЦ = СоздатьОбъект("Справочник.Цены");

СпрН.ВыбратьЭлементы();

Пока  СпрН.ПолучитьЭлемент()=1 Цикл
Товар = СпрН.ТекущийЭлемент();
СпрЦ.ИспользоватьВладельца(Товар); 
СпрЦ.ИспользоватьДату(ТекущаяДата());
СпрЦ.ВыбратьЭлементы();
Пока СпрЦ.ПолучитьЭлемент()=1 Цикл
ТипЦены = СпрЦ.ТипЦен;//!!!!
Цена = СпрЦ.Цена;    
Наименование = СпрЦ.Владелец.Наименование;
Код = СпрЦ.Владелец.Код;
РодительНом = СпрЦ.Владелец.Родитель;
Сообщить(Код+";"+Наименование+";"+РодительНом+";"+Цена+";");

КонецЦикла;
КонецЦикла;

соответственно, у меня формируется в сообщениях следующее:

т.е. первая и вторая строка - один и тот же товар, но с разными значениями цен (1-я - закупочная, 2-я - СЦ). Как изменить код, чтобы СЦ выводилась справа от закупочной?

т.е.

Код:

СпрН = СоздатьОбъект("Справочник.Номенклатура");
СпрТЦ = СоздатьОбъект("Справочник.ТипыЦен");
СпрЦ = СоздатьОбъект("Справочник.Цены");

СпрН.ВыбратьЭлементы();

Пока  СпрН.ПолучитьЭлемент()=1 Цикл
Товар = СпрН.ТекущийЭлемент();
СпрЦ.ИспользоватьВладельца(Товар); 
СпрЦ.ИспользоватьДату(ТекущаяДата());
СпрЦ.ВыбратьЭлементы();
ВремНом=1;
Пока СпрЦ.ПолучитьЭлемент()=1 Цикл
ТипЦены = СпрЦ.ТипЦен;//!!!!
Цена = СпрЦ.Цена;    
Наименование = СпрЦ.Владелец.Наименование;
Код = СпрЦ.Владелец.Код;
РодительНом = СпрЦ.Владелец.Родитель;

Если ВремНом=1 тогда
Выводить=Код+";"+Наименование+";"+РодительНом+";"+Цена+";  ");
Иначе
Выводить=Выводить + Цена;
КонецЕсли;
ВремНом=ВремНом+1;  
КонецЦикла;
Сообщить (""+Выводить);
КонецЦикла;