Если сумма договора больше 100 000, то форме записи справочника фон поля с суммой сделать красным, а текст – белым.

Форма-карточка.Показ

 

// Задать порог суммы договора.

MaxUnverifiableSum = 100000

// Задать цвет текста.

WhiteColor = RGB(255; 255; 255)

// Задать цвет фона.

LightRedColor = RGB(255; 102; 102)

 

/* Найти поле с суммой договора.

  Если сумма превышает порог, то изменить цвет фона и текста поля */

Requisite = Object.Requisites("Цена1")

ControlList = Object.Form.Controls.FindControlsByRequisite(Requisite)

I = 0

while I < ControlList.Count

Control = ControlList.Values(I)

if Control.ControlType = ctDBEdit

  if Requisite.AsNumeric > MaxUnverifiableSum

      Control.Color.Value = LightRedColor

      Control.TextColor.Value = WhiteColor

    else

      Control.Color.Reset

      Control.TextColor.Reset

    endif

  endif

  I = I + 1

endwhile

Результат

Как разработать для веб-доступа

В веб-доступе заработает автоматически.

© Компания DIRECTUM, 2018

Сообщество пользователей DIRECTUM