NmkVersionUserAccess

  Dim Module' as INmkVersionUserAccess
  Module.CancelChanges
  Module.CreateNew
  Module.p_ID.AsInteger = UserId
  Module.p_REM.AsString = "Нам комментарий"
  Module.p_CAN_EDIT.AsBoolean = True
  Module.SaveChangesEx 

  Module.UserModuleName = Module.UniqueUserModuleName
  TCSApp.DeleteModuleByUserModuleName Module.UserModuleName

Sub Can_Edit(TCSActiveModule)

Dim Nmks 'As CSDN.Nomenclatures
Dim NmkTech 'As CSDN.NmkTechnology
Dim CurrVer 'As CSDN.NMkVersions
Dim NMKTP 'As CSDN.NmkTechnology
Dim UAccess 'As CSDN.NmkVersionUserAccess


Dim TCS 'As CSDN.TCS
Dim App 'As CSDN.Tcs_Application


Set TCS = CreateObject("CSDN.TCS")
Set App = TCS.LoginCurrent

notemtk = TCSActiveModule.Properties("NOTE").Value



'Dim Nmk As ISingleNomenclature
Set Nmk = theApp.SingleNmkFromNMkNote(notemtk)
Nmk.UserModuleName = Nmk.UniqueUserModuleName

Call theApp.DeleteModuleByUserModuleName( Nmk.UserModuleName )

Set NMKTP = Nmk.Properties("NmkTechnology").AsIDispatch
Set CurrVer = NMKTP.Properties("CurrentVersion").AsIDispatch
Set UAccess = CurrVer.Properties("UserAccess").AsIDispatch

UAccess.UserModuleName = UAccess.UniqueUserModuleName

UAccess.AppendAction.Execute

'UAccess.p_ID.AsInteger = UserId
'UAccess.p_User_Name.asstring = App.LoginUserName

Dim Module' as INmkVersionUserAccess
UAccess.CancelChanges
UAccess.CreateNew
UAccess.p_ID.AsInteger = UserId

UAccess.p_CAN_EDIT.AsBoolean = True
UAccess.SaveChangesEx

                    Call TCSApp.ShowErrorMessage( "Ãîòîâî" )



End Sub

For i=TCSActiveModule.SelectedRowsCount-1 to 0 Step -1
If TCSActiveModule.GotoSelectedRow(i) Then

'Dim Nmk As ISingleNomenclature
Set Nmk = theApp.SingleNmkFromNMkNote(TCSActiveModule.Properties("NOTE").Value)
Nmk.UserModuleName = Nmk.UniqueUserModuleName

Call theApp.DeleteModuleByUserModuleName( Nmk.UserModuleName )

' переходим в раздел Технология
Set NMKTP = Nmk.Properties("NmkTechnology").AsIDispatch

' переходим в раздел Текущая версия
Set CurrVer = NMKTP.Properties("CurrentVersion").AsIDispatch

' переходим в раздел Доступ пользователей
Set UAccess = CurrVer.Properties("UserAccess").AsIDispatch

' запускаем окно выбора пользователя для добавления прав
UAccess.AppendAction.Execute

' запускаем окно выбора добавления прав
If UAccess.RunModuleForSelect("Выберите права", False )>0 Then

' сохраняем изменения
Call UAccess.SaveChanges
End If

end if

set NMKTP = Nothing
set CurrVer = Nothing

Sub Can_edit_paketno(TCSActiveModule)

Dim Nmks 'As CSDN.Nomenclatures
Dim NmkTech 'As CSDN.NmkTechnology

Dim CurrVer 'As CSDN.NMkVersions
Dim NMKTP 'As CSDN.NmkTechnology

Dim CurrVerSpec 'As CSDN.NMkVersions
Dim Spec 'As CSDN.NmkSpecification

Dim UAccess 'As NmkVersionUserAccess
Dim UAccessSpec 'As NmkVersionUserAccess

Dim ID
Dim TCS 'As CSDN.TCS
Dim App 'As CSDN.Tcs_Application

a = 0
b = 0
c = 0
Set TCS = CreateObject("CSDN.TCS")
'Set App = TCS.LoginCurrent
For i=TCSActiveModule.SelectedRowsCount-1 to 0 Step -1

If TCSActiveModule.GotoSelectedRow(i) Then
      call TCSApp.ShowProgressMessage("Ждите ... Осталось обработать "+cStr( i ) +" из "+cStr( TCSActiveModule.SelectedRowsCount ) +" записи " , "Информация")
      Dim Nmk 'As ISingleNomenclature
      Set Nmk = theApp.SingleNmkFromNMkNote(TCSActiveModule.Properties("NOTE").Value)
      Nmk.UserModuleName = Nmk.UniqueUserModuleName
      Call theApp.DeleteModuleByUserModuleName( Nmk.UserModuleName )

      ' переходим в раздел Технология
      Set NMKTP = TCSActiveModule.Properties("NmkTechnology").AsIDispatch
      ' переходим в раздел Текущая версия Технологии
      Set CurrVer = NMKTP.Properties("Versions").AsIDispatch

        if not CurrVer.Properties("id").value = 0 or CurrVer.Properties("id").value = null then
          ' переходим в раздел Доступ пользователей ТП
          Set UAccess = CurrVer.Properties("UserAccess").AsIDispatch

          Call UAccess.CancelChanges
          Call UAccess.CreateNew

          UAccess.Properties("ID").Value = ID
          UAccess.Properties("REM").Value = "Права установлены макросом"
          UAccess.Properties("CAN_VIEW").Value = 1
          UAccess.Properties("CAN_EDIT").Value = 1
          UAccess.Properties("CAN_EDITOTHER").Value = 1
          UAccess.Properties("CAN_DELOTHER").Value = 1
          UAccess.Properties("CAN_MOVE").Value = 1
          On Error Resume Next
          Call UAccess.SaveChangesEx
              If Err Then
              end if
        end if

On Error goto 0
a = a + 1
else
b= b + 1

End If

    Set NMKTP = Nothing
    Set UAccess = Nothing
    Set CurrVer = Nothing
Next
 Call TCSApp.HideProgressMessage
   if b > 0 then
  Call TCSApp.ShowMessageBox("Информация", "Права успешно добавлены для " & a & " записей."+ Chr(10) + Chr(10) +"Права НЕ добавлены для " & b & " записей из-за отсутствия версии!" )
  else
  Call TCSApp.ShowMessageBox("Информация", "Права успешно добавлены для всех записей" )
  end if
End Sub