SAP Connection bricht beim 504'ten Abruf immer ab

SAP Connection bricht beim 504'ten Abruf immer ab

Hallo Zusammen,
beim Ansteuern eines SAP Funktionsbausteins bricht mir die Verbindung beim 504'ten Abruf immer ab.
Es liegt nicht an den Daten, habe es schon mit anderen Materialien versucht. Die Varialblen auf nothing ( SET JOEFunctionCall = nothing ) zu setzen hat auch nicht geholfen.
Es kann auch nicht am Zeitlimit liegen, bei unterschiedlichen Materialien bekomme ich unterschiedliche Anzahl an Zeilen ( Tabelle TABENTRY )zurück und dementsprechend dauert es unterschiedlich lange.

Habt Ihr vielleicht eine Idee, was ich noch versuchen könnte ? Vielen Dank im voraus !

Der Code:

Private Sub Command1_Click()
Dim JOEFunctionControl As SAPFunctions 'verweis auf wdtfuncs.ocx
Dim JOESAPConnection As Connection 'verweis auf wdtlog.ocx
Dim JOEFunctionCall As SAPFunctionsOCX.Function


Set JOEFunctionControl = New SAPFunctions
Set JOESAPConnection = JOEFunctionControl.Connection


Dim SEL_TAB, NAMETAB, TABENTRY, Row As Object
Dim Result As Boolean
Dim iRow, iColumn, iStart, iStartRow As Integer


JOESAPConnection.Client = "300" 'immer !!!
JOESAPConnection.User = "user" 'immer
JOESAPConnection.Password = "password" 'immer
JOESAPConnection.Language = "EN" 'immer
'JOESAPConnection.systemnumber = "20" 'nur bei direkt
'JOESAPConnection.HostName = "uapkb2dc" ' nur bei direkt ( bei load-balancing dieser teilt den HOST automatisch zu )
JOESAPConnection.System = "SP1" ' nur bei load-balancing
JOESAPConnection.GroupName = "GEBS" ' nur bei load-balancing
JOESAPConnection.MessageServer = "uapkb1d2" ' nur bei load-balancing
'JOESAPConnection.RfcWithDialog = 1 nur bei download to excel


' mit TRUE = silent
If Not JOESAPConnection.Logon(0, True) Then
MsgBox "logon failed !!"
Exit Sub
End If


Set JOEFunctionCall = JOEFunctionControl.Add("MD_STOCK_REQUIREMENTS_LIST_API")
JOEFunctionCall.Exports("PLSCN") = "000"


For i = 0 To List4.ListCount - 1


JOEFunctionCall.Exports("MATNR") = List4.List(i) 'MATNR
JOEFunctionCall.Exports("WERKS") = List5.List(i) 'WERKS


Result = JOEFunctionCall.Call 'ERROR bei i = 504 !!!!!!!!!!!!!!!!!!!



If Result = True Then

Set TABENTRY = JOEFunctionCall.Tables("MDPSX")

Else

Set TABENTRY = JOEFunctionCall.Tables("MDPSX")

End If

Text5.Text = TABENTRY.Rowcount
If TABENTRY.Rowcount > 0 Then
For m = 1 To TABENTRY.Rowcount

List1.AddItem TABENTRY(m, 3)
List2.AddItem TABENTRY(m, 10)
List3.AddItem TABENTRY(m, 11)

Next m
End If

Next i


JOESAPConnection.Logoff



End Sub

Interresant, aber wo kann ..

den Parameter "NO_BUF" auf "X" zu setzen ?
Ist ja kein Import-Parameter für diesen FB.

Das mit dem Neuaufbau der Verbindung funktioniert, ist aber halt nicht sauber und kostet auch einige Zeit bei 27000 Materialien.

Vielen Dank schon mal !

NOBUF kann ich aber auch nicht finden

NOBUF kann ich aber auch nicht finden.
Wie kann man diesen Parameter setzen ?

Fehlermeldung : SYSTEM_FAILURE