0
오류 코드 1001, SAP 원격 오류가 발생합니까?RFC_CALL_TRANSACTION RFC를 사용하여 SAP Catching Data VB
나는 봤지만 많이 찾지 못했습니다. 어쩌면 누군가 여기서 문제를 알 수 있습니다. 임
여기함께 System.Runtime.InteropServices.COMException (0x000003E9) SAP (720)
사용 : SAP 원격 함수 호출 BEI Microsoft.VisualBasic.CompilerServices.LateBinding.LateGet (객체 O를, 유형 OBJTYPE를, 문자열 이름, Object [] args, String [] paramnames, 부울 [] 복사})Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateGet (개체 인스턴스, 형식 형식, 문자열 MemberName, 개체 [] 인수, 문자열 [] 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 ") "
당신에게 내가했습니다