4
and2
15.03.07
✎
10:06
|
типа так
// устанавливаем ширину колонок
НомерПервойСтроки=ПостроительОтчетаПоказателиМенеджеровНовый.Макет.Области.ШапкаТаблицы.Низ+1;
НомерПервогоСтолбца=2;
НомерПоследнейСтроки=ПостроительОтчетаПоказателиМенеджеровНовый.Макет.ВысотаТаблицы;
НомерПоследнегоСтолбца=ПостроительОтчетаПоказателиМенеджеровНовый.Макет.ШиринаТаблицы;
ДокументРезультат.Область(НомерПервойСтроки,НомерПервогоСтолбца,НомерПоследнейСтроки,НомерПоследнегоСтолбца).ШиринаКолонки=ШиринаК;
ДокументРезультат.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
|
|
7
IronDemon
15.03.07
✎
10:40
|
ПостроительОтчетаОтчет.Макет = Неопределено;
МакетПостроителя = ПостроительОтчетаОтчет.Макет;
СвояШиринаКолонок=Новый Соответствие;
СвояШиринаКолонок.Вставить("Номенклатура",50);
СвояШиринаКолонок.Вставить("Склад",20);
СвояШиринаКолонок.Вставить("Регистратор",50);
СвояШиринаКолонок.Вставить("Период",16);
СвояШиринаКолонок.Вставить("СуммаНачальныйОстаток",12);
СвояШиринаКолонок.Вставить("СуммаПриход",12);
СвояШиринаКолонок.Вставить("СуммаРасход",12);
СвояШиринаКолонок.Вставить("СуммаКонечныйОстаток",12);
Если ПостроительОтчетаОтчет.ИзмеренияКолонки.Количество() > 0 Тогда
Область = МакетПостроителя.Области.Найти("Заголовок");
Иначе
Область = МакетПостроителя.Области.Найти("ШапкаТаблицы");
КонецЕсли;
Область.РазмещениеТекста=ТипРазмещенияТекстаТабличногоДокумента.Переносить;
Область.ГоризонтальноеПоложение=ГоризонтальноеПоложение.Центр;
Если Область <> Неопределено Тогда
Для каждого Колонка Из СвояШиринаКолонок Цикл
ТекущаяОбласть = Неопределено;
Пока Истина Цикл
ТекущаяОбласть = МакетПостроителя.НайтиТекст(Колонка.Ключ, ТекущаяОбласть, МакетПостроителя.Область(), Истина, Истина, Истина, Ложь);
Если ТекущаяОбласть <> Неопределено Тогда
ТекущаяОбласть.ШиринаКолонки = Колонка.Значение;
Иначе
Прервать;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЕсли;
ПостроительОтчетаОтчет.Макет = МакетПостроителя;
|
|