Re: Помогите тупому
id цеха есть в "учётных карточках", полученных не через проперти, а через зависимые объекты...хотя наверное Вам это не очень поможет
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
TechnologiCS → TechnologiCS → Использование TechnologiCS API → Помогите тупому
id цеха есть в "учётных карточках", полученных не через проперти, а через зависимые объекты...хотя наверное Вам это не очень поможет
А другого способа нет?
Вроде нет, по крайне мере я чего-то не раскопал :oops:
А так для справки вопросик: Зачем Вам "Цех" карточки, к тому же на которой и нет ничего? И каким способом Вы тогда эту карточку получаете и для каких целей хотите использовать?
Бобов писал(а):
....
У Вас, скорее всего, причина ошибки в другом :?"Member not found"
:? может пронаследовали что-то не оттуда?
...
Пронаследовать не мог не оттуда. Я ведь пишу
BalenceDoc:=TCSApp.Inventory.BalanceDocuments;
А до этого ведь нигде не использую...
Кстати с Учетными документами разобрался (по другому сделал), а сейчас пытаюсь сделать
BalNmkCards:=TCSApp.Inventory.BalanceNmkCards(DepID,NmkID)
та же история...
BalNmkCards я описал как variant. Может из-за этого?
x_proof писал(а):
Бобов писал(а):
....
У Вас, скорее всего, причина ошибки в другом :?"Member not found"
:? может пронаследовали что-то не оттуда?
...Пронаследовать не мог не оттуда. Я ведь пишу
BalenceDoc:=TCSApp.Inventory.BalanceDocuments;А до этого ведь нигде не использую...
Кстати с Учетными документами разобрался (по другому сделал), а сейчас пытаюсь сделатьBalNmkCards:=TCSApp.Inventory.BalanceNmkCards(DepID,NmkID)та же история...
BalNmkCards я описал как variant. Может из-за этого?
Разобрался сам...
x_proof писал(а):
Бобов писал(а):
....
У Вас, скорее всего, причина ошибки в другом :?"Member not found"
:? может пронаследовали что-то не оттуда?
...Пронаследовать не мог не оттуда. Я ведь пишу
BalenceDoc:=TCSApp.Inventory.BalanceDocuments;А до этого ведь нигде не использую...
Кстати с Учетными документами разобрался (по другому сделал), а сейчас пытаюсь сделатьBalNmkCards:=TCSApp.Inventory.BalanceNmkCards(DepID,NmkID)та же история...
BalNmkCards я описал как variant. Может из-за этого?
Перечитал всё ещё раз :) ...
Созрел вот какой вопрос:
x_proof писал(а):
При работе из TechnologiCS все работает, а при работе из моего приложения, что то не получается...
При работе из TechnologiCS это Вы имеете ввиду теже самые строчки кода, только используемые в скрипте, или Вы имеете ввиду работу руками?
Какие лицензии АПИ TechnologiCS куплены на Вашем предприятии?
Бобов писал(а):
Перечитал всё ещё раз :) ...
Созрел вот какой вопрос:x_proof писал(а):
При работе из TechnologiCS все работает, а при работе из моего приложения, что то не получается...При работе из TechnologiCS это Вы имеете ввиду теже самые строчки кода, только используемые в скрипте, или Вы имеете ввиду работу руками?
Какие лицензии АПИ TechnologiCS куплены на Вашем предприятии?
Лицензии приобретены ТПП и полная конфигурация. При работе из TechnologiCS я имел ввиду через скрипт...
Все заработало уже...
Ну хорошо что заработало :)
Просто может у Вас было на тот момент зарегистрировано АПИ ТПП на рабочем месте, а в коде использовались объекты, в АПИ ТПП не входящие.
Хочу в Е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
Где ошибка. Спасибо!
Хочу в Е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
Где ошибка. Спасибо!
Сергей Девятериков писал(а):
А какая из них, вас интересует?
Сергей Привет!
Да любая....
Microsoft Visual Basic писал(а):
Run-time error '91':Object variable or With block variable not set
а если убрать комментарии строчек, то все работает
Сергей Девятериков писал(а):
Microsoft Visual Basic писал(а):
Run-time error '91':Object variable or With block variable not set
а если убрать комментарии строчек, то все работает
Спасибо!
Просто нужно было выйти из Excel и запустить заново
Подскажите, пожалуйста, почему в коде:
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))
1. Возникает ли эта ошибка в случае открытия данной версии документа в ручном режиме?
2. Интересуют имена файлов данной версии документа.
3. Данная команда это: команда Windows по умолчанию или своя командная строка?
Бобов писал(а):
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) - тот же результат
для A3D у Вас настроена команда "Просмотр"? А сборку Компаса можно посмотреть, не имея файлов составляющих её компонентов или они в том же документе? Выгрузка файлов настроена в одну директорию?
Бобов писал(а):
для A3D у Вас настроена команда "Просмотр"?
Да, настроена.
Бобов писал(а):
А сборку Компаса можно посмотреть, не имея файлов составляющих её компонентов или они в том же документе?
Можно, только при открытии выдаёт кучу сообщений, что невозможно найти файл и предлагает найти его. Но тот код, что я привел - это часть макроса, который:
[ul]
1. Просматривает, какие версии документов "связаны" с текущим[/ul]
[ul]
2. Выгружает без блокировки все связанные документы ( .OpenDoc(-1) )[/ul]
[ul]
3. Пробует открыть активную версию текущего документа [/ul]
Бобов писал(а):
Выгрузка файлов настроена в одну директорию?
Да, в одну директорию (Включена "галочка" "Выгружать все файлы документов в одну папку")
Ясно. Ещё одно уточнение, Вашим макросом не открывается ни одна сборка, или только некоторые, а некоторые всё же открываются?
Попробовал открывать на просмотр окло 20 сборок в ручном режиме - получаю одну и ту же ошибку:
SQL Server Error: Line 1: Incorrect syntax near 'by'
(Макросом пробовал только 3)
небольшую сборочку на technologics@csoft.ru зашлите, пожалуйста, чтоб мы уже конкретно открывали, а то на наших примерах (не компас) Ваш скрипт работает исправно.
Выслал, проверяйте почту.
Там, в прикреплённом архиве, файл сборки и три файла деталей, в неё входящих.
Получили. На Вашу ошибку выйти пока не получается, разбираемся...
1. А 3D-модели деталей открываются стандартным способом?
2. Другие документы открываются стандартным способом?
2. Путь папки выгрузки?
Бобов писал(а):
1. А 3D-модели деталей открываются стандартным способом?
Да, открываются
Бобов писал(а):
2. Другие документы открываются стандартным способом?
Да, открываются. Только в архиве в основном чертежи Компаса
Бобов писал(а):
2. Путь папки выгрузки?
C:\temp\Unloaded_DOCs\
TechnologiCS → TechnologiCS → Использование TechnologiCS API → Помогите тупому