SAP RFC in VB.NET

[Dirk M.]

Hallo zusammen,

ich habe ein Problem mit meinem Programm zum Aufrufen eines FuBa im SAP. Logon und Systeminformationen auslesen klappt alles wunderbar. Sobald jetzt die "Private Sub cmdFunction_Click(...) Handles cmdFunction.Click" durch drücken des Buttons aufgerufen wird, bekomme ich die Fehlermeldung "SAP Remote Function Call". ErrorCode 1001. Ich weiß nicht was ich falsch mache. Beim Googlen habe ich auch nicht wirklich nützliches gefunden. Hoffe das mir hier jemand helfen kann......

Option Explicit On

Public Class Form1

    Public FunctionCtrl As Object       'Function Control (Sammelobjekt)
    Public sapConnection As Object      'Globales Verbindungsobjekt
    Public dieFunc As Object            'Function Object
    Public boolLogon As Boolean         'Logon-Hilfsvariable

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Erstellen des Sammelobjektes
        FunctionCtrl = CreateObject("SAP.Functions")
        boolLogon = False

    End Sub

    Private Sub cmdLogon_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdLogon.Click

        'Verbindungsobjekt setzen (Property von FunctionCtrl)
        sapConnection = FunctionCtrl.Connection

        '*** TESTSYSTEM ********
        sapConnection.System = "XXXXX"
        sapConnection.ApplicationServer = "XXXXX"
        sapConnection.SystemNumber = XXXXX
        sapConnection.client = XXXXX
        sapConnection.User = "XXXXX"
        sapConnection.Password = "XXXXX"
        sapConnection.language = "D"

        If boolLogon = False Then

            If sapConnection.Logon(0, False) <> True Then  'Logon mit Dialog

                sapConnection = Nothing
                boolLogon = False
                MsgBox("Keine Verbindung zum R/3 !")
                Exit Sub

            Else

                boolLogon = True
                MsgBox("Verbindung zum R/3 hergestellt!")

            End If

        Else

            sapConnection.Logoff()   'Verbindung zum R/3 beenden
            MsgBox("Verbindung zum R/3 beenden !")
            boolLogon = False

        End If

    End Sub

    Private Sub cmdSysInfo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSysInfo.Click

        sapConnection.SystemInformation()

    End Sub

    Private Sub cmdExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdExit.Click

        If boolLogon = True Then

            sapConnection.Logoff()

        End If

        FunctionCtrl = Nothing
        sapConnection = Nothing
        MsgBox("Programm beendet ! ", 16, "Beenden")
        Me.Close()

    End Sub

    Private Sub cmdFunction_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdFunction.Click

        Try

            'Referenz auf FB ZQEE_INSP_INSTRUCT_PRINT
            dieFunc = FunctionCtrl.Add("ZQEE_INSP_INSTRUCT_PRINT")

        Catch ex As Exception

            Dim Fehlerstring As String
            Fehlerstring = ex.Message.ToString()
            MsgBox(Fehlerstring)

            Exit Sub
        End Try

        'Setzen der Importparameter
        dieFunc.Exports("I_PRUEFLOS") = "000003787510"
        dieFunc.Exports("I_DESTINATION") = "S223 -T"

        'Funktionsaufruf
        If dieFunc.Call = True Then

            MsgBox("Aufruf von 'ZQEE_INSP_INSTRUCT_PRINT' erfolgreich :-)")

        Else

            MsgBox("Fehler beim Zugriff auf Funktion im R/3!")

            Exit Sub

        End If

    End Sub
End Class