Das Tool Fences gibt es als gratis Version hier zum downloaden. Mit diesem kleinen Helfer lassen sich auf dem Desktop eine Art “Container” mit Beschriftung anlegen. Darin lassen sich nun die Dateien auf dem Desktop gruppieren und innerhalb von diesen Fences auch (um-) sortieren. Damit lässt sich der Desktop wunderbar organisieren, da die Dateien nicht mehr “irgendwo” herumliegen sondern zumindest schon mal vorsortiert sind.

Für die Massenbearbeitung habe ich ein kleines Programm geschrieben, mit dem sich mehrere Objekte auf einmal exportieren bzw. importieren lassen.

Kleine Anmerkung am Rande: Wer sich alle SAP Ikonen exportieren lassen möchte, kann dies mit diesem Report ebenfalls tun. Sämtliche SAP Ikonen befinden sich im Paket SWWW…

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329

*&---------------------------------------------------------------------*
*& Report  Z_SMW0_TRANSFER                                             *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*
 
report  z_smw0_transfer                         .
 
type-pools: vrm
          .
 
data:
    lf_devc type devclass
  , lf_name type w3objid
  , lt_objects  type standard table of wwwdatatab
  , lf_path_old type string
  , lf_path_new type string
  , lt_lb_values type vrm_values
  , lf_value
  , lt_data type standard table of w3mime
  , lf_param(255)
  , lf_filesize type i
  , lf_filename type string
  , lf_res type flag
  , lf_count type i
  , lt_files type table of file
  , lf_objid type w3objid
  , lf_subrc type sysubrc
  , lf_new type flag
  .
 
field-symbols:
    <obj> type wwwdatatab
  , <lb_value> type vrm_value
  , <file>  type file
  .
 
selection-screen begin of block bl1 with frame title text-001.
parameters: p_act as listbox visible length 20 default 'E' user-command dmy.
 
select-options: p_devc for lf_devc
              , p_name for lf_name
              .
parameters: p_path type char255
          , p_overr as checkbox default 'X'
          , p_create as checkbox default ''
          , p_test as checkbox default 'X'
          .
selection-screen end of block bl1.
 
initialization.
  append initial line to lt_lb_values assigning <lb_value>.
  <lb_value>-key = 'E'.
  <lb_value>-text = 'Exportieren'.
 
  append initial line to lt_lb_values assigning <lb_value>.
  <lb_value>-key = 'I'.
  <lb_value>-text = 'Importieren'.
 
  call function 'VRM_SET_VALUES'
    exporting
      id     = 'P_ACT'
      values = lt_lb_values
    exceptions
      others = 1.
 
  if sy-subrc <> 0.
    message id sy-msgid type 'A' number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
 
 
at selection-screen on value-request for p_path.
  clear lf_path_old.
  call method cl_gui_frontend_services=>directory_browse
    exporting
      initial_folder  = lf_path_old
    changing
      selected_folder = lf_path_new
    exceptions
      others          = 1.
  check sy-subrc = 0 and not lf_path_new is initial.
  p_path = lf_path_new.
 
at selection-screen output.
  loop at screen.
    if screen-name = 'P_OVERR'.
      if p_act = 'E'.
        screen-input = '1'.
      else.
        screen-input = '0'.
      endif.
      modify screen.
    elseif screen-name = 'P_CREATE'.
      if p_act = 'I'.
        screen-input = '1'.
      else.
        screen-input = '0'.
      endif.
      modify screen.
    endif.
  endloop.
 
start-of-selection.
 
  if p_path is initial.
    message i008(/pronovia/basic) with 'Bitte wählen Sie einen Pfad'.
    exit.
  endif.
 
  perform check_slash_at_path_end in program /pronovia/saplsdf
 
    changing p_path.
 
  format color col_background intensified off.
 
  if p_act = 'E'.
    select * from wwwdata as f inner join tadir as p
      on f~objid = p~obj_name
      into  corresponding fields of table lt_objects
      where f~srtf2 = 0
      and   f~relid = 'MI'
      and   p~pgmid    = 'R3TR'
      and   p~object   = 'W3MI'
      and   p~devclass in p_devc
      and   p~obj_name in p_name.
 
    loop at lt_objects assigning <obj>.
      write: / <obj>-devclass, <obj>-objid, <obj>-text.
      if p_test is initial.
 
        clear lt_data[].
 
*       Get Filename
        call function 'WWWPARAMS_READ'
          exporting
            relid  = <obj>-relid
            objid  = <obj>-objid
            name   = 'filename'
          importing
            value  = lf_param
          exceptions
            others = 1.
        if sy-subrc = 0.
          call function 'CV120_SPLIT_FILE'
            exporting
              pf_file          = lf_param
            importing
              pfx_dotextension = lf_param.
 
          concatenate <obj>-objid lf_param into lf_filename.
          translate lf_filename using '/¦'.
 
          concatenate p_path lf_filename into lf_filename.
        else.
          format color col_negative intensified on.
          write: / 'Fehler beim Lesen aus der Datenbank'.
          format color col_background intensified off.
          continue.
        endif.
 
*       Prüfen, ob Datei existiert
        if p_overr = space.
          call method cl_gui_frontend_services=>file_exist
            exporting
              file   = lf_filename
            receiving
              result = lf_res
            exceptions
              others = 1.
          .
          if sy-subrc <> 0 or lf_res <> space.
            format color col_total  intensified off.
            write: / 'Die Datei existiert bereits'.
            format color col_background intensified off.
            continue.
          endif.
 
        endif.
 
        call function 'WWWDATA_IMPORT'
          exporting
            key    = <obj>
          tables
            mime   = lt_data
          exceptions
            others = 1.
        if sy-subrc <> 0.
          format color col_negative intensified on.
          write: / 'Fehler beim Lesen aus der Datenbank'.
          format color col_background intensified off.
          continue.
        endif.
 
*       Get Filesize
        call function 'WWWPARAMS_READ'
          exporting
            relid  = <obj>-relid
            objid  = <obj>-objid
            name   = 'filesize'
          importing
            value  = lf_param
          exceptions
            others = 1.
        if sy-subrc = 0.
          lf_filesize = lf_param.
        else.
          format color col_negative intensified on.
          write: / 'Fehler beim Lesen aus der Datenbank'.
          format color col_background intensified off.
          continue.
        endif.
 
        call function 'GUI_DOWNLOAD'
          exporting
            bin_filesize = lf_filesize
            filename     = lf_filename
            filetype     = 'BIN'
          tables
            data_tab     = lt_data
          exceptions
            others       = 1.
        if sy-subrc <> 0.
          format color col_negative intensified on.
          write: / 'Fehler beim Schreiben der Datei'.
          format color col_background intensified off.
          continue.
        else.
          format color col_positive intensified on.
          write: / 'Datei wurde exportiert'.
          format color col_background intensified off.
        endif.
 
 
      endif.
    endloop.
  elseif p_act = 'I'.
    lf_path_new = p_path.
    call method cl_gui_frontend_services=>directory_list_files
      exporting
        directory  = lf_path_new
        files_only = 'X'
      changing
        file_table = lt_files
        count      = lf_count
      exceptions
        others     = 1.
    if sy-subrc <> 0.
      message id sy-msgid type sy-msgty number sy-msgno
                with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      exit.
    endif.
 
    loop at lt_files assigning <file>.
      lf_param = <file>.
 
      call function 'CV120_SPLIT_FILE'
        exporting
          pf_file  = lf_param
        importing
          pfx_file = lf_param.
 
      lf_objid = lf_param.
 
      translate lf_objid using '¦/'.
 
*     Passt name?
      check lf_objid in p_name.
 
*     Gibt es die Datei im Repositoy und passt die DevClass
      select * from wwwdata as f inner join tadir as p
        on f~objid = p~obj_name
        into  corresponding fields of table lt_objects
        up to 1 rows
        where f~srtf2 = 0
        and   f~relid = 'MI'
        and   p~pgmid    = 'R3TR'
        and   p~object   = 'W3MI'
        and   p~devclass in p_devc
        and   p~obj_name = lf_objid.
 
      if sy-subrc <> 0.
        if p_create = space.
          continue.
        else.
          lf_new = 'X'.
          append initial line to lt_objects assigning <obj>.
          <obj>-relid    = 'MI'.
          <obj>-objid    = lf_objid.
        endif.
      else.
        lf_new = space.
      endif.
 
      write: / lf_objid.
 
      check p_test = space.
 
      read table lt_objects assigning <obj> index 1.
 
      concatenate p_path <file> into lf_param.
      call function 'UPLOAD_WEB_OBJECT'
        exporting
          key  = <obj>
          temp = lf_param
        importing
          rc   = lf_subrc.
      if lf_subrc <> 0.
        format color col_negative intensified on.
        write: / 'Fehler beim Schreiben der Datenbank'.
        format color col_background intensified off.
        continue.
      else.
        format color col_positive intensified on.
        if lf_new = 'X'.
          write: / 'Objekt wurde neu angelegt und Datei wurde importiert'.
        else.
          write: / 'Datei wurde importiert'.
        endif.
        format color col_background intensified off.
      endif.
 
    endloop.
 
  endif.
 
end-of-selection.

Dieses Verhalten kann glücklicherweise geändert werden. Es wird im Rahmen der Systemkonfiguration des Transport Management Systems eingestellt:

• Transaktion STMS starten
• Menü Übersicht » Systeme
• Entsprechendes System auswählen und dann im Menü SAP-System » Ändern die Bearbeitung starten
• Wechsel ins Register Transporttool
• Den neuen Parameter VERS_AT_IMP anlegen und mit dem Wert ALWAYS versehen

Fertig!

Neu informiert Hattrick Dashboard automatisch, wenn Du ein Tor geschossen oder erhalten hast und wenn eine Partie zu Ende ist. Dieses Feature ist noch im Beta Stadium, da es praktisch unmöglich ist dies ausgiebig zu testen (Tests sind leider nur möglich während meinen beiden Spielen).

Weiter können nun die Stadiondetails und die gesamte Bilanz des Vereins angezeigt werden. Die bereits mit V1.1 eingeführte Detailsicht der gespielten Spiele kann nun – Dashboard-like – angepasst werden. Blöcke können anders angeordnet und ausgeschaltet werden.

Add-In

Ein einfaches Word Add-In ist nichts weiter als ein Word Vorlage, welche im STARTUP Verzeichnis von Microsoft Word abgelegt wird und somit automatisch gestartet wird. Für die Erzeugung des Add-Ins kann man also einfach ein neues Dokument anlegen und diese mit dem Speichern unter… Dialog als Vorlagendokument abspeichern.

Für das Add-In wird ein Klassenmodul benötigt, das wir clsEventHandler nennen und ein weiteres “normales” Modul, indem wird das eigentliche Vorlagenhandling implementieren. Das Klassenmodul wird benötigt für die Implementierung des Event-Handlers, welcher jedesmal reagiert, wenn ein Dokumente geöffnet wird und die Prüfung der verknüpften Vorlage auslöst.

Klassenmodul clsEventHandler

Im Klassenmodul erzeugen wir lediglich ein Klassenobjekt, dass auf Events von einem Word-Objekt reagieren kann und implementieren hierzu die entsprechende Prozedur für das Abfangen des Öffnen-Ereignis. In der Prozedur rufen wir eine weitere Prozedur FixTemplate auf, welche jedoch in das “normale” Modul ausgelagert wird und welches die eigenltiche Vorlagenlogik übernimmt.

1
2
3
4
5
6
7
8
9

Option Explicit
 
Public WithEvents _
   MyWordEvents _
   As Word.Application
 
Private Sub MyWordEvents_DocumentOpen(ByVal Doc As Document)
    FixTemplate
End Sub

Vorlagenlogik

Der Ablauf der Vorlagenprüfung ist relativ einfach. Zuerst wird vom aktuellen Dokument die verknüpfte Vorlage ermittelt. Dabei darf man jedoch nicht wie zu erwarten wäre, auf das Attribut AttachedTemplate zurückgreifen. Hier steht die Vorlage nämlich nur korrekt drin, wenn sie auch vorhanden ist. Ist die Vorlage jedoch nicht vorhanden, verweist dieses Attribut auf die Vorlage Normal.dot.

Abhilfe schafft hier der Zugriff über den Vorlagen-Verknüpfungs-Dialog, welcher die Originalverknüpfung des Dokuments zurückgibt.

strTemplate = Dialogs(wdDialogToolsTemplates).Template

Im nächsten Schritt muss geprüft werden, ob die Vorlage existiert. Dies geschieht am einfachsten über eine Instanz von FileSystemObject.

If objFS.FileExists(strTemplate) = False Then

Existiert die Datei nicht, dann wird nun versucht die Vorlagenverzeichnisse des Benutzers nach dem Dateinamen der Vorlage zu durchsuchen und eine gleich benannte Vorlage mit dem Dokument zu verknüpfen. Als erstes müssen die entsprechenden Vorlagenverzeichnisse ermittelt werden. Dies geschieht über Word Optionen.

strWGDir = Options.DefaultFilePath(wdWorkgroupTemplatesPath)
strUDir = Options.DefaultFilePath(wdUserTemplatesPath)

Das eigentliche Durchsuchen erfolgt dann in einer separaten Funktion, weil diese rekursiv aufgerufen werden muss, um die ganze Verzeichnisstruktur unterhalb der Vorlagenverzeichnisse prüfen zu können.

Das Gesamte Coding dieser Prozedur sieht wie folgt aus:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

Public Sub FixTemplate()
    Dim objFS As New FileSystemObject
    Dim strTemplate As String
    Dim strFile As String
    Dim strWGDir As String
    Dim strUDir As String
    Dim strFileNew As String
 
    On Error GoTo FixTemplate_error
 
    'Get assigned template from dialog!
    strTemplate = Dialogs(wdDialogToolsTemplates).Template
 
    If strTemplate = "" Then
        GoTo FixTemplate_exit
    End If
 
    If objFS.FileExists(strTemplate) = False Then
        'Get Filename
        strFile = objFS.GetFileName(strTemplate)
 
        'First look in Workgroup templates
        strWGDir = Options.DefaultFilePath(wdWorkgroupTemplatesPath)
        If strWGDir <> "" Then
            strFileNew = CheckTemplate(strWGDir, strFile)
            If strFileNew <> "" Then
                ActiveDocument.AttachedTemplate = strFileNew
                GoTo FixTemplate_exit
            End If
        End If
 
        strUDir = Options.DefaultFilePath(wdUserTemplatesPath)
        If strUDir <> "" Then
            strFileNew = CheckTemplate(strUDir, strFile)
            If strFileNew <> "" Then
                ActiveDocument.AttachedTemplate = strFileNew
                GoTo FixTemplate_exit
            End If
        End If
    End If
 
FixTemplate_exit:
    Set objFS = Nothing
    If ActiveDocument.Saved = False Then
        ActiveDocument.Save
    End If
 
    Exit Sub
 
FixTemplate_error:
    'Beim Zuweisen gibt es unter Umständen ein Fehler, wenn die Vorlage auf ein Objekt
    'verweist, welches irgendwie bereits geöffnet ist.
    Resume FixTemplate_exit
End Sub

Anhand des Coding ist die Ablauflogik gut erkennbar. Wichtig an dieser Stelle ist der Error-Handler. In meinen Tests wurde mehrmals ein Fehler ausgelöst beim Zuweisen der Vorlage mit der Zeile

ActiveDocument.AttachedTemplate = strFileNew

Der Grund für den Fehler ist wohl bei der Vorlage zu suchen, welche wiederum Referenzen aufweist, welche bereits geladen/geöffnet sind. Die exakte Fehlerursache ist mir jedoch nicht klar, einen Einfluss auf die Zuweisung der Vorlage hat der Fehler jedoch nicht.

Rekursive Suche

Auch das “Scannen” der Verzeichnisse geht über eine Instanz vom FileSystemObject. Für das Auffinden der Vorlage werden zuerst alle Dateien im Verzeichnis gelesen und deren Dateiname verglichen. Anschliessend erfolgt die Abarbeitung sämtlicher Unterverzeichnisse, indem die Funktion rekursiv aufgerufen wird.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Public Function CheckTemplate(dir As String, filename As String)
    Dim objFS As New FileSystemObject
    Dim objFolder As folder
    Dim objSubFolder As folder
    Dim objFile As file
 
    Set objFolder = objFS.GetFolder(dir)
    For Each objFile In objFolder.Files
        If objFile.Name = filename Then
            PNCheckTemplate = dir & "\" & filename
            Exit Function
        End If
    Next
 
    For Each objSubFolder In objFolder.SubFolders
        CheckTemplate = CheckTemplate(objSubFolder.Path, filename)
        If CheckTemplate <> "" Then
            Exit Function
        End If
    Next
End Function

Add-In initialisieren

Damit das Add-In auch seinen Dienst verrichtet, muss es noch sauber initialisiert werden. Hierzu steht die Prozedur AutoExec zu Verfügung, welche gestartet wird, sobald das Add-In geladen wird. Die Prozedur wird von Hand im Dokument (Objekt ThisDocument) angelegt und erzeugt eine Instanz von der Ereignisklasse, welche dadurch erst geladen wird und ab dann auf das benötigte Ereignis reagieren kann.

1
2
3
4
5
6
7
8
9
10

Dim objEventHandler As clsEventHandler
 
Sub AutoExec()
   Set objEventHandler = New clsEventHandler
   Set objEventHandler.MyWordEvents = Word.Application
End Sub
 
Sub AutoExit()
   Set objEventHandler = Nothing
End Sub

Fazit

Mit diesem einfachen Add-In hat man verteilte Vorlagen im Griff und Dokumente funktionieren auf allen Clients wie erwartet. Voraussetzung ist natürlich, dass alle Benutzer dieselben Vorlagen verwenden und die Dateinamen der Vorlagen nicht verändern. Am besten hat man dies im Griff, wenn man die Vorlagen nicht von Hand sondern über eine Setup Routine verteilt. Hierzu habe ich schon vor längerer Zeit den Artikel Word Vorlagen und Startup Pfad in Inno Setup erfasst.

Download

faebusoft_TemplateFix_v1.0.zip
von faebusoft.ch

Vorbereitungen

Voraussetzung für die Nutzung von RFC Bausteinen als Webservice ist die Aktivierung von zwei Service Knoten. Es handelt sich hierbei um die Knoten /sap/bc/soap/rfc und /sap/bc/soap/wdsl, die mit der Transaktion SICF aktiviert werden müssen. Damit sind die Voraussetzungen soweit schon mal gegeben. Da SOAP Klassen mittlerweile mit PHP ausgeliefert werden, sind keine weiteren Vorkehrungen notwendig. Es kann grundsätzlich direkt mit der Klasse SoapClient begonnen werden.

Authentifizierungsproblem

Damit SAP den Inhalt der entsprechenden WSDL-Datei preisgibt, muss man sich bei der Anfrage authentifizieren. Man würde erwarten, dass die SOAP Klassen von PHP dies erledigen, denn schliesslich sind entsprechende Argumente für Benutzername und Passwort vorhanden. Bereits beim Versuch mit folgenden Zeilen Code die WSDL Datei abzuholen, kommt es aber zu einem Fehler.

1
2
3

$soap = new SoapClient('http://host:8000/sap/bc/soap/wsdl/?services=NAME_DES_RFC_BAUSTEINS&sap-client=100', 
			array('login'=>$user, 'password'=>$pass)
		);

Nach einigen Recherchen habe ich herausgefunden, dass die Klasse SoapClient keine Authentifizierung beim Lesen der WSDL Datei unterstützt. Erst beim eigentlichen Aufruf des Webservices werden der Benutzername und das Passwort verwendet. Dies ist meines Wissen auch als Bug getrackt, wird also wohl früher oder später mal behoben werden.

Umweg über cURL

Damit wir nun aber dennoch an die benötigte WSDL Datei kommen, müssen wir einen Umweg über die cURL Funktionen machen, mit denen sich Verbindungen über das HTTP (und weitere) Protokoll bewerkstelligen lassen. Da wir es hier mit Klassen zu tun haben, können wir dies schön kapseln, indem wir die bestehende SOAP Klasse ableiten und den Konstruktor überschreiben. An dieser Stelle wird nun die WSDL Datei “manuell” beschafft und auf dem eigenen Server abgelegt, damit die Datei über eine URL ohne Authentifizierung möglich ist.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

class SoapAuthClient extends SoapClient {	 
	private $cache_dir = '/htdocs/test/'; // Absolute path to dir
	private $cache_url = 'http://www.faebusoft.ch/test/'; // Public URL of the path
 
	function SoapAuthClient($wdsl, $options) {
		if (isset($options['login']) && 
			isset($options['password'])) {
 
			$file = md5(uniqid()).'.xml';
 
			if (($fp = fopen($this->cache_dir.$file, "w")) == false) {
				throw new Exception('Could not create local WDSL file ('.$this->cache_dir.$file.')');
			}
 
			$ch = curl_init();
			$credit = ($options['login'].':'.$options['password']);
			curl_setopt($ch, CURLOPT_URL, $wdsl);
			curl_setopt($ch, CURLOPT_HTTPAUTH, CURLAUTH_BASIC);
			curl_setopt($ch, CURLOPT_USERPWD, $credit);
			curl_setopt($ch, CURLOPT_TIMEOUT, 15);
			curl_setopt($ch, CURLOPT_FILE, $fp);
			if (($xml = curl_exec($ch)) === false) {
				//curl_close($ch);
				fclose($fp);
				unlink($this->cache_dir.$file);
 
				throw new Exception(curl_error($ch));
			}
 
			curl_close($ch);
			fclose($fp);
			$wdsl = $this->cache_url.$file;
		}
 
		parent::__construct($wdsl, $options);
 
		unlink($this->cache_dir.$file);
	}
}

Nochmals eine Ableitung

Bereits beim Aufruf eines Webservice mittels PEAR Paketen, musste mit einem “Murks” die URL des Webservices manipuliert werden, da SAP den (notwendigen) Mandanten nicht automatisch an der Webservice-URL anfügt. Daran ändert logischerweise auch die Verwendung einer anderen SOAP Bibliothek nichts. Da wir aber im OO-Umfeld sind, lässt sich dies hier ebenfalls elegant.. Hierzu leiten wir von unserer (bereits abgeleiteten) Klasse SoapAuthClient ab und überschreiben nun die Methode __do_request(). An dieser Stelle lässt sich der Mandant ohne Probleme anfügen. Im gleichen Schritt führen wir zudem einen Konstruktor ein, der anstelle der URL der WSDL Datei die Serverparameter, die Benutzerdaten und der Name des RFC Bausteins erwartet. Die URL wird dann direkt im Konstruktor zusammengesetzt. Ausserdem lässt sich hier beim eigentlichen Aufruf gleich die UTF-8 Konvertierung realisieren, sodass am Ende eine simple Klasse zu Verfügung steht, welche ohne viel Aufwand verwendet werden kann.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

class SAPSoapClient extends SoapAuthClient {
	private $wdsl;
	private $user;
	private $pass; 
	private $client;
	private $func;
 
	function SAPSoapClient($host, $port, $usessl, $user, $pass, $client, $func) {
 
		$this->wdsl = ($usessl ? 'https' : 'http').'://'.$host.(!empty($port) ? ':'.$port : '').'/sap/bc/soap/wsdl/?services='.$func.'&sap-client='.$client;
		$this->user = $user;
		$this->pass = $pass;
		$this->client = $client;
		$this->func = $func;
 
		parent::__construct($this->wdsl,
			array('login'=>$this->user, 'password'=>$this->pass)
		);
	}
 
	/**
	 * Override because we need the Client in the URL!
	 */
	function __doRequest($request, $location, $action, $version, $one_way = 0) {
		$location .= '?sap-client='.$this->client;	
		return parent::__doRequest($request, $location, $action, $version, $one_way = 0);
	}
 
	/**
	 * Call method
	 */
	function call($args = array()) {
		foreach($args as $k => $v) {
			$args[utf8_encode($k)] = utf8_encode($v);
		}
 
		return $this->{$this->func}($args);
	}
}

Ab die Post

Der Aufruf ist nun denkbar einfach und auch selbsterklärend. Nach der Erzeugung des entsprechenden Objekts kann nun die Anfrage direkt losgeschickt werden. Man muss sich weder um Zeichenkodierung noch um Authentifizierung oder kryptische URLs kümmen. Ausserdem ist auch die Fehlerbehandlung dank Exceptions völlig problemlos. Im Gegensatz zur Lösung mit dem PEAR Paket kommt das Ergebnis nicht als Array, sondern als Objekt zurück, sodass sich auch hier die Resultate einfach adressieren lassen.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

try {
	$soap = new SAPSoapClient(
		'host',	                // Host
		'8000',                 // Port
		false,                  // SSL?
		'Benutzer',             // User
		'Passwort',             // Password
		'299',                  // Client
		'Z_WEBSERVICE_GET_ORIGINAL' // SAP Funktionsbaustein
	);
 
	// Setup Parameters
	$params = array(
		'I_DOKAR'=>'ZZZ',
		'I_DOKNR'=>'10000001398',
		'I_DOKTL'=>'000',
		'I_DOKVR'=>'001',
		'I_APPNR'=>'1'
	);
 
	$res = $soap->call($params);
 
	if ($res->E_RC != 0) {
		die($res->E_MESSAGE);
	}
 
	header('Content-type: application/pdf');
	header('Content-Disposition: inline; filename="test.pdf"');
	echo $res->E_DATA;
} catch (SoapFault $e) {
	if (isset($e->detail->Error)) {
		echo $e->detail->Error->type.' '.$e->detail->Error->message;
	} else {
		echo $e->getMessage();
	}
} catch (Exception $e) {
	echo $e->getMessage();
}

Fazit

Mit den integrierten SOAP Klassen geht es nochmals einfacher. Zwar ist auch hier ein kleiner Umweg notwendig, dieser ist jedoch viel sauberer als bei der PEAR Variante, da hier ganz gezielt Methoden überschrieben werden können. Ausserdem lässt sich die so erstellte Klasse immer wieder verwenden. Meines Wissen unterstützten die SOAP Klassen ein Caching der WSDL Dateien. Dieses geht durch unseren Umweg natürlich vollständig verloren. Man könnte sich also überlegen, die Kopie der WSDL Datei ebenfalls zu cachen und nicht jedes Mal mittels cURL nachzulesen.

Kommentare für WP Calendar

Werden auf einer Seite die Details zu einem Event angezeigt – normalerweise also auf der Seite für die Einzelanzeige – werden neu sämtliche Kommentare mit dem Event verknüpft. In der Einzelanzeige des Events erscheinen deshalb nur noch die Kommentare, die auch zu diesem Event abgegeben wurden. Ausserdem wurde in diesem Zusammenhang ein Fehler behoben, der dazu führte, dass nach der Abgabe eines Kommentars die Event-Id verloren ging und in der Einzelanzeige keine Daten mehr angezeigt wurden.

Auch im Admin-Interface wird nun in der Kommentarübersicht nicht mehr der Titel der Seite (oftmals Event not found) sondern der effektive Titel des Events angezeigt. Die Anzahl Kommentare sind zudem in der Event-Übersicht ersichtlich.

Voraussetzungen

Wird in deinem Template das Eingabeformular für Kommenare mit der Funktion comment_form() erzeugt, sind keine weitere Vorkehrungen notwendig. Wird das Kommentarformular jedoch in deinem Template (normalerweise in der Datei comments.php) direkt erzeugt, muss dieses Template erweitert werden. Hierzu muss zwischen des öffnenden und schliessenden Form-Tags folgende PHP Funktion eingefügt werden:

<?php the_comment_event_meta(); ?>

Neuer Parameter linktopost

Für die Tags { event_url} und { events_calendar} steht ein neuer Parameter linktopost zu Verfügung. Wir dieser auf 1 (true) geschaltet, wird nicht die Seite für die Einzalanzeige sondern der Permalink des Artikels verwendet, sofern der Event mit einem Artikel verknüpft ist.

Anpassung des Editors für WP 3.1

Mit der neuen WP Version 3.1 hat sich einmal mehr der Editor ein wenig verändert – man sieht dies an den neuen Dialogen (z.B. beim Einfügen eines neuen Links). Diese neuen Dialogen funktionierten mit der aktuellen WP Calendar Version nicht. Ausserdem gab es einen Konflikt zwischen den Stylesheets, sodass die Dialoge fehlerhaft dargestellt wurden.

Für die Erzeugung eines Kalendareintrag aus einem Artikel heraus wurde der Admin-Oberfläche der Artikelbearbeitung ein neues Widget spendiert, in dem die Erzeugung eines Kalendereintrages aktiviert werden kann. Zudem werden in diesem Widget auch die benötigten Daten, wie Start und Ende oder der Ort erfasst. Der Titel, der Inhalt und die Kategorien werden vollständig aus dem Artikel übernommen.

Zudem wird definiert, ob der Event mit dem Artikel synchronisert werden soll. Ist dies der Fall, werden die Daten des Artikels bei jeder Aktualisierung jeweils in den Event übertragen, während beim Bearbeiten des Kalendereintrags die Felder für Titel, Inhalt und Kategorien gesperrt werden. Die Synchronisation kann jederzeit aktiviert bzw. deaktiviert werden. Bei einer Reaktivierung werden jedoch die Daten des Kalendereintrags (logischwerweise) durch die Daten vom Artikel überschrieben. Auf diese Weise ist es also auch möglich einen Kalendereintrag initial zu erzeugen, nachher aber individuell und unabhängig vom Aritkel zu pflegen.

In beiden Editiermasken (Artikel und Kalendereintrag) wird eine allfällige Synchronisation unmissverständlich angezeigt. In der Kalenderübersicht wird die Synchronisation ebenfalls mit einem Schlösschen signalisiert.

An dieser Stelle sei noch explizit darauf hingewiesen, dass der Status nicht synchronisiert wird. Eine Veröffentlichung des Artikels führt also nicht automatisch zu einer Veröffentlichung des Kalendereintrags.

Die SAP Gui Sicherheitseinstellung stehen noch in den Kinderschuhen, mit jedem Patch Level (mittlerweile PL4) wurden neue Funktionalitäten hinzugefügt. Es kann also durchaus sein, dass mit PL5 bereits wieder neue Funktionen und Hilfsmittel zu Verfügung stehen, welche zum jetzigen Zeitpunkt noch nicht bekannt sind.

Sicherheitseinstellungen

Für die Pflege der Sicherheitseinstellungen müssen die SAP Gui Optionen geöffnet werden. Diese findet man entweder in der Systemsteuerung oder können über das SAP Logon mit dem Menü oben links erreicht werden.

Status der Sicherheitseinstellungen

In den globalen Einstellungen kann der Status der Sicherheitseinstellungen gepflegt werden. SAP kennt hier drei verschiedene Modi: Deaktiviert, Regelbasiert (Standard) und Strikt ablehnen. Hier könnten also die Sicherheitsprüfungen lokale deaktiviert werden, womit man sämtliche Popups los wäre, gleichzeitig aber Sicherheitslöcher aufreissen würde. Von dieser Einstellung ist strikt abzuraten!

Mit dem Betriebsmodus Strikt ablehnen werden sämtliche lokale Aktionen verweigert, ausser was in den Regeln von SAP explizit gewährt wird. Einen Anwendungszweck für diese Einstellungen sehe ich persönlich nicht.

Die regelbasierten Sicherheitseinstellungen sind standardmässig aktiviert. Von diesem Modus würde ich nicht abweichen, denn SAP liefert im Standard dutzende Regeln aus, die sicherheitskritische Aktionen bereits deaktivieren (z.B. das Überschreiben von Sicherheitseinstellung durch ein Programm). Diese Regeln stehen alle ganz oben in der Regelliste, haben somit höchste Priorität und können auch durch einen lokale oder einen Administrator-Regel nicht umgangen werden, was auch gut so ist.

Die Standardaktion

Mit der Standardaktion wird bestimmt, was zu tun ist, wenn keine Regel gefunden wird. Auch hier gibt es drei mögliche Varianten: Zulassen, Fragen (Standard) und Ablehnen. Damit gibt es nun eine weitere Option zum Deaktivieren der Popups, indem man hier die Standardaktion auf Zulassen stellt. Damit öffnet man zwar ebenfalls mögliche Sicherheitslöcher, es werden aber in jedem Fall die von SAP vorgegebenen Regeln vollständig interpretiert und somit kritische Aktionen verweigert.

Der Standardwert bleibt hier wohl die beste Einstellung. Hat man jedoch die Regeln vollständig ausgeprägt und man erachtet dieses Regelset als abschliessend, könnte man hier als Standardaktion gar Ablehnen in Betracht ziehen, mit dem Risiko, dass gewisse Funktionen im SAP nicht mehr korrekt funktionieren könnten und die Fehlersuche zusätzlich erschwert wird.

Regeln

Hinter den Regeln steckt ein mächtiges Definitionswerkzeug. Alle Regeln werden in der Reihenfolge abgearbeitet, in der sie in der Liste stehen. Dies ist wichtig, wenn man Ausnahmen für umfassende Regeln erstellen möchte. Die Ausnahme muss in der Liste weiter oben platziert werden, damit diese Ausnahme von der umfassenden Regel berücksichtigt wird.

Ausserdem haben sämtliche Regeln eine Herkunft: SAP, Administrator oder Benutzer. Sowohl die Regeln von SAP als auch die vom Administrator können lokal nicht verändert werden. Diese Sperre beinhaltet auch die Priorität, es ist also nicht möglich eine selber definierte Regel vor eine SAP- oder Administrator-Regel zu schieben. Jeden auf dem Client definierte Regel ist immer eine Benutzer-Regel.

Regeln können für unterschiedlichste Objekte definiert werden. Mit PL4 kennt das SAP Gui rund neun Regelobjekte, darunter Objekte wie Datei, Verzeichnis, Registry, usw. Jede Regel erwartet ein Objekt, wobei hier ein Asteriks (*) verwendet werden kann, womit die Objekte über Muster ermittelt werden können. Man kann also z.B. eine Regel für sämtliche Textdateien erstellen, indem man als Objekt *.txt verwendet. Man könnte sogar nur eine Asteriks eingeben, damit die Regel für sämtliche Objekte aktiv wird.

Pro Regel wird dann über die Aktion definiert, ob man einen bestimmten Zugriff entweder zulassen oder ablehnen möchte. Weiter steht die Option Kontextabhängig zu Verfügung, mit der man die Regel noch spezifischer ausprägen kann. Für die Aktionen Zulassen und Ablehnen muss ausserdem die zu erlaubende bzw. abzulehnende Zugriffsart definiert werden. Die Zugriffsart ist abhängig vom jeweiligen Regelobjekt, ist aber selbsterkärend.

Kontextabhängige Regeln

Hat man für eine Regel die Aktion Kontextabhängig gewählt, kann man im unteren Bereich nun Regeln pro System, Netzwerk, Mandant, Transaktion, Dynproprogramm und -nummer festlegen. Auch hier kann wieder ein Asteriks als Platzhalter verwendet werden, was beim Erstellen einer neuen Kontextregel auch standardmässig für alle Felder – mit Ausnahme des Netzwerks – vorgeschlagen wird. Für das Netzwerk gelten spezielle Regelkonventionen, welche hier nicht weiter beschrieben werden. Mehr Informationen hierzu gibt es am Ende des Artikels.

Für jede Kontextregel wird ebenfalls die Aktion und die Zugriffart festgelegt. Ausserdem muss jede Kontextregel aktiviert werden. Der Status ist hier standardmässig auf deaktiviert eingestellt! Die verschiedenen Kontextregeln werden ebenfalls gemäss der Reihenfolge in der Liste abgearbeitet, allfällige Reihenfolgen sind also ebenfall zu berücksichtigen.

Fehler im Feld Transaktion

Wie sich aus meinen Test herausgestellt hat, kann das Feld Transaktion mit PL4 nicht korrekt verwendet werden. Beim Start einer Transaktion wird nämlich noch der alte Transaktionscode verwendet. Startet man also z.B. eine Transaktion direkt aus dem Einstiegsbild werden die Regeln mit dem Transaktionscode SESSION_MANAGER geprüft, anstelle des eigentlichen Transaktionscodes. Ich habe für diesen Fehler bei SAP ein Ticket eröffnet.

Administration

Um dem Benutzer die Entscheidungen bzgl. Regeln abzunehmen, sollte man alle Regeln global definieren und die globalen Einstellungen zudem für den Benutzer sperren. Basis für diese Sicherheitseinstellungen ist die Registry. Hier werden die notwendigen Daten im Schlüssel

HKLM\Software\SAP\SAPGUI Front\SAP Frontend Server\Security

bzw. für 64-bit Rechner im Schlüssel

HKLM\SOFTWARE\Wow6432Node\SAP\SAPGUI Front\SAP Frontend Server\Security

abgelegt.

Einstellungen sperren

Damit der Benutzer die Sicherheitseinstellungen nicht deaktivieren und die Standardaktion nicht ändern kann, sollten diese Werte über die Registry vorbelegt werden. Hierzu legt man für ersteres einen DWORT-Wert mit dem Namen SecurityLevel an. Als Wert erfasst man 0 für die Deaktiviert, 1 für Regelbasiert und 2 für Strikt ablehnen. Für die Standardaktion wird ebenfalls ein DWORT-Wert mit dem Namen DefaultAction erfasst. Die gültigen Werte sind 0 für Erlauben, 1 für Fragen und 2 für Ablehnen.

Globale Regeln

Bei den globalen Regeln handelt es sich um Administrator-Regeln. Um Administrator-Regel zu erzeugen, definiert man die Regeln wie gewohnt in den Optionen (als Benutzer-Regeln). Diese Benutzer-Regeln werden alle in einer Datei mit dem Namen saprules.xml gespeichert. Die Datei wird im Application-Data Verzeichnis des Benutzers abgelegt, unter Windows 7 also z.B. unter

C:\Users\%USER%\AppData\Roaming\SAP\Common

Diese erzeugte Regeldatei kann nun zentral auf einem Server abgelegt und mit allen SAP Gui Installation verknüpft werden. Damit werden sämtliche Regeln aus dieser Datei als nicht editierbare Administrator-Regeln übernommen.

Damit der SAP Gui diese Regeldatei interpretiert, muss ebenfalls ein Registry Eintrag erzeugt werden. Hierzu erstellt man einen Eintrag vom Typ Wert der erweiterbaren Zeichenfolge (REG_EXPAND_SZ) und trägt dort als Wert den Pfad zu dieser zentralen XML Datei ein.

Wurden diese Einträge korrekt gepflegt, können diese Parameter nicht durch den Benutzer geändert werden und die definierten Regeln erscheinen als Administrator-Regeln.

Fazit

Wer den neuen SAP Gui verwendet, sollte sich unbedingt Zeit für die Sicherheitseinstellungen nehmen und diese vor dem Rollout intensiv testen. Transaktionen mit Zugriff auf lokale Resourcenn lassen sich normalerweise schnell und eindeutig ermitteln und folglich auch Problemlos im Regelwerk konfigurieren.

Weiterführende Info

Im offiziellen Security Guide für SAP GUI for Windows (englisch) findet man noch detailliertere Informationen zum Sicherheitskonzept des SAP Gui 7.20.