VB调用SAP

pocan0408

你們的邏輯判斷相反的

If sapConnection.logon(0, False) Then
    MsgBox "Connection!"
Else
    MsgBox "error"
    Exit Sub
End If

zhaowu91

If sapConnection.logon(0, False) = True Then
MsgBox "No connection to R/3 System"
Exit Sub 'End program
End If
我試了下是否應該把
If sapConnection.logon(0, False) = True Then改成
If sapConnection.logon(0, False) = FALSE Then
但我調試不能成功建立PO並返回PO號碼，可能受到系統設置的影響。

saphe

Set functionCtrl = CreateObject("SAP.Functions")
Set sapConnection = functionCtrl.Connection
sapConnection.System = "DEV"
sapConnection.ApplicationServer = "192.168.10.88"

sapConnection.Client = "400"
sapConnection.user = "ABAP03"
sapConnection.password = "123888"
sapConnection.Language = "EN"
我修改成这样，调试了下

saphe

原帖由 zhaowu91 于 2008-11-12 15:24 发表
If sapConnection.logon(0, False) = True Then
MsgBox "No connection to R/3 System"
Exit Sub 'End program
End If
我試了下是否應該把
If sapConnection.logon(0, False) = True Then改成
If sapConnection.logon(0, False) = FALSE Then
但我調試不能成功建立PO並返回PO號碼，可能受到系統設置的影響。

你修改了下就不会报错了？可我运行到poheader.Value("VENDOR") = Text1.Text时候，报出一个错误说要求对象，可我上面不是创建了吗？

VagrantLee

有没载入BAPI的OCX呢？？

VagrantLee

VB忘记差不多的，delphi是要导入这两个OCX的！

saphe

VB也需要吗

saphe

原帖由 pocan0408 于 2008-11-12 14:58 发表
我測試後，是可以執行成功建立採購單，並傳回採購單號碼。

Dim functionCtrl As Object
Dim sapConnection As Object
Dim theFunc As Object
Dim PoNumber As String

Private Sub Command1_Click()

Set functionCtrl = CreateObject("SAP.Functions")
Set sapConnection = functionCtrl.Connection
sapConnection.System = "DEV"
sapConnection.ApplicationServer = "192.168.10.88"

sapConnection.Client = "400"
sapConnection.user = "ABAP03"
sapConnection.password = "123888"
sapConnection.Language = "EN"

If sapConnection.logon(0, False) = Ture Then
MsgBox "No connection to R/3 System"
Exit Sub 'End program
End If
Set theFunc = functionCtrl.Add("BAPI_PO_CREATE")


Dim poheader As Object
Dim poitems As Object
Dim poitemschedule As Object
Dim retMess As Object
Dim returnFunc As Boolean
Dim startzeil As Integer
Dim endcol As Integer
Dim the_name As String
Dim oCommit As Object

Set poheader = theFunc.exports.Item("PO_HEADER")
Set poitems = theFunc.tables.Item("PO_ITEMS")
Set poitemschedule = theFunc.tables.Item("PO_ITEM_SCHEDULES")

poheader.Value("VENDOR") = "0020000108"
poheader.Value("DOC_DATE") = "20081113"
poheader.Value("PURCH_ORG") = "1301"
poheader.Value("PUR_GROUP") = "003"
poheader.Value("CO_CODE") = "1300"
poheader.Value("DOC_TYPE") = "NB"

poitems.Rows.Add
poitems.Value(1, "PUR_MAT") = "000000001100005919"
poitems.Value(1, "PLANT") = "1301"
poitems.Value(1, "NET_PRICE") = "100"

poitems.Value(1, "TAX_CODE") = "J1"

poitemschedule.Rows.Add
poitemschedule.Value(1, "DELIV_DATE") = "20081120"
poitemschedule.Value(1, "QUANTITY") = "600"



returnFunc = theFunc.call
PoNumber = theFunc.imports("PURCHASEORDER")
Set retMess = theFunc.tables.Item("RETURN")
If retMess Is Nothing Then

MsgBox retMess.Value(1, "MESSAGE")
Else
MsgBox "Purchase Order No : " & PoNumber & "Created"
End If


End Sub
问下，为什么我带不出PO号，你是你可以的。但是我在SAP系统中用ABAP代码调用这个函数是可以创建成功的。

SDERP

我总觉的这是在调用RFC函数吧????这不是在调用BAPI吧????

调用BAPI的代码,怎么写????

saphe

BAPI肯定是RFC函数，RFC函数不一定是BAPI