Автоматическая установка ширины колонки табличного документа.

15 апреля 2022

19406

Время чтения: 16 мин.

Нет времени читать? Отправить на почту

Процедура, которая "примерно" делает автоширину колонок (навроде, как если бы выделить все колонки и дважды щелкнуть мышкой по границе заголовка колонки). Привожу текст, работает неахти, но лучше чем ничего:

Код 1C v 8.х

 Процедура РасчетШириныКолонок(ТабличныйДокумент)
      

      

     Перем МаксимальноеКоличествоСтрок, МаксимальнаяШиринаКолонки;
      

     Перем КонечнаяСтрока, НачальнаяСтрока, ТекущаяКолонка, ТекущаяСтрока, НачалоДанных;
      

     Перем ОбластьШапки, ОбластьПодвала;
      

     Перем ШиринаКолонки, ТекстЯчейки, НомерСтрокиТекста;
      

     Перем КоличествоУровнейГруппировокСтрок, Отступ;
      

     Перем ШириныКолонок;
      

      

     // Максимальное количество строк отчета, которые будут использованы для расчета ширин колонок
      

      

     МаксимальноеКоличествоСтрок = 50;
      

     // Ограничение максимальной ширины колонки
      

      

     МаксимальнаяШиринаКолонки = 50;
      

     // Массив, в который будут помещаться ширины колонок
      

      

     ШириныКолонок = Новый Массив;
      

     // Получим количество уровней группировок в отчете для учета автоматического отступа
      

      

     КоличествоУровнейГруппировокСтрок = ТабличныйДокумент.КоличествоУровнейГруппировокСтрок();
      

      

     // Инициализируем начальные строки
      

      

     НачальнаяСтрока = 0;
      

     НачалоДанных = 0;
      

      

     // Найдем в результирующем документе область шапки таблицы
      

      

     ОбластьШапки = ТабличныйДокумент.Области.Найти("ШапкаТаблицы");
      

     Если ТипЗнч(ОбластьШапки) = Тип("ОбластьЯчеекТабличногоДокумента") Тогда
      

      

     // Из шапки таблицы получим начальную строку с которой будем рассчитывать ширины
      

     НачальнаяСтрока = ОбластьШапки.Верх;
      

     НачалоДанных = ОбластьШапки.Низ + 1;
      

     Иначе
      

      

     // Если область шапки таблицы не найдена, найдем область шапки строк
      

     ОбластьШапки = ТабличныйДокумент.Области.Найти("ШапкаСтрок");
      

     Если ТипЗнч(ОбластьШапки) = Тип("ОбластьЯчеекТабличногоДокумента") Тогда
      

      

     // Из шапки таблицы получим начальную строку с которой будем рассчитывать ширины
      

     НачальнаяСтрока = ОбластьШапки.Верх;
      

     НачалоДанных = ОбластьШапки.Низ + 1;
      

      

     КонецЕсли;
      

     КонецЕсли;
      

      

     // Получим область подвала отчета и вычислим конечную строку расчета
      

      

     ОбластьПодвала = ТабличныйДокумент.Области.Найти("Подвал");
      

     Если ТипЗнч(ОбластьПодвала) = Тип("ОбластьЯчеекТабличногоДокумента") Тогда
      

     // Область подвала найдена
      

     КонечнаяСтрока = ОбластьПодвала.Верх - 1;
      

     Если КонечнаяСтрока - НачальнаяСтрока > МаксимальноеКоличествоСтрок Тогда
      

     КонечнаяСтрока = НачальнаяСтрока + МаксимальноеКоличествоСтрок;
      

     КонецЕсли;
      

     Иначе 
      

     // Область подвала не найдена
      

     КонечнаяСтрока = НачальнаяСтрока + МаксимальноеКоличествоСтрок;
      

     КонецЕсли;
      

      

     // Ограничим конечную строку
      

     КонечнаяСтрока = Мин(КонечнаяСтрока, ТабличныйДокумент.ВысотаТаблицы);
      

     // Переберем все колонки отчета
      

     Для ТекущаяКолонка = 1 По ТабличныйДокумент.ШиринаТаблицы Цикл
      

     АвтоОтступ = 0;
      

     // Переберем строки, которые будут использованы для расчета ширин колонок
      

     Для ТекущаяСтрока = НачальнаяСтрока По КонечнаяСтрока Цикл
      

     ШиринаКолонки = 0;
      

     // Получим область текущей ячейки
      

     ОбластьЯчейки = ТабличныйДокумент.Область(ТекущаяСтрока, ТекущаяКолонка);
      

     Если ОбластьЯчейки.Лево <> ТекущаяКолонка Или ОбластьЯчейки.Верх <> ТекущаяСтрока Тогда
      

     // Данная ячейка принадлежит объединенным ячейкам и не является начальной ячейкой
      

     Продолжить;
      

     КонецЕсли;
      

     Если КоличествоУровнейГруппировокСтрок > 0 И ТекущаяСтрока = НачалоДанных Тогда
      

     // Для первой строки с данными получим значение автоотступа
      

     АвтоОтступ = ОбластьЯчейки.АвтоОтступ;
      

     КонецЕсли;
      

     // Получим текст ячейки
      

     ТекстЯчейки = ОбластьЯчейки.Текст;
      

     // Для каждой строки из текста ячейки рассчитаем количество символов в строке
      

     Для НомерСтрокиТекста = 1 По СтрЧислоСтрок(ТекстЯчейки) Цикл
      

     ШиринаТекстаЯчейки = СтрДлина(СтрПолучитьСтроку(ТекстЯчейки, НомерСтрокиТекста));
      

     // Если используется автоотступ, то прибавим к ширине ячейки его величину
      

     Если АвтоОтступ <> Неопределено И АвтоОтступ > 0 Тогда
      

     ШиринаТекстаЯчейки = ШиринаТекстаЯчейки + КоличествоУровнейГруппировокСтрок * АвтоОтступ;
      

     КонецЕсли;
      

     ШиринаКолонки = Макс(ШиринаКолонки, ШиринаТекстаЯчейки);
      

     КонецЦикла;
      

      

     Если ШиринаКолонки > МаксимальнаяШиринаКолонки Тогда
      

     // Ограничим ширину колонки
      

     ШиринаКолонки = МаксимальнаяШиринаКолонки;
      

     КонецЕсли;
      

     Если ШиринаКолонки <> 0 Тогда
      

     // Ширина колонки рассчитана
      

     // Определим, сколько ячеек по ширине используется в области для текущей ячейки
      

     КоличествоКолонок = ОбластьЯчейки.Право - ОбластьЯчейки.Лево;
      

     // Переберем все ячейки, расположенные в области
      

     Для НомерКолонки = 0 По КоличествоКолонок Цикл
      

     Если ШириныКолонок.ВГраница() > ТекущаяКолонка - 1 + НомерКолонки Тогда
      

     // В массиве ширин колонок уже был элемент для текущей колонки
      

     Если ШириныКолонок[ТекущаяКолонка - 1 + НомерКолонки] = Неопределено Тогда
      

     // Значение ширины колонки еще не было установлено
      

     ШириныКолонок[ТекущаяКолонка - 1 + НомерКолонки] = ШиринаКолонки / (КоличествоКолонок + 1);
      

     Иначе
      

     // Значение ширины колонки уже было установлено
      

     // Вычислим максимум ширины колонки
      

     ШириныКолонок[ТекущаяКолонка - 1 + НомерКолонки] = 
      

     Макс(ШириныКолонок[ТекущаяКолонка - 1 + НомерКолонки], ШиринаКолонки / (КоличествоКолонок + 1));
      

     КонецЕсли;
      

     Иначе
      

     // В массиве ширин колонок еще не было элемента для данной колонки
      

     // Добавим элемент в массив ширин колонок
      

     ШириныКолонок.Вставить(ТекущаяКолонка - 1 + НомерКолонки, ШиринаКолонки / (КоличествоКолонок + 1));
      

     КонецЕсли;
      

     КонецЦикла;
      

     КонецЕсли;
      

     КонецЦикла; // Конец цикла перебора строк
      

     КонецЦикла; // Конец цикла перебора колонок
      

      

     // Переберем все элементы в массиве вычисленных ширин колонок
      

     Для ТекущаяКолонка = 0 По ШириныКолонок.ВГраница() Цикл
      

     Если ШириныКолонок[ТекущаяКолонка] <> Неопределено Тогда
      

     // Ширина колонок установлена
      

     // Установим ширину области ячеек
      

     ТабличныйДокумент.Область(, ТекущаяКолонка + 1, НачалоДанных, ТекущаяКолонка + 1).ШиринаКолонки = ШириныКолонок[ТекущаяКолонка] + 1;
      

     КонецЕсли;
      

     КонецЦикла;
      

    КонецПроцедуры

