Код

|SELECT
	|  СпрЦ.ID [Ссылка $Справочник.Цены],
	|  $ПоследнееЗначение.Цены.Цена(СпрЦ.ID, :ВыбДата) Цена,
	|  $ПоследнееЗначение.Цены.Единица(СпрЦ.ID, :ВыбДата) [Единица $Справочник.Единицы],
	|  $СпрЦ.Валюта [Валюта $Справочник.Валюты],
	|  $СпрЦ.Процент Процент,
	|  СпрЦ.IsMark Пометка
	|FROM
	|  $Справочник.Цены СпрЦ
	|WHERE
	|  СпрЦ.ParentExt  = :ВыбНом AND
	|				   $СпрЦ.ТипЦен = :ТипЦен 

Код

Запрос = СоздатьОбъект("Запрос");
	сТекстЗапроса = "
	|Период с ДатаВыгрузкиДанных по ДатаВыгрузкиДанных;
	|Фирма = Регистр.ОстаткиТМЦ.Фирма;
	|Склад = Регистр.ОстаткиТМЦ.Склад;
	|Номенклатура = Регистр.ОстаткиТМЦ.Номенклатура;
	|Количество = Регистр.ОстаткиТМЦ.Количество;
	|Группировка Номенклатура;
	|Функция КонечныйОстаток = КонОст(Количество);
	|Условие(Фирма = спрФирма);
	|Условие(Склад = спрСклад);
	|";
	пРезультат = Запрос.Выполнить(сТекстЗапроса);
	Если пРезультат = 0 Тогда
		Сообщить("Запрос по остаткам не был выполнен! Выгрузка данных не возможна!");
		ОтчетОПроведении = ОтчетОПроведении + РазделительСтрок + "Выгрузка товаров ... Ошибка!";
		Возврат;
	Иначе
		тФайл = СоздатьОбъект("Текст");
		тФайл.ДобавитьСтроку("##@@&&");//Строка инициализации файла
		тФайл.ДобавитьСтроку("#");//Флаг того обработан ли файл
		тФайл.ДобавитьСтроку("$$$DELETEALLWARES");//Удалим все товары
		тФайл.ДобавитьСтроку("$$$REPLACEQUANTITY");//Начинаем добавлять товары и групппы товаров
		КоличествоУровней = Метаданные.Справочник("Номенклатура").КоличествоУровней;
		Для Индекс = 1 По КоличествоУровней Цикл
			Запрос.ВНачалоВыборки();
			Пока Запрос.Группировка("Номенклатура") = 1 Цикл
				Если Запрос.Номенклатура.Уровень() = Индекс Тогда
					тФайл.ДобавитьСтроку(СтрокаНоменклатуры(Запрос));
				КонецЕсли;
			КонецЦикла;
		КонецЦикла;
		Запрос.Выгрузить(тзНоменклатура);//Выгрузим номенклатуру в таблицу значений
	КонецЕсли;
 

Код

сНоменклатура = СокрЛП(Строка(Число(СтрокаЗапроса.Номенклатура.Код))) + ";" +  //1 Код