Имя: Пароль:
1C
1С v8
УТ 11 перестал работать вывод табличного документа
0 sanja26
 
29.12.11
23:50
Процедура ВывестиТабДок()Экспорт
   
   Макет = ПолучитьМакет("Макет");      
   
   ТабДок = Новый ТабличныйДокумент;
   
   ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
   ОбластьМакета.Параметры.Дата = Дата;
   ОбластьМакета.Параметры.Склад = Склад;
   ТабДок.Вывести(ОбластьМакета);
   
   Для каждого Строка Из НеСовпавшие Цикл
       
       ОбластьМакета = Макет.ПолучитьОбласть("Строка");
       ОбластьМакета.Параметры.Группа = Строка.Группа;
       ОбластьМакета.Параметры.Номенклатура = Строка.Номенклатура;
       ОбластьМакета.Параметры.ОстатокФайл = Строка.ОстатокВФайле;
       ОбластьМакета.Параметры.ОстатокБаза = Строка.ОстатокВБазе;
       ТабДок.Вывести(ОбластьМакета);
       
   КонецЦикла;
   
   
   МассивНоменклатуры = ТЗ.ВыгрузитьКолонку("Номенклатура");
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
   |    ТоварыНаСкладахОстатки.Номенклатура,
   |    ТоварыНаСкладахОстатки.ВНаличииОстаток КАК Остаток
   |ИЗ
   |    РегистрНакопления.ТоварыНаСкладах.Остатки(
   |            &Дата,
   |            Номенклатура В (&Массив)
   |                И Склад = &Склад) КАК ТоварыНаСкладахОстатки";
   Запрос.УстановитьПараметр("Дата", Дата);
   Запрос.УстановитьПараметр("Склад", Склад);
   Запрос.УстановитьПараметр("Массив", МассивНоменклатуры);
   Выборка = Запрос.Выполнить().Выбрать();
   ТЗ2 = Запрос.Выполнить().Выгрузить();
   
   Счетчик = 0;
   Счетчик2 = 0;
   Для каждого Строка Из ТЗ Цикл
       
       СтруктураПоиска = Новый Структура("Номенклатура", Строка.Номенклатура);
       МассивСтрок = ТЗ2.НайтиСтроки(СтруктураПоиска);
       Если МассивСтрок.Количество() > 0 тогда
       НайденнаяСтрока = МассивСтрок[0];
       Если НайденнаяСтрока <> Неопределено тогда
           Если Число(Строка.ОстатокВФайле) <> НайденнаяСтрока.Остаток Тогда
               
               ОбластьМакета = Макет.ПолучитьОбласть("Строка");
               ОбластьМакета.Параметры.Группа = Строка.Группа;
               ОбластьМакета.Параметры.Номенклатура = НайденнаяСтрока.Номенклатура;
               Расш = Выборка.Номенклатура;
               ОбластьМакета.Параметры.ОстатокФайл = Строка.ОстатокВФайле;
               ОбластьМакета.Параметры.ОстатокБаза = НайденнаяСтрока.Остаток;
               ТабДок.Вывести(ОбластьМакета);            
               Счетчик = Счетчик + 1;
               
           КонецЕсли;    
       Иначе
           Счетчик2 = Счетчик2 + 1;
           ОбластьМакета = Макет.ПолучитьОбласть("Строка");
           ОбластьМакета.Параметры.Группа = Строка.Группа;
           ОбластьМакета.Параметры.Номенклатура = Строка.Номенклатура;
           Расш = Выборка.Номенклатура;
           ОбластьМакета.Параметры.ОстатокФайл = Строка.ОстатокВФайле;
           ОбластьМакета.Параметры.ОстатокБаза = 0;
           ТабДок.Вывести(ОбластьМакета);            
       КонецЕсли;
   КонецЕсли;    
       
КонецЦикла;
сообщить(Счетчик);
   
   ТабДок.АвтоМасштаб = Истина;
   ТабДок.ОтображатьСетку = Ложь;
   ТабДок.ОтображатьЗаголовки = Ложь;
   ТабДок.ОтображатьГруппировки = Ложь;
   ТабДок.Показать();
   
   
КонецПроцедуры // ВывестиТабДок()

В цикл входит, данные есть, ТабДокПоказать() проходит, а вывода самого отчета не происходит... Месяц назад работало. Обновлены релиз и платформа на один релиз после последнего формирования отчета
Что произошло?
1 sanja26
 
30.12.11
00:24
может проблема в том, что эта процедура в модуле объекта. В СП Показать() доступность - толстый, тонкий клиент
2 sanja26
 
30.12.11
01:11
Перекатал из отчета "Досье партнера", если кому интересно... Добавил табличное поле на форму и уже через него. Только так
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.