раскрыть » Поиск

Результаты по ключевому слову: раскрыть

Кнопки управления уровнями группировки (генерировать программно)

Кнопочки для управления уровнями группировки генерируются программно.
Для этого в модуле формы, в самом конце процедуры формирования отчета, нужно вызвать процедуру СгенерироватьКнопкиУправленияГруппировкой().
В модуль формы нужно добавить две процедуры, где "ПолеТабДок" - это поле табличного документа, в которое выводится отчет:

Код 1C v 8.х

 Процедура СгенерироватьКнопкиУправленияГруппировкой()



    НачалоВерх = ЭлементыФормы.ПолеТабДок.Верх + 3; // Привязка к верхнему левому углу ПоляТабличногоДокумента

    НачалоЛево = ЭлементыФормы.ПолеТабДок.Лево + 3; // Привязка к верхнему левому углу ПоляТабличногоДокумента



    ШагКнопок      = 13;

    ПрефиксИмениКн = "КнГр_";



    // Удалить старые кнопки

    Сч = 0;

    Пока Сч < ЭлементыФормы.Количество() Цикл

        ТекЭлемент = ЭлементыФормы.Получить(Сч);

        Если Найти(ТекЭлемент.Имя, ПрефиксИмениКн) > 0 Тогда

            ЭлементыФормы.Удалить(ТекЭлемент);

        Иначе

            Сч = Сч + 1;

        КонецЕсли;

    КонецЦикла;



    // Добавить новые кнопки по количеству группировок

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

    Для Сч = 1 По КоличествоГруппировок Цикл

        НоваяКнопка = ЭлементыФормы.Добавить(Тип("Кнопка"), ПрефиксИмениКн + Сч);

        НоваяКнопка.Верх      = НачалоВерх;

        НоваяКнопка.Лево      = НачалоЛево + (ШагКнопок * (Сч - 1));

        НоваяКнопка.Высота    = 11;

        НоваяКнопка.Ширина    = 11;

        НоваяКнопка.Шрифт     = Новый Шрифт("Шрифт диалогов и меню", 6);

        НоваяКнопка.Заголовок = "" + Сч;

        НоваяКнопка.СочетаниеКлавиш = Новый СочетаниеКлавиш(Клавиша["_"+сч], Истина, Ложь, Ложь);  

        НоваяКнопка.УстановитьДействие("Нажатие", Новый Действие("СвернутьДоУровня"));

    КонецЦикла;



КонецПроцедуры //СгенерироватьКнопкиУправленияГруппировкой()



// Вызывется при нажатии кнопочек "1", "2" и т.д. (для сворачивания группировок)

Процедура СвернутьДоУровня(Элемент)



    Уровень = Число(Элемент.Заголовок); // здесь записан нужный уровень

    ЭлементыФормы.ПолеТабДок.ПоказатьУровеньГруппировокСтрок(Уровень - 1);



КонецПроцедуры //СвернутьДоУровня()

Примечание:
Вышеприведенный код будет работать правильно, если ПолеТабличногоДокумента, на которое выводится Отчет, расположено на Форме. Если же ПолеТабличногоДокумента расположено на Панели, то строчку кода, в которой создается НоваяКнопка, необходимо чуть дополнить:

Код 1C v 8.х

 НоваяКнопка = ЭлементыФормы.Добавить(Тип("Кнопка"), ПрефиксИмениКн + Сч, Истина, ЭлементыФормы.Панель);

Примечание 2:
Решение для генерации кнопок в отчетах, построенных на СКД.
Вешаешь на кнопку "Сформировать" следующую процедуру

Код 1C v 8.х

 Процедура кнСформировать_Нажатие(Кнопка)

   

   ЭлементыФормы.Результат.Очистить();

   ОтчетОбъект.СкомпоноватьРезультат(ЭлементыФормы.Результат, ДанныеРасшифровки);

   

   // Если необходимо указать Уровень, до которого необходимо раскрыть группировки строк,

   // то можно добавить

   ЭлементыФормы.Результат.ПоказатьУровеньГруппировокСтрок(1);

   

   // Вызов процедуры генерации кнопок управления группировкой

   СгенерироватьКнопкиУправленияГруппировкой();

   

КонецПроцедуры //кнСформировать_Нажатие()



// где ЭлементыФормы.Результат, это Поле табличного документа, в которое выводится отчет СКД.

Категория: Табличный документ

Горячие клавиши 1С Разработчику [ Конфигуратор ] Категория: 1С Общие вопросы - Обычные формы

В регламентированной отчетности не печается штрих-код 1С ( EanGnivc )

Установка шрифта EanGnivc
В формах регламентированной отчетности, например, налоговые декларации, которые введены для предоставления отчетности, на всех листах в левом верхнем углу содержат свой уникальный штрих-код. В этих формах, которые распространяются фирмой "1С", для отображения штрих-кода используется специальный шрифт EanGnivc, который должен быть установлен в операционной системе. Если данный шрифт не установлен, то штрих-коды отображаться не будут.
title

Как установить EANG000.ttf:
Найти файл шрифта EANG000.ttf на вашем компьютере, либо скачайте с нашего сайта: Скачивать файлы может только зарегистрированный пользователь!

Далее в зависимости от установленного у Вас Windows выполните следующие действия:

Для Windows Vista, Windows 7 (Seven) и Windows Server 2008:
Выделить файл шрифта EANG000.ttf, правой кнопкой мыши выбрать команду Установить, после этого штрих-коды будут отображаться.

Для Windows XP и Windows Server 2003:
- Пуск-Панель управления-Шрифты
- в раскрывшемся окне зайти в меню Файл и выбрать команду Установить шрифт
- в поле со списком Диски выбрать нужный диск
- в поле Папки раскрыть каталог, где располагается файл шрифта EANG000.ttf
- в Списке шрифтов выбрать строку EanGnivc (True Type) и жмем Ок. Вот и готово!

Категория: 1С Общие вопросы - Обычные формы