0

エラーコード 1001、SAP Remote エラーになりますか?

私はたくさんグーグルで検索しましたが、何も見つかりませんでした。多分誰かがここの問題を知っています。SAP 720 を使用しています。

System.Runtime.InteropServices.COMException (0x000003E9): Microsoft.VisualBasic.CompilerServices.LateBinding.LateGet (Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack) による SAP リモート関数呼び出しMicrosoft.VisualBasic.CompilerServices.NewLateBinding.LateGet(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack) ...

これが私のコードです：

    Public FunctionCtrl As Object
    Function login_Call()
    Try

        Dim conn As Object
        FunctionCtrl = CreateObject("SAP.Functions")
        conn = FunctionCtrl.Connection


        conn.System = XXX
        conn.ApplicationServer = XXX
        conn.SystemNumber = XXX
        conn.Client = "XXX"
        conn.user = XXX
        conn.Password = XXX
        conn.Language = XXX
        'needed for frontend dialog
        conn.RfcWithDialog = True

        'log on with logon dialog
        If Not conn.Logon(0, 1) Then
            Dim WsShell
            Dim intText As Integer
            WsShell = CreateObject("WScript.Shell")
            intText = WsShell.Popup("Logon not succesful." & vbCrLf & _
                               "will be closed automatically in one minute...", 60)
            'conn = Nothing
            Anmeldung_Call = False
            Exit Function
        End If
        Anmeldung_Call = True

    Catch ex As Exception

        Anmeldung_Call = False
    End Try
    Me.Text = DateTime.Now.ToString()
End Function

Sub Open_IW73()
    Dim BdcTable As Object
    Dim RfcCallTransaction As Object
    Dim Messages As Object
    Dim count As Integer

    'call transaction IW73
    RfcCallTransaction = FunctionCtrl.Add("RFC_CALL_TRANSACTION")
    RfcCallTransaction.Exports("TRANCODE") = "IW73"
    RfcCallTransaction.Exports("UPDMODE") = "S"
    BdcTable = RfcCallTransaction.Tables("BDCTABLE").....

エラーは次の行にあります: "RfcCallTransaction = FunctionCtrl.Add("RFC_CALL_TRANSACTION") "

ありがとうございました

4

1 に答える 1