Создаем программно справочник в Directum. Нужно отловить, что пользователь нажал отмену и cделать что-то.

Я добавляла запись справочника из обработчика детального раздела данных(событие Выбор из справочника):

Приведу сразу весь код обработчика. Я завела сразу функцию:

//ShowMessage('событие Выбор из справочника')
  ddsnewRef = aObject.DetailDataset(aDetailDataSetNum)
  BookMark = ddsnewRef.Bookmark 
  ReqCode = aRequisite.Value
  ReqName = aRequisite.Name
//открываем сразу карточку
  if (not VarIsNull(aRequisite.Value))
    LinkedReferenceName = aRequisite.ReferenceName
    EmplRefFactory  = References.ReferenceFactory(LinkedReferenceName)
    EmplRec = EmplRefFactory.GetObjectByCode(ReqCode)
    if (not VarIsNull(EmplRec))
      EmplRec.Form.Show
    endif
  else
      newRef = CreateReference(aChildRef)   
      newRef.AddWhere('1=0')  
      newRef.Open()
      newRef.Append()//добавим новую запись  
      newRef.Requisites(aParentRefReq).Value = Object.Код
      newRef.Form.Show()
      if newRef.RecordCount = 0
         ddsnewRef.Requisites(ReqName).Value = ''
         ddsnewRef.Delete()         
         ShowMessage('Отменено пользователем')
      else
        ddsnewRef.Requisites(ReqName).Value = newRef.Requisites(SYSREQ_CODE).Value      
        ShowMessage('Запись создана') 
      endif     

  endif
  Object.Save()

Карточка функции:

Стырено Читать →

Как развернуть две базы на одном сервере в  Directum.

Мне это нужно было для разработки нового модуля в системе Directum (новых справочников и прочего). С целью ведения разработки не на рабочей базе.  Новую тестовую базу я создала и  восстановила из бэкапа рабочей средствами MSSQL. Чтобы зацепиться к ней, необходимо в окошке ввода пароля Directum просто указать другую базу данных. Чтобы была возможность редактировать сервер и базу при входе - запускаем ярлык  "Запуск произвольной системы" из Пуск->Программы->Directum.

Ну и еще, в тестовой базе нужно поменять кое-что в соответствии с этой статьей.

Расскажу про пользовательский выбор из справочника, когда в справочнике используется ссылка на самого себя (тот же справочник) в табличном разделе. Ну нужно мне так 🙂

Есть два варианта реализации:
1. Выводить предупреждение, когда пользователь выбирает тот же справочник, что у нас уже открыт (ссылку на самого себя).
2. Переопределить выбор из справочника, исключив из вывода текущий справочник.

Итак, реализуем:

1. В событии нашего справочника Карточка.Открытие пишем:

  if not Sender.Inserted //если это не новая запись
//  запишем в переменную окружения(используется при выборе детального раздела, если юзер неверно выбрал подобъект) 
  if (Object.DetailExists(1))
    ODS = Obje

Читать →

Directum. Проверка заполненности реквизитов справочников.

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

Решение такое, добавляем в обработчик Сохранение.Возможность это:

//Для представления Представление проверим реквизит Реквизит1 на заполненность 
  CNTRCT_VIEW_NAME = "Представление"
  if СпрТекПредст() == CNTRCT_VIEW_NAME
    Requisite = Object.FindRequisite("Реквизит1")
    if (Requisite.Required or (VarIsNull(Requisite.Value) or trim(Requisite.AsString) == ''))
      Raise(CreateExcep

Читать →

Спёрто тут

В системе DIRECTUM по умолчанию на записи справочника не устанавливаются блокировки. Например, Ольга Петровна открывает запись справочника "Входящие РКК", в это же время Михаил Андреевич открывает эту же запись. Оба пользователя вносят изменения. Ольга Петровна нажимает кнопку "Сохранить" раньше Михаила Андреевича. В этом случае все изменения Ольги Петровны сохранены не будут, а запись справочника "Входящие РКК" заполниться значениями, которые указал Михаил Андреевич.

Для того, чтобы подобной ситуации не возникало, необходимо программно реализовать механизм блокировки записей справочников, для этого:

1. В событии "Карточка \ Открытие" нужного справочника необходимо поместить вычисления, которые установят блокировку:
if Object.AccessInfo.CanUpdate
if not Object.GlobalLock.TryLockObject
Object.GlobalLock.Locked
Raise(CreateException(''; Format('Запись с ИД = %s за
Читать →

Тут написано как отобразить в карточке справочника связанные документы или задачи в cистеме Directum.
Я немного модернизировала эти функции с тем, чтобы отобразить связанные справочники таким же образом.

Алгоритм работы функций:
1. В функции передаются нужные параметры;
2. Формируется HTML-документ, в котором отображается таблица с связаными справочниками;
3.
Читать →

В Directum не ведется история записей справочников. База была тестовая, копирнутая с рабочей.

Нужно в тестовой базе в таблицах XIni и XObj подправить название базы и сервера на новые (в данном случае тестовые). Например, рабочий сервер и база назывались server1 и directum, а тестовые - server2 и directumdev.

Соответственно, нужно заменить server1 на server2, а directum на directumdev.

Добавлено. Код системы менять не нужно. Потом иначе гиперссылки не пашут по CreateHyperLink