Очень полезная штука при условии, что у Вас заранее невозможно определить размер итоговых колонок в печатной форме. А так, надо просто "натравить" процедуру с соответствующими параметрами на нужные ячейки таблицы, и они сами "выровняются" и приобретут необходимый размер (ширину).

Код 1C v 7.x

 //<!-- Патырило С.С. 22-04-2004 : Автоматическая установка ширины колонки
      

    // Для изменения ширины колонки уже сформированной таблицы, требуется передать
      

    // в качестве параметров переменную с объектом "Таблица", координаты ячейки (группы ячеек)
      

    // для которых нужно установить ширину столбца и ширину столбца в символах.
      

    // При этом не обязательно передавать координаты требуемой ячейки (итоговой),
      

    // (т.е. когда нет возможности или сложно определить позицию итоговой строки)
      

    // достаточно указать ячейку из данного столбца (например первую).
      

    // Процедура установит ширину столбца выбрав максимальное из значений - 
      

    // текущего размера (установленного в конфигураторе, или программно перед вызовом 
      

    // функции) и переданного в качестве параметра. 
      

    Процедура глУстШиринуЯчейки(Таб, Строка1, Столбец1, Строка2, Столбец2, ДлТекста = 0) Экспорт
      

    	Если ДлТекста = 0 Тогда
      

    	 врДлина	= СтрДлина(СокрЛП(Таб.Область(Строка1, Столбец1, Строка2, Столбец2).Текст));
      

    	Иначе
      

    		врДлина	= ДлТекста;
      

    	КонецЕсли;
      

    	Таб.Область(Строка1, Столбец1, Строка2, Столбец2).ШиринаСтолбца(Макс(Таб.Область(Строка1, Столбец1, Строка2, Столбец2).ШиринаСтолбца(), врДлина));
      

    КонецПроцедуры
      

    // --> Патырило С.С. 22-04-2004

