(изменено: Энергопроект, 16 апреля 2010г. 15:35:26)

Тема: Ошибка при Установке подписи на объект

Не могу понять с чем связана ошибка установки подписи на объект.
- Объект один и тот же.
- Пользователь один и тот же.
- Пробовал и под системным администратором.

Используется следующий код:

== Этот РАБОТАЕТ без нареканий.

  thisscript.sysadminmodeOn
  Set newSign = signs.Create(signSysName)
  thisscript.sysadminmodeOff
  Set SignDlg = ThisApplication.Dialogs.SetSignDlg
  SignDlg.Object = sObj
  SignDlg.Sign = newSign
  ret_val = SignDlg.Show

== Эти варианты - Выдает ошибку - "Отсутствуют права"

  thisscript.sysadminmodeOn
  Set newSign = sObj.Signs.Create(signSysName)

      newSign.SetSign password, ThisApplication.CurrentUser, Date
          или
      sObj.SetSign signSysName, password, ThisApplication.CurrentUser, Date

  thisscript.sysadminmodeOff

Добавлю - Создание экземпляра подписи выполняется успешно в обоих вариантах.
Не проходит только "активация". Пустая подпись на объекте остается.