Imports Microsoft.VisualBasic
Imports SAP.Middleware.Connector
Imports System.Data
Imports System.IO
Imports LogInfo
Imports System.Diagnostics
Imports System.Collections
Imports System.Collections.Generic
Public Class SAPRFC
Implements IDestinationConfiguration '继承接口
Public Destination As RfcDestination 'SAP Connector3.0 的RFC源
Public SapFunction As IRfcFunction 'SAP RFC函数调用
Public mystruct As IRfcStructure
Public datatbl As IRfcTable '调用到的RFC SAP table
Public optionstbl As IRfcTable '调用到的OPTIONS table
Public fieldtbl As IRfcTable '调用到的FIELD table
Public ID As IDestinationConfiguration '继承
Public Function ChangeEventsSupported() As Boolean Implements IDestinationConfiguration.ChangeEventsSupported
Return False
End Function
Public Event ConfigurationChanged(ByVal destinationName As String, ByVal args As RfcConfigurationEventArgs) Implements IDestinationConfiguration.ConfigurationChanged '事件
Public Function GetParameters(ByVal destinationName As String) As RfcConfigParameters Implements IDestinationConfiguration.GetParameters
Dim parms As RfcConfigParameters = New RfcConfigParameters()
If ("qas_000".Equals(destinationName)) Then
parms.Add(RfcConfigParameters.AppServerHost, "") 'SAP主机IP
parms.Add(RfcConfigParameters.SystemNumber, "") 'SAP实例
parms.Add(RfcConfigParameters.User, "") ' 用户名
parms.Add(RfcConfigParameters.Password, "") '密码
parms.Add(RfcConfigParameters.Client, "777") ' Client
parms.Add(RfcConfigParame
Imports SAP.Middleware.Connector
Imports System.Data
Imports System.IO
Imports LogInfo
Imports System.Diagnostics
Imports System.Collections
Imports System.Collections.Generic
Public Class SAPRFC
Implements IDestinationConfiguration '继承接口
Public Destination As RfcDestination 'SAP Connector3.0 的RFC源
Public SapFunction As IRfcFunction 'SAP RFC函数调用
Public mystruct As IRfcStructure
Public datatbl As IRfcTable '调用到的RFC SAP table
Public optionstbl As IRfcTable '调用到的OPTIONS table
Public fieldtbl As IRfcTable '调用到的FIELD table
Public ID As IDestinationConfiguration '继承
Public Function ChangeEventsSupported() As Boolean Implements IDestinationConfiguration.ChangeEventsSupported
Return False
End Function
Public Event ConfigurationChanged(ByVal destinationName As String, ByVal args As RfcConfigurationEventArgs) Implements IDestinationConfiguration.ConfigurationChanged '事件
Public Function GetParameters(ByVal destinationName As String) As RfcConfigParameters Implements IDestinationConfiguration.GetParameters
Dim parms As RfcConfigParameters = New RfcConfigParameters()
If ("qas_000".Equals(destinationName)) Then
parms.Add(RfcConfigParameters.AppServerHost, "") 'SAP主机IP
parms.Add(RfcConfigParameters.SystemNumber, "") 'SAP实例
parms.Add(RfcConfigParameters.User, "") ' 用户名
parms.Add(RfcConfigParameters.Password, "") '密码
parms.Add(RfcConfigParameters.Client, "777") ' Client
parms.Add(RfcConfigParame