Schnittstelle Access -> Bapi_Salesdocu_createwithdia

[Curt3333]

Hallo zusammen,
ich habe folgende Aufgabe.
Aus Access heraus sollen über den o.g. Bapi Aufträge angelegt werden.
Vorerst soll das ganze aber über ein Excel-Sheet für Testzwecke funktionieren.
Kann mir jemand helfen? Irgendwie, muss ich ein VBA-Makro schreiben, das den Bapi startet. Hat jemand von euch ein Beispiel?
Danke im voraus.

Gruß
Mrs. Hilflos

[Walter4536]

Hallo,

Hervorragendes Beispiel hier:

http://help.sap.com/saphelp_webas620sp1 ... ameset.htm

siehe MS-Excel als OLE Client. Access analog.

Gruß,
Steff

[Curt3333]

Danke Steff,
werde mich mal durchwühlen.

Gruß
Mrs. Hilflos

[Curt3333]

Hallo Steff,

ein bisschen weiter sind wir schon.
Der BAPI-Aufruf funktioniert aber wohl noch nicht richtig.

Wir füllen zuerst die Übergabeparameter und rufen dann den BAPI auf:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1.            ' Kontraktart
2.                Call FillInterface(theFunc, Sammler, "SALES_HEADER_IN", i)
3.            
4.            ' Auftraggeber
5.                 Call FillInterface(theFunc, Auftraggeber, "SALES_PARTNERS", i)
6.                
7.             'Positionen
8.                Call FillInterface(theFunc, Pos, "SALES_ITEMS_IN", i)
9.    'End If
10.     ' Aufruf der BAPI-Funktion und Auswerten aufgetretener Fehler
11.                iStartPos = 11
12.                Call BAPIFunction(theFunc, i, iStartPos)

GeSHi ©

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. Sub BAPIFunction(ByRef theFunc As Object, iRow As Integer, iStartPos As Integer)
2.  
3.     Dim RetTable As Object
4.     Dim sMessage As String
5.     Dim sTypeMsg As String
6.    
7.  
8.     returnFunc = False
9.     'Aufruf des Bapi
10.    returnFunc = theFunc.Call
11.  
12. ...
13.    

GeSHi ©

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. Sub FillInterface(ByRef theFunc As Object, ByRef ObjectName As Object, sParamName As String, iRow As Integer)
2.    
3.     Select Case sParamName
4.     Case "SALES_HEADER_IN"
5.         Set ObjectName = theFunc.exports(sParamName)
6.         ObjectName.Value("DOC_TYPE") = Cells(iRow, 1)
7.         ObjectName.Value("SALES_ORG") = Cells(iRow, 2)
8.         ObjectName.Value("DISTR_CHAN") = Cells(iRow, 3)
9.         ObjectName.Value("DIVISION") = Cells(iRow, 4)
10.         ObjectName.Value("DATE_TYPE") = Cells(iRow, 5)
11.        
12.        
13.     Case "SALES_PARTNERS"
14.         Set ObjectName = theFunc.tables.Item(sParamName)
15.             ObjectName.AppendRow
16.             For Each ObjectName In ObjectName.Rows
17.                      ObjectName("PARTN_ROLE") = Cells(iRow, 6)
18.                      ObjectName("PARTN_NUMB") = Cells(iRow, 7)
19.             Next
20.            
21.     Case "SALES_ITEMS_IN"
22.         Set ObjectName = theFunc.tables.Item(sParamName)
23.             ObjectName.AppendRow
24.             For Each ObjectName In ObjectName.Rows
25.                      ObjectName("MATERIAL") = Cells(iRow, 8)
26.                      ObjectName("TARGET_QTY") = Cells(iRow, 9)
27.             Next
28.        
29.     Case "DEFAULTS"
30.         Set ObjectName = theFunc.exports(sParamName)
31.         MsgBox sParamName
32.            
33.     End Select
34. End Sub

GeSHi ©

nach

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. returnFunc = theFunc.Call

GeSHi ©

ist returnFunc immer = False.

Hilft dir das Coding, oder brauchst du mehr?
Danke im voraus.

Gruß
Mrs. Hilflos