CreateNewVersion

В TCS6.3 - написала макрос, где CreateNewVersion отлично выполняется
А в TCS7 - на команду CreateNewVersion выдает ошибку "Нет прав?"

TCS7 - Если на номенклатуре ТТП открыть спецификацию, затем версии спецификации, есть возможность добавить новую версию, а через макрос создать версию пишет нет прав. Может быть где-то настройки нужно изменить?

   If Not TCSActiveModule.Properties("NMK_CLASSIF_TYPE_REF").DisplayText = 27 Then
      Call TCSApp.ShowMessageBox("Сообщение", "Макрос предназначен для ТТП")
      Exit Sub
   End If

   Set Spec = TCSActiveModule.Properties("NmkSpecification").AsIDispatch
   If Spec.Properties("ID").AsSafeInteger = 0 Then ' нет спецификации
      Set Vers = Spec.Properties("Versions").AsIDispatch
      If Vers.Properties("ID").AsSafeInteger = 0 Then ' нет версии
         Ver_Name = ""
         Ver_Name = TCSApp.InputBox("Ввод наименования версии","Введите наименование версии",Ver_Name)
         If Ver_Name = "" Then Exit Sub
'         On Error Resume Next
         ID_Vers = Vers.CreateNewVersion(Ver_Name)
'         If Err Then
'            Call TCSApp.ShowMessageBox("Сообщение", "Нет прав доступа к ТТП")
'            Exit Sub
'         End If
      Else  ' есть версия