helpf.pro
Регистрация
 0 
Распечатать

Как закрепить шапку таблицы отчета?

Код 1C v 8.х
 // Пример от  sergeante   Фиксирует шапку при любых отборах.
Процедура скдФиксироватьШапкуОтчета(ТабДок, Фиксировать, Строка = "Номенклатура", Поправка = 0) Экспорт
    Если Фиксировать Тогда
        Область = ТабДок.НайтиТекст(Строка,,,,Истина);
        ТабДок.ФиксацияСверху = ?(ЗначениеЗаполнено(Область), Область.Верх + Поправка, 0);    
    Иначе
        ТабДок.ФиксацияСверху = 0;
    КонецЕсли; 
КонецПроцедуры   


Код 1C v 8.х
  // Пример от i-rek
   ПроцессорВывода.НачатьВывод(); 

    ТаблицаЗафиксирована = Ложь;
    Пока Истина Цикл
        ЭлементРезультата = ПроцессорКомпоновкиДанных.Следующий();
         Если ЭлементРезультата= Неопределено Тогда
            Прервать;     
         Иначе     
            ПроцессорВывода.ВывестиЭлемент(ЭлементРезультата);
            Если Не ТаблицаЗафиксирована И ЭлементРезультата.ЗначенияПараметров.Количество() >  0 Тогда
                ТаблицаЗафиксирована = Истина;
                Таб.ФиксацияСверху = Таб.ВысотаТаблицы;
              КонецЕсли;
         КонецЕсли;
    КонецЦикла;
    ПроцессорВывода.ЗакончитьВывод();   



Код 1C v 8.х
 // Пример от Kashemir
Процедура глВывестиРезультатКомпоновкиСАвтофиксациейСтрок( Таб, 
                                                            ПроцессорКомпоновкиДанных, 
                                                            ЭлементыРасшировки,
                                                             Знач МассивИгнорируемыхПолей = Неопределено, 
                                                            РазрешитьПрерывание = Истина) Экспорт 
 
 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
 ПроцессорВывода.УстановитьДокумент(Таб);
 ПроцессорВывода.НачатьВывод();
 ФиксацияВыполнена = Ложь;
 Если МассивИгнорируемыхПолей = Неопределено Тогда
     МассивИгнорируемыхПолей = Новый Массив;
 КонецЕсли; 
 Пока Истина Цикл
     ЭлементРезультатаКомпоновкиДанных = ПроцессорКомпоновкиДанных.Следующий();
     Если ЭлементРезультатаКомпоновкиДанных = Неопределено Тогда
         Прервать;
     КонецЕсли;
     
     // Автофиксация 
     Если Не ФиксацияВыполнена Тогда
         Для Каждого ЗначениеПараметра Из ЭлементРезультатаКомпоновкиДанных.ЗначенияПараметров Цикл
             Если ТипЗнч(ЗначениеПараметра.Значение) = Тип("ИдентификаторРасшифровкиКомпоновкиДанных") Тогда
                 ЗначенияПолейРасшифровки = ЭлементыРасшировки[ЗначениеПараметра.Значение].ПолучитьПоля();
                 Для Каждого ЗначениеПоляРасшифровки Из ЗначенияПолейРасшифровки Цикл
                     Если МассивИгнорируемыхПолей.Найти(ЗначениеПоляРасшифровки.Поле) = Неопределено Тогда
                         Таб.ФиксацияСверху = Таб.ВысотаТаблицы;
                         ФиксацияВыполнена = Истина;
                         Прервать;
                     КонецЕсли;
                 КонецЦикла;
                 Если ФиксацияВыполнена Тогда
                     Прервать;
                 КонецЕсли;
             КонецЕсли;
         КонецЦикла;
     КонецЕсли;
     
     ПроцессорВывода.ВывестиЭлемент(ЭлементРезультатаКомпоновкиДанных);
     Если РазрешитьПрерывание Тогда
         #Если Клиент тогда 
         ОбработкаПрерыванияПользователя();
         #КонецЕсли 
     КонецЕсли; 
 КонецЦикла;
 ПроцессорВывода.ЗакончитьВывод();
 
КонецПроцедуры   
Разместил:   Версии: | 8.x | 8.2 УП |  Дата:   Прочитано: 33803
 0 
Распечатать
Возможно, вас также заинтересует
17 правил для составления оптимального ЗАПРОСа к данным базы 1С 53
Для формирования и выполнения запросов к таблицам базы данных в платформе 1С используется специальный объект языка программирования Запрос . Создается этот объект вызовом конструкции Новый Запрос . Запрос удобно использовать, когда требуется получ
1C: Enterprise Development Tools 52
И вот случилось долгожданное: Вышел 1C: Enterprise Development Tools - это среда для разработки конфигурации в IDE Eclipse. С сайта 1С: « 1C:Enterprise Development Tools » – это инструмент нового поколения для разработчиков бизнес-приложений систем
1Cv8.1CD - Файл данных достиг максимального размера! 9
1С выдает предупреждение " Файл данных достиг максимального размера" . Подскажите из - за чего это и как можно решить ? Превышен размер файла, обычно это сообщение возникает, когда размер файла 1Cv8.1CD приближается к 10 гигабайтам или размер ка
Excel файл как Внешний источник данных 17
Подключимся и загрузим из файла Excel данные в таблицу значений 1С. Сделать теперь это очень просто. 1. В конфигурации добавляет новый объект метаданных типа " Внешние источники данных" и назовем его просто " Excel" . https://helpf.pro/uploads/img
Microsoft SQL Server Native Client Добавление значения в столбец "datetime" привело к переполнению 2
При формировании отчета на СКД получили ошибку: Microsoft SQL Server Native Client 11.0: Добавление значения в столбец "datetime" привело к переполнению Подробнее текст такой: ... по причине: Ошибка компоновки данных по причине: Ошибка получени
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.
Загрузка... Дождитесь завершения!