日期:2014-05-19  浏览次数:21022 次

求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

------解决方案--------------------
楼主的问题解决了么,偶也想知道怎么调,贴一下学习学习吧