Integration/RichClient.md

 ### BeforeOpen
 
-Um den Standard Neu Dialog im RichClient zu unterbinden, muss pro Objekt Typ folgender BeforeOpen Event hinterlegt werden:
+Um die Bearbeitung des Dokuments über MS Office zu unterbinden, kann folgender Event hinterlegt werden:
 
 ```VB
 WriteProfString "GLOBALS", "SKIPCONTENT", "TRUE", osfile 
 asfile.ResultCode = 1 
 asfile.WriteToFile 
 ```
+
+Falls man ausschliesslich den Neu Dialog (und damit die eingebaute Vorlagenverwaltung) deaktivieren will, kann man dies auch wie folgt einschränken:
+
+```VB
+If activepage.FileCount = 0 Then
+	WriteProfString "GLOBALS", "SKIPCONTENT", "TRUE", osfile 
+End If
+
+asfile.ResultCode = 1 
+asfile.WriteToFile 
+```
+
+In diesem Fall wird das Dokument bei einem Doppelklick wie bisher in MS Office geöffnet.
+
+Falls man beim Doppelklick das Dokument ein einem neuen Browser Tab (Default Browser des Betriebssystems) öffnen will, dann kann der Code zum Beispiel so aussehen:
+
+```VB
+Sub Main
+	If activepage.FileCount = 0 Then
+		WriteProfString "GLOBALS", "SKIPCONTENT", "TRUE", osfile 
+		asfile.ResultCode = 1 
+		asfile.WriteToFile 
+	Else
+		Dim GatewayUrl: GatewayUrl = getRegValue("Services\Gateway\API")
+		
+		Dim Shell: Set Shell = CreateObject("WScript.Shell")
+		Shell.run GatewayUrl & "/office/desktop/edit/edit/" & Activepage.ObjectType & "/" & Activepage.ID & "?sessionguid=" & Drtsession.SessionGuid
+		asfile.ResultCode = 0 
+		asfile.WriteToFile 
+	End If
+End Sub
+
+Main()
+
+Function GetRegValue(byVal Name)
+	Dim Job: Set Job = DrtSession.CreateJob("krn", "REGetRegValue")
+	Job.AddInParam "Name", Name, 1
+	Job.AddInParam "Flags", "0", 2
+	Job.Execute
+	GetRegValue = job.GetOutParamString("Value")
+End Function
+```
+
+In der der Zeile `Dim GatewayUrl: GatewayUrl = getRegValue("Services\Gateway\API")` wird dynamisch die Gateway URL ermittelt. Diese wird im Enterprise Manager unter `Servereinstellungen` > `Services` > `Gateway` hinterlegt.
+
+![Servereinstellungen-Gateway](uploads/c81f31cd0645df4c5b70030d8efea0f4/Servereinstellungen-Gateway.png)
+
+
  ## Dashlet Konfiguration
 
 ![Embedded Office for enaio®](/images/DashletConfiguration.png "Dashlet Konfiguration")