旧的 VB.NET 的 SAP RFC登陆方式

来源：互联网发布：sql默认实例编辑：程序博客网时间：2024/05/29 03:52

定义：

    Public SapLogin As Object
    Public SapFC As Object
    Public GetSapValue As String

    Public ReturnFunction As Boolean
    Public TheFunction As Object
    Public SAPFunction As Object
    Public GetData As Object

连接：

    Function GetSap() As String
        SapFC = CreateObject("SAP.Functions")
        SapLogin = SapFC.Connection

        '----------------810-----------------
        GetSapValue = "PRD"
        SapLogin.ApplicationServer = "11.11.11.11"
        SapLogin.Client = "800"
        SapLogin.User = "user"
        SapLogin.Password = "123456"
        SapLogin.SystemNumber = "00"
        SapLogin.Language = "en"
        SapLogin.AutoLogon = True

        If SapLogin.Logon(0, True) <> True Then
            MsgBox("登陆SAP/R3失败!")
        Else
        End If
        Return Nothing
    End Function

使用：

TheFunction = SapFC.Add("YRFC") 'Function FROM SAP

TheFunction.Exports("P_MATNR") = TxtMateNO.Text.ToUpper '输入：MATNR

GetData = TheFunction.Tables("YTABLE") '输出：Table

ReturnFunction = TheFunction.Call '调用

If ReturnFunction = True Then '返回数据为真

            If GetData.rowcount < 1 Then
                MsgBox("SAP系统内没有相关数据！")
                Exit Sub
            End If

materialDesc = GetData(1, "MAKTX") 'MAKTX - Material Desccription 得到物料描述

standardWorkingHour = GetData(1, "VGW02") 'VGW02 - Working Hour 得到SAP标准工时

End If