Информация взята с сайта http://helpf.pro

Заказать звонок

Сэкономьте время! Оставьте заявку на консультацию специалиста 1С.

Ваше имя

Телефон *

Подтвердите, что вы не робот *

Нажимая на кнопку , Вы даете согласие на обработку своих персональных данных и соглашаетесь с политикой конфиденциальности

Вконтакте

Содержание статьи

Рассылка нашего блога

Электронная почта *

Политика конфиденциальности персональных данных.

Настоящая Политика конфиденциальности персональных данных (далее – Политика) действует в отношении всей информации, которую данный сайт, может получить о Пользователе во время использования (а также его субдоменов), его программ и его продуктов.
1. Определение терминов.
В настоящей Политике используются следующие термины:
– персональные данные – любая информация, относящаяся к прямо или косвенно определенному юридическому или физическому лицу (субъекту персональных данных);
– оператор персональных данных – Администрация сайта (далее – Администрация) – сотрудники, уполномоченные на управление, которые организуют и (или) осуществляют обработку персональных данных, а также определяет цели обработки персональных данных, состав персональных данных, подлежащих обработке, действия (операции), совершаемые с персональными данными;
– обработка персональных данных – любое действие (операция) или совокупность действий (операций), совершаемых с использованием средств автоматизации или без использования таких средств с персональными данными, включая сбор, запись, систематизацию, накопление, хранение, уточнение (обновление, изменение), извлечение, использование, передачу (распространение, предоставление, доступ), обезличивание, блокирование, удаление, уничтожение персональных данных;
– конфиденциальность персональных данных – обязательное для соблюдения оператором или иным получившим доступ к персональным данным лицом требование не допускать их распространения без согласия субъекта персональных данных или наличия иного законного основания.;
– сайт — это совокупность связанных между собой веб-страниц, размещенных в сети Интернет по уникальному адресу (URL), а также его субдоменах;
– субдомены – это страницы или совокупность страниц, расположенные на доменах третьего уровня, принадлежащие сайту, а также другие временные страницы, внизу который указана контактная информация Администрации;
– пользователь сайта (далее Пользователь) – лицо, имеющее доступ к сайту, посредством сети Интернет и использующее информацию, материалы и продукты сайта.
2. Общие положения.
2.1 Назначение политики конфиденциальности.
2.1.1. Настоящая Политика конфиденциальности устанавливает обязательства Администрации по неразглашению и обеспечению режима защиты конфиденциальности персональных данных, которые Пользователь предоставляет .
2.2. Права и обязанности сторон.
2.2.1. Пользователь вправе:
2.2.1.1. Принимать свободное решение о предоставлении своих персональных данных, необходимых для использования сайта, и давать согласие на их обработку.
2.2.1.2. Обновить, дополнить предоставленную информацию о персональных данных в случае изменения данной информации.
2.2.1.3. Пользователь имеет право на получение у Администрации информации, касающейся обработки его персональных данных, если такое право не ограничено в соответствии с федеральными законами. Пользователь вправе требовать от Администрации уточнения его персональных данных, их блокирования или уничтожения в случае, если персональные данные являются неполными, устаревшими, неточными, незаконно полученными или не являются необходимыми для заявленной цели обработки, а также принимать предусмотренные законом меры по защите своих прав.
2.2.2. Администрация обязана:
2.2.2.1. Использовать полученную информацию исключительно для целей, указанных в п. 3 настоящей Политики конфиденциальности.
2.2.2.2. Принять меры для хранения конфиденциальной информации в тайне,
не разглашать без предварительного письменного разрешения Пользователя, а также
не осуществлять продажу, обмен, опубликование, либо разглашение иными
возможными способами переданных персональных данных Пользователя,
за исключением п. 6.3. настоящей Политики Конфиденциальности.
2.2.2.3. Принимать меры предосторожности для защиты конфиденциальности персональных данных Пользователя согласно порядку, обычно используемого для защиты такого рода информации в существующем деловом обороте.
2.2.2.4. Осуществить блокирование персональных данных, относящихся к соответствующему Пользователю, с момента обращения или запроса Пользователя, или его законного представителя либо уполномоченного органа по защите прав субъектов персональных данных на период проверки, в случае выявления недостоверных персональных данных или неправомерных действий.
2.3. Использование сайта Пользователем означает согласие с настоящей Политикой конфиденциальности и условиями обработки персональных данных Пользователя.
2.4. В случае несогласия с условиями Политики конфиденциальности Пользователь должен прекратить использование сайта.
2.5. Настоящая Политика конфиденциальности применяется к сайту.
2.6. Администрация не проверяет достоверность персональных данных, предоставляемых Пользователем.
3. Цели сбора персональных данных.
3.1. Персональные данные Пользователя Администрация может использовать только в связи с заключением договора, стороной которого является субъект персональных данных. Персональные данные не распространяются, а также не предоставляются третьим лицам без согласия субъекта персональных данных и используются оператором исключительно для исполнения указанного договора и заключения договоров с субъектом персональных данных.
4. Правовые основания обработки персональных данных.
Правовым основанием обработки персональных данных является:
– федеральные законы и принятые на их основе нормативные правовые акты, регулирующие отношения, связанные с деятельностью оператора;
– уставные документы оператора;
– договоры, заключаемые между оператором и субъектом персональных данных;
– согласие субъекта на обработку персональных данных;
5. Объем и категории обрабатываемых персональных данных, категории субъектов персональных данных.
5.1. Персональные данные, разрешённые к обработке в рамках настоящей Политики конфиденциальности, предоставляются Пользователем путём заполнения форм на сайте и включают в себя следующую информацию:
5.1.1. имя Пользователя;
5.1.2. контактный телефон Пользователя;
5.1.3. адрес электронной почты (e-mail).
5.2. К категориям субъектов персональных данных относятся работники оператора.
Порядок и условия обработки персональных данных.
6.1. Обработка персональных данных Пользователя осуществляется без ограничения срока, любым законным способом, в том числе в информационных системах персональных данных с использованием средств автоматизации или без использования таких средств.
6.3. Персональные данные Пользователя могут быть переданы уполномоченным органам государственной власти Российской Федерации только по основаниям и в порядке, установленным законодательством Российской Федерации.
6.4. Администрация принимает необходимые организационные и технические меры для защиты персональной информации Пользователя от неправомерного или случайного доступа, уничтожения, изменения, блокирования, копирования, распространения, а также от иных неправомерных действий третьих лиц.
6.5. Администрация совместно с Пользователем принимает все необходимые меры по предотвращению убытков или иных отрицательных последствий, вызванных утратой или разглашением персональных данных Пользователя.
7. Разрешение споров.
7.1. До обращения в суд с иском по спорам, возникающим из отношений между Пользователем и Администрацией, обязательным является предъявление претензии (письменного предложения или предложения в электронном виде о добровольном урегулировании спора).
7.2. Получатель претензии в течение 30 календарных дней со дня получения претензии, письменно или в электронном виде уведомляет заявителя претензии о результатах рассмотрения претензии.
7.3. При не достижении соглашения спор будет передан на рассмотрение Арбитражного суда.
7.4. К настоящей Политике конфиденциальности и отношениям между Пользователем и Администрацией применяется действующее законодательство Российской Федерации.
8. Дополнительные условия.
8.1. Администрация вправе вносить изменения в настоящую Политику конфиденциальности без согласия Пользователя.
8.2. Новая Политика конфиденциальности вступает в силу с момента ее размещения на сайте, если иное не предусмотрено новой редакцией Политики конфиденциальности.

Настройки

Назад к списку

Автоматическая установка ширины колонки табличного документа.

Заказать звонок

Рассылка нашего блога

Политика конфиденциальности персональных данных.

Поможем подобрать нужные приложения