{"id":446,"date":"2011-07-19T11:40:41","date_gmt":"2011-07-19T09:40:41","guid":{"rendered":"http:\/\/www.capri-soft.de\/blog\/?p=446"},"modified":"2011-07-19T11:55:35","modified_gmt":"2011-07-19T09:55:35","slug":"vba-und-sap-funktionsbausteine-aufrufen","status":"publish","type":"post","link":"https:\/\/www.capri-soft.de\/blog\/?p=446","title":{"rendered":"VBA und SAP: Funktionsbausteine aufrufen"},"content":{"rendered":"

Aufgabenstellung<\/h1>\n

Die Aufgabenstellung sowie der Ansatz ist identisch mit diesem Artikel (Bitte zuerst lesen)<\/a>. <\/p>\n

Pr\u00e4missen \/ Vorraussetzungen<\/h1>\n

Die Datei librfc32.dll muss im VBA Editor eingebunden werden (sie ist nach der Installation der SAPGUI verf\u00fcgbar). <\/p>\n

L\u00f6sung<\/h1>\n

Aufbau der Verbindung<\/h3>\n
\r\nPublic Function SAP_Logon(username As String, password As String) As Boolean\r\n'*************************************************\r\n'  ANMELDUNG AN SAP\r\n'  ACHTUNG: USER MUSS BERECHTIGUNGEN HABEN!!!!\r\n'*************************************************\r\n\r\n    Set FunctionCtrl = CreateObject("SAP.Functions")\r\n    'Objekt f\u00fcr die SAP Verbindung\r\n\r\n    Set SapConnection = FunctionCtrl.Connection\r\n   \r\n    SapConnection.Client = "100"\r\n    SapConnection.User = username\r\n    SapConnection.Language = "DE"\r\n    SapConnection.password = password\r\n    \r\n     SapConnection.hostname = "rechnername.firma.com" 'nicht das kuerzel wie DE9\r\n    \r\n    SapConnection.systemnumber = "0"\r\n\r\n    If Not SapConnection.Logon(0, True) Then 'True silent - false offen\r\n        MsgBox "Logon failed!!!", vbCritical\r\n        CMS_Logon = False\r\n    Else\r\n        CMS_Logon = True\r\n    End If\r\nEnd Function\r\n<\/pre>\n
Abmelden<\/h3>\n
\r\nPublic Function SAP_Logoff() As Boolean\r\n    SapConnection.LogOff\r\nEnd Function\r\n<\/pre>\n
Funktionbaustein bef\u00fcllen und aufrufen<\/h3>\n
\r\nPublic Function SAP_Create_Request() As Long\r\n'******************************************************\r\n'  Request erzeugen\r\n'  Strukturen f\u00fcllen und \u00fcbergeben, dann Log ausgeben\r\n'******************************************************\r\n\r\nOn Error GoTo ErrorMSG\r\n\r\n    Dim FunctionModule As Object\r\n    Dim e_EXPORTSTRUKTUR As Object\r\n    Dim T_TABELLENSTRUKTUR As Object\r\n    \r\n    Dim te_messtab As Object\r\n    \r\n    Dim lCnt As Long\r\n\r\n'   Assign Function Module\r\n    Set FunctionModule = FunctionCtrl.Add("Z_FUBA")\r\n    \r\n'   Set export Variables\r\n    Set e_EXPORTSTRUKTUR = FunctionModule.Exports("P_STRUKTURPARAMETER")\r\n\r\n' Set structrue fields in export parameter\r\n    e_EXPORTSTRUKTUR ("ZEXPORTPARAM1") = "BLA"\r\n    e_EXPORTSTRUKTUR ("ZEXPORTPARAM1") = "BLA2"\r\n\r\n    Set T_TABELLENSTRUKTUR  = FunctionModule.Tables("T_ZMMMATANF8")\r\n    T_TABELLENSTRUKTUR.appendRow\r\n    T_TABELLENSTRUKTUR(1, "SPALTE1") = 1\r\n    T_TABELLENSTRUKTUR(1, "SPALTE2") = 2\r\n\r\n    T_TABELLENSTRUKTUR.appendRow\r\n    T_TABELLENSTRUKTUR(2, "SPALTE1") = 3\r\n    T_TABELLENSTRUKTUR(2, "SPALTE2") = 4\r\n\r\n'   Call Function Aufruf\r\n    If FunctionModule.Call = True Then\r\n        Set te_messtab = FunctionModule.Tables("TE_MESSTAB")\r\n        ' Meldungen ausgeben:\r\n        \r\n        Dim intRow As Integer\r\n        For intRow = 1 To te_messtab.RowCount\r\n            If te_messtab(intRow, "ARBGB") = "ZMM0001" And _\r\n                te_messtab(intRow, "MSGNR") = "003" Then\r\n\r\n                ' ANForderung wurde erstellt.\r\n                CMS_Create_Request = Val(te_messtab(intRow, "MSGV1"))\r\n            End If\r\n            Debug.Print te_messtab(intRow, "ARBGB")\r\n            Debug.Print te_messtab(intRow, "MSGNR")\r\n            Debug.Print te_messtab(intRow, "NATXT_DE")\r\n            sMSGTXT = te_messtab(intRow, "NATXT_DE")\r\n            Debug.Print te_messtab(intRow, "FLDNAME")\r\n            Debug.Print te_messtab(intRow, "MSGV1")\r\n            Debug.Print te_messtab(intRow, "MSGV2")\r\n            Debug.Print te_messtab(intRow, "MSGV3")\r\n            Debug.Print te_messtab(intRow, "MSGV4")\r\n            Debug.Print "----------------------------------"\r\n        Next\r\n    Else\r\n        CMS_Create_Request = 0\r\n         MsgBox "Error creating the CMS Request." & vbNewLine & _\r\n                "See Log for details", vbCritical\r\n    End If\r\nErrorMSG:\r\n  \r\nEnd Function\r\n<\/pre>\n
Die Testfunktion<\/h3>\n
\r\nPublic Sub Start()\r\n'*************************************************\r\n'  TESTUMGEBUNG\r\n'*************************************************\r\n    Dim RequestNo As Long\r\n    Dim username As String\r\n    Dim password As String\r\n    \r\n    username = "BJOERN"\r\n    password = "ICHBINDERBESTE"\r\n        \r\n    Call CMS_Logon(username, password)\r\n    RequestNo = SAP_Create_Request   \r\n    Call CMS_Logoff\r\nEnd Sub\r\n<\/pre>\n