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

[经验分享] .NET连接SAP系统专题:C#调用RFC代码(三) (转)

[复制链接]

尚未签到

发表于 2015-9-19 12:07:30 | 显示全部楼层 |阅读模式
  本文就说明在C#中如何编写代码来调用SAP中的RFC函数获取数据。(Winform32)
  首先需要引用两个NCO3.0的DLL,下载地址在文后。
  然后在程序代码页面引用:
  using SAP.Middleware.Connector;
  然后所有的代码如下:
  namespace SAP_RFC
  {
  public partial class Form1 : Form
  {
  string MATNR = string.Empty;
  public Form1()
  {
  InitializeComponent();
  }
  public void nco()
  {
  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("ZRFC_MARA_INFO");   //调用函数名
  companyBapi.SetValue("MATNR", MATNR);   //设置Import的参数
  companyBapi.Invoke(prd);   //执行函数
  IRfcTable table = companyBapi.GetTable("IT_MARA");  //获取相应的品号内表
  string MAKTX = companyBapi.GetValue("MAKTX").ToString();  //获取品名
  DataTable dt = new DataTable();  //新建表格
  dt.Columns.Add("品号");  //表格添加一列
  for (int i = 0; i < table.RowCount; i++)
  {
  table.CurrentIndex = i;  //当前内表的索引行
  DataRow dr = dt.NewRow();
  dr[0] = table.GetString("MATNR");  //获取表格的某行某列的值
  dt.Rows.Add(dr);  //填充该表格的值
  }
  if (MATNR == "")
  {
  for (int i = 0; i < dt.Rows.Count; i++)
  {
  this.comboBox1.Items.Add(dt.Rows[0].ToString());   //填充下拉框
  }
  }
  this.label1.Text = MAKTX;   //显示品名
  prd = null;
  repo = null;
  }
  
  //登陆SAP前的准备工作
  public class MyBackendConfig : IDestinationConfiguration
  {
  public RfcConfigParameters GetParameters(String destinationName)
  {
  if ("PRD_000".Equals(destinationName))
  {
  RfcConfigParameters parms = new RfcConfigParameters();
  parms.Add(RfcConfigParameters.AppServerHost, "192.168.1.3");   //SAP主机IP
  parms.Add(RfcConfigParameters.SystemNumber, "00");  //SAP实例
  parms.Add(RfcConfigParameters.User, "MENGXIN");  //用户名
  parms.Add(RfcConfigParameters.Password, "5239898");  //密码
  parms.Add(RfcConfigParameters.Client, "888");  // Client
  parms.Add(RfcConfigParameters.Language, "ZH");  //登陆语言
  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;
  }
  
  private void Form1_Load(object sender, EventArgs e)
  {
  comboBox1.Items.Clear();
  nco();
  comboBox1.SelectedIndex = 1;
  }
  //当下拉框索引变化的时候传递品号进去查询出品名出来
  private void comboBox1_SelectedIndexChanged(object sender, EventArgs e)
  {
  MATNR = comboBox1.Text.ToString();
  nco();
  }
  }
  }

我想这个C#代码很简单,我就不多做详细说明了。结果如下:
DSC0000.jpg
  SAP中品号信息如下:
DSC0001.jpg
  由此可见数据完全OK,调用成功。
  程序在第一次载入的时候有点慢,在链接SAP和登陆。后续在下拉框变化的时候就立马显示出品名出来了,丝毫没有任何停顿。第二次链接SAP的时候大概是不必在登陆了,SAP系统中已有登陆信息,运行T-CODE:SM04
DSC0002.jpg
  红色框中这两个即是我们的RFC调用所留下的登录会话。一旦我们的C#程序退出之后,这两个RFC也就退出了。
  如果我们的C#程序是ASP.NET的话,页面关闭之后这个RFC登录信息都还在的。除非IIS关闭,否则只有等到SAP系统超时退出这两个登陆会话了。
  出处(博客地址:http://www.cnblogs.com/mengxin523/)

运维网声明 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-115796-1-1.html 上篇帖子: SAP登陆界面TITLE修改方法(Method of SAP Logon GUI Title Modification) 下篇帖子: SAP R3和JAVA交换数据之JCO
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

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

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

扫描微信二维码查看详情

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


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


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


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



合作伙伴: 青云cloud

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