在VB中调用SAP function及SAP RFC的例子

转载 2007年09月26日 10:56:00
 
在VB中调用SAP function及SAP RFC的例子
在VB中调用SAP function及调用SAP RFC的例子:
Dim Functions As Object
Dim SAPFunction1  As SAPFunctions
Dim SAPFunction  As Object
Dim oFunc As Object
Dim Connect As Object
Dim colX As ColumnHeader
Dim itmX As ListItem
Dim Column1 As Integer
Dim rows1 As Integer
Dim Column2 As Integer
Dim rows2 As Integer


Private Sub Form_Load()
Set Connect = SAPLogonControl1.NewConnection
  Connect.System = "P13"
  Connect.ApplicationServer = "200.200.0.32"
  Connect.SystemNumber = 0
  Connect.User = "用户名"
  Connect.Password = "密码"
  Connect.Client = "096"
  Connect.Language = "EN"
  
  If Connect.Logon(Form1.hWnd, True) = False Then
          MsgBox "联接SAP失败!"
          Exit Sub
  End If
  Call list
End Sub

Private Sub list()
   ListView.ListItems.Clear
   ListView.ColumnHeaders.Clear
   Set colX = ListView.ColumnHeaders.Add()
   colX.Text = "序号"
   colX.Width = 300
   Set colX = ListView.ColumnHeaders.Add()
   colX.Text = "IDOC号"
   colX.Width = 1600
   Set colX = ListView.ColumnHeaders.Add()
   colX.Text = "状态"
   colX.Width = 400
   
   Set colX = ListView.ColumnHeaders.Add()
   colX.Text = "描述"
   colX.Width = 4000
   
   Set colX = ListView.ColumnHeaders.Add()
   colX.Text = "日期"
   colX.Width = 900
   Set colX = ListView.ColumnHeaders.Add()
   colX.Text = "时间"
   colX.Width = 1200
   
   Set SAPFunction = CreateObject("SAP.Functions")
   Set SAPFunction.Connection = Connect
   
   Set oFunc = SAPFunction.Add("ZREAD_IDOC_DATA")
   If Not oFunc.Call Then
        Exit Sub
   End If
   oFunc.Tables("I_EDIDC").Views.Add SAPTableView1.object
   oFunc.Tables("I_EDIDC").Refresh
   SAPTableView1.ColumnAutoWidth 1, SAPTableView1.ColumnCount
   Column1 = SAPTableView1.ColumnCount
   rows1 = SAPTableView1.RowCount
    
   oFunc.Tables("I_EDIS").Views.Add SAPTableView2.object
   oFunc.Tables("I_EDIS").Refresh
   SAPTableView2.ColumnAutoWidth 1, SAPTableView2.ColumnCount
   Column2 = SAPTableView2.ColumnCount
   rows2 = SAPTableView2.RowCount
    

   For i = 1 To rows1
      Set itmX = ListView.ListItems.Add()
      itmX.Selected = True
      itmX.Text = i
      itmX.SubItems(1) = SAPTableView1.Cell(i, 2) 'idoc number
      itmX.SubItems(2) = SAPTableView1.Cell(i, 4) 'status
      For j = 1 To rows2
          If SAPTableView2.Cell(j, 1) = SAPTableView1.Cell(i, 4) Then
             If SAPTableView2.Cell(j, 2) = "E" Then
                itmX.SubItems(3) = SAPTableView2.Cell(j, 3) 'desp
             End If
          End If
      Next j
      itmX.SubItems(4) = SAPTableView1.Cell(i, 38) 'date
      itmX.SubItems(5) = SAPTableView1.Cell(i, 39) 'time
   Next i
   StatusBar1.SimpleText = "共计:" & rows1
End Sub

另:VB调用RFC的函数
Set SAPFun = CreateObject("SAP.Functions")   '---连接到SAP
Set RFCFun = SAPFun.Add("RFC_READ_TABLE")    '---SAP用户认证

相关文章推荐

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

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

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

一开始想在SAP里面做接口,然后使用WEBSERVICE发布出来,再由JAVA来调用,但是根据网上的教程发布的WEBSERVICE,不能由SOAMANAGER来访问。于是就退而求其次,不经过WEBSE...

C# 连接SAP,并调用RFC函数

C# 连接SAP,并调用RFC函数  (基于Com组件) 非原创,见到好文,收藏。 C# 连接SAP,并调用RFC函数  (基于Com组件) 收藏  1) 新建工程后,首先添加3...

分享一个完整的SAP RFC调用接口封装

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

.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环境下必须这...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在VB中调用SAP function及SAP RFC的例子
举报原因:
原因补充:

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