Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 17:02

(внешняя обработка)

Автор GanG031, 15 фев 2016, 09:19

0 Пользователей и 1 гость просматривают эту тему.

GanG031

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

   КонецЦикла;
   Текст.Записать("D:\1.txt");


КонецПроцедуры </code>

Проверил сам запрос в консоле запросов - все правильно выбирает. По записи в файл тоже вроде бы ошибок нету. Но когда запускаю обработку, то ничего не происходит. Точку остановку поставить не могу, не получается(. Подскажите, в чем проблема? заранее спасибо! Обработка для ЗУП 3.0.

GanG031

прикладываю саму обработку: https://yadi.sk/d/8KAKNq8xor9Xf
Добавлено: 15 фев 2016, 09:52


Все, разобрался! Сделал так:

&НаСервере
Процедура ВыполнитьВФайлНаСервере()

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


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

&НаКлиенте
Процедура ВыполнитьВФайл(Команда)
   ВыполнитьВФайлНаСервере();
КонецПроцедуры

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск