VB调用SAP

SDERP

是啊,上面的例子是RFC访问,不是BAPI调用,记得有书上写到,BAPI调用要比RFC调用,速度要快很多.  
感觉有点象VB,调用存储过程.

我测试了下是可以的

pleham

原帖由 VagrantLee 于 2008-11-12 16:43 发表
VB忘记差不多的，delphi是要导入这两个OCX的！
566855

这个不错，界面可以模仿下，我们的界面死丑死丑。。。

86370010

控件的加载是没有问题的,只需要
SAP Remote Function Call Unicode Control
就可以了.

SDERP

不行啊,我试了,不能返回,PO 号啊??????

SDERP

你成功调用了吗???

saphe

成功了

SDERP

可以生成PO????

SDERP

Private Sub Command2_Click()
Dim theFunc As Object

Set sapFunctionCtrl = CreateObject("SAP.Functions")
   
    Set sapConnection = sapFunctionCtrl.Connection
    'sapConnection.ApplicationServer = "172.1.2.140"
    sapConnection.Client = "000"
    sapConnection.User = "ZYALL"
    sapConnection.Password = "123123"
    sapConnection.Language = "EN"
   
    If sapConnection.Logon(0, False) <> True Then
      MsgBox "No connection to R/3!"
    End If
Set theFunc = sapFunctionCtrl.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
Dim PoNumber As String


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") = "0010000000"
poheader.Value("DOC_DATE") = "20081113"
poheader.Value("PURCH_ORG") = "Y990"
poheader.Value("PUR_GROUP") = "PG3"
poheader.Value("CO_CODE") = "C999"
'poheader.Value("DOC_TYPE") = "NB"

poitems.Rows.Add
poitems.Value(1, "PUR_MAT") = "F999-100"
poitems.Value(1, "PLANT") = "P990"
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"

If theFunc.call Then ' call the RFC FM
    PoNumber = theFunc.Imports("PURCHASEORDER")
     'MsgBox "RFC call is okay"
      Me.Text1.Text = PoNumber
     '   Next i
    Else
        MsgBox " 搜索出错! 出错信息: " + theFunc.Exception

        End
    End If
   
SAPHE 帮看一下,哪错了????
'poheader.Value("DOC_TYPE") = "NB"  这个值对应的是哪个字段????

NB是采购订单意思，问下你，你正常登陆SAP系统的时候要不要输入语言

[ 本帖最后由 hexijun 于 2008-11-14 10:03 编辑 ]