• На форуме с 3 декабря 2015
  • Сообщений: 196

Тема: Не получается перевести версию СП в Акт(Утв)

Set Spec = Nmks.Properties("NmkSpecification").AsIDispatch
               If Not Spec Is Nothing Then

                  Set SP_Vers = Spec.ChildModules.ModuleByName("SpecificationVersions").AsIDispatch
                  Versia = 0
                  If Not SP_Vers Is Nothing Then
                     SP_Vers.First
                     Do While Not SP_Vers.Eof
                        If SP_Vers.Properties("VER_STATE").AsInteger = 0 Then
                           Versia = SP_Vers.Properties("VER_ID").AsInteger
                           Exit Do
                        End If
                        If SP_Vers.Properties("VER_STATE").AsInteger = 3 Then
                           Versia = SP_Vers.Properties("VER_ID").AsInteger
                        End If
                        SP_Vers.Next
                     Loop
                  End If
                  If Versia <> 0 Then
                     SP_Vers.First
                     If SP_Vers.Locate("VER_ID", Versia, 0) Then
ppp = SP_Vers.ShowModal("")
                           SP_Vers.MakeApproval
                     End If    ' Locate
                  End If  ' Versia <> 0
               End If

Пишет: Объект не поддерживает это свойство или метод: SP_Vers.MakeApproval

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Не получается перевести версию СП в Акт(Утв)

Интерфейс https://help.technologics.ru/7.7/TCSAPI … rsion2.htm есть только у https://help.technologics.ru/7.7/TCSAPI … ion_13.htm

Спасибо сказали: Евсеева Людмила1

  • На форуме с 3 декабря 2015
  • Сообщений: 196

Re: Не получается перевести версию СП в Акт(Утв)

Спасибо, работает
Теперь мне под другим пользователем надо версию СП перевести.

Под собой переводится
                           Set NMKVers = NewApp.NmkVersion(Versia)
                           NMKVers.MakeApproval

А так - не работает, что я неправильно делаю?

                           Set OCS = CreateObject("CSDN.TCS")
                           'Set NewApp = OCS.LoginEx2("Óòâåðæäàþùèé", "123456", "MyServer\TCS", "tcsBase" )
                           Set NewApp = OCS.LoginEx2("Óòâåðæäàþùèé", "123456", "server22", "EDU" )
                           Set NMKVers = NewApp.NmkVersion(Versia)
                           NMKVers.MakeApproval
                           Set NMKVers = Nothing
                           Set NewApp = Nothing
                           Set OCS = Nothing

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Не получается перевести версию СП в Акт(Утв)

Set OCS = CreateObject("CSDN.TCS")
'Set NewApp = OCS.LoginEx2("Óòâåðæäàþùèé", "123456", "MyServer\TCS", "tcsBase" )
Set NewApp = OCS.LoginEx2("Óòâåðæäàþùèé", "123456", "server22", "EDU" )
Set NMKVers = NewApp.NmkVersion(Versia)
NMKVers.MakeApproval
Set NMKVers = Nothing
Set NewApp = Nothing
Set OCS = Nothing

Из скриптов так не сработает (АПИ на процесс одно). Только в отдельном процессе можно.
Ну и так - передается адрес конфигуратора иимя БД на конфигураторе, а не данные SQL Server (хотя может во втором случае именно это и исправлено).

Ну и что значит не работает. Ошибка то какая происходит?

  • На форуме с 3 декабря 2015
  • Сообщений: 196

Re: Не получается перевести версию СП в Акт(Утв)

Ошибки нет, все получилось, под утверждающим не было прав на номенклатуру