VB调用SAP的RFC

原创 2007年09月29日 11:53:00

VB调用SAP的RFC

发表时间:2007年6月12日 10时18分15秒        评论/阅读(1/10)
Set oFuncs = CreateObject("SAP.Functions")
Set oConn = oFuncs.Connection
  With oConn
    .ApplicationServer = "192.1.1.1"         //SAP服务器的IP
    .SystemNumber = "20"                    
    .Client = "300"                                 //SAP的使用端口
    .User = "zzkkjj"                               //登入用户名
    .Password = "12345"                       //登入密码
    .Language = "zh"                            //选择语言
  End With
 
 retval = oConn.Logon(hWnd, True)
 If retval = True Then
            Set Getbas_part_bj = oFuncs.Add("ZSD_PS_QTY")        //调用的RFC名称
                  Set WERKS = Getbas_part_bj.Tables("I_WERKS")   //对同一个输入变量传多个值
                           WERKS.rows.Add
                           WERKS(WERKS.RowCount, "WERKS") = "1100"
                           WERKS.rows.Add
                           WERKS(WERKS.RowCount, "WERKS") = "1101"
                  Set WERKS = Nothing
 
                  Getbas_part_bj.Exports("IM_ERDAT_LOW") = Date - 10    //对输入参数传值
                  Getbas_part_bj.Exports("IM_ERDAT_HIGH") = Date
 
                  If (Getbas_part_bj.Call = True) Then   
                                  Set oGetbas_part_bjTab = Getbas_part_bj.Tables("I_OUTPUT")    //输出的表
                                  lngRows = oGetbas_part_bjTab.RowCount                  //数据的条目数
                                  For lngLoop = 1 To lngRows              
                                              vbeln = oGetbas_part_bjTab(lngLoop, "vbeln")
                                              posnr = oGetbas_part_bjTab(lngLoop, "posnr")
                                             WERKS = oGetbas_part_bjTab(lngLoop, "WERKS")
                                              wmeng = oGetbas_part_bjTab(lngLoop, "kwmeng")
                                  Next
                                  Set oGetbas_part_bjTab = Nothing
                   Else
                                  send_msg ("函数<ZSD_PS_QTY>!调用失败!")
                   End If
                                  Set Getbas_part_bj = Nothing
 Else
                  send_msg ("连接SAP失败!")
 

VB.NET中SAP RFC调用接口封装

因为经常需要访问sap操作数据,就封装了一个类方便调用,运行条件需要安装sap客户端,在sap客户端安装之后会带有一个com接口,本接口就通过这个com访问sap,因为com的后期绑定问题故使用了vb...
  • jievsvsvsvvs
  • jievsvsvsvvs
  • 2013年06月26日 00:27
  • 892

JAVA调用SAP端RFC接口

JAVA调用SAP端接口  1、这里我们不讲述SAP端接口的开发,sap端接口已经写好了,java端只是调用sap的接口名; 2、调用过程中所需要的包及配置文件,在“java连接sap接口包sapjc...
  • Jay_1989
  • Jay_1989
  • 2016年07月04日 15:31
  • 7709

SAP的RFC接口的发布与JAVA调用

1、RFC介绍 SAP R/3的接口方式主要有RFC、IDOC、BAPI三种。 RFC分二种:1 正常的本地RFC。2 远程RFC(外部系统调用)。 RFC可以理解成一个函数,它有输入、输出,改变,排...
  • Jay_1989
  • Jay_1989
  • 2016年07月05日 16:38
  • 4189

sap调用外部rfc函数

转自:http://blog.csdn.net/superying/article/details/6214953     SAP 的方法(函数)如何用其它语言实现,是SAP的funcation m...
  • fengxing11
  • fengxing11
  • 2016年11月03日 09:47
  • 743

Java中连接SAP进行RFC调用

1、首先创建Java Project。 2、把sapjco.jar添加到该Project的Java项目构建路径中(添加外部Jar)。 3、在资源管理器中把librfc32.dll、sapjcorfc....
  • champaignwolf
  • champaignwolf
  • 2014年03月22日 22:56
  • 6397

.Net 调用SAP RFC接口来读取数据实战纪实

这几天研究.Net 如何调用SAP RFC接口来读取数据,搞得我重装了三次系统,找资料找到吐血,看了德文、日文、英文、中文几乎所有可以参考的资料,师傅亲自出马,并请教了一堆高手还包括IBM的帅锅,还割...
  • bingtingabc
  • bingtingabc
  • 2014年05月07日 12:58
  • 2240

java调用sap的RFC接口

sap目前是世界上最大的也是使用最多的ERP系统,很多大型系统都将自己的业务数据放到了SAP系统来进行管理,那么当别的系统需要这些数据时,就需要从SAP中获取这些数据。SAP中有各种不同类型的接口,R...
  • u012000209
  • u012000209
  • 2016年12月04日 16:32
  • 2318

java后台调用 SAP RFC的配置和调用

RFC  刚刚听到这个名称的时候只有一种感觉: 什么鬼?  后来百度了一下 ,来看看官方的解释:     RFC是SAP系统和其他(SAP或非SAP)系统间的一个重要而常用的双向接口技术,也被视为S...
  • u013303551
  • u013303551
  • 2016年07月09日 20:12
  • 2725

DELPHI 调用SAP—RFC 示例

DELPHI 调用SAP—RFC 示例 Logon to the R3-system with the componente TSAPLogOnControl In this ex...
  • Trassion
  • Trassion
  • 2013年06月30日 19:10
  • 6087

JAVA调用SAP的函数RFC--个人小结

   首先,在网上下载一个下面的压缩包(不同版本内容会稍微不同),打开sapjco3-NTintel-3.0.7.zip,将sapjco3.jar拷入到lib里,选中sapjco3.jar,右键点...
  • ylcumt
  • ylcumt
  • 2016年10月22日 11:48
  • 1267
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB调用SAP的RFC
举报原因:
原因补充:

(最多只允许输入30个字)