一套通过c# sap-rfc 完整处理内表输入输出的程序

研究了3天c#接口处理sap接口，通过rfc生成凭证后，问题马上来了，如果需要批量输入表数据在sap里生成多行凭证，甚至保存数据该怎么处理呢？

马上投入研究内表输入输出！

于是研究了一套通过内表输入输出的程序，作为以后一个使用模板，希望公司以后使用rfc的时候能够用上，反正我先准备着，也算是今天晚上的一个收获。

具备条件：

sap

vs2010

ok开始！

sap里创建函数

上图-》

function源代码部分：

data: maxprice2 like sflight-price.

FUNCTION ZTEST_SIMPLE05.

*"----------------------------------------------------------------------

*"*"Local interface:

*"  IMPORTING

*"     VALUE(CARRID) LIKE  SFLIGHT-CARRID

*"     VALUE(CURRENCY) TYPE  S_CURRCODE OPTIONAL

*"  EXPORTING

*"     VALUE(PRICE) TYPE  S_PRICE

*"  TABLES

*"      AIRDATA STRUCTURE  SFLIGHT

*"      ZT001 STRUCTURE  T001

*"  EXCEPTIONS

*"      UNIT_NOT_FOUND

*"----------------------------------------------------------------------

select * from sflight into table airdata where carrid = carrid and currency = currency.

 *select * from t001 into table zt001 .

 if sy-subrc <> 0.

raise unit_not_found.

else.

perform getmaxprice2 tables airdata.

price = maxprice2.

endif.

  

ENDFUNCTION.

form getmaxprice2 tables l_tab structure sflight.

read table  l_tab  index 1.

maxprice2 = l_tab-price.

endform.

 这里我通过se38建立一个测试程序

源代码部分：

*& Report  ZTEST21

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

 

REPORT  ZTEST22.

 

parameter: xarrid like sflight-carrid obligatory,

lcurr type s_currcode default 'USD'.

data : lpprice type s_price,

lt_air like standard table of sflight with header line,

lt_t001 like standard table of t001 with header line.

CALL FUNCTION 'ZTEST_SIMPLE05'

  EXPORTING

        CARRID         = xarrid

    CURRENCY       = lcurr

  IMPORTING

    PRICE          = lpprice

  TABLES

    AIRDATA        = lt_air

    ZT001                = lt_t001

 EXCEPTIONS

   UNIT_NOT_FOUND       = 1

   OTHERS               = 2

          .

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

 

write: lpprice.

loop at lt_air.

  write: / lt_air-carrid,

  lt_air-connid,

  lt_air-fldate.

endloop.

 

loop at lt_t001.

  write: / lt_t001-bukrs,

 

   lt_t001-butxt.

endloop.

 执行结果：

注意了！lt_t001内表中没有数据，因为function中的

 *select * from t001 into table zt001 .这段代码注释了。

这也是为了建立c#项目做准备。

下面c#登场！

vs2010建立项目

在form中建立1个标签，2个文本框

在后台cs代码中输入

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;

using SAP.Middleware.Connector;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            RfcConfigParameters rfcPar = new RfcConfigParameters();
            rfcPar.Add(RfcConfigParameters.Name, "sss");
            rfcPar.Add(RfcConfigParameters.AppServerHost, "sss.sss.sss.sss");
            rfcPar.Add(RfcConfigParameters.Client, "sss");
            rfcPar.Add(RfcConfigParameters.User, "sss");
            rfcPar.Add(RfcConfigParameters.Password, "ssssss");
            rfcPar.Add(RfcConfigParameters.SystemNumber, "00");
            rfcPar.Add(RfcConfigParameters.Language, "EN");
            RfcDestination dest = RfcDestinationManager.GetDestination(rfcPar);
            RfcRepository rfcrep = dest.Repository;
            IRfcFunction myfun = null;
            myfun = rfcrep.CreateFunction("ZTEST_SIMPLE05");
            IRfcTable rfcTable = myfun.GetTable("ZT001");

            rfcTable.Insert();
            rfcTable.CurrentRow.SetValue("BUKRS", "5001");
            rfcTable.CurrentRow.SetValue("BUTXT", "梦想有限公司");
            rfcTable.Insert();
            rfcTable.CurrentRow.SetValue("BUKRS", "5002");
            rfcTable.CurrentRow.SetValue("BUTXT", "实现有限公司");
            rfcTable.Insert();
            rfcTable.CurrentRow.SetValue("BUKRS", "5003");
            rfcTable.CurrentRow.SetValue("BUTXT", "梦想与现实有限公司");
     

            myfun.SetValue("CARRID", "AA");//SAP里面的传入参数
            myfun.SetValue("CURRENCY", "USD");//SAP里面的传入参数
            myfun.Invoke(dest);

            string ERMSG = myfun.GetValue("PRICE").ToString();
            this.label1.Text = ERMSG;
            dest = null;
            rfcrep = null;

            IRfcTable IrfTable = myfun.GetTable("AIRDATA");
            //提前实例化一个空的表结构出来
            DataTable dt = new DataTable();
            dt.Columns.Add("CARRID");
            dt.Columns.Add("CONNID");
            dt.Columns.Add("FLDATE");
            for (int i = 0; i < IrfTable.Count; i++)
            {
                IrfTable.CurrentIndex = i;
                DataRow dr = dt.NewRow();
                dr["CARRID"] = IrfTable.GetString("CARRID");
                dr["CONNID"] = IrfTable.GetString("CONNID");
                dr["FLDATE"] = IrfTable.GetString("FLDATE");
                textBox1.AppendText(IrfTable.GetString("CARRID")+IrfTable.GetString("CONNID")+IrfTable.GetString("FLDATE")+'\n');
                    dt.Rows.Add(dr);
            }
            IRfcTable IrfTable1 = myfun.GetTable("ZT001");
            //提前实例化一个空的表结构出来
            DataTable dt1 = new DataTable();
            dt1.Columns.Add("BUKRS");
            dt1.Columns.Add("BUTXT");
            for (int i = 0; i < IrfTable1.Count; i++)
            {
                IrfTable1.CurrentIndex = i;
                DataRow dr1 = dt1.NewRow();
                dr1["BUKRS"] = IrfTable1.GetString("BUKRS");
                dr1["BUTXT"] = IrfTable1.GetString("BUTXT");
                textBox2.AppendText(IrfTable1.GetString("BUKRS") + IrfTable1.GetString("BUTXT") + '\n');
                dt1.Rows.Add(dr1);
            }
        }
    }
}

输出效果

 

 

 补充一下，上述c#的代码如果最后添加一下（需要添加2个dataGridView控件）

           dataGridView2.DataSource = dt;
            dataGridView1.DataSource = dt1;

则会把2个表都用表格形式表现出来。