Re: Помогите тупому

id цеха есть в "учётных карточках", полученных не через проперти, а через зависимые объекты...хотя наверное Вам это не очень поможет

Re: Помогите тупому

А другого способа нет?

Вроде нет, по крайне мере я чего-то не раскопал  :oops: 
А так для справки вопросик: Зачем Вам "Цех" карточки, к тому же на которой и нет ничего? И каким способом Вы тогда эту карточку получаете и для каких целей хотите использовать?

Re: Помогите тупому

Бобов писал(а):
....
У Вас, скорее всего, причина ошибки в другом  :?

"Member not found"

  :?  может пронаследовали что-то не оттуда?
...

Пронаследовать не мог не оттуда. Я ведь пишу

BalenceDoc:=TCSApp.Inventory.BalanceDocuments;

А до этого ведь нигде не использую...
Кстати с Учетными документами разобрался (по другому сделал), а сейчас пытаюсь сделать

BalNmkCards:=TCSApp.Inventory.BalanceNmkCards(DepID,NmkID)

та же история...
BalNmkCards я описал как variant. Может из-за этого?

Re: Помогите тупому

x_proof писал(а):

Бобов писал(а):
....
У Вас, скорее всего, причина ошибки в другом  :?

"Member not found"

  :?  может пронаследовали что-то не оттуда?
...

Пронаследовать не мог не оттуда. Я ведь пишу

BalenceDoc:=TCSApp.Inventory.BalanceDocuments;

А до этого ведь нигде не использую...
Кстати с Учетными документами разобрался (по другому сделал), а сейчас пытаюсь сделать

BalNmkCards:=TCSApp.Inventory.BalanceNmkCards(DepID,NmkID)

та же история...
BalNmkCards я описал как variant. Может из-за этого?


Разобрался сам...

Re: Помогите тупому

x_proof писал(а):

Бобов писал(а):
....
У Вас, скорее всего, причина ошибки в другом  :?

"Member not found"

  :?  может пронаследовали что-то не оттуда?
...

Пронаследовать не мог не оттуда. Я ведь пишу

BalenceDoc:=TCSApp.Inventory.BalanceDocuments;

А до этого ведь нигде не использую...
Кстати с Учетными документами разобрался (по другому сделал), а сейчас пытаюсь сделать

BalNmkCards:=TCSApp.Inventory.BalanceNmkCards(DepID,NmkID)

та же история...
BalNmkCards я описал как variant. Может из-за этого?


Перечитал всё ещё раз  :) ...
Созрел вот какой вопрос:

x_proof писал(а):
При работе из TechnologiCS все работает, а при работе из моего приложения, что то не получается...

При работе из TechnologiCS это Вы имеете ввиду теже самые строчки кода, только используемые в скрипте, или Вы имеете ввиду работу руками?
Какие лицензии АПИ TechnologiCS куплены на Вашем предприятии?

Re: Помогите тупому

Бобов писал(а):
Перечитал всё ещё раз  :) ...
Созрел вот какой вопрос:

x_proof писал(а):
При работе из TechnologiCS все работает, а при работе из моего приложения, что то не получается...

При работе из TechnologiCS это Вы имеете ввиду теже самые строчки кода, только используемые в скрипте, или Вы имеете ввиду работу руками?
Какие лицензии АПИ TechnologiCS куплены на Вашем предприятии?

Лицензии приобретены ТПП и полная конфигурация. При работе из TechnologiCS я имел ввиду через скрипт...
Все заработало уже...

Re: Помогите тупому

Ну хорошо что заработало :)
Просто может у Вас было на тот момент зарегистрировано АПИ ТПП на рабочем месте, а в коде использовались объекты, в АПИ ТПП не входящие.

Re: Помогите тупому

Хочу в Еxcel через VBA подключится к запущенному сеансу. Не получается.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If MsgBox("Сохранить документ" & Me.Name & "?", vbYesNo) = vbYes Then
       SaveAs 
        If MsgBox("Сохранить документ" & Me.Name & " в ТКС?", vbYesNo) = vbYes Then
           Dim TCS As CSDN.TCS
           Dim TCSApp As CSDN.Tcs_Application
'         Set TCS = CreateObject("CSDN.TCS")
'         Set TCSApp = TCS.LoginCurrent
           If TCSApp.Archive.RunModuleForSelect("Выберите документ", False) > 0 Then
           End If
        End If
    Else
       Cancel = True
    End If
End Sub
Где ошибка. Спасибо!

Re: Помогите тупому

Хочу в Еxcel через VBA подключится к запущенному сеансу. Не получается.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If MsgBox("Сохранить документ" & Me.Name & "?", vbYesNo) = vbYes Then
       SaveAs 
        If MsgBox("Сохранить документ" & Me.Name & " в ТКС?", vbYesNo) = vbYes Then
           Dim TCS As CSDN.TCS
           Dim TCSApp As CSDN.Tcs_Application
'         Set TCS = CreateObject("CSDN.TCS")
'         Set TCSApp = TCS.LoginCurrent
           If TCSApp.Archive.RunModuleForSelect("Выберите документ", False) > 0 Then
           End If
        End If
    Else
       Cancel = True
    End If
