Молочников Олег Spb. 2016.
Простой способ выделения цветом в печатных формах. “M-11”, “М-4”,” Сборка товаров” c номенклатурой поставщика.
Один из клиентов попросил сделать вышеназванные печатные формы. Для номенклатуры выводится наименование поставщика из последнего прихода. Если нет, то просто наименование подсвеченное красным. Принцип раскраски простой. В алгоритме вывода печатной формы всегда есть фрагмент выводящий макет строки. Например:
ВыборкаПоСтрокам = ВыборкаДокументы.ТаблицаТовары.Выбрать(); Пока ВыборкаПоСтрокам.Следующий() Цикл ОбластьМакета = Макет.ПолучитьОбласть(ОбластьСтроки); ОбластьМакета.Параметры.Заполнить(ВыборкаПоСтрокам); ОбластьМакета.Параметры.НоменклатураПредставление = НоменклатураКлиентСервер.ПредставлениеНоменклатурыДляПечати( ВыборкаПоСтрокам.НоменклатураПредставление, ВыборкаПоСтрокам.ХарактеристикаПредставление); ТабДокумент.Вывести(ОбластьМакета); КонецЦикла;
Для табличного документа команда “вывести()” возвращает область табличного документа, куда был осуществлен вывод. Это можно использовать для выделения цветом по условию:
Пока ВыборкаПоСтрокам.Следующий() Цикл ОбластьМакета = Макет.ПолучитьОбласть(ОбластьСтроки); ОбластьМакета.Параметры.Заполнить(ВыборкаПоСтрокам); ОбластьМакета.Параметры.НоменклатураПредставление = ?((""+ВыборкаПоСтрокам.НаименованиеПоставщика)<>"",ВыборкаПоСтрокам.НаименованиеПоставщика,НоменклатураКлиентСервер.ПредставлениеНоменклатурыДляПечати( СокрЛП(ВыборкаПоСтрокам.НоменклатураПредставление), СокрЛП(ВыборкаПоСтрокам.ХарактеристикаПредставление))); ОбластьТекущейСтроки=ТабДокумент.Вывести(ОбластьМакета); Горизонталь=ОбластьТекущейСтроки.Верх; Если ВыводитьДопКолонку Тогда ТабДокумент.Область(Горизонталь,8,Горизонталь,8).ЦветТекста =?((""+ВыборкаПоСтрокам.НаименованиеПоставщика)="",WebЦвета.Красный,WebЦвета.Черный); Иначе ТабДокумент.Область(Горизонталь,4,Горизонталь,4).ЦветТекста =?((""+ВыборкаПоСтрокам.НаименованиеПоставщика)="",WebЦвета.Красный,WebЦвета.Черный); КонецЕсли; КонецЦикла;
Печатные формы гарантированно работают на платформе 8.3 (тестировано на релизе 8.3.8.2054)с конфигурациями 1С:ERP Управление предприятием 2 (тестировано на релизе 2.2.1.102) .
Акция! Вы можете скачать эту разработку в составе архива всех моих разработок, которые я предлагаю за StartMone, по Специальной цене: //infostart.ru/public/960899/#archive
P.S.: Надеюсь, вам понравится эта и другие мои статьи и разработки на //infostart.ru/profile/48714/.
Очень жду ваших комментариев и пожеланий.
Молочников Олег Spb. 2016.
Вступайте в нашу телеграмм-группу Инфостарт
