Sapnco3.0 RFC Client Programs

准备工作:安装sapnco3  sapcon3.0_X64.rar 或 Setup_ntintel_301_32位安装包.rar，根据服务器系统选择32位或64位安装。将安装目录下的dll引用到工程项目中。

 

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using SAP.Middleware.Connector;



namespace Sapnoc30Demo_Yan
{
    
    public class SapncoClient
    {
        private RfcDestination _rfcDestination = null;

        /// <summary>
        /// Register Client
        /// </summary>
        public void RegisterRfcDestination()
        {
            try
            {
                if (_rfcDestination == null)
                    _rfcDestination = RfcDestinationManager.GetDestination("NCO_Destination"); //获取 config配置中NCO_Destination节点参数，并注册RfcClient
            }
            catch (Exception ex)
            {
                throw ex;
            }
        }
        /// <summary>
        /// 调用Sap服务器函数
        /// (非IDOC)
        /// </summary>
        /// <param name="orderCode"></param>
        /// <returns></returns>
        public string InvokeRFCFunctionGetCompanyID(string orderCode)
        {
            IRfcFunction function = null;
            string companyID = String.Empty;
            try
            {
                function = _rfcDestination.Repository.CreateFunction("ZRFC_JGM_INFO2");//调用sap函数
                function.SetParameterActive(0, true);
                function.SetValue("VBELN", orderCode);//给函数 ZRFC_JGM_INFO2 传值
                function.Invoke(_rfcDestination);
                IRfcTable tb = function.GetTable("E_TAB"); //获取 ZRFC_JGM_INFO2函数返回的 "E_TAB"表

                foreach (IRfcStructure dr in tb)
                {
                    string orderNumber = dr.GetValue("VBELN").ToString(); //获取表 "E_TAB"结构中 "VBELN" 字段的值
                    if (orderNumber.Equals(orderCode))
                    {
                        companyID = dr.GetValue("KUNNR").ToString();
                        break;
                    }
                }
            }
            catch (RfcBaseException e)
            {
                throw e;
            }
            return companyID ;
        }

        #region 非IDOC RfcTable 结构
       // [SAP.Middleware.Connector.RfcTable]    
        //{TABLE  [STRUCTURE E_TAB { FIELD KUNNR=0000001000 FIELD NAME1=安徽邦泰医 FIELD ZZDKHID= FIELD ZZDKH= FIELD VBELN=8000000001 FIELD MATNR=000000002015000211 FIELD MAKTX=胞磷胆碱钠氯化钠注射液&100ml:0.5gx80瓶 FIELD CHARG=2013052201 FIELD LFIMG=1.000 FIELD VRKME=KAR }]}    
        #endregion

    }
}

 

<?xml version="1.0"?>
<configuration>
  <configSections>
    <sectionGroup name="SAP.Middleware.Connector">
      <sectionGroup name="ClientSettings">
        <section name="DestinationConfiguration" type="SAP.Middleware.Connector.RfcDestinationConfiguration,sapnco"/>
      </sectionGroup>
      <sectionGroup name="ServerSettings">
        <section name="ServerConfiguration" type="SAP.Middleware.Connector.RfcServerConfiguration, sapnco"/>
      </sectionGroup>
    </sectionGroup>
  </configSections>
  <SAP.Middleware.Connector>
    <ClientSettings>
      <DestinationConfiguration>
        <destinations>
          <add NAME="NCO_Destination" USER="CHA" PASSWD="123" CLIENT="300" SYSNR="00" ASHOST="172.16.8.100" LANG="EN" GROUP="PUBLIC" MAX_POOL_SIZE="5"></add>
        </destinations>
      </DestinationConfiguration>
    </ClientSettings>
    <ServerSettings>
      <ServerConfiguration>
        <servers>
          <add NAME="NCO_Server" GWHOST="hostsys1" GWSERV="sapgw00" PROGRAM_ID="NCoServer" REPOSITORY_DESTINATION="NCO_TESTS" REG_COUNT="1"/>
        </servers>
      </ServerConfiguration>
    </ServerSettings>
  </SAP.Middleware.Connector>
</configuration>

 

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace Sapnoc30Demo_Yan
{
    public partial class ClientTest : Form
    {
        public ClientTest()
        {
            InitializeComponent();
        }

        private void ClientTest_Load(object sender, EventArgs e)
        {
            SapncoClient client = new SapncoClient();
            client.RegisterRfcDestination();
            client.InvokeRFCFunctionGetCompanyID("");
        }
    }
}

 

另一种客户端(服务端)注册方式

    public class MyBackendConfig : IDestinationConfiguration
    {

        #region IDestinationConfiguration Members

        public bool ChangeEventsSupported()
        {
            return false;
        }

        public event RfcDestinationManager.ConfigurationChangeHandler ConfigurationChanged;

        public RfcConfigParameters GetParameters(string destinationName)
        {
            string example = ConfigurationSettings.AppSettings["destinationName"];

            if (example.Equals(destinationName))
            {
                RfcConfigParameters parms = new RfcConfigParameters();
                parms.Add(RfcConfigParameters.AppServerHost, ConfigurationSettings.AppSettings["AppServerHost"]); //SAP IP
                parms.Add(RfcConfigParameters.SystemNumber,ConfigurationSettings.AppSettings["SystemNumber"]); //SAP 实例
                parms.Add(RfcConfigParameters.Client, ConfigurationSettings.AppSettings["Client"]);//要操作的Client
                parms.Add(RfcConfigParameters.User, ConfigurationSettings.AppSettings["User"]);
                parms.Add(RfcConfigParameters.Password,ConfigurationSettings.AppSettings["Password"]);
                //parms.Add(RfcConfigParameters.Language,"ZH");
                //parms.Add(RfcConfigParameters.PoolSize, "5");
                //parms.Add(RfcConfigParameters.MaxPoolSize, "10");
                //parms.Add(RfcConfigParameters.IdleTimeout, "60");
                return parms;
            }
            return null;
        }
        #endregion
    }

 

 

 源码下载地址Sapnoc30Demo_Yan.rar