Всем привет.

Я создаю новую конфу, подскажите, как настроить автоматическую выгрузку прайса товаров в текстовый файл (используя регламентное задание), на 1с8.2? Там вроде отдельно отчет нужно создавать и сохранить как внешнюю обработку.

Не рановато за суперпупермега поделку взялся?

(0) пиши модуль.

Взялся сделать это через обработку (в управляемом режиме). В форме создал кнопку и прописал параметры:

&НаСервере
Процедура ВыполнитьПриНажатии(Команда)
Текст = Новый ТекстовыйДокумент;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
              | ЦеныСрезПоследних.Номенклатура.Наименование,
              | ЦеныСрезПоследних.Цена
              |ИЗ
              | РегистрСведений.Цены.СрезПоследних КАК ЦеныСрезПоследних";
   
   
Запрос.УстановитьПараметр("НаДату", ТекущаяДата());
Запрос.УстановитьПараметр("ТипЦен", Справочники.ТипыЦенНоменклатуры.НайтиПоКоду("000000003"));
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл

 Текст.ДобавитьСтроку(Выборка.Номенклатура + Символы.Таб + Выборка.Цена);
КонецЦикла;

Текст.Записать("G:\1.txt");

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

Но никаких действий в пользовательской части не происходит, ни какой ошибки не выдает.

Подскажите в чем может быть причина?

Точно рано ты за свою конфу засел. Даже не знаю с чего начать "помогать"

УТ11? ща как раз занимаюсь подобным. в купе до автоматической рассылки по почте клиентам.
Плюс вполне возможно формирование на каждого клиента своего прайса исходя из соглашений. гемморойная работенка...

(3) сделай для проверки ТЗ в которую выгружай запрос и проверяй что у тебя.

Текст.ДобавитьСтроку(Выборка.Номенклатура + Символы.Таб + Выборка.Цена);

где у тебя в запросе есть Выборка.Номенклатура
в упор не вижу. Наименование да. и то без указания псевдонима.

Выводи еще код, артикул, группу, категорию и прочее. а то из за таких чудо прайсов потом клиенты волосы рвут часами херачась над тем чтобы прайс загрузить.

Да с УТ11
)) В (обычном режиме) выгружается только цена, с наименованием задолбался биться)

так ты тормозишь и все. код не читаешь свой в котором ошибки.

82 такая штука что иошибки не будет выдавать...

Так все выгружает, только каряво

Процедура КнопкаВыполнитьНажатие(Кнопка)
   Текст = Новый ТекстовыйДокумент;
   
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    ЦеныСрезПоследних.Номенклатура,
                  |    ЦеныСрезПоследних.Номенклатура.Наименование,
                  |    ЦеныСрезПоследних.Цена
                  |ИЗ
                  |    РегистрСведений.Цены.СрезПоследних КАК ЦеныСрезПоследних";
   
   
   Запрос.УстановитьПараметр("НаДату", ТекущаяДата());
   Запрос.УстановитьПараметр("ТипЦен", РегистрыСведений.Цены);
   
   Результат = Запрос.Выполнить();
   Выборка = Результат.Выбрать();
   
   Пока Выборка.Следующий() Цикл
       
       Текст.ДобавитьСтроку(Выборка.Номенклатура.Наименование + Символы.Таб + Выборка.Цена);
       
   КонецЦикла;                            
   
   
   Текст.Записать("G:\1.txt");
   

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



Получается :
Хлеб    20
Булка    13
Бисквит            12
Овсяное            80
С орехами    120
Конфеты            150
Торты    350

(3) | ЦеныСрезПоследних.Номенклатура.Наименование,
сделай так | ЦеныСрезПоследних.Номенклатура.Наименование КАК Номенклатура,
и будет тебе счастье :)

>> Текст.ДобавитьСтроку(Выборка.Номенклатура.Наименование + Символы.Таб + Выборка.Цена);
Так не стоит делать :) можно просто сделать
Текст.ДобавитьСтроку(Выборка.Наименование + Символы.Таб + Выборка.Цена);

Запрос.УстановитьПараметр("НаДату", ТекущаяДата());
   Запрос.УстановитьПараметр("ТипЦен", РегистрыСведений.Цены);
И еще у тебя эти параметры не работают в запросе :)

Пусть даже с ошибками, но выгружает, а в управляемом режиме у меня ничего не работает
&НаСервере
Процедура ПриОткрытии(Отказ)
   Текст = Новый ТекстовыйДокумент;
   
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    ЦеныСрезПоследних.Номенклатура,
                  |    ЦеныСрезПоследних.Номенклатура.Наименование,
                  |    ЦеныСрезПоследних.Цена
                  |ИЗ
                  |    РегистрСведений.Цены.СрезПоследних КАК ЦеныСрезПоследних";
   
   
   Запрос.УстановитьПараметр("НаДату", ТекущаяДата());
   Запрос.УстановитьПараметр("ТипЦен", РегистрыСведений.Цены);
   
   Результат = Запрос.Выполнить();
   Выборка = Результат.Выбрать();
   
   Пока Выборка.Следующий() Цикл
       
       Текст.ДобавитьСтроку(Выборка.Номенклатура.Наименование + Символы.Таб + Выборка.Цена);
       
   КонецЦикла;
   
   
   Текст.Записать("G:\1.txt");

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

&НаСервере
Процедура ПриОткрытии(Отказ)
   Текст  = Новый ТекстовыйДокумент;
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    ЦеныСрезПоследних.Номенклатура КАК Номенклатура,
                  |    ЦеныСрезПоследних.Цена КАК Цена
                  |ИЗ
                  |    РегистрСведений.Цены.СрезПоследних(&НаДату,&ТипЦен) КАК ЦеныСрезПоследних";
   Запрос.УстановитьПараметр("НаДату", ТекущаяДата());
   Запрос.УстановитьПараметр("ТипЦен", Справочники.ТипыЦенНоменклатуры.НайтиПоКоду(УКАЖИ СВОЙ КОД));
   Результат = Запрос.Выполнить();
   Выборка = Результат.Выбрать();
   Пока Выборка.Следующий() Цикл
       Текст.ДобавитьСтроку("" + Выборка.Номенклатура + Символы.Таб + Выборка.Цена);
   КонецЦикла;
   Текст.Записать("G:\1.txt");
КонецПроцедуры

Так должно работать без ошибок, правда не помню правильно ли запятые поставил в СрезПоследних(&НаДату,&ТипЦен)

(УКАЖИ СВОЙ КОД) наверно звучит глупо, но где этот код взять?

(18) открываешь справочник "Типы цен номенклатуры" и там есть колонка "Код" от туда и берешь, к примеру "000000003" (в кавычках, не забываем) :)

мда звучало глупо), все же в управляемом приложении у меня не хочет работать (вообще ничего не выдает), причем ни при ПриОткрытии(Отказ), ни через кнопку созданную мной  Процедура ВыполнитьПриНажатии(Команда)

&НаКлиенте
Процедура ВыполнитьПриНажатии(Команда)
   ЗаписатьНаДиск();
КонецПроцедуры


&НаСервере
Процедура ЗаписатьНаДиск()
   Текст  = Новый ТекстовыйДокумент;
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    ЦеныСрезПоследних.Номенклатура КАК Номенклатура,
                  |    ЦеныСрезПоследних.Цена КАК Цена
                  |ИЗ
                  |    РегистрСведений.Цены.СрезПоследних(&НаДату,&ТипЦен) КАК ЦеныСрезПоследних";
   Запрос.УстановитьПараметр("НаДату", ТекущаяДата());
   Запрос.УстановитьПараметр("ТипЦен", Справочники.ТипыЦенНоменклатуры.НайтиПоКоду(УКАЖИ СВОЙ КОД));
   Результат = Запрос.Выполнить();
   Выборка = Результат.Выбрать();
   Пока Выборка.Следующий() Цикл
       Текст.ДобавитьСтроку("" + Выборка.Номенклатура + Символы.Таб + Выборка.Цена);
   КонецЦикла;
   Текст.Записать("G:\1.txt");
КонецПроцедуры

---
Первое - процедура ПриОткрытии выполняется НаКлиенте.
Второе - кнопка нажимается НаКлиенте
Третье - запрос выполняется НаСервере

Тебе нужно понять что где можно делать в управляемом приложении :)

Разобрался, спасибо. Пробую установить связь с регламентым заданием и обработкой, через общий модуль (в управляемом режиме)

&;НаКлиенте
Процедура ВыполнитьПриНажатии(Команда)
   ЗаписатьНаДиск();
ОбщийМодуль.ВыполнитьНажатие();
КонецПроцедуры



ОбщийМодуль
Процедура ВыполнитьНажатие()  Экспорт
Обработки.Прайс.ПолучитьФорму(Форма.КомандыФормы.Выполнить);
КонецПроцедуры

но выходит ошибка:

{ОбщийМодуль.ОбщийМодуль.Модуль(3,31)}: Переменная не определена (Форма)
Обработки.Прайс.ПолучитьФорму(<<?>>Форма.КомандыФормы.Выполнить); (Проверка: Сервер)

(22) не разобрался :P
регламентные задания выполняются на сервере, соответственно форме там не место ;) В регламентном задании выполняй только

&НаСервере
Процедура ЗаписатьНаДиск()
   Текст  = Новый ТекстовыйДокумент;
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    ЦеныСрезПоследних.Номенклатура КАК Номенклатура,
                  |    ЦеныСрезПоследних.Цена КАК Цена
                  |ИЗ
                  |    РегистрСведений.Цены.СрезПоследних(&НаДату,&ТипЦен) КАК ЦеныСрезПоследних";
   Запрос.УстановитьПараметр("НаДату", ТекущаяДата());
   Запрос.УстановитьПараметр("ТипЦен", Справочники.ТипыЦенНоменклатуры.НайтиПоКоду(УКАЖИ СВОЙ КОД));
   Результат = Запрос.Выполнить();
   Выборка = Результат.Выбрать();
   Пока Выборка.Следующий() Цикл
       Текст.ДобавитьСтроку("" + Выборка.Номенклатура + Символы.Таб + Выборка.Цена);
   КонецЦикла;
   Текст.Записать("G:\1.txt");
КонецПроцедуры

Советую добавить общим модуль, модуль должен иметь флажок - вызов сервера. И еще, у тебя режим файловый или серверный?

файловый

В Радченко показан пример только через общий модуль, флажок - вызов сервера в общем модуле я поставил, а вот "В регламентном задании выполняй только"   это как?

(24) в файловом варианте тебе придется всегда держать запущенный клиент 1Ски, чтобы задания выполнялись.
(25) Добавляешь регламентное задание и указываешь там имя метода (удобно лупой добавлять, 3 точки мне не удобно) он тебе сразу откроет модуль, который ты выбрал и создаст там процедуру с названием твоего регламентного задания, вот туда и можешь засунуть текст из процедуры либо ссылку на эту процедуру

Отлично, работает только все равно каряво
Процедура ЗаписатьНаДиск()
   
   Сообщение = Новый СообщениеПользователю;
   Сообщение.Текст = "Запуск регламентного задания Выгрузка прайс - листа  " + ТекущаяДата();
   Сообщение.Сообщить();
   
   Текст  = Новый ТекстовыйДокумент;
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
   |    ЦеныСрезПоследних.Номенклатура,
   |    ЦеныСрезПоследних.Номенклатура.Наименование,
   |    ЦеныСрезПоследних.Цена
   |ИЗ
   |    РегистрСведений.Цены.СрезПоследних КАК ЦеныСрезПоследних";
   
   Запрос.УстановитьПараметр("НаДату", ТекущаяДата());
   Запрос.УстановитьПараметр("Цены", Справочники.Номенклатура.НайтиПоКоду("000000003"));
   Результат = Запрос.Выполнить();
   Выборка = Результат.Выбрать();
   Пока Выборка.Следующий() Цикл
       Текст.ДобавитьСтроку(" " +  Выборка.Номенклатура + Символы.Таб + Выборка.Цена);
   КонецЦикла;        
   Текст.Записать("G:\1.txt");
КонецПроцедуры



цены не друг под другом

поменяй
       Текст.ДобавитьСтроку(" " +  Выборка.Номенклатура + Символы.Таб + Выборка.Цена);
на
       Текст.ДобавитьСтроку(" " +  Выборка.Номенклатура + Символы.Таб + Выборка.Цена +  Символы.ПС);

Хотя, что-то фигня какая-то, добавить строку должен вставлять символ ПС автоматом

Аль ты хочешь таблицу типа Excel? :)

Да нет в txt

Текст.ДобавитьСтроку(" " +  Выборка.Номенклатура + Символы.Таб + Выборка.Цена +  Символы.ПС);

цифры прилепляются к Наименованию и увеличивается интервал

(31) >> цифры прилепляются к Наименованию и увеличивается интервал
не понятно

Так вычисляй длину наименования добавляй пробелов до определенной длины, например 15 и потом добавляй цену.

Или вычисляй длину наименования и в зависимости от длины добавляй количестов Табов, если длина наименования меньше 8 то два Таба, если больше 8 то один. При условии что наименование не длинее 16. Если больше, то с тремя табами.

Добавление пробелов результата не дает, все цифры перемещаются одновременно

Получается :
Хлеб    20
Булка    13
Бисквит            12
Овсяное            80
С орехами    120
Конфеты            150
Торты    350

(32) имел ввиду что расстояние между наименованиями увеличивается

(35) само собой :) а не проще в таблицу выводить?

(36) а зачем?

(37) что бы красиво было, не?