|
|
### 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")
|
... | ... | |