Тема: Как связать два документа в архиве?
У документа есть свойство IntfPrjVerLinksTo(Связанные документы (применяемость, куда документ входит)), как программно вставить туда связанный документ?
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
TechnologiCS → TechnologiCS → Использование TechnologiCS API → Как связать два документа в архиве?
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
У документа есть свойство IntfPrjVerLinksTo(Связанные документы (применяемость, куда документ входит)), как программно вставить туда связанный документ?
Sub Connect_DOC_TO_DOC(TCSApp, DOC_VER_ID, IZM_VER_ID, VID_SVYAZY) ' Связывание двух документов между собой
' IZM_VER_ID - идентификатор версии Гл. документа
' DOC_VER_ID - идентификатор версии который входит
' VID_SVYAZY - вид связи
Dim Single_Doc ' документ архива
Dim LinkDoc_Single_Doc ' связанные документы (входимость)
Dim DOC_LINK_TYPE ' справочник связей документов
Set Single_Doc = TCSApp.SingleDoc(1, IZM_VER_ID)
Single_Doc.UserModuleName = Single_Doc.UniqueUserModuleName
Set LinkDoc_Single_Doc = Single_Doc.Properties("LINKS").AsIDispatch
LinkDoc_Single_Doc.UserModuleName = LinkDoc_Single_Doc.UniqueUserModuleName
LinkDoc_Single_Doc.Refresh
If Not LinkDoc_Single_Doc.Locate("LINKED_VER_ID", DOC_VER_ID, 0) Then
LinkDoc_Single_Doc.CancelChanges
LinkDoc_Single_Doc.CreateNew
Set DOC_LINK_TYPE = TCSApp.DocLinkTypes
DOC_LINK_TYPE.UserModuleName = DOC_LINK_TYPE.UniqueUserModuleName
If DOC_LINK_TYPE.Locate("NAME", VID_SVYAZY, 0) Then
LinkDoc_Single_Doc.Properties("LINK_TYPE").AsInteger = DOC_LINK_TYPE.Properties("ID").AsInteger
LinkDoc_Single_Doc.Properties("LINKED_VER_ID").AsInteger = DOC_VER_ID
LinkDoc_Single_Doc.SaveChanges
LinkDoc_Single_Doc.CancelChanges
End If
Call TCSApp.DeleteModuleByUserModuleName(DOC_LINK_TYPE.UserModuleName)
Set DOC_LINK_TYPE = Nothing
LinkDoc_Single_Doc.CancelChanges
End If
Call TCSApp.DeleteModuleByUserModuleName(LinkDoc_Single_Doc.UserModuleName)
Set LinkDoc_Single_Doc = Nothing
Call TCSApp.DeleteModuleByUserModuleName(Single_Doc.UserModuleName)
Set Single_Doc = Nothing
End Sub
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
TechnologiCS → TechnologiCS → Использование TechnologiCS API → Как связать два документа в архиве?