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

[经验分享] .NET调用SAP(RFC)

[复制链接]

尚未签到

发表于 2015-9-17 10:55:48 | 显示全部楼层 |阅读模式
  public void nco()
        {
            
            //MyBackendConfig config = new MyBackendConfig();
            IDestinationConfiguration ID = new MyBackendConfig();
  RfcDestinationManager.RegisterDestinationConfiguration(ID);
  
            RfcDestination prd = RfcDestinationManager.GetDestination("PRD_000");
            RfcDestinationManager.UnregisterDestinationConfiguration(ID);
  nco(prd);
  }
  
        public void nco(RfcDestination prd)
        {
  RfcRepository repo = prd.Repository;
  IRfcFunction companyBapi = repo.CreateFunction("Z_RFC_MB51N");   //调用函数名
  DateTime dt = DateTime.Today;
  companyBapi.SetValue("DATE",dt);   //设置Import的参数
  companyBapi.Invoke(prd);   //执行函数
  IRfcTable table = companyBapi.GetTable("IT_MB51");  //获取相应的品号内表
            //DataTable mb51 = new DataTable();  //新建表格
  
  try
            {
                SqlConnection conn = new SqlConnection("server=192.168.127.11;uid=sa;pwd=*****;database=MOLD;");
                string matnr;
                string lgort;
                string bwart;
                string mblnr;
                string ebeln;
                string lifnr;
                string aufnr;
                string sobkz;
                string kdauf;
                float menge;
                float dmbtr;
                for (int i = 0; i < table.RowCount; i++)
                {
                    table.CurrentIndex = i;
                    matnr = table.CurrentRow.GetString("MATNR");
                    lgort = table.CurrentRow.GetString("LGORT");
                    bwart = table.CurrentRow.GetString("BWART");
                    mblnr = table.CurrentRow.GetString("MBLNR");
                    ebeln = table.CurrentRow.GetString("EBELN");
                    lifnr = table.CurrentRow.GetString("LIFNR");
                    aufnr = table.CurrentRow.GetString("AUFNR");
                    sobkz = table.CurrentRow.GetString("SOBKZ");
                    kdauf = table.CurrentRow.GetString("KDAUF");
                    menge=float.Parse( table.GetString("MENGE"));
                    dmbtr=float.Parse( table.GetString("DMBTR"));
                     
                    conn.Open();
                    SqlCommand comm;
                    string select = "select * from dbo.rfc where Matnr='"+ matnr +"'";
                    comm = new SqlCommand(select, conn);
                    int j =Convert.ToInt32(comm.ExecuteScalar());
                    if (j != 0)
                    {
                        string s = "update dbo.rfc set [Count]=[Count] + '" + menge + "',LocalCurrency=LocalCurrency + '" + dmbtr + "' where Matnr='" + dmbtr + "'";
                        comm = new SqlCommand(s, conn);
                        comm.ExecuteNonQuery();
                    }
                    else
                    {
                        string s = "insert into dbo.rfc  values ('" + matnr + "','" + lgort + "','" + bwart + "','" + mblnr + "','" + ebeln + "','" + lifnr + "','" + aufnr + "','" + sobkz + "','" + kdauf + "','" + menge + "','" + dmbtr + "')";
                        comm = new SqlCommand(s, conn);
                        comm.ExecuteNonQuery();
                    }
                    conn.Close();
                }
               
            }
            catch(Exception ex)
            {
                MessageBox.Show(ex.Message);
            }
            finally
            {
               
            }
  prd = null;
  repo = null;
         
  }
  public class MyBackendConfig : IDestinationConfiguration
        {
  public RfcConfigParameters GetParameters(String destinationName)
            {
  if ("PRD_000".Equals(destinationName))
                {
  RfcConfigParameters parms = new RfcConfigParameters();
  parms.Add(RfcConfigParameters.AppServerHost, "192.168.5.55");   //SAP主机IP
  parms.Add(RfcConfigParameters.SystemNumber, "PRD");  //SAP实例
  parms.Add(RfcConfigParameters.User, "RFCUSER");  //用户名
  parms.Add(RfcConfigParameters.Password, "1234");  //密码
  parms.Add(RfcConfigParameters.Client, "888");  // Client
  parms.Add(RfcConfigParameters.Language, "ZF");  //登陆语言
  parms.Add(RfcConfigParameters.PoolSize, "5");
  parms.Add(RfcConfigParameters.MaxPoolSize, "10");
  parms.Add(RfcConfigParameters.IdleTimeout, "60");
  return parms;
  }
  else
                    return null;
  }
  public bool ChangeEventsSupported()
            {
  return false;
  }
  public event RfcDestinationManager.ConfigurationChangeHandler ConfigurationChanged;
  }
        #endregion
  
        public void Form1_Load(object sender, EventArgs e)
        {
            nco();
  //System.Threading.Thread.Sleep(2000);
           
            Application.Exit();
        }

运维网声明 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-114867-1-1.html 上篇帖子: ASP.Net SAP Business On R/3 二次开发之添加销售报价单小结(2) 下篇帖子: 自学SAP三道坎
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

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

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

扫描微信二维码查看详情

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


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


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


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



合作伙伴: 青云cloud

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