---

Hallo

Ich versuche aus VB heraus einen Smarteam view zu starten.
Ich habe es folgendermaßen probiert:

Dim CommonGUI As SmGUISrv.SmCommonGUI
Set CommonGUI = CreateObject("SmGUISrv.SmCommonGUI")
Dim view As ISmView
Set view = CommonGUI.Views.NewLifeCycleView
view.SmViewWindow.Show

Leider kommt immer die Fehlermeldung "Objektvariabale nicht definiert"
Wäre schön, wenn mir jemand den Fehler sagen könnte.

Danke
Gruß
Joachim

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

---

Hi,

versuchs mal mit

Set CommonGUI = SmSession.GetService("SmGuiSrv.SmCommonGUI")

--> Die SmGuiSrv ist keine Bibliothek mit Objekten, die Du direkt erzeugen kannst. Deshalb funktioniert auch das CreateObject nicht richtig, bzw spätestens die Zuweisung des View's geht nicht.

Beim  'Dim view As ISmView'  bin ich mir nicht sicher. Ich glaube Du must es mit

Dim view As ISmLifeCycleView

definieren.

Gruß
Christian

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

---

Dank für den Hinweis, jetzt wird das Objket erstellt, nur
blöderweise kommt jetzt eine Fehler Meldung von Smarteam, die
mir eigentlich nichts sagt ( Error No. 00904 (TSmGUIServices))
Habe folgenden Code benutzt.

Dim GUIServices  As SmCommonGUI
Dim View As ISmView
Set GUIServices = SmSession.GetService("SmGuiSrv.SmCommonGUI")
Set View = GUIServices.Views.NewLifeCycleView

Gruß
Joachim

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

---

Hi,

ohne es jetzt getestet zu habe....

aber hast Du den View auch mal als 'Dim view As ISmLifeCycleView' defniert ?

Gruß
Christian

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

---

Habs auch mit ISmLifeCycleView probiert, hat leider auch
nicht geklappt. Laut der Smarteam Dokumentation sollte es
eigentlich funktionieren.

Gruß
Joachim

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

---

Hallo mutzi,

ich habe die Zeilen
    Dim GUIServices  As SmCommonGUI
    Dim View As ISmLifeCycleView
    Set GUIServices = SmSession.GetService("SmGuiSrv.SmCommonGUI")
    Set View = GUIServices.Views.NewLifeCycleView
bei mir getestet - und es tritt kein Fehler auf. Tritt der Fehler bei Dir erst beim .Open auf, oder schon bei der Erzeugung über Set View =?

Was möchtest Du denn realisieren? Was führt Dein code denn zuvor aus?

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

---

Die Fehlermeldung tritt schon bei Set view auf.
Davor wird nicht mehr viel Code ausgeführt, nur das hier:

Dim SmEngine As SmApplic.SmFreeThreadedEngine
Set SmEngine = CreateObject("SmApplic.SmEngine")
SmEngine.Init "Smteam32"
Dim Session As SmSession
Set Session = CreateObject("SmApplic.SmSession")

Ich möchte eigentlich den Ok bzw. den Cancel Button von
dem LifeCycleView ansprechen.

Gruß
Joachim

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

---

Hi,
bei mir klappt es, mit folgendem Code:

Du musst nur noch beachten :

1.) Die Session muß noch mit der Engine mit session.init zusammengesetzt werden
2.) Dem ViewWindow muß noch die Operation mit gegeben werden.

So grundsätzlich, was willst Du denn damit machen ?
..den OK und CANCEL Button ansprechen ... ?

Gruß
Christian

Private Sub Appove_test(testobjects As SmApplic.ISmObjects)

'session ist global definiert
Dim GUIServices  As SmCommonGUI
Dim xView As ISmLifeCycleView
Set GUIServices = session.GetService("SmGuiSrv.SmCommonGUI")
Set xView = GUIServices.Views.NewLifeCycleView

xView.Objects = testobjects

Dim Operation As SmApplic.ISmOperation  'performed operation object
Set Operation = session.MetaInfo.OperationsForClass(testobjects.Item(1).ClassId, False).ItemByName("Approve")
xView.Operation = Operation

xView.ShowModal

End Sub

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