SAP接口-C#-NCO

怼烎@ 2022-05-26 12:17 176阅读 0赞

效果如下：

![70][]

采购按钮代码

private void button1\_Click(object sender, EventArgs e)  
        \{  
            RfcConfigParameters rfcPar = new RfcConfigParameters();  
            rfcPar.Add(RfcConfigParameters.Name, "S4P");  
            rfcPar.Add(RfcConfigParameters.AppServerHost, "192.168.1.9");  
            rfcPar.Add(RfcConfigParameters.Client, "800");  
            rfcPar.Add(RfcConfigParameters.User, "TEST");  
            rfcPar.Add(RfcConfigParameters.Password, "123456");  
            rfcPar.Add(RfcConfigParameters.SystemNumber, "00");  
            rfcPar.Add(RfcConfigParameters.Language, "ZH");  
            RfcDestination dest = RfcDestinationManager.GetDestination(rfcPar);  
            RfcRepository rfcrep = dest.Repository;  
            IRfcFunction myfun = null;  
            myfun = rfcrep.CreateFunction("Z\_MM01");  
            myfun.SetValue("IV\_EBELN", textBox1.Text);//SAP里面的传入参数  
            myfun.Invoke(dest);  
            IRfcTable IrfTable = myfun.GetTable("ZRE\_TB");  
            //提前实例化一个空的表结构出来  
            DataTable dt = new DataTable();  
            dt.Columns.Add("USERID");  
            dt.Columns.Add("USERPWD");  
            dt.Columns.Add("USERADDRESS");  
            dt.Columns.Add("USERADDRESS2");  
            dt.Columns.Add("USERADDRESS3");  
            dt.Columns.Add("USERADDRESS4");  
            dt.Columns.Add("USERADDRESS5");  
            dt.Columns.Add("USERADDRESS6");  
            dt.Columns.Add("USERADDRESS7");  
            //循环把IRfcTable里面的数据放入Table里面，因为类型不同，不可直接使用。  
            for (int i = 0; i < IrfTable.Count; i++)  
            \{  
                IrfTable.CurrentIndex = i;  
                DataRow dr = dt.NewRow();  
                dr\["USERID"\] = IrfTable.GetString("EBELN");  
                dr\["USERPWD"\] = IrfTable.GetString("EBELP");  
                dr\["USERADDRESS"\] = IrfTable.GetString("LIFNR");  
                dr\["USERADDRESS2"\] = IrfTable.GetString("NAME1");  
                dr\["USERADDRESS3"\] = IrfTable.GetString("BEDAT");  
                dr\["USERADDRESS4"\] = IrfTable.GetString("MATNR");  
                dr\["USERADDRESS5"\] = IrfTable.GetString("MAKTX");  
                dr\["USERADDRESS6"\] = IrfTable.GetString("MENGE");  
                dr\["USERADDRESS7"\] = IrfTable.GetString("MEINS");  
                dt.Rows.Add(dr);  
            \}  
            //将重新生成的Table赋值给数据控件DataGridView。  
  
  
            dataGridView1.DataSource = dt;

上面参数设置

![70 1][]

SAP部份

![70 2][]

![70 3][]

![70 4][]

![70 5][]

![70 6][]

FUNCTION z\_mm01.  
\*"----------------------------------------------------------------------  
\*"\*"本地接口：  
\*"  IMPORTING  
\*"     VALUE(IV\_EBELN) TYPE  EBELN  
\*"  TABLES  
\*"      ZRE\_TB STRUCTURE  ZMMTI001  
\*"----------------------------------------------------------------------  
  
  DATA: gs\_zmmti001  TYPE    zmmti001 .  
  
  
  DATA: gt\_zmmti001 TYPE TABLE OF   zmmti001 .  
\*  
\*  gs\_zmmti001-ebeln = '420611'.  
\*  gs\_zmmti001-ebelp = '00010' .  
\*  gs\_zmmti001-matnr = '10.130.000001' .  
\*  gs\_zmmti001-menge =  30 .  
\*  
\*  APPEND gs\_zmmti001 TO gt\_zmmti001.  
\*  
\*  gs\_zmmti001-ebeln = '420611'.  
\*  gs\_zmmti001-ebelp = '00020' .  
\*  gs\_zmmti001-matnr = '10.130.000002' .  
\*  gs\_zmmti001-menge =  30 .  
\*  
\*  APPEND gs\_zmmti001 TO gt\_zmmti001 .  
\*  
\*  gs\_zmmti001-ebeln = '420611'.  
\*  gs\_zmmti001-ebelp = '00030' .  
\*  gs\_zmmti001-matnr = '10.130.000001' .  
\*  gs\_zmmti001-menge =  30 .  
\*  APPEND gs\_zmmti001 TO gt\_zmmti001 .  
\*  CLEAR  gs\_zmmti001 .  
  
  
  
  SELECT a~mandt a~ebeln   b~ebelp  a~lifnr  c~name1  a~bedat b~matnr d~maktx b~menge b~meins  
    INTO TABLE zre\_tb  
   FROM ekko AS a  
   INNER JOIN ekpo AS b  ON a~ebeln = b~ebeln  
    INNER JOIN lfa1 AS c  ON a~lifnr = c~lifnr  
    INNER JOIN  makt AS d ON b~matnr = d~matnr  
    WHERE a~ebeln =  iv\_ebeln .  
  .  
  
  
  
  
\*  
\*  LOOP AT gt\_zmmti001  INTO  gs\_zmmti001 WHERE  EBELN = iv\_ebeln .  
\*    APPEND gs\_zmmti001 TO zre\_tb .  
\*  ENDLOOP .  
\*  
  
  
  
  
  
ENDFUNCTION.

SAP 表

![70 7][]

[70]: /images/20220526/3ffffcbdf5c44af09fc1cc11413aa462.png
[70 1]: /images/20220526/d5334780d59f4f32aecfe106fcc88fc1.png
[70 2]: /images/20220526/b2988f6a1c54438e9b92952879985516.png
[70 3]: /images/20220526/9bf7f06950df4972a1b0660646d344b7.png
[70 4]: /images/20220526/066c3093daf84004aa4611cf11751ff5.png
[70 5]: /images/20220526/ac2c71de8d824291b9afad8666d7c8a1.png
[70 6]: /images/20220526/34bfe2eeb0234800a3c9e5a6746458c1.png
[70 7]: /images/20220526/e2a4e3708b0241fa9204911115b40580.png