Radistka
|
|
« : 24-01-2011 05:51 » |
|
при попытке запустить код, всё отрабатывает, выводит документы в таблицу. когда пробую открыть документы по расшифровке(ДокумТемп#), то получаю предупреждение "поле агрегатного объекта не обнаружено(код):11". нажимаю на ОК - предупреждение выдаётся заново, 1Ска закрывается только через диспетчер задач, сбивая индексы.
Процедура ОбработкаЯчейкиТаблицы(ЗначМ,Флаг,Табл,Адрес) Зап_=СоздатьОбъект("Запрос"); КДата = КонМесяца(КонДата); НДата = НачМесяца(НачДата); ДН = Дата(0); ДК = ТекущаяДата(); Строка_ = Число(Сред(Адрес, 2, Найти(Адрес,"C")-1)); Колонка_ = Число(Прав(Адрес, СтрДлина(Адрес) - Найти(Адрес, "C")));
ТЗапроса = "//{{ЗАПРОС(Сформировать) | |Док = Документ.ПриказОбУвольнении.ТекущийДокумент; |Катег = Документ.ПриказОбУвольнении.Сотрудник.Должность.Категория; |Подр = Документ.ПриказОбУвольнении.Сотрудник.Подразделение.Раздел; |Основание = Документ.ПриказОбУвольнении.ОснованиеУвольнения; |Сотр = Документ.ПриказОбУвольнении.Сотрудник; |ДатаУв = Документ.ПриказОбУвольнении.ДатаУвольнения; |Должн = Документ.ПриказОбУвольнении.Сотрудник.Должность; |Функция СуммС = Счётчик(); | |Условие( Сотр=Сотр.ОсновнойЭлемент ); |Условие( глДокументФункционирует(Док)=1 ); |Условие(Основание.Код=ЗначМ.Код); | |Группировка Док; |Группировка Сотр без групп; | |"//}}ЗАПРОС ; Т1=ТЗапроса+"Период С ДН по ДК;Условие((ДатаУв<=КДата) и (ДатаУв>=НДата));Условие(Основание.Код<>""06"") ;" ; Если Зап_.Выполнить(Т1) = 0 Тогда Сообщить("Ошибка в запросе"); Возврат; КонецЕсли;
ДокумТемп = СоздатьОбъект("Документ"); Таб3 = СоздатьОбъект("Таблица"); Таб3.ИсходнаяТаблица("Таблица2"); Таб3.Опции(0,0,0,0); Пока Зап_.Группировка(1)=1 Цикл Пока Зап_.Группировка(2)=1 Цикл ДокумТемп.НайтиДокумент(Зап_.Док); Таб3.ВывестиСекцию("Строка"); КонецЦикла; КонецЦикла; Таб3.ТолькоПросмотр(1); Таб3.Показать(); КонецПроцедуры
|