CftClub.ru
Клуб специалистов ЦФТ-Банк

Ребят, как поменять цвет ячейки ?

 
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Уроки ЦФТ-Банк для начинающих
Предыдущая тема :: Следующая тема  
Автор Сообщение
freshcoder
Участник


Вступление в Клуб: 08.06.2015
СообщениеЧт Авг 13, 2015 11:45   Ребят, как поменять цвет ячейки ? Ответить с цитатой
Полезность: Нет оценки
Хотелось бы, что б при определенном состоянии, менялся цвет ячейки. Насколько я знаю, делается это в Стиле ячеек на VBScript. Но не пойму как сделать правильно. У меня все. Спасибо.
yaffil
Профи


Вступление в Клуб: 18.08.2011
СообщениеЧт Авг 13, 2015 11:50    Ответить с цитатой
Полезность: 1
Зайти в кнопку, стиль ячеек, и сравнивать значения, не забыв на колонке поставить галку "СТИЛЬ"
Пример моей ячйки смотрим если значение не 0 - то красным.
Код:

Public Sub Begin(sAlias)
   select case sAlias
      case "C_DT_ITOG_VAL"
      if frm.CurCellValue <> 0 then frm.CurCellStyle.BackColor = vbRed
      case "C_DT_ITOG_NACION"
      if frm.CurCellValue <> 0 then frm.CurCellStyle.BackColor = vbRed
      case "C_KT_ITOG_VAL"
      if frm.CurCellValue <> 0 then frm.CurCellStyle.BackColor = vbRed
      case "C_KT_ITOG_NACION"
      if frm.CurCellValue <> 0 then frm.CurCellStyle.BackColor = vbRed
   end select
End Sub
Матвеев Евгений
Профи


Вступление в Клуб: 31.01.2012
СообщениеЧт Авг 13, 2015 19:01   Re: Ребят, как поменять цвет ячейки ? Ответить с цитатой
Полезность: 1
freshcoder пишет:
Хотелось бы, что б при определенном состоянии, менялся цвет ячейки. Насколько я знаю, делается это в Стиле ячеек на VBScript. Но не пойму как сделать правильно. У меня все. Спасибо.


Можно увидеть в клиентах --> Физические лица --> Полный список

Колонка "Удостоверение действительно по"

В АСД зайдешь во вьюху, кнопка "Стиль ячеек"
Код:

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


Подкрашивает просроченные документы красной заливкой
freshcoder
Участник


Вступление в Клуб: 08.06.2015
СообщениеПт Авг 14, 2015 07:16    Ответить с цитатой
Полезность: Нет оценки
Всем спасибо! Разобрался.
Tonga
Участник


Вступление в Клуб: 05.12.2012
СообщениеСр Фев 17, 2016 18:03    Ответить с цитатой
Полезность: Нет оценки
Как сравнить числовые значения? frm.CurRowAlias возвращает строку

Код:
Sub Paint()
   If frm.InObjects then
      sld = frm.CurRowAlias("C_SALDO")
      summ= frm.CurRowAlias("C_SUMM")
         
      if sld < summ then
         frm.CurCellStyle.BackColor = 230
      End if
     
   End if             
End Sub

Public Sub Begin(sAlias)
   select case sAlias
      case "C_SUMM"
         Paint
      case "C_SALDO"
   end select
End Sub


Последний раз редактировалось: Tonga (Ср Фев 17, 2016 18:29), всего редактировалось 2 раз(а)
prog
Эксперт


Вступление в Клуб: 03.03.2008
СообщениеСр Фев 17, 2016 18:11    Ответить с цитатой
Полезность: Нет оценки
cInt()
Tonga
Участник


Вступление в Клуб: 05.12.2012
СообщениеСр Фев 17, 2016 18:26    Ответить с цитатой
Полезность: Нет оценки
prog пишет:
cInt()


Выдает ошибку "Переполнение cInt"

Изменил так:
Код:
Sub Paint()
   If frm.InObjects then
      sld = frm.CurRowAlias("C_SALDO")
      summ= frm.CurRowAlias("C_SUMM")
         
      if cInt(sld) < cInt(summ) then
         frm.CurCellStyle.BackColor = 230
      End if
     
   End if             
End Sub

Public Sub Begin(sAlias)
   select case sAlias
      case "C_SUMM"
         Paint
      case "C_SALDO"
   end select
End Sub
Tonga
Участник


Вступление в Клуб: 05.12.2012
СообщениеСр Фев 17, 2016 19:08    Ответить с цитатой
Полезность: Нет оценки
Tonga пишет:
prog пишет:
cInt()


Выдает ошибку "Переполнение cInt"

Изменил так:
Код:
Sub Paint()
   If frm.InObjects then
      sld = frm.CurRowAlias("C_SALDO")
      summ= frm.CurRowAlias("C_SUMM")
         
      if cInt(sld) < cInt(summ) then
         frm.CurCellStyle.BackColor = 230
      End if
     
   End if             
End Sub

Public Sub Begin(sAlias)
   select case sAlias
      case "C_SUMM"
         Paint
      case "C_SALDO"
   end select
End Sub

разобрался, так как сумма не целое чисто, то нужно использовать cDbl()
Спасибо!
prog
Эксперт


Вступление в Клуб: 03.03.2008
СообщениеСр Фев 17, 2016 19:10    Ответить с цитатой
Полезность: Нет оценки
ура
Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Уроки ЦФТ-Банк для начинающих Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Рейтинг@Mail.ru