Вычисляемые реквизиты детального набора данных

Как известно, реквизиты бывают двух типов - сохраняемые и вычисляемые. Вычисляемые реквизиты обычно либо агрегируют некую информацию, связанную с записью, либо просто переносят справочные данные из другой записи. Примером могут служить реквизиты РКК, отображающие информацию о связанных задачах, плановых и фактических датах.

Для того, чтобы добавить вычисляемый реквизит в главный набор данных (т.е. в карточку) надо воспользоваться функцией СпрИзмНабДан(), позволяющей модифицировать SQL-запрос получения набора данных с сервера и добавить в него свои реквизиты. Хороший пример - как это делается можно, опять же, посмотреть в РКК в событии "Набор данных / Открытие".

С реквизитами карточки в целом все просто. Сложности могут возникнуть только с формированием дополнений к SQL-запросу, но, вооружившись знанием T-SQL и Profiler с ними можно справиться. С реквизитами детальных наборов данных (т.е. табличными реквизитами) все несколько хитрее.

Дело в том, что при открытии набора данных подгружается не весь справочник, а только те данные, которые отображаются в форме-списке (плюс несколько системных вроде ИД). Табличные реквизиты туда вытащить нельзя, поэтому и загружать их сразу для всех записей в этом событии не имеет смысла. Все реквизиты записи загружаются только при открытии карточки, т.е. в событии "Карточка / Открытие".

Соответственно, если у нас есть вычисляемые табличные реквизиты, то вычислить их мы можем в событии открытия карточки. Итак, мы имеем данные, которые хотим добавить в реквизит. Записываем их туда кодом на ISBL. Получаем искомый результат - данные в карточке есть. Но мы изменили карточку, поэтому набор данных перешел в состояние "Изменение". И при открытии записи пользователь всегда видит активную кнопку "Сохранить", а при закрытии его предупреждают, что запись надо сохранить. Хотя он никаких изменений не делал.

Мне известно 2 способа борьбы с этим "злом". Первый - сохранять карточку при ее открытии. Но этот способ нехорош тем, что затормозит открытие карточки, а так же при каждом открытии будет добавлять запись в истории об изменении карточки. Кроме того, пользователь может и не иметь прав на сохранение этой записи, тогда этот способ вообще не будет работать.

Второй способ - воспользоваться недокументированными функциями IS-Builder - DisableModified(IDataSet) и EnableModified(IDataSet). Конечно, недокументированные функции это плохо, риск что она перестанет работать есть при каждом обновлении, но если нужны вычисляемые табличные реквизиты, то недокументированная функция - меньшее из зол. Буду рад, кстати, если кто-нибудь подскажет более правильный способ для решения этой задачи.

Итак, недокументированные функции. DisableModified(IDataSet) устанавливает запрет на проверку Modified набора данных, то есть  набор данных не будет считаться изменившимся, даже если в нем что-то изменилось. Функция EnableModified(IDataSet) возвращает проверку. Вычисляемый реквизит табличной части я заполняю так:

// отключить проверку, если запись не вновь созданная
if not Object.Inserted
  DisableModified(Object.DataSet)
endif
     
// заполнить реквизит ISBGroupThresholdKind тестовыми значениями
DS = Object.DetailDataSet(1)
while DS.RecordCount > 0
  DS.Delete
endwhile
i = 1
while i < 10
  DS.Insert
  DS.ISBGroupThresholdKind = 'Строка ' & i
  i = i + 1
endwhile
   
// включить проверку обратно
if not Object.Inserted     
  EnableModified(Object.DataSet)
endif       

• в качестве аргументов у функций надо указывать главный набор данных, а не детальный;
• работает как для справочников, так и для документов;
• надо проверять, что запись не вновь создаваемая (проверка if not Object.Inserted). Для вновь создаваемой записи вызывать функции нельзя, иначе запись не сохранится;
• метод применим только для реквизитов детальных разделов, для главного раздела надо пользоваться СпрИзмНабДан();
• проверял на версиях IS-Builder 7.6.3 и 7.7. Функции не документированные, могут вдруг начать работать по-другому после обновления (а то и вообще исчезнуть), поэтому к их использованию стоит прибегать только когда нет других вариантов.