CftClub.ru

[spbetta]

Каким образом можно выделить определенным цветом группу клиентов(например VIP). Еще нужно, чтобы выделялись катры и депозиты этих клиентов.

Можно примеры кода.

[IBSO]

Например, выделение по просточенным документам:

Sub Paint()
If frm.InObjects then
If frm.CurRowAlias("C_DOC#DATE_END") <> "" then
Cnt_Month = frm.CurRowAlias("C_CNT_DATE")
Date_End = frm.CurRowAlias("C_DATE_END")

if Date_End <= Cnt_Month then
frm.CurCellStyle.BackColor = 230
End if
End if
End if
End Sub

Public Sub Begin(sAlias)
select case sAlias
case "C_DOC#DATE_END"
if frm.CurRowAlias("C_CNT") <> "0" and frm.CurRowAlias("C_CNT") <> "" then
Paint
end if
end select
End Sub

[Volod]

И еще про галочку Раскраска не забыть.

[Ezhik]

Именно
В представлении "Стиль ячеек" и не забыть про флаг.
Пример в дистрибутиве: Полный список в справочнике "Обобщенные статусы".

[spbetta]

спасибо

[yaffil]

А можно не текущую ячейку красить (CurCell) а какую нибудь другую, например обращаясь к ней по синониму?
Как закрасить всю строку?

Для того, чтобы в одной (напр. скрытой колонке) что нибудь вычисляем и по значению закрашиваем не её, а например ФИО клиента.

[Volod]

Чуть выше как раз такой пример предоставил IBSO.

[yaffil]

Так там тоже текущая ячейка красится:

[Volod]

Сразу не въехал в вопрос
В документации четко написано

[yaffil]

Понятно. Нужныю ячейку, напр. ФИО можно закрасить через and на скрытую (наверно ).
Было бы интересно закрасить всю строку. Не вешать же на каждый столбец значение "стиль" и через and сравнивать со скрытой

[Volod]

А кто мешает команду изменения стиля указать вне селекта?
Вся строка закрасится.

[yaffil]

Так надо по условию (значению ячейки) закрашивать. А не всё подряд.

[Volod]

Так и условие напишите, в чем проблема?.