1) Режим "Настройки параметров системы", создаем три системные константы, в которых указываем длину ИНН и КПП (в символах) :

 - ИНН юр.лицо (ID = 18, значение = 10)
 - ИНН ИП (ID = 19, значение = 12)
 - КПП юр.лицо (ID = 20, значение = 9)

2) В карточке Юр.лица нажимаем Ctrl+T, открываем VBS скрипт (кнопка с синим свитком), заменяем его на приложенный.VBS_83_Jur.vbs

Описание изменений в приложенном файле:
Удалены процедуры INN, KPP. из блока Main убраны создания надписей (label) для ИНН и КПП.
В блоке Main после выхода из полей ИНН и КПП вызывается процедура ChangeINNKPP

 this ("attr620374").OnExit = "ChangeINNKPP" ' ИНН

 this ("attr620375").OnExit = "ChangeINNKPP" ' КПП

 a = VisibleLableINNKPP()

добавлена процедура ChangeINNKPP

sub ChangeINNKPP(Sender)

   a = VisibleLableINNKPP()

end sub

Добавлены функции VisibleLableINNKPP и GetParamByINNKPP

public function GetParamByINNKPP(IK)

'IK = 18 - ИНН

'IK = 19 - ИНН для ф.л.

'IK = 20 - КПП

 if IK = 18 or IK = 19 or IK = 20 then

   if not isObject(this("datSist")) then

    datSist = this.create("TX2Query", this, "datSist")

  end if

  with this("datSist")

       .ClassName = "Константы"

       .Connector = this("X2Connector1")

       .SelectString = "cast(p343 as int) as [Значение]"

       .WhereString = "ObjectID = "+cstr(IK)

  end with

  this("datSist").open

  this("datSist").refresh

  GetParamByINNKPP = this("datSist").ValueByFieldName("Значение")

  end if

end function

Код функции VisibleLableINNKPP:

public function VisibleLableINNKPP()

dim lenINN

dim lenKPP

dim parINN

dim parKPP

lenINN = len(this("BookQuery").ValueByFieldName("ИНН"))

lenKPP = len(this("BookQuery").ValueByFieldName("КПП"))

'105 - ID элемента справочника для ОПФ "ИП". в функцию GetParamByINNKPP передается ID соответствующей системной константы.

if this("BookQuery").ValueByFieldName("ID_ОПФ") = 105 then 'ИП

   parINN = GetParamByINNKPP(19)

else

    parINN = GetParamByINNKPP(18)

end if

parKPP = GetParamByINNKPP(20)

   if not isObject(this("LabINN")) then

      LabINN = this.create("TcxLabel", this, "LabINN")

   end if

   if not isObject(this("LabKPP")) then

      LabKPP = this.create("TcxLabel", this, "LabKPP")

   end if

'Надпись для ИНН

if parINN<>lenINN and lenINN>0 then

     with this("lab620374").style

              .TextStyle = "fsbold"  ' жирный

              .Textcolor = RGB (200,0,0)

   end with

   with this("LabINN")

        .Caption = cstr(lenINN)+"/"+cstr(parINN)+" симв."

        .top = this("lab620374").top

        .left = this("lab620374").left +30

        .parent = this("Tabsheet0")

         With .style

              .TextStyle = "fsbold"  ' жирный

              .Textcolor = RGB (200,0,0)

              .font.size = 1

        End With

      .transparent = true

      .visible = true

   end with

else

   with this("lab620374").style

              .TextStyle = ""  ' жирный

              .Textcolor = RGB (0,0,0)

   end with

        this("LabINN").visible = false

end if

'Надпись для КПП

if parKPP<>lenKPP and lenKPP>0 then

   with this("lab620375").style

              .TextStyle = "fsbold"  ' жирный

              .Textcolor = RGB (200,0,0)

   end with

   with this("LabKPP")

        .Caption = cstr(lenKPP)+"/"+cstr(parKPP)+" симв."

        .top = this("lab620375").top

        .left = this("lab620375").left+30

        .parent = this("Tabsheet0")

         With .style

              .TextStyle = "fsbold"  ' жирный

              .Textcolor = RGB (200,0,0)

              .font.size = 1

        End With

      .transparent = true

      .visible = true

   end with

else

   with this("lab620375").style

              .TextStyle = ""  ' жирный

              .Textcolor = RGB (0,0,0)

   end with

        this("LabKPP").visible = false

end if

VisibleLableINNKPP = 1

end function

Здравствуйте, Сергей, что нужно сделать, чтобы праздники отображались корректно:

1. Пуск - Все программы - BMicro - Администрирование - Дизайнер интерфейсов (входим в него под пользователем sa)

2. В дизайнере интерфейсов слева вверху кнопка Открыть, нажимаем и выбираем интерфейс "Праздник Кого поздравлять"

3. В открывшемся интерфейсе мышкой встаем на основную таблицу - таблица станет выделенной (Table1 Физические лица. Проф праздник)

4. Таблица выделена - можем посмотреть ее свойства - слева от интерфейса находится Инспектор. В инспекторе находим группу "Таблица", раскрываем данную группу и в ней пункт "Связь с компонентами режима", в поле Главная таблица указываем Table 2: Праздники, в поле Атрибут связи выбираем (нажимаем на кнопку с ...) Праздник. Теперь необходимо сохранить режим (слева вверху кнопка Сохранить). Закрываем режим, идем в КК и открываем карточку праздника, вкладку Кого поздравлять - все будет отражено корректно