---

Hi,

ich hätte eine prinzipielle Frage ob es möglich ist in V5R10 Attributwerte eines Objektes einer Klasse an ein anderes objekt einer anderen Klasse weiter zu geben.
Ein Beispiel hierzu:
Angeneommen ich lege ein Projekt an und die Projektnr. (z.B. 123456) soll beim anlegen eines objektes in der Klasse Artikel in ein Attributfeld automatisch übernommen werden.
Mein lösungsansatz war bisher das das nur möglich mit einem Skript ist oder gibt es andere Möglichkeiten.
Freue mich über jede Antwort

Gruß alp

 

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

---

Hi Alp,

meines wissens nach gibt es keinen SMARTEAM Automatismus um dieses zu tun.
Wir haben uns eine Routine programmiert, die alles von allem kopieren kann. Z.B. Einträge vom Projekt in die Dokumente-Profilkarte, ebenso wie von ausgewählten Ordnern oder anderen 'Parent' Objekten.

Ich habe den Teil für die Projekte einmal rausgelöst, schau mal ob Du damit etwas anfangen kannst :

Gruß
Christian

        Dim Project As ISmObject
        Dim GUI As SmCommonGUI
        Set GUI = smsession.GetService("SmGUISrv.SmCommonGUI")
        Dim ViewWindow As ISmViewWindow
        Set ViewWindow = GUI.ActiveViewWindow

        If Not ViewWindow Is Nothing Then
 
        ' the script is called from the documents view
          Dim View As ISmView
          Set View = ViewWindow.smView
          Dim Controller As Object ' variant object of SmGUISrv.ISmGUIComponent class fam
          Set Controller = View.Controller
            ' main object for view is requested project
            Set Project = Controller.DataSource.MainClassObject
        End If
       
        If Project Is Nothing Then
        ' the script is called from the integration
            Dim SmCAD As SmCADInterface
            Set SmCAD = smsession.GetService("SmCAD.SmCADInterface")
            Dim ProjectObjId As Long
            Dim ProjectClassId As Integer
            Dim RetCode As Integer
            RetCode = SmCAD.GetProject(ProjectObjId, ProjectClassId)
            If ProjectObjId = -2147483647 Or ProjectObjId = 0 Then
                MsgBox "Kein Projekt gewählt", vbOKOnly, "ProjectToDocument"
                ProjectToDocument = ercGen
                Exit Function
            Else
            Set Project = smsession.ObjectStore.RetrieveObject(ProjectClassId, ProjectObjId)
          End If
        End If
       
        '' Nun kommt nur noch das Kopieren der Attributevalues die man gerne haben möchte.
       
      ''      thidrec.value("CN_PROJECT_ID") = project.data.value("TDM_ID")... oder so

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

---

Danke für die Antwort, jetzt muß ich die Dokumentation nicht mehr nach einer Lösung durchsuchen.
Ich bin noch Smarteam neuling und mit den Skripten noch nicht ganz vertraut. Ich werde die routine testen und bescheid sagen ob sie Funktioniert hat.

Güsse Alp.

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

---

Hallo liebe Community!

Das hier war nicht die Frage auf mein Problem - und auch die Anwort ist nicht die Lösung meines Problems

ABER

die Lösung meines Problems habe ich gefunden durch die Antwort hier.

Vielen Dank an google für's finden dieses Beitrags und noch viel mehr Dank an die Authoren dieser Posts !!!!!

So, das musste ich jetzt einfach loswerden - nach 3 Tagen suche...

Gruß
John

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

---

Hi John,

schön das dir dieses Posting weitergeholfen hat.
Wenn Du noch mehr Fragen hast, stell sie einfach in diesem Forum. (geht schneller als 3 Tage und mit Hilfe von Google suchen :-))

Bisher konnten (fast) alle Fragen von den Teilnehmern zufriedenstellend beantwortet werden.

Gruß
Christian

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