"Добрый день!<br><br>Конфигурация Торговля+Склад для Украины 7.70.007<br><br>Мне необходимо выгрузить в текстовый формат через разделитель код контрагента и дополнительное поле например коментарий. Пытаюсь воспользоватся вот таким запросом. Помогите плиз. Может у кого есть дока по запросам или готовая реализация?<br><br> Запрос=СоздатьОбъект("Запрос");<br><br> ТекстЗапроса="<br> |ПЕРИОД С Дата1 По Дата2;<br> |Фирма=Регистр.ПартииТоваров.Фирма;<br> |Товар=Регистр.ПартииТоваров.Товар;<br> |Контрагент=Регистр.ПартииТоваров.ТекущийДокумент.РасходнаяНакладная.Контрагент;<br> |ОстатокТовара=Регистр.ПартииТоваров.ОстатокТовара;<br> |Оборот=Регистр.ПартииТоваров.Оборот;<br> |КодОперации=Регистр.ПартииТоваров.КодОперации;<br> |Группировка Контрагент без групп;<br> |Условие (Фирма=ВыбФирма);<br> |Условие (Товар в ВыбГруппа);<br> |Условие (Оборот<>0);<br> |Условие (ПустоеЗначение(Контрагент)=0);<br> |Условие (КодОперации В КодыОперацийПродажи);<br> |Функция ОборотТовара=Сумма(Оборот);<br> |";<br><br> СписокТоваров = СоздатьОбъект("СписокЗначений");<br> СписокКонтрагентов = СоздатьОбъект("СписокЗначений");<br><br> Если глФильтрПоСправочнику("Номенклатура",0,0,0,0,0,СписокТоваров,ТекстЗапроса,0,0,"Товар,,,СписокТоваров,,,,,")=0 Тогда<br> Возврат;<br> КонецЕсли;<br><br> Если глФильтрПоСправочнику("Контрагенты",0,0,ВыбКатегорияКонтрагентов,0,0,СписокКонтрагентов,ТекстЗапроса,0,0,"Контрагент,,,СписокКонтрагентов,,,,,")=0 Тогда<br> Возврат;<br> КонецЕсли;<br><br> Если Запрос.Выполнить(ТекстЗапроса)=0 тогда<br> Предупреждение("Запрос по Партиям не выполнился!");<br> Возврат;<br> КонецЕсли;<br><br> Пока Запрос.Группировка("Контрагент")=1 Цикл<br> СтрокаТекста=СокрЛП(Строка(Константа.КодДДС))+";";<br> СтрокаТекста=СтрокаТекста+СокрЛП(Строка(Запрос.Контрагент.Код))+";";<br> СтрокаТекста=СтрокаТекста+СокрЛП(Строка(Запрос.Контрагент.Комментарий))+";";<br> ТекстВыгрузки.ДобавитьСтроку(СтрокаТекста);<br> КонецЦикла;<br><br> Если ТекстВыгрузки.КоличествоСтрок()<>0 Тогда<br><br> Попытка<br> ТекстВыгрузки.Записать(ФайлВыгрузки);<br> Предупреждение("Файл успешно сформирован");<br> Исключение<br> Предупреждение("Невозможно сохранить файл! Проверьте путь к файлу выгрузки!");<br> КонецПопытки;<br><br> Иначе<br> Предупреждение("Нет данных для выгрузки! Файл не сформирован!");<br> КонецЕсли;<br>КонецПроцедуры"