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失败!")
 

相关文章推荐

C#调用SAP RFC 案例demo

  • 2017年11月15日 14:36
  • 5.88MB
  • 下载

用C# 调用SAP函数,RFC方式集成

  • 2014年09月09日 10:51
  • 2KB
  • 下载

.NET连接SAP系统专题:C#调用RFC中文乱码解决办法(十二)

上周TW总公司的IT按照董事长的指示,但凡杂项请购单里面内部订单号如果没有开立开发执行单的需做卡控,限制开单。于是TW IT就在系统画面ME51N里面做了用户出口开发,如果系统检测到内部订单没有开发执...

.NET 调用 SAP RFC 乱码问题解决方法!

根据梦心的文章,我原来的程序只需要加入 CodePage 这句就行了。 SapLogin.codePage = "8400"     以下为转载 梦心的文章:    上周TW总公司的IT按照董...

java调用SAP RFC函数 2

/* * To change this template, choose Tools | Templates * and open the template in the editor. ...

PB调用SAP的RFC函数接口

最近在做一个用PB调用SAP的BAPI接口

C# 调用 SAP RFC 方法

原文地址:C#调用SAP函数之RFC_READ_TABLE作者:天壤的劫火 public void test() { SAPLogonControlClass connctl = new S...

一步一步教你用SAP NCO3.0调用RFC(菜鸟必看)

需要的工具: 开发工具:Microsoft Visual Studio 2010 C#环境 NCO3.0:sapnco30dotnet40P_8-20007347.zip(VS2010环境下必须这...

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

[转载].Net 调用SAP RFC接口来读取数据实战纪实   (2013-03-29 15:55:50) 转载▼ 标签:  转载 分类: ABAP ...

SAP发布RFC接口,然后用JAVA调用根据物料号查询物料描述

一开始想在SAP里面做接口,然后使用WEBSERVICE发布出来,再由JAVA来调用,但是根据网上的教程发布的WEBSERVICE,不能由SOAMANAGER来访问。于是就退而求其次,不经过WEBSE...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB调用SAP的RFC
举报原因:
原因补充:

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