设为首页 收藏本站
查看: 1054|回复: 0

[经验分享] C# 在項目中使用SAP

[复制链接]

尚未签到

发表于 2015-9-17 10:58:19 | 显示全部楼层 |阅读模式
  1.添加引用 sapnco.dll
  此文件時SAP的一個類庫,版本是3.0
  2.在web.config中進行配置
  <appSettings>
        <add key="Type" value="3"/>
        <add key="NAME" value="DEV"/>
        <add key="ASHOST" value="127.0.0.1"/> //SAP地址
        <add key="SYSNR" value="00"/>
        <add key="CLIENT" value="600"/>
        <add key="Language" value="EN"/> //使用版本
        <add key="USER" value="AAA"/> //登陸用戶名
        <add key="PASSWD" value="BBB"/>// 登陸密碼
        </appSettings>
  3.添加一個SAPSeverInfo,存放web.config中信息
  代碼如下:


DSC0000.gif DSC0001.gif View Code


public   class SAPSeverInfo
    {
      public string NAME { set; get; }
      public string ASHOST { set; get; }
      public string SYSNR { set; get; }
      public string CLIENT { set; get; }
      public string LANG { set; get; }
      public string USER { set; get; }
      public string PASSWD { set; get; }
      public string Type { set; get; }
    }
  4.添加初始化SAP基本信息的類SapConfig
  代碼如下:


View Code


public class SapConfig : IDestinationConfiguration
  {

      #region IDestinationConfiguration 成員
      private SAPSeverInfo info;
      public SapConfig(SAPSeverInfo info) {
          this.info = info;
      }
      public RfcConfigParameters GetParameters(string destinationName)
      {
          try
          {
              if ("PRD".Equals(destinationName))
              {
                  RfcConfigParameters parms = new RfcConfigParameters();
                  parms.Add(RfcConfigParameters.AppServerHost, info.ASHOST);
                  parms.Add(RfcConfigParameters.Client, info.CLIENT);
                  parms.Add(RfcConfigParameters.User, info.USER);
                  parms.Add(RfcConfigParameters.Password, info.PASSWD);
                  parms.Add(RfcConfigParameters.Language, info.LANG);
                  parms.Add(RfcConfigParameters.SystemNumber, info.SYSNR);
                  return parms;
              }
              else
              {
                  return null;
              }
          }
          catch (Exception ex)
          {
              return null;
          }
      }
      #endregion
      public bool ChangeEventsSupported()
      {
          return false;
      }

      public event RfcDestinationManager.ConfigurationChangeHandler ConfigurationChanged;

  }
  5.定義SAP操作類SAPServerConnector
  代碼如下:


View Code


public  class SAPServerConnector:IDisposable
    {
       private SAPSeverInfo sapInfo = null;     
       private RfcDestination prd =null;
       private SapConfig sapConfig = null;
       /// <summary>
       /// 晦獄 儅撩濠
       /// </summary>
       public SAPServerConnector()
       {
           // SAP 憮幗 翱唸 僥濠翮擊 儅撩朝 Helper 贗楚蝶 偃羹蒂 儅撩棻.
           try
           {
           //if (RfcDestinationManager.GetDestination("PRD") == null)
           //{
               this.sapInfo = Common.GetSapServerInfo();
               sapConfig = new SapConfig(this.sapInfo);
                   SAP.Middleware.Connector.RfcDestinationManager.RegisterDestinationConfiguration(sapConfig);
           //}
               prd = RfcDestinationManager.GetDestination("PRD");
           }
           catch (Exception ex)
           {
               return;
           }
       }

       public DataTable getSapFunctionToTable(string funName, Dictionary<string, string> lstParameters
                                , string TableName,IRfcTable rtbIput,string  tableindex
                                , Dictionary<string, string> outParameters
                                ,List<string> outList)
       {
           try
           {
               DataTable dt = new DataTable();
               RfcRepository repo = prd.Repository;
               IRfcFunction Z_RFC_ZCOX = repo.CreateFunction(funName);
               foreach (var item in lstParameters)
               {
                   Z_RFC_ZCOX.SetValue(item.Key, item.Value);
               }
               Z_RFC_ZCOX.SetValue(tableindex, rtbIput);
               Z_RFC_ZCOX.Invoke(prd);
               IRfcTable rtb = Z_RFC_ZCOX.GetTable(TableName);
               foreach (var item in outList)
                {
                    outParameters[item] = Z_RFC_ZCOX.GetString(item);
                }
               dt = CreateTable(rtb, TableName);
               return dt;
           }
           catch (Exception ex)
           {
               return null;
               //throw new Exception(ex.Message);
           }
       }

       /// <summary>
       /// 根据返回的数据,生成datatable
       /// </summary>
       /// <param name="rtb"></param>
       /// <param name="TableName"></param>
       /// <returns></returns>
         public DataTable CreateTable(IRfcTable rtb,string TableName)
        {
            DataTable dt = new DataTable(TableName);

            for (int i = 0; i <= rtb.ElementCount - 1; i++)
            {
                System.Data.DataColumn dcl = new DataColumn(rtb.GetElementMetadata(i).Name);
                dt.Columns.Add(dcl);
            }
            for (int k = 0; k <= rtb.RowCount - 1; k++)
            {
                DataRow dr = dt.NewRow();
                for (int i = 0; i <= rtb.ElementCount - 1; i++)
                {
                    dr = rtb[k].GetValue();
                }
                dt.Rows.Add(dr);
            }
            return dt;
        }
         public IRfcTable CreateRfcTable(DataTable dt,string funName, string TableName)
         {
             try
             {
                 RfcRepository repo = prd.Repository;
                 IRfcFunction Z_RFC_ZCOX = repo.CreateFunction(funName);
                 IRfcTable rtb = Z_RFC_ZCOX.GetTable(TableName,true);
                 for (int i = 0; i < dt.Rows.Count; i++)
                 {
                     rtb.Append();
                     for (int j = 0; j < dt.Columns.Count; j++)
                     {
                         rtb[j].SetValue(dt.Rows[j].ToString());
                     }
                 }
                 return rtb;
             }
             catch (Exception ex)
             {
                 return null;
             }
         }

         #region IDisposable 成員
         public void Dispose()
         {
             RfcDestinationManager.UnregisterDestinationConfiguration(sapConfig);
         }
         #endregion
    }
  6.在程序中調用,定義一個 SapOrderM 繼承SAPServerConnector
  代碼如下:


View Code


    class SapOrderM : SAPServerConnector
    {
        public DataTable getFunZ_RFC_CREATE_ORDER_SA(string CodeNo, DataTable ZITMREC, Model.Dealer.DealerDataTable draler
                                                        , Dictionary<string, string> outParameters, string IVDATU, string IKUNWE)
        {
            Dictionary<string, string> lstParameters = new Dictionary<string, string>();
            List<string> outList = new List<string>();
            lstParameters.Add("IKUNNR", draler[0].VATID);
            lstParameters.Add("IKUNWE", IKUNWE);
            lstParameters.Add("IVKORG", draler[0].VKORG);
            lstParameters.Add("IVTWEG", draler[0].VTWEG);
            lstParameters.Add("ISPART", draler[0].Dept);
            lstParameters.Add("IVKGRP", draler[0].VKGRP);
            lstParameters.Add("IBSTKD", CodeNo);
            lstParameters.Add("IVDATU", IVDATU);
            outList.Add("OVBELN");
            outList.Add("OAMT");
            outList.Add("OCMSTK");
            outList.Add("OTYPE");
            outList.Add("OMESSAGE");
            outList.Add("ODATUM");
            outList.Add("OUZEIT");
            outList.Add("OLFGSK");
            IRfcTable rtbIput = CreateRfcTable(ZITMREC, "Z_RFC_CREATE_ORDER_SA", "ZITMREC");
            System.Data.DataTable dt = new DataTable();
            dt=getSapFunctionToTable("Z_RFC_CREATE_ORDER_SA", lstParameters, "ZRITMREC"
                    , rtbIput, "ZITMREC", outParameters, outList);
            return dt;
        }}
  SapOrderM類中,也定義了部份要給SAP傳送數據的定義。
  IRfcTable rtbIput = CreateRfcTable(ZITMREC, "Z_RFC_CREATE_ORDER_SA", "ZITMREC");
  這個函數,是把實際的Table數據,轉換成SAP認識的table 。
  同樣,讀取到SAP的數據table,也是需要轉換的。
  如果是字符串,則不需要轉換。
  7.操作SapOrderM類
  A。首先定義傳送給SAP 的數據
  如果需要傳送table數據給SAP


View Code


     #region datatable 数据准备
            DataTable ZITMREC = new DataTable("ZITMREC");
            ZITMREC.Columns.Add("POSNR", Type.GetType("System.String"));
            ZITMREC.Columns.Add("MATNR", Type.GetType("System.String"));
            ZITMREC.Columns.Add("KWMENG", Type.GetType("System.Int16"));
            ZITMREC.Columns.Add("MFLAG", Type.GetType("System.String"));
            for (int i = 0; i < rouseTable.Rows.Count; i++)
            {
                DataRow row = ZITMREC.NewRow();
                row["MATNR"] = rouseTable.Rows["Barcode"].ToString();
                row["KWMENG"] = int.Parse(rouseTable.Rows["Qty"].ToString());
                row["MFLAG"] = "I";
                ZITMREC.Rows.Add(row);
            }
            #endregion
  其中 ZITMREC是 SAP定義的表名
  

运维网声明 1、欢迎大家加入本站运维交流群:群②:261659950 群⑤:202807635 群⑦870801961 群⑧679858003
2、本站所有主题由该帖子作者发表,该帖子作者与运维网享有帖子相关版权
3、所有作品的著作权均归原作者享有,请您和我们一样尊重他人的著作权等合法权益。如果您对作品感到满意,请购买正版
4、禁止制作、复制、发布和传播具有反动、淫秽、色情、暴力、凶杀等内容的信息,一经发现立即删除。若您因此触犯法律,一切后果自负,我们对此不承担任何责任
5、所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其内容的准确性、可靠性、正当性、安全性、合法性等负责,亦不承担任何法律责任
6、所有作品仅供您个人学习、研究或欣赏,不得用于商业或者其他用途,否则,一切后果均由您自己承担,我们对此不承担任何法律责任
7、如涉及侵犯版权等问题,请您及时通知我们,我们将立即采取措施予以解决
8、联系人Email:admin@iyunv.com 网址:www.yunweiku.com

所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其承担任何法律责任,如涉及侵犯版权等问题,请您及时通知我们,我们将立即处理,联系人Email:kefu@iyunv.com,QQ:1061981298 本贴地址:https://www.yunweiku.com/thread-114869-1-1.html 上篇帖子: 自学SAP三道坎 下篇帖子: vs2010水晶报表问题"未能加载文件或程序集“file:///C:\Program Files\SAP BusinessObjects\Crystal Rep
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

扫码加入运维网微信交流群X

扫码加入运维网微信交流群

扫描二维码加入运维网微信交流群,最新一手资源尽在官方微信交流群!快快加入我们吧...

扫描微信二维码查看详情

客服E-mail:kefu@iyunv.com 客服QQ:1061981298


QQ群⑦:运维网交流群⑦ QQ群⑧:运维网交流群⑧ k8s群:运维网kubernetes交流群


提醒:禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.


本站大部分资源是网友从网上搜集分享而来,其版权均归原作者及其网站所有,我们尊重他人的合法权益,如有内容侵犯您的合法权益,请及时与我们联系进行核实删除!



合作伙伴: 青云cloud

快速回复 返回顶部 返回列表