Sapnco3.0 RFC Server Programs Receive Idocs

sapnco3 接收IDOC准备工作：安装sapcon3.0_X64.rar 或 Setup_ntintel_301_32位安装包.rar。并将安装目录下的dll引用到工程项目中

当与SAP进行数据交互，作为Server的时候，需要注册客户端和服务端，并在服务端提供SAP调用的函数，示例中供SAP调用的函数名为IDOC_INBOUND_ASYNCHRONOUS

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;
            }
        }
}
}

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

namespace Sapnoc30Demo_Yan
{
    public class SapncoServer
    {
        private RfcServer _rfcServer = null;
       
        public void RegisterRfcServer()
        {
            try
            {
                Type[] handlers = new Type[1] { typeof(SAPServerHandler) };
                if (_rfcServer == null)
                    _rfcServer = RfcServerManager.GetServer("NCO_Server", handlers); //获取 config配置中NCO_Server节点参数，并注册RfcServer
                _rfcServer.RfcServerError += OnRfcServerError;
                _rfcServer.RfcServerApplicationError += OnRfcServerError;
                _rfcServer.TransactionIDHandler = new SapncoTidHandler();
                SAPServerHandler.IDocEndReceiveCompleteEvent+= new SAPServerHandler.IDocReceiveEventHandler(SAPServerHandler_IDocEndReceiveCompleteEvent);
                _rfcServer.Start();
            }
            catch (Exception ex)
            {
                throw ex;
            }
        }
        //函数调用执行完成
        private void SAPServerHandler_IDocEndReceiveCompleteEvent(Dictionary<string, List<string>> diclist)
        { 
            //处理 diclist
            //根据IDOC各个字段长度，从SDATA字符串中截取对应的字段值
        }

        private static void OnRfcServerError(Object server, RfcServerErrorEventArgs errorEventData)
        {
            string exMsg = String.Empty;
            RfcServer rfcServer = server as RfcServer;
            RfcServerApplicationException appEx = errorEventData.Error as RfcServerApplicationException;
            if (appEx != null)
                exMsg += string.Format("RfcServerApplicationError occured in RFC server {0} :", rfcServer.Name);
            else
                exMsg += string.Format("RfcServerError occured in RFC server {0} :", rfcServer.Name);

            if (errorEventData.ServerContextInfo != null)
            {
                exMsg += string.Format("RFC Caller System ID: {0} ", errorEventData.ServerContextInfo.SystemAttributes.SystemID);
                exMsg += string.Format("RFC function Name: {0} ", errorEventData.ServerContextInfo.FunctionName);
            }
            exMsg += string.Format("Error type: {0}", errorEventData.Error.GetType().Name);
            exMsg += string.Format("Error message: {0}", errorEventData.Error.Message);
            if (appEx != null)
            {
                exMsg += string.Format("Inner exception type: {0}", appEx.InnerException.GetType().Name);
                exMsg += string.Format("Inner exception message: {0}", appEx.InnerException.Message);
            }

            Exception ex = new Exception(exMsg);
            throw ex;
        }
    }

    public class SAPServerHandler
    {
        public delegate void IDocReceiveEventHandler(Dictionary<string, List<string>> diclist);
        public static event IDocReceiveEventHandler IDocEndReceiveCompleteEvent;
        //public static event IDocReceiveEventHandler IDocBeginReceiveCompleteEvent;

        /// <summary>
        /// Call back handler method,invoked by RFC Server.
        /// </summary>
        /// <param name="context">RfcServerContext</param>
        /// <param name="function">Rfc Function passed by Rfc Server manager</param>
        [RfcServerFunction(Name = "IDOC_INBOUND_ASYNCHRONOUS", Default = false)]
        public static void IDOC_INBOUND_ASYNCHRONOUS(RfcServerContext context, IRfcFunction function)
        {
            Dictionary<string, List<string>> diclist = new Dictionary<string, List<string>>();
            string docnum = String.Empty;

            IRfcTable RfcTb = function.GetTable("EDI_DC40"); //获取 EDI_DC40 结构
            foreach (IRfcStructure rfcControlRecord in RfcTb)
            {
                docnum = rfcControlRecord.GetValue("DOCNUM").ToString(); //从 EDI_DC40 结构中获取 DOCNUM 字段值
            }


            IRfcTable RfcDtTable = function.GetTable("EDI_DD40"); //获取 EDI_DD40 结构
            List<string> list = new List<string>();
            foreach (IRfcStructure rfcDataRecord in RfcDtTable)
            {
                string sdataStr = rfcDataRecord.GetValue("SDATA").ToString(); //获取IDOC_DATA_REC_40 结构中SDATA字段值(IDOC值)
                list.Add(sdataStr);
            }
            diclist.Add(docnum, list);
            if (IDocEndReceiveCompleteEvent != null)
                IDocEndReceiveCompleteEvent(diclist);
        }

        #region 含IDOC 的RfcTable结构
        //function.GetTable(0)    
        //{TABLE  [STRUCTURE EDI_DC40 { FIELD TABNAM=EDI_DC40 FIELD MANDT=777 FIELD DOCNUM=0000000009241610 FIELD DOCREL=700 FIELD STATUS=30 FIELD DIRECT=1 FIELD OUTMOD=2 FIELD EXPRSS= FIELD TEST= FIELD IDOCTYP=ZTZECODE_IDOC FIELD CIMTYP= FIELD MESTYP=ZECODE_MSG FIELD MESCOD= FIELD MESFCT= FIELD STD= FIELD STDVRS= FIELD STDMES= FIELD SNDPOR=SAPASB FIELD SNDPRT=LS FIELD SNDPFC= FIELD SNDPRN=AZASB01777 FIELD SNDSAD= FIELD SNDLAD= FIELD RCVPOR=A000000017 FIELD RCVPRT=LS FIELD RCVPFC= FIELD RCVPRN=CN_ECODING FIELD RCVSAD= FIELD RCVLAD= FIELD CREDAT=2013-06-18 FIELD CRETIM=10:35:40 FIELD REFINT= FIELD REFGRP= FIELD REFMES= FIELD ARCKEY= FIELD SERIAL=20130618103540 }]}    SAP.Middleware.Connector.IRfcTable {SAP.Middleware.Connector.RfcTable}
        //function.GetTable(1)    
        //{TABLE  [STRUCTURE EDI_DD40 { FIELD SEGNAM=ZTZECODE000 FIELD MANDT=777 FIELD DOCNUM=0000000009241610 FIELD SEGNUM=000001 FIELD PSGNUM=000000 FIELD HLEVEL=02 FIELD SDATA=0003575897008500006600000010251                   CNIT00006 9000001001                              10010     2              1 }]}
        //SAP.Middleware.Connector.IRfcTable {SAP.Middleware.Connector.RfcTable}
        #endregion

    }

    public class SapncoTidHandler : ITransactionIDHandler
    {
        //ONLY for tests. Use a database to store the TID state!
        static List<string> tids = new List<string>();

        //If DB is down, throw an exception at this point. .Net Connector will then abort 
        //the tRFC and the R/3 backend will try again later.
        public bool CheckTransactionID(RfcServerContextInfo serverContext, RfcTID tid)
        {
            //TextBox.Text += ("Check transaction ID " + tid);
            lock (tids)
            {
                if (tids.Contains(tid.TID))
                    return false;
                else
                {
                    tids.Add(tid.TID);
                    return true;
                }
            }
            // "true" means that NCo will now execute the transaction, "false" means
            // that we have already executed this transaction previously, so NCo will
            // skip the function execution step and will immediately return an OK code to R/3.
        }

        // clean up the resources
        public void ConfirmTransactionID(RfcServerContextInfo serverContext, RfcTID tid)
        {
            //TextBox.Text += ("Confirm transaction ID " + tid);
            try
            {
                //clean up the resources
                //partner won't react on an exception at this point
            }
            finally
            {
                lock (tids)
                {
                    tids.Remove(tid.TID);
                }
            }
        }


        // react on commit e.g. commit on the database
        // if necessary throw an exception, if the commit was not possible
        public void Commit(RfcServerContextInfo serverContext, RfcTID tid)
        {
            //TextBox.Text += ("Commit transaction ID " + tid);
            lock (tids)
            {
                if (!tids.Contains(tid.TID))
                    throw new Exception("tid " + tid.TID + " doesn't exist, hence it cannot be committed");

            }
        }

        // react on rollback e.g. rollback on the database
        public void Rollback(RfcServerContextInfo serverContext, RfcTID tid)
        {
            //TextBox.Text += ("Rollback transaction ID " + tid);
            /* Make sure the TID is removed from the list, otherwise CheckTransactionID will
             * return false the next time the backend retries this failed transaction, and then
             * it will never be executed...
             */
            tids.Remove(tid.TID);
        }
    }
}

<?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="CX_HANM" PASSWD="hg113" CLIENT="300" SYSNR="00" ASHOST="172.16.8.11" 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 ServerTest : Form
    {
        public ServerTest()
        {
            InitializeComponent();
        }

        private void ServerTest_Load(object sender, EventArgs e)
        {
            SapncoClient client = new SapncoClient();
            SapncoServer server = new SapncoServer();
            client.RegisterRfcDestination();
            server.RegisterRfcServer();
        }
    }
}

源码下载地址：Sapnoc30Demo_Yan.rar