Файлы загрузки товаров в штрих принт весы через лоадер

&НаКлиенте
Процедура ВыгрузитьВВесы(Команда)
	Для каждого стр из СписокВесы Цикл;
		Если стр.Флаг И ЗначениеЗаполнено(стр.ВидЦены) И ЗначениеЗаполнено(стр.ФайлВыгрузки) Тогда
			ФайлТекст="";
			ЗаполнитФайлТекстВесы(ФайлТекст,стр.ВидЦены);
			ТекстовыйФайл = Новый ТекстовыйДокумент;
			ТекстовыйФайл.ДобавитьСтроку(ФайлТекст);
			ТекстовыйФайл.Записать(стр.ФайлВыгрузки, КодировкаТекста.ANSI);
			Сообщить("Файл: "+стр.ФайлВыгрузки+" записан");
		КонецЕсли;	
	КонецЦикла;	
КонецПроцедуры

&НаСервереБезКонтекста
Процедура ЗаполнитФайлТекстВесы(ФайлТекст,ВидЦены)
	Запрос=Новый Запрос;
	Запрос.УстановитьПараметр("ВидЦены",ВидЦены);
	Запрос.Текст="ВЫБРАТЬ
	             |	Цены.Номенклатура.Наименование КАК Наименование,
	             |	Цены.Цена КАК Цена,
	             |	isnull(КодыТоваровSKU.SKU,0) КАК SKU
	             |ИЗ
	             |	РегистрСведений.ЦеныНоменклатуры.СрезПоследних(
	             |			,
	             |			ВидЦены = &ВидЦены
	             |				И Номенклатура.Весовой) КАК Цены
	             |		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КодыТоваровSKU КАК КодыТоваровSKU
	             |		ПО Цены.Номенклатура = КодыТоваровSKU.Номенклатура";
	Выборка=Запрос.Выполнить().Выбрать();
	ПЛУ=1;
	МассивСтрок=Новый Массив;

	Пока Выборка.Следующий() Цикл

		Если Выборка.SKU<>0 И Выборка.Цена<>0 Тогда

			Товар=СтрЗаменить(Выборка.Наименование,";"," ");
			Товар=СокрЛП(СтрЗаменить(Товар,Символ(9),""));

			МассивСтрока=Новый Массив;
			МассивСтрока.Добавить(XMLСтрока(ПЛУ));
			МассивСтрока.Добавить(Лев(Товар,28));
			МассивСтрока.Добавить(Сред(Товар,29,28));
			МассивСтрока.Добавить(XMLСтрока(Выборка.Цена));
			МассивСтрока.Добавить("0;0;0");
			МассивСтрока.Добавить(XMLСтрока(Выборка.SKU));
			МассивСтрока.Добавить("0;0; ;01.01.01;0;0;0;0;01.01.01");
			МассивСтрока.Добавить(Символы.ПС);

			МассивСтрок.Добавить(СтрСоединить(МассивСтрок,";"));
			
			ПЛУ=ПЛУ+1;

		КонецЕсли;

	КонецЦикла;
	
	ФайлТекст=СтрСоединить(МассивСтрок,Символы.ПС);

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