Часто бывает необходимо создать таблицу или печатную форму, в которой необходимо не просто выводить последовательно горизонтальные строки или группы строк с заполнением параметров из макета, а собирать таблицу, можно сказать, по частям.
Данная обработка создает печатную форму в excel из макета с вертикальными и горизонтальными областями одновременно. Причем количество столбцов заранее неизвестно, так как зависит от периода кадрового перемещения сотрудника(ПФР получает данные из Документы.КадровыеПеремещенияОрганизации).
Предназначена она для того, чтобы показать график работы сотрудника на период его кадрового перемещения, но только этот промежуток(в этом и заключалась главная сложность):
Для СчетчикМесяца = 1 ПО КолМесяцевСчетчик Цикл
Для СЧ = НачДень ПО КонДень Цикл
Область.Параметры.Д = Строка(КалендарьНаборЗаписей[Месяц(ТекДата)-1]["День"+Строка(СЧ)]);
Область.Параметры.Н = Строка(КалендарьНаборЗаписей[Месяц(ТекДата)-1]["НЧ"+Строка(СЧ)]);
ТабДок.Присоединить(Область);
КонецЦикла;
ТекДата = ДобавитьМесяц(ТекДата, 1);
СчетчикСтолбца = СчетчикСтолбца+(КонДень-НачДень)+1;
КолМесяцев = КолМесяцев-1;
Если КолМесяцев = 1 Тогда
КонДень = День(СсылкаНаОбъект.РаботникиОрганизации[0].ДатаОкончания);
Иначе
КонДень = День(КонецМесяца(ТекДата));
КонецЕсли;
КонецЦикла;
Так же была необходимость объединять ячейки в шапке по месяцам(показано в скриншоте результатов). Сделал я это следующим образом:
ТабДок.Область("R7C"+Строка(СчетчикСтолбца)+":R8C"+Строка(СчетчикСтолбца+(КонДень-НачДень))).Объединить();
ТабДок.Область("R7C"+Строка(СчетчикСтолбца)+":R8C"+Строка(СчетчикСтолбца+(КонДень-НачДень))).ГоризонтальноеПоложение=ГоризонтальноеПоложение.Центр;
ТабДок.Область("R7C"+Строка(СчетчикСтолбца)+":R8C"+Строка(СчетчикСтолбца+(КонДень-НачДень))).ВертикальноеПоложение=ВертикальноеПоложение.Центр;
ТабДок.Область("R7C"+Строка(СчетчикСтолбца)+":R8C"+Строка(СчетчикСтолбца+(КонДень-НачДень))).Обвести(Линия, Линия, Линия, Линия);
ТабДок.Область("R7C"+Строка(СчетчикСтолбца)+":R8C"+Строка(СчетчикСтолбца+(КонДень-НачДень))).Текст = Формат(ТекДата, "ДФ=ММММ");
Буду рад, если данная обработка сможет кому либо помочь.
Тестировалось на Зарплата и Управление Персоналом для Казахстана, редакция 2.0, разработка для Казахстана (2.0.17.5). Но код довольно универсальный, при желании можно переделать и под управляемое приложение используя как пример Создание пачки/пакета печатных документов (WORD) и сохранение их в базе данных или Обработка печатной формы WORD клиент-сервер УФ
Вступайте в нашу телеграмм-группу Инфостарт
