'---------------------------------------------------------------- ' Copyright (C) 2009 ' 版权所有。 ' ' 文件名 ：SAP.vb ' 功能描述：封装对SAP的基本访问，本类只提供基础信息，具体访问SAP RFC的类从此类继承 ' ' 创建标识：www.VEVb.com/81， 2009年12月1日 ' ' 修改标识：www.VEVb.com/81， 2009年12月9日 ' 修改描述：增加传入内表、传出参数等的封闭操作 ' ------------------------------------------------------------------------ Public Class SAP PRivate m_sapObject As Object 'sap远程函数调用对象 Protected m_sapFun As Object 'sap函数 Private m_sapConnection As Object '与SAP的连接
''' <summary> ''' 构造函数，传入sap的基本信息 ''' </summary> ''' <param name="sapSystem">Sap系统，可以传入null</param> ''' <param name="applicationServer">SAP服务器ip</param> ''' <param name="Client">集团号，如800</param> ''' <param name="SystemNumber">系统编号，如00</param> ''' <remarks></remarks> Public Sub New(ByVal sapSystem As String, ByVal ApplicationServer As String, ByVal Client As String, ByVal SystemNumber As String) Me.m_sapObject = CreateObject("SAP.Functions") Me.m_sapConnection = Me.m_sapObject.Connection()
If String.IsNullOrEmpty(sapSystem) = False Then Me.m_sapConnection.System = sapSystem End If
Me.m_sapConnection.ApplicationServer = ApplicationServer Me.m_sapConnection.Client = Client Me.m_sapConnection.SystemNumber = SystemNumber End Sub
''' <summary> ''' 登录SAP，成功，返回True，失败，返回False ''' </summary> ''' <param name="User">用户</param> ''' <param name="PassWord">口令</param> ''' <param name="Language">语言，如ZH、EN等，可以传入null</param> ''' <returns>是否登录成功</returns> ''' <remarks></remarks> Public Function ConnectToSAP(ByVal User As String, ByVal Password As String, ByVal Language As String) As Boolean Me.m_sapConnection.user = User Me.m_sapConnection.Password = Password
If String.IsNullOrEmpty(Language) = False Then Me.m_sapConnection.Language = Language Else Me.m_sapConnection.Language = "EN" End If
Me.m_sapObject.AutoLogon = True '自动登录 Return Me.m_sapObject.Connection.logon(0, True) '登录是否成功 End Function
''' <summary> ''' 设置调用的sap函数名称 ''' </summary> ''' <param name="sapFuncName">sap函数名称</param> ''' <remarks></remarks> Public Sub 设置SAP远程函数名(ByVal sapFuncName As String) Me.m_sapFun = Me.m_sapObject.Add(sapFuncName) If m_sapFun Is Nothing Then Throw New Exception("Sap远程函数名无效：" + sapFuncName) End If End Sub
''' <summary> ''' 设置Sap函数的传入调用参数 ''' </summary> ''' <param name="paramName">参数名称</param> ''' <param name="paramValue">参数值</param> ''' <remarks></remarks> Public Sub 设置参数(ByVal paramName As String, ByVal paramValue As Object) Dim param As Object param = Me.m_sapFun.Exports(paramName) If param Is Nothing Then Throw New Exception("Sap远程函数的参数名无效：" + paramName) End If param.Value = paramValue
End Sub
''' <summary> ''' 设置sap的传入内表，用dt_value模拟这个内表 ''' </summary> ''' <param name="SapTableName">sap函数传入内表的名字</param> ''' <param name="dt_value">模拟的DataTable，要求与传入内表的字段名一致</param> ''' <remarks></remarks> Public Sub 设置传入内表(ByVal SapTableName As String, ByVal dt_value As DataTable) Dim sapdata As Object 'sap传入内表 Dim saprow As Object 'sap传入内表的一行 Dim dc As DataColumn Dim index As Integer sapdata = Me.m_sapFun.Tables(SapTableName) For index = 0 To dt_value.Rows.Count - 1 '循环表，并给sap传入内表赋值 saprow = sapdata.Rows.Add() '传入内表新增一行记录，下面为传入内表记录赋值 For Each dc In dt_value.Columns saprow(dc.ColumnName) = dt_value.Rows(index)(dc.ColumnName).ToString() Next Next End Sub
''' <summary> ''' 当参数设置完成后，执行函数调用 ''' </summary> ''' <remarks></remarks> Public Sub 执行函数调用() If Me.m_sapFun.Call() = False Then Throw New Exception("Sap远程函数调用失败。") '从SAP取数出错，退出函数 End If End Sub
''' <summary> ''' 根据字段列表（逗号分隔）建立指定字段的DataTable ''' </summary> ''' <param name="fields">字段列表（逗号分隔）</param> ''' <returns>空表</returns> ''' <remarks></remarks> Public Function 建立空表(ByVal fields As String) As DataTable Dim dt As New DataTable Dim strs As String() Dim s As String strs = fields.Split(",") For Each s In strs dt.Columns.Add(s.Trim()) Next Return dt End Function
''' <summary> ''' 取得sap的传出参数值 ''' </summary> ''' <param name="paramName">传出参数名</param> ''' <returns>传出参数值</returns> ''' <remarks></remarks> Public Function 取Sap传出参数(ByVal paramName As String) As String Dim param As Object param = Me.m_sapFun.Imports(paramName) If param Is Nothing Then Throw New Exception("Sap远程函数的参数名无效：" + paramName) End If
If param.Value Is Nothing Then Return "" Else Return param.Value.ToString() End If End Function
''' <summary> ''' 把sap函数调用结构的传出内表转成dotNet的表 ''' </summary> ''' <param name="fields">sap传出内表的字段列表，字段间以逗号分隔</param> ''' <param name="SapTableName">sap传出内表的表名</param> ''' <returns>把sap内表导出的dotnet表，字段都为string型</returns> ''' <remarks></remarks> Public Function 取Sap传出表数据(ByVal fields As String, ByVal SapTableName As String, ByVal 是否去前后空格 As Boolean) As DataTable '按字段列表建立表，fields中的字段列表用逗号分隔 Dim dt As DataTable dt = Me.建立空表(fields)
'从sap表中读数据，循环sap中取得的数据，写入dt Dim sapdata As Object Dim saprow As Object Dim dr As DataRow '数据增加的新行 Dim dc As DataColumn sapdata = Me.m_sapFun.Tables(SapTableName) For Each saprow In sapdata.Rows dr = dt.NewRow() For Each dc In dt.Columns If 是否去前后空格 = True Then dr(dc.ColumnName) = saprow(dc.ColumnName).ToString().Trim() Else dr(dc.ColumnName) = saprow(dc.ColumnName).ToString() End If Next dt.Rows.Add(dr) Next
Return dt End Function
''' <summary> ''' 关闭sap的连接 ''' </summary> ''' <remarks></remarks> Public Sub DisConnectSAP() Me.m_sapConnection.logoff() End Sub End Class