End Sub
Где ошибка. Спасибо!

Re: Помогите тупому

А какая из них, вас интересует?

Re: Помогите тупому

Сергей Девятериков писал(а):
А какая из них, вас интересует?

Сергей Привет!
Да любая....

Re: Помогите тупому

Microsoft Visual Basic писал(а):
Run-time error '91':

Object variable or With block variable not set

а если убрать комментарии строчек, то все работает

Re: Помогите тупому

Сергей Девятериков писал(а):

Microsoft Visual Basic писал(а):
Run-time error '91':

Object variable or With block variable not set

а если убрать комментарии строчек, то все работает


Спасибо!
Просто нужно было выйти из Excel и запустить заново

Re: Помогите тупому

Подскажите, пожалуйста, почему в коде:

  Set MainDoc = TCSAPP.SingleDoc(1,DocVerId)
  If  Not MainDoc Is Nothing Then 
   MainDoc.Refresh
   Set FileCommands = MainDoc.Properties("COMMANDS").AsIDispatch
   If Not FileCommands Is Nothing Then
    If FileCommands.Locate("NOTE","Просмотр", 0) Then     
     DocCmdID = FileCommands.Properties("ID").AsSafeInteger   
     MainDoc.OpenDoc(DocCmdID) 
    Else
     MainDoc.OpenDoc(-1)     
    End If
   End If
  End If 
 Set MainDoc=Nothing

на строчке

MainDoc.OpenDoc(DocCmdID)

происходит ошибка:
SQL Server Error: Line 1: Incorrect syntax near 'by'
CSDN.SingleDoc

(Установлено TPP_API, TechnologiCS v.5.0.2.(9328))

Re: Помогите тупому

1. Возникает ли эта ошибка в случае открытия данной версии документа в ручном режиме?
2. Интересуют имена файлов данной версии документа.
3. Данная команда это: команда Windows по умолчанию или своя командная строка?

Re: Помогите тупому

Бобов писал(а):
1. Возникает ли эта ошибка в случае открытия данной версии документа в ручном режиме?

Да, возникает.

Бобов писал(а):
2. Интересуют имена файлов данной версии документа.

Стопорится на файлах 3D-моделей сборок Компаса, например: "BEARING 411 GOST 8338-75.A3D","078.505.9.0100.00.A3D","BEARING 410 GOST 8338-75.A3D"

Бобов писал(а):
3. Данная команда это: команда Windows по умолчанию или своя командная строка?

Пробовал и с помощью стандартной команды Windows(через Компас), и своей командой (через просмотрщик Компасс Viewer) - тот же результат

Re: Помогите тупому

для A3D у Вас настроена команда "Просмотр"? А сборку Компаса можно посмотреть, не имея файлов составляющих её компонентов или они в том же документе? Выгрузка файлов настроена в одну директорию?

Re: Помогите тупому

Бобов писал(а):
для A3D у Вас настроена команда "Просмотр"?

Да, настроена.

Бобов писал(а):
А сборку Компаса можно посмотреть, не имея файлов составляющих её компонентов или они в том же документе?

Можно, только при открытии выдаёт кучу сообщений, что невозможно найти файл и предлагает найти его. Но тот код, что я привел - это часть макроса, который:
[ul]
1. Просматривает, какие версии документов "связаны" с текущим[/ul]
[ul]
2. Выгружает без блокировки все связанные документы ( .OpenDoc(-1) )[/ul]
[ul]
3. Пробует открыть активную версию текущего  документа [/ul]

Бобов писал(а):
Выгрузка файлов настроена в одну директорию?

Да, в одну директорию (Включена "галочка" "Выгружать все файлы документов в одну папку")

Re: Помогите тупому

Ясно. Ещё одно уточнение, Вашим макросом не открывается ни одна сборка, или только некоторые, а некоторые всё же открываются?

Re: Помогите тупому

Попробовал открывать на просмотр окло 20 сборок в ручном режиме - получаю одну и ту же ошибку:
SQL Server Error: Line 1: Incorrect syntax near 'by'
(Макросом пробовал только 3)

Re: Помогите тупому

небольшую сборочку на technologics@csoft.ru зашлите, пожалуйста, чтоб мы уже конкретно открывали, а то на наших примерах (не компас) Ваш скрипт работает исправно.

Re: Помогите тупому

Выслал, проверяйте почту.
Там, в прикреплённом архиве, файл сборки и три файла деталей, в неё входящих.

Re: Помогите тупому

Получили. На Вашу ошибку выйти пока не получается, разбираемся...

Re: Помогите тупому

1. А 3D-модели деталей открываются стандартным способом?
2. Другие документы открываются стандартным способом?
2. Путь папки выгрузки?

Re: Помогите тупому

Бобов писал(а):
1. А 3D-модели деталей открываются стандартным способом?

   Да, открываются

Бобов писал(а):
2. Другие документы открываются стандартным способом?

  Да, открываются. Только в архиве в основном чертежи Компаса

Бобов писал(а):
2. Путь папки выгрузки?

    C:\temp\Unloaded_DOCs\