SAP-Tabelle lesen
MikeS
zuerst einmal frohe Ostern :-)
Ich habe ein Problem beim automatischen Auslesen einer SAP-Tabelle, der anscheinend an den Berechtigungen im SAP liegt.
*********************************************************************************
FEHLER:
Fehler Gruppe
RFC_ERROR_SYSTEM_FAILURE
Nachricht
Keine RFC-Berechtigung für Funktionsbaustein RFC_GET_UNICODE_STRUCTURE.
*********************************************************************************
Wer kann mir sagen, welche Berechtigungen mir fehlen?
[CODE]
Option Explicit
Dim SAP_Connection As Object
Dim funcControl As Object
Private Sub Lese_SAP_Tabelle()
Dim s As String _
span>
' DebNr festlegen
s = "43"
' DebNr mit Nullen auffüllen, bis Länge = 12 Zeichen
Do Until Len(s) >= 12
s = "0" & s
Loop
' Verbindung zu SAP prüfen
If SAP_Verbindung = True And Not SAP_Connection Is Nothing Then
'Daten suchen
Call searchData(s)
'Verbindungen abbauen
SAP_Connection.Logoff
Else
SAP_Connection.LastError
End If
End Sub
Function SAP_Verbindung() As Boolean
SAP_Verbindung = False
Set funcControl = CreateObject("SAP.Functions")
Set SAP_Connection = funcControl.Connection
With SAP_Connection
.ApplicationServer = "***"
'.HostName = "***"
.SystemNumber = "17" ' 17=Testsytem ; 21=Produktivsystem _
span>
.System = "SBX" ' SBX=Testsytem ; P02=Produktivsytem _
span>
.client = "626"
.User = "***"
.Password = "***"
.Language = "DE"
End With
If SAP_Connection.logon(0, True) <& _
gt; False Then
SAP_Verbindung = False
Else
SAP_Verbindung = True
End If
End Function
Vielen Dank, MikeS