Цены номенклатуры 1С7.7:ТиС 9.2

 Процедура Сформировать()

	Перем таб;

    таб=СоздатьОбъект("Таблица");

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

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

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

    Пока спр.ПолучитьЭлемент()=1  Цикл

		Наименование=спр;

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

		ц.ИспользоватьВладельца(спр);

		Пока ц.ПолучитьЭлемент()=1 Цикл

			Цена=ц.ПолучитьАтрибут("Цена");

		КонецЦикла;

        таб.ВывестиСекцию("эл");

    КонецЦикла;

    Таб.Опции(0,0,1,1);

    Таб.ТолькоПросмотр(1);

    таб.Показать();

	Сообщить("Всё!");



КонецПроцедуры