|
УТ 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
|
Перекатал из отчета "Досье партнера", если кому интересно... Добавил табличное поле на форму и уже через него. Только так
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |