0
GoReLoN
19.04.19
✎
14:10
|
Цель: при печати на макете нужно обвести ячейки, в которых содержится комментарий. Если комментария нет, то не обводить.
<1с>
Комментарий = ?(ЗначениеЗаполнено(Шапка.ТорговаяТочка),Шапка.ТорговаяТочка,Шапка.Комментарий);
ОбластьМакета.Параметры.Комментарий = Комментарий;
Если Комментарий <> "" Тогда
НовЛиния = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,3,Истина);
Макет.Область("Ком1").Обвести(НовЛиния,НовЛиния,НовЛиния,НовЛиния);
Макет.Область("Ком2").Обвести(НовЛиния,НовЛиния,НовЛиния,НовЛиния);
КонецЕсли;
</1с>
Но при печати, нужные ячейки не обводятся
|
|