Mengintegrasikan Aplikasi Web dengan SAP

Saya selama ini hanya mengembangkan aplikasi web dengan database SQL Server. Suatu saat ada kebutuhan bahwa aplikasi web yang saya buat harus bisa terintegrasi dengan SAP. Setelah berdiskusi dengan ABAP-ernya ternyata memang dimungkinkan membuat aplikasi diluar SAP yang menggunakan function-function SAP. Salah satu caranya adalah dengan BAPI (Business Application Programming Interface).

Kebetulan saya menggunakan Microsoft Windows 2000 Server dengan IIS sebagai webservernya. Saya masih menggunakan ASP Classic untuk scripting languagenya.

Sebelum kita melakukan pemrograman di ASP, kita harus terlebih dahulu menginstall SAP di server, karena pada dasarnya aplikasi yang kita buat nantinya akan berjalan di Server, dan untuk berkomnunikasi dengan SAP memerlukan komponent-komponen (DLL, OCX dll) yang sudah terinstall di server. Kita harus memastikan bahwa SAP bisa berjalan di web server kita.

ABAP akan membuat function BAPI sesuai yang kita inginkan, contoh function BAPI dibawah digunakan untuk membaca data pegawai di SAP berdasarkan parameter-parameter yang sudah dimasukkan, parameter untuk inputnya adalah GEBR (Business Area) dan SNAME (Employee Name), jika fungsi ini dipanggil maka akan mengeluarkan data ke tabel TCPROL_EMP, tabel inilah yang nantinya kita baca di ASP (web application). Setelah ditampilkan, tentunya tergantung dengan keinginan kita data tersebut akan diproses seperti apa di ASP. Berikut adalah coding ASP yang dimaksud :

Set oFunctions = Server.CreateObject(“SAP.Functions”)
oFunctions.Connection.Client = “200″
oFunctions.Connection.User = “SAPUSR”
oFunctions.Connection.Password = “SAPPWD”
oFunctions.Connection.Language = “EN”
oFunctions.Connection.System = “AGD”
oFunctions.Connection.ApplicationServer = “100.100.10.132″
oFunctions.Connection.SystemNumber = “00″

If oFunctions.Connection.logon(0, True) Then
Set oBFunction = oFunctions.Add(“ZCPROL_EMPLOYEE”)
Set oCompcode = oBFunction.Tables(“TCPROL_EMP”)
Set oBA = oBFunction.Exports(“P01_GSBER”)
Set oName = oBFunction.Exports(“P01_SNAME”)
oBA.value =request(“BA”)
oName.value =request(“Nama”)
oBFunction.Call
If oBFunction.Exception <> “” Then
response.write “error in call ZCPROL_EMPLOYEE”
Else
Set oReturn = oBFunction.Imports(“RETURN”)
If oReturn(“ERROR”) <> “S” Then
Response.write “No Data Found, Choose another selection..!”
Else
response.write “<table>” For Each oRow In oCompcode.Rows
response.write “<tr><td>” & oRow(“BTRTL”) & “</td><td>” & oRow(“PERNR”) & “</td><td>” & oRow(“SNAME”) & “</td></tr>”
Next
response.write “<table>”
Else
response.write “connection failed”
End If

Contoh diatas hanyalah salah satu contoh script ASP yang mengakses BAPI Function di SAP disini parameter masukanya berupa variabel dan keluaran fungsi berupa tabel TCPROL_EMP. Tentunya masing-masing function bisa berbeda cara mengaksesnya.