C# 登录SAP命令以及dotNet调用SAP RFC

C# 登录SAP命令---已安装SAP GUI 640 WIN32

添加引用：SAPLogonCtrl

SAPLogonCtrl.SAPLogonControlClass sapLogon  =   new  SAPLogonCtrl.SAPLogonControlClass();
sapLogon.User  =  strUser;                                       // Specify user
sapLogon.Password  =  strPassword;                         // Then password
sapLogon.Client  =  strClient;                                   // Client
sapLogon.ApplicationServer  =  strApplicationServer;    // Target server address
sapLogon.Language  =  strLanguage;                          // Language code
sapLogon.SystemNumber  =  iSystemNumber;               // SystemNumber

SAPLogonCtrl.Connection sapConn  =  (SAPLogonCtrl.Connection)sapLogon.NewConnection();

if  ( ! sapConn.Logon( 0 ,  true ))
{
    Msg = "Cannot Log on to SAP";                           //Issue message if cannot logon
    return false;
}

 

登录进去了，但是不知如何调用（不用SAP.Connector 2.0），网上也找不到相关信息，只能到此为止。。。

C# 不行，那只能用VB.Net写类似Function了，打包成dll，在C#中调用。

以下是VB.Net调用C#例子：

 

Public   Class  QMSToSAP

     Public  strPostNO  As   String
     Public  strErrorMsg  As   String
     Private  strUser  As   String
     Private  strPassword  As   String
     Private  strClient  As   String
     Private  strApplicationServer  As   String
     Private  strLanguage  As   String
     Private  iSystemNumber  As   Integer

     Public   Sub   New ( ByVal  user  As   String ,  ByVal  password  As   String ,  ByVal  client  As   String , _
             ByVal  applicationServer  As   String ,  ByVal  language  As   String ,  ByVal  systemNumber  As   Integer )
        strUser  =  user
        strPassword  =  password
        strClient  =  client
        strApplicationServer  =  applicationServer
        strLanguage  =  language
        iSystemNumber  =  systemNumber
     End Sub

     Public   Function  QMStoSAP( ByVal  dt  As  DataTable)  As   Boolean
        QMStoSAP  =   False
         Dim  sapConn  As   Object   ' 'Declare variant
        sapConn  =   CreateObject ( " SAP.Functions " )  ' 'Create ActiveX object

         ' 'Specify user
        sapConn.Connection.user  =  strUser
         ' 'Then password
        sapConn.Connection.Password  =  strPassword
         ' 'Client
        sapConn.Connection.Client  =  strClient
         ' 'Target server address
        sapConn.Connection.ApplicationServer  =  strApplicationServer
         ' 'Language code
        sapConn.Connection.Language  =  strLanguage
         ' 'SystemNumber
        sapConn.Connection.SystemNumber  =  iSystemNumber

         If  sapConn.Connection.Logon( 0 ,  True )  <>   True   Then
            QMStoSAP  =   False
             MsgBox ( " Cannot Log on to SAP " )  ' 'Issue message if cannot logon
             Exit Function
         End   If

         ' Define function
         Dim  objRfcFunc  As   Object
        objRfcFunc  =  sapConn.Add( " ZRFC_WO_AUTO_GR " )

         Dim  objVBPA  As   Object
        objVBPA  =  objRfcFunc.Tables( " ITABIN " )
        strErrorMsg  =   ""
        strPostNO  =   ""
         ' set value for shipemnt
         For   Each  dr  As  DataRow  In  dt.Rows
            objVBPA.Rows.Add()
            objVBPA(objVBPA.RowCount,  " ZPALLETID " )  =   Trim (dr( " ZPALLETID " ))
            objVBPA(objVBPA.RowCount,  " PLANT " )  =   Trim (dr( " PLANT " ))
            objVBPA(objVBPA.RowCount,  " COSTCENTER " )  =   Trim (dr( " COSTCENTER " ))
            objVBPA(objVBPA.RowCount,  " WO " )  =   Trim (dr( " WO " ))
            objVBPA(objVBPA.RowCount,  " QTY " )  =   Trim (dr( " QTY " ))
            objVBPA(objVBPA.RowCount,  " MATERIAL " )  =   Trim (dr( " MATERIAL " ))
            objVBPA(objVBPA.RowCount,  " REGION " )  =   Trim (dr( " REGION " ))
            objVBPA(objVBPA.RowCount,  " LOCA " )  =   Trim (dr( " LOCA " ))
            objVBPA(objVBPA.RowCount,  " REF1 " )  =   Trim (dr( " REF1 " ))
            objVBPA(objVBPA.RowCount,  " REF2 " )  =   Trim (dr( " REF2 " ))
         Next

         If  objRfcFunc.Call  =   False   Then
            sapConn.Connection.Logoff()
            QMStoSAP  =   False
             MsgBox ( " Error occured -  "   &  objRfcFunc.Exception)
             Exit Function
         End   If

         ' 'VB6.0 中的写法：strPostNO = objRfcFunc.Imports("POSTNO")
         ' '在.Net中是不行的, 因.Net是强类型语言
        strPostNO  =  objRfcFunc.Imports( " POSTNO " ).Value
        strErrorMsg  =  objRfcFunc.Imports( " ERRORMSG " ).Value
        sapConn.Connection.Logoff()

         If   Trim (strPostNO)  <>   ""   Then
            QMStoSAP  =   True
         Else
            QMStoSAP  =   False
         End   If
     End Function

End Class

 

成功调用！！！

 

 

转载于:https://www.cnblogs.com/MaoBisheng/archive/2008/10/27/1320489.html