---

Hallo,

hat mir jemand ein Script-Beispiel, wie ich die Desktop-Objekte + deren Links von einem Projekt x bekomme?

Mache ich das überhaupt mit der Function: RetrieveRelatedDesktopObjectsAndLinks?

Gruss
Petra

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

versuch mal das Beispiel in der COM API Reference unter dem Suchbegriff : RetrieveRelatedDesktopObjectsAndLinks

Wenn Du Dir die Ergebnisliste ausgeben lässt (printtofile) , ist schnell klar was da alles rausgeholt wird.

Gruß
Christian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Christian,

jetzt ist es klar! Ich hatte ein Problem mit der Linkklasse.
Und um das LinkObjekt ranzukommen, muss ich natürlich, auch die Felder dafür selektieren.

Danke Dir. Gruss Petra

Hier der Code:

Sub TestGetLinks(obj As SmApplic.ISmObject)

Dim QueryDef                As SmApplic.ISmQueryDefinition
Dim RelatedDesktopAndLinks  As SmApplic.ISmCompositeObjects
Dim DokClass                As SmApplic.ISmClass
Dim Linkclass              As Integer

Set DokClass = session.MetaInfo.SmClassByName("Dokumente")
LinkClass = DokClass.DefaultHierachicalClassId

Set QueryDef = obj.ObjectStore.NewQueryDefinition()
QueryDef.Roles.Add DokClass.classid, "S"
QueryDef.Roles.Add LinkClass, "L"
QueryDef.Select.Add "CN_ID", "S", False
QueryDef.Select.Add "CN_DOK_FELD_1", "S", False
QueryDef.Select.Add "CN_DOK_FELD_6", "S", False
QueryDef.Select.Add "CLASS_ID2", "L", False
QueryDef.Select.Add "OBJECT_ID2", "L", False

Set RelatedDesktopAndLinks = obj.RetrieveRelatedDesktopObjectsAndLinks(QueryDef)
RelatedDesktopAndLinks.Data.PrintToFile "test", "c:\test.txt"

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP