• C# 调用SAP RFC


    结构:

     安装NuGet包:

    using SAP.Middleware.Connector;
    using System.Data;
    
    namespace DFDN.SDK.ServiceInterface
    {
        public class RfcDemo
        {
            public void Loading()
            {
                RfcDestination SapRfcDestination = RfcDestinationManager.GetDestination(GetParameters()); //连接字符串
                RfcDestination SapRfcDestinationForConfig = RfcDestinationManager.GetDestination("dad"); //连接字符串 从App.config配置
                RfcRepository SapRfcRepository = SapRfcDestination.Repository;
    
                DataTable dt = new DataTable();  //数据源
                dt.Columns.Add("DATA1", typeof(string));
                dt.Columns.Add("DATA2", typeof(string));
                dt.Columns.Add("DATA3", typeof(string));
    
                IRfcFunction func = SapRfcRepository.CreateFunction("Z_RFC_XXXX");
                IRfcTable tSAP = func.GetTable("INPUT_TABLE");
    
                for (int i = 0; i < dt.Rows.Count; i++)
                {
                    string str1 = dt.Rows[i][0].ToString();
                    string str2 = dt.Rows[i][1].ToString();
                    string str3 = dt.Rows[i][2].ToString();
                    IRfcStructure struSAP = tSAP.Metadata.LineType.CreateStructure();
                    struSAP.SetValue("str1", str1);
                    struSAP.SetValue("str2", str2);
                    struSAP.SetValue("str3", str3);
                    tSAP.Append(struSAP);
                }
    
                func.SetValue("INPUT_TABLE", tSAP); //table 参数
                func.SetValue("WERKS", "A");        //单个参数    
                func.SetValue("STATUS", "B");    //单个参数
                func.Invoke(SapRfcDestination); //调用
    
                IRfcTable SAPDataTable = func.GetTable("RETURN_TABLE"); //获取表格结果
    
                DataTable table = ToDataTable(SAPDataTable);  //转换DataTable
                string result = func.GetValue("X").ToString(); //获取指定返回结果
    
            }
    
            /// <summary>
            /// RfcTable 转换为 DataTable
            /// </summary>
            /// <param name="myrfcTable"></param>
            /// <returns></returns>
            public DataTable ToDataTable(IRfcTable myrfcTable)
            {
                DataTable loTable = new DataTable();
                int liElement;
                for (liElement = 0; liElement <= myrfcTable.ElementCount - 1; liElement++)
                {
                    RfcElementMetadata metadata = myrfcTable.GetElementMetadata(liElement);
    
                    loTable.Columns.Add(metadata.Name);
                }
    
                foreach (IRfcStructure Row in myrfcTable)
                {
                    DataRow ldr = loTable.NewRow();
    
                    for (liElement = 0; liElement <= myrfcTable.ElementCount - 1; liElement++)
                    {
                        RfcElementMetadata metadata = myrfcTable.GetElementMetadata(liElement);
                        ldr[metadata.Name] = Row.GetString(metadata.Name);
                    }
                    loTable.Rows.Add(ldr);
                }
                return loTable;
            }
    
            /// <summary>
            /// SAP RFC 连接信息设置
            /// </summary>
            /// <returns></returns>
            public RfcConfigParameters GetParameters()
            {
                RfcConfigParameters parms = new RfcConfigParameters();
    
                parms.Add(RfcConfigParameters.AppServerHost, "192.168.0.114");   //SAP主机IP
    
                parms.Add(RfcConfigParameters.SystemNumber, "01");  //SAP实例
    
                parms.Add(RfcConfigParameters.User, "RFC_EDI");  //用户名
    
                parms.Add(RfcConfigParameters.Password, "init1");  //密码
    
                parms.Add(RfcConfigParameters.Client, "300");  // Client 
    
                parms.Add(RfcConfigParameters.Language, "ZH");  //登陆语言
    
                parms.Add(RfcConfigParameters.PoolSize, "10");
    
                parms.Add(RfcConfigParameters.IdleTimeout, "600");
    
                parms.Add(RfcConfigParameters.Name, "DAP");
    
                return parms;
            } 
        }
    }
    <?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>
      </configSections>
      <SAP.Middleware.Connector>
        <ClientSettings>
          <DestinationConfiguration>
            <destinations>
              <add NAME="dad" USER="ddac" PASSWD="qwe" CLIENT="110" SYSNR="00" ASHOST="192.168.0.111" LANG="ZH" GROUP="PUBLIC" MAX_POOL_SIZE="10" IDLE_TIMEOUT="600"></add>
            </destinations>
          </DestinationConfiguration>
        </ClientSettings>
      </SAP.Middleware.Connector>
    </configuration>
  • 相关阅读:
    八 sizeof枚举
    九 推算程序结果
    十 交换变量特殊写法
    十一 移位-加减优先级 define undef
    十二 部分易忽略的优先级优先级
    十三 C语言的#特殊用法
    十四 访问数组:指针形式,下标形式
    VS出现未加载wntdll.pdb的解决办法
    C++继承产生的问题
    opencv加载图片imread失败的原因
  • 原文地址:https://www.cnblogs.com/Liyuting/p/14132187.html
Copyright © 2020-2023  润新知