Имя: Пароль:
1C
 
Как раскрасить ячейку в макете УПП 8,3
, ,
0 Casper21
 
25.11.15
17:31
Делаю внешнюю отделку, макет, форму.
Как закрасить ячейки в макете которые параметри <НалПлатеж> = "Наложенный Платеж" в области "ОбластьСтрока".
УПП 8,3

Процедура Печать()Экспорт
    ТабДокумент = Новый ТабличныйДокумент;
    ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    Макет = ПолучитьМакет("Макет");
    ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
    ОбластьСтрока = Макет.ПолучитьОбласть("СтрокаТаблицы");     
    Запрос = Новый Запрос;      
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ЗаказПокупателяТовары.Номенклатура КАК Наименование,
    |    ЗаказПокупателяТовары.Количество,
    |    ЗаказПокупателяТовары.ЕдиницаИзмерения КАК ЕдиницыИзмерения,
    |    ЗаказПокупателяТовары.Сумма КАК Сума,
    |    Доставка.Период,
    |    Доставка.Перевозчик,
    |    Доставка.Отделение КАК НомерОтделения,
    |    Доставка.ВидОплаты КАК НалПлатеж,
    |    Доставка.КонтактноеЛицоПолучателя КАК Получатель,
    |    Доставка.ТелефонПолучателя КАК Телефон,
    |    Доставка.АдресДоставки,
    |    ЗаказПокупателяТовары.Ссылка.Номер,
    |    ЗаказПокупателяТовары.Ссылка.Дата
    |ИЗ
    |    Документ.ЗаказПокупателя.Товары КАК ЗаказПокупателяТовары
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Доставка КАК Доставка
    |        ПО ЗаказПокупателяТовары.Ссылка.Ссылка = Доставка.ЗаказПокупателя.Ссылка
    |ГДЕ
    |    ЗаказПокупателяТовары.Ссылка В(&СписокЗаказов)" ;  
    
    СписокЗаказов = Новый Массив;
    Для Каждого СТрока Из ТЗЗаказыПокупателей Цикл            
        СписокЗаказов.Добавить(СТрока.ЗаказПокупателя);
    КонецЦикла;     
    Запрос.УстановитьПараметр("СписокЗаказов",СписокЗаказов );     
    ТабДокумент.Вывести(ОбластьШапка);
    Строка = Запрос.Выполнить().Выбрать();
    Пока Строка.Следующий() Цикл          
        ОбластьСтрока.Параметры.НомерДата = Строка.Номер+" "+ Формат(Строка.Дата,"ДФ=dd.MM.yyyy");
        ОбластьСтрока.Параметры.Заполнить(Строка);
        //Если ОбластьСтрока.Параметры.НалПлатеж = "Наложенный"
        //    Тогда  ОформлениеСтроки.Ячейки.НалПлатеж.ОформлениеЯчейки.ЦветФона=Новый Цвет(255, 0, 0);
        //КонецЕсли;
        ТабДокумент.Вывести(ОбластьСтрока);         
    КонецЦикла;        
    ВысотаШапки   = ТабДокумент.ВысотаТаблицы;
    ШиринаТаблицы = ТабДокумент.ШиринаТаблицы;                                                   
    ТабДокумент.Показать();                                      
КонецПроцедуры
1 Casper21
 
25.11.15
17:43
отделку* - обработку
2 Горогуля
 
25.11.15
17:47
в области пошарься
3 Casper21
 
25.11.15
18:03
Что-то типа того?
ОформлениеСтроки.Ячейки.<ИмяКолонки>.ЦветФона = Новый Цвет (255,100,100);
4 Casper21
 
25.11.15
18:12
в
Процедура ПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
////        
КонецПроцедуры

??
5 Горогуля
 
25.11.15
19:18
нет
6 Casper21
 
26.11.15
15:10
ОбластьСтрока.ОбластьПечати.ЦветФона ?
7 НЕА123
 
26.11.15
15:12
(3)(4)
порошу счета не путать! (с)
8 Casper21
 
26.11.15
15:19
как закрасить те несчастные ячейки где есть НалПлатеж?
9 Горогуля
 
26.11.15
15:24
заняться исследованием СП, я так понимаю, бесполезно. ладно, я буду болеть за тебя. Кас-пер! Кас-пер!
10 НЕА123
 
26.11.15
15:24
Если ....

ОбластьСтрока.Область(1,1).ЦветФона =
11 Casper21
 
26.11.15
15:51
(9) подскажите о чем почитать в Сп. Про области читал, то оно не очень идет
12 Горогуля
 
26.11.15
15:52
ну да. область области
13 Casper21
 
26.11.15
15:53
не понимаю я что.
Ех надо сделать как вы всегда пишите: школу закончить, с детского садика випуститись, что там еще ...
14 НЕА123
 
26.11.15
15:56
(11)
ОбластьСтрока - это табличный документ(не область!)
15 НЕА123
 
26.11.15
15:57
(13)
да ладно.
Не ссать и не бояться! (с)
16 UFO
 
26.11.15
16:02
Если Проценты >= 20 Тогда
            Т.Область(Т.ВысотаТаблицы,7,Т.ВысотаТаблицы,8).ЦветФона = Новый Цвет(255,181,241);
        КонецЕсли;
17 UFO
 
26.11.15
16:02
18 UFO
 
26.11.15
16:03
Только закрашивать надо после вывода строки, когда в свойствах области нужные цифры стоят уже
19 Горогуля
 
26.11.15
16:04
(13) ага, документацию почитать, пораскинуть мозгом