[FREE] Объединение ячеек таблицы в колонке со схожими значениями

28.09.20

Разработка - Инструментарий разработчика

+6 –1
> >
  • После объединения.PNG
  • Исходный вид.PNG
  • Снимок222.PNG
Иногда на печатной форме из-за однообразия данных страдает восприятие сотрудниками данных. А иногда просто можно сэкономить тонер. Или нужно объединить графически строки с одним адресом доставки (для логистики) или описанием товара (для прайсов).

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
Объединение ячеек в таблице печатной формы
.epf 15,25Kb
11 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Подходит как для обычных форм, так и для управляемых

Выполняется функцией ОбъединятьЯчейки НаСервереБезКонтекста

&НаСервереБезКонтекста
Функция ОбъединениеЯчеек (ТабДокумент, НачальнаяСтрока, НомерКолонкиДляРаботы, НомерКолонкиДляРаботыКонечный) 
        ВсегоСтрок = 
        //50
        //100
        //НачальнаяСтрока + ТабличноеПоле1.Количество()+ТабличноеПоле3.Количество() 
        10000
        ;
        итртр = НачальнаяСтрока ;
        ЗапомнилиТекст = "IDDQD" ;
        СтартоваяСтрокаДляОбъединения = 0 ;
        КонечнаяСтрокаДляОбъединения = 0 ;

        Пока итртр <= ВсегоСтрок Цикл
            итртр = итртр +1 ;
            ОбластьДляЧтения = ТабДокумент.Область(итртр, НомерКолонкиДляРаботы, итртр, НомерКолонкиДляРаботы) ;
            Если ОбластьДляЧтения.Текст = ЗапомнилиТекст Тогда
                СтартоваяСтрокаДляОбъединенияПослеПроверки = СтартоваяСтрокаДляОбъединения ; 
                КонечнаяСтрокаДляОбъединения = итртр ;
                Продолжить ;    
            КонецЕсли ;
            
            Если ОбластьДляЧтения.Текст <> "" Тогда
                ЗапомнилиТекст = ОбластьДляЧтения.Текст ;
                СтартоваяСтрокаДляОбъединения = итртр ;
            Иначе
                ЗапомнилиТекст = "IDDQD" ;

            КонецЕсли ; 
            
            Если (СтартоваяСтрокаДляОбъединения <> КонечнаяСтрокаДляОбъединения) и (КонечнаяСтрокаДляОбъединения <> 0) Тогда
                ОбластьДляОбъединения = ТабДокумент.Область(СтартоваяСтрокаДляОбъединенияПослеПроверки, НомерКолонкиДляРаботы, КонечнаяСтрокаДляОбъединения, НомерКолонкиДляРаботыКонечный) ;
                 ОбластьДляОбъединения.Объединить();
                
                КонечнаяСтрокаДляОбъединения = 0 ;
            КонецЕсли ;    
        КонецЦикла;
        Возврат ТабДокумент ;
КонецФункции

Так же код функции имеется на форме обработки

Вступайте в нашу телеграмм-группу Инфостарт

Объединение ячеек строк колонок таблица

+6 –1