v8: Выгрузка данных в файл .txt

 

Процедура КнопкаСформироватьНажатие(Кнопка)

	//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА

	// Данный фрагмент построен конструктором.

	// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!



	Макет = ПолучитьМакет("Макет");

	Запрос = Новый Запрос;

	Запрос.Текст = 

		"ВЫБРАТЬ

		|	ТоварыНаСкладахОстатки.Номенклатура.Код КАК code,

		|	ТоварыНаСкладахОстатки.Номенклатура.Артикул КАК art,

		|	Штрихкоды.Штрихкод КАК barcode,

		|	ТоварыНаСкладахОстатки.Номенклатура КАК name,

		|	ТоварыНаСкладахОстатки.Номенклатура.ЕдиницаИзмеренияМест.Коэффициент КАК pack,

		|	ЦеныНоменклатурыКонтрагентов.Цена КАК price,

		|	88 КАК manfid

		|ИЗ

		|	РегистрСведений.Штрихкоды КАК Штрихкоды

		|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладах.Остатки(, Номенклатура.ОсновнойПоставщик = &Поставщик) КАК ТоварыНаСкладахОстатки

		|		ПО Штрихкоды.Владелец = ТоварыНаСкладахОстатки.Номенклатура,

		|	РегистрСведений.ЦеныНоменклатурыКонтрагентов КАК ЦеныНоменклатурыКонтрагентов";



		Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);

       	Запрос.УстановитьПараметр("ДатаОкончания", ДатаОкончания);

		Запрос.УстановитьПараметр("Поставщик", Поставщик);

 

	Результат = Запрос.Выполнить();



	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

	ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");

	ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");

	ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");

	ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");



	ТабДок = ЭлементыФормы.ТабДок ;

	ТабДок.Очистить();

	ТабДок.Вывести(ОбластьЗаголовок);

	ТабДок.Вывести(ОбластьШапкаТаблицы);

	ТабДок.НачатьАвтогруппировкуСтрок();



	ВыборкаДетальныеЗаписи = Результат.Выбрать();



	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

		ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи);

		ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетальныеЗаписи.Уровень());

	КонецЦикла;



	ТабДок.ЗакончитьАвтогруппировкуСтрок();

	ТабДок.Вывести(ОбластьПодвалТаблицы);

	ТабДок.Вывести(ОбластьПодвал);



	//}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА

                         



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

 ТабДок.Записать("c:\1.txt",ТипФайлаТабличногоДокумента.TXT);