求VS2005调用SAP的RFC的SourceCode....无限等待Help
求VS2005调用SAP的RFC的SourceCode....无限等待Help......
求VS2005调用SAP的RFC的SourceCode....无限等待Help......
------解决方案--------------------我以前就是做SAP二次开发的,用.net2003调用SAP的,2005绝对一样
当时公司的客户VIP刷卡系统我就是这样做的
那时候信息中心.net就我一个人用,其他人都用dephi
以前这个对我是小菜,现在……555555555555555
硬盘坏了,代码都没了,连死的心都快有了
PS:楼主别就是我以前单位里的人啊,哈哈
------解决方案--------------------http://blog.csdn.net/cissor/archive/2007/03/13/1527626.aspx
------解决方案--------------------顶1!!
------解决方案--------------------那个是SAP调.net
SAP里有个模拟操作录制的功能,可以看调用的代码,然后自己写也可以,不过最好是按他的标准调用功能模块
如果是简单的RFC,不用这么复杂,但是你要下载个sap的.net插件dll,sap官方网站上有
------解决方案--------------------VB的代码,仅供参考,自己改改就能放到vb.net中
Dim functionCtrl As Object 'Function Control (Collective object)
Dim sapConnection As Object 'Connection object
Dim theFunc As Object 'Function object
Dim ls_material As String
'Create a function object
Set functionCtrl = CreateObject( "SAP.Functions ")
Set sapConnection = functionCtrl.Connection
If sapConnection.Logon(0, False) <> True Then
MsgBox "No connection to R/3! "
Exit Sub 'End program
End If
Dim i As Integer
i = 7
Do While Worksheets( "Sheet1 ").Cells(i, 3) <> " "
ls_material = Sheet1.Cells(i, 3)
Set theFunc = functionCtrl.Add( "ZRFC_GET_MAKTX ")
theFunc.exports( "MATNR ") = ls_material
returnFunc = theFunc.Call
If returnFunc = True Then
Sheet1.Cells(i, 11) = theFunc.imports( "MAKTX ").Value
End If
i = i + 1
Loop
Sheet1.Cells(5, 11) = "图号 "
functionCtrl.Connection.logoff
Set sapConnection = Nothing
Set functionCtrl = Nothing
------解决方案--------------------楼主的问题解决了么,偶也想知道怎么调,贴一下学习学习吧