Имя: Пароль:
1C
1C 7.7
v7: Как вывести строки ТЧ дока
0 wladimir90
 
18.01.12
10:11
Всем привет. Надо вывести все строки ТЧ выбраного документа в 7.7 в таблицу из внешней обработки. Подскажите плз что не так делаю, он в цикл даже не заходит. В 7ке вообще ниче не понимаю...



Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)
   |ТабельДень_ИТэ = Документ.ТабельДень_ИТэ.ТекущийДокумент;
   |Сотрудник = Документ.ТабельДень_ИТэ.Сотрудник;
   |ПришелВремя = Документ.ТабельДень_ИТэ.ПришелВремя;
   |УшелВремя = Документ.ТабельДень_ИТэ.УшелВремя;
   |Опоздал = Документ.ТабельДень_ИТэ.Опоздал;
   |Удержание = Документ.ТабельДень_ИТэ.Удержание;
   |Сумма = Документ.ТабельДень_ИТэ.Сумма;
   |СуммаИтог = Документ.ТабельДень_ИТэ.СуммаИтог;
   |ВсегоОтработано = Документ.ТабельДень_ИТэ.ВсегоОтработано;
   |ВидНачисления = Документ.ТабельДень_ИТэ.ВидНачисления;
   |Оклад = Документ.ТабельДень_ИТэ.Оклад;
   |ВсегоПереработал = Документ.ТабельДень_ИТэ.ВсегоПереработал;
   |СуммаПереработки = Документ.ТабельДень_ИТэ.СуммаПереработки;
   |График = Документ.ТабельДень_ИТэ.График;
   |ВидУдержания = Документ.ТабельДень_ИТэ.ВидУдержания;
   |ВсегоПеререботкаВнутр = Документ.ТабельДень_ИТэ.ВсегоПеререботкаВнутр;
   |Простой = Документ.ТабельДень_ИТэ.Простой;    
   |Группировка ТабельДень_ИТэ;
   |Условие(ТабельДень_ИТэ = ТабельДень);
   |"//}}ЗАПРОС
   ;
   // Если ошибка в запросе, то выход из процедуры
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;

   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   Таб.ВывестиСекцию("Шапка");
   Состояние("Заполнение выходной таблицы...");
   Пока Запрос.Группировка("ТабельДень_ИТэ") = 1 Цикл
       Таб.ВывестиСекцию("Данные");
   КонецЦикла;
   Таб.Показать("Таблица", "");
1 wladimir90
 
18.01.12
10:17
ап
2 filh
 
18.01.12
10:17
А зачем запрос?
3 PuhUfa
 
18.01.12
10:18
Если по одному документу то зачем запрос? просто так выводи
4 mdocs
 
18.01.12
10:19
а где группировка по строке документа?
5 filh
 
18.01.12
10:19
У тебя ТабельДень уже определен, ну и пройдись по строкам ТЧ документа.

ТабельДень.ВыбратьСтроки()
Пока ТабельДень.ПолучитьСтроку() = 1 Цикл
  ...
КонецЦикла
6 wladimir90
 
18.01.12
10:19
хм. а как?
7 wladimir90
 
18.01.12
10:19
О! Спасибо )