Benutzerliste nach Anmeldedatum

Ab und zu möchte man wissen, welche Benutzer auf einem Business Warehouse System angelegt sind und ob diese noch Zugriff haben bzw. sich durch Falscheingaben gesperrt haben. Dafür gibt es die Transaktion rsusr200, dort sieht man den letzten Login, Gültigkeit des Benutzers usw.

1. Transaktion rsusr200 aufrufen
2. Ausführen
3. Liste von allen Benutzern nach Anmeldedatum erscheint

Dieser Blog ist nun unter www.reyemsaibot.com erreichbar.

Berechtigungsprüfung

Möchte man die Rechte eines Benutzers prüfen, gibt es dafür die Transaktion su53. 

1. Transaktion su53 aufrufen
2. Benutzer auswählen
3. Ausführen

Alle inaktiven Transformationen aktivieren

Möchte man in einem SAP BW System mehr als eine Transformation aktivieren, gibt es dafür ein ABAP Programm namens "RSDG_TRFN_ACTIVATE".

1. Transaktion se38 aufrufen
2. Programm "RSDG_TRFN_ACTIVATE" ausführen 

Aufbau der Fakten- und Dimensionstabellen anzeigen

Möchte man den Aufbau eines InfoCubes sich näher anschauen, so gibt es verschiedene Wege im SAP BW. Ein möglicher Weg sich den Aufbau der Fakten und Dimensionstabellen anzeigen zu lassen, ist die Transaktion listschema.

1. Transaktion listschema aufrufen
2. Typ des InfoCubes auswählen
3. InfoCube auswählen
4. Ausführen 

VBA SAP Verbindung herstellen

Wenn man automatisierte Berichte mit Daten aus einem SAP ERP oder Business Warehouse System erstellen möchte, muss man zunächst eine Verbindung zu einem SAP System herstellen. Es ist eine einfache VBA-Lösung auf der später weiter aufgebaut werden kann. Wie dies gelingt ist im folgenden Quellcode beschrieben. Die Verbindung kann später genutzt werden um auf Tabellen im ERP oder Business Warehouse System zuzugreifen oder verschiedene andere Aktion auszulösen.

Function Connect_to_SAP()

Dim myConnection As Object

Set myConnection = CreateObject("SAP.Functions")

With myConnection

 .Connection.System = "ABC" 'Systemname

 .Connection.client = "100" 'Mandant

 .Connection.user = "xyz"'Benutzer

 .Connection.password = "123" 'Passwort

 .Connection.Language = "DE" 'Sprace

 .Connection.systemnumber = "00" 'Systemnumber

 .Connection.hostname = "" 'Hostname

End With

'Anmeldung am Server, wenn False erscheint die Loginmaske, wenn True erfolgt die Anmeldung unterdrckt.

If myConnection.Connection.logon(0, False) <> True Then Exit Function  

  

'System Logoff

myConnection.Connection.LOGOFF

 

End Function

Aufgrund des Parameter False in der Verbindung erscheint folgendes Logon-Fenster. Soll dies nicht angezeigt werden, muss der Parameter auf True geändert werden.