BAPI-Aufruf von Visual Basic und Verarb. von überg. Tabellen

BAPI-Aufruf von Visual Basic und Verarb. von überg. Tabellen

Hallo,

ich habe eine BAPI programmiert, es läuft und ich kann es sogar von einem VisualBasic-Programm aus aufrufen und die zurückgegebenen Felder bearbeiten. Wo ich erhebliche Schwierigkeiten habe ist die Verarbeitung der Tabellen, die von dem BAPI an das VisualBasic Programm zurückgeliefert werden. Ich kenne mich leider nicht so gut ain VisualBasic aus. Kann mir einer sagen, was ich falsch mache. Anbei das Programm: Ich habe drei Buttons, 1.Logon Button, 2.Logoff-Button und mit dem Dritten rufe ich eine Methode auf.

Wenn einer sogar ein Beispielprogramm hätte, würde mich sehr freuen.

Danke

Ornella Santini (OrnellaSantini@hotmail.de)

-------------------------------------------
Methodenaufruf
-------------------------------------------

Private Sub CBCallMethod_Click()

Dim Bukrs As String
Dim Gjahr As String
Dim Belege As Object
Dim i As Integer
Dim Belege1 As Object


Bukrs = InputBox("Bitte Buchungskreis eingeben")
Gjahr = InputBox("Bitte Geschäfstjahr eingeben")



On Error GoTo Errorhandler

m_oBUSCust.ZRfcKoc1 Bukrs :=Bukrs, _
Gjahr :=Gjahr, _
Belege :=Belege



For Each Belege1 In Belege
Debug.Print Belege1.Saknr
Debug.Print Belege1.Dmbtr

Next




Exit Sub
Errorhandler:

MsgBox Err.Description, vbOKOnly

End Sub


-------------------------------------
Hier Logon
-------------------------------------


Private Sub CBSAPLogon_Click()

On Error GoTo Errorhandler

' Verbindung mit SAP herstellen

If m_oSAPBAPICtrl.Connection.Logon(0, False) <> True Then
Exit Sub
End If

' BAPI Proxy Objekt anlegen

Set m_oBUSCust = m_oSAPBAPICtrl.GetSAPObject("ZBELTAB?)

' Button zum Aufruf der Methode des BO Proxy-Objekts aktivieren

CBCallMethod.Enabled = True



CBSAPLogon.Enabled = False
CBSAPLogoff.Enabled = True
Exit Sub

Errorhandler:
MsgBox Err.Description, vbOKOnly
End Sub

-------------------------------------------
Hier Logoff
-------------------------------------------



Private Sub CBSAPLogoff_Click()
m_oSAPBAPICtrl.Connection.Logoff
CBSAPLogoff.Enabled = False
CBSAPLogon.Enabled = True
CBCallMethod.Enabled = False
End Sub