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