一个需求,winform根据料号,查询sap 的bom,然后用控件调用sap内置bom函数,根据料号查询bom用TreeView把bom展示出来树形控件TreeView展示出来,TreeView的好处是父级子级直观明了。
sap关于bom 的tcode 主要是cs11 ,cs12,cs13。cs12可以显示多级bom,查询出来是这样的:
这种表现方式,不是很直观。
sap内置的有一个bom 函数,CS_BOM_EXPL_MAT_V2 可以逐级BOM 展开。但是,CS_BOM_EXPL_MAT_V2是一个常规函数,并不是一个远程函数,c#不能调用。
我自己建一个远程函数,然后在这个远程函数里面去调用CS_BOM_EXPL_MAT_V2。
新建一个远程函数,处理类型设置 成远程启用的模块,
新建导入参数:
参数名称,关联类型参照CS_BOM_EXPL_MAT_V2,有三个参数是必须的,有效起始日期 DATUV,物料编号 MTNRV,工厂 WERKS。
导出和表 这里设置 参照 CS_BOM_EXPL_MAT_V2
然后开始写函数:代码如下
FUNCTION zfm_******bom001. *"---------------------------------------------------------------------- *"*"本地接口: *" IMPORTING *" VALUE(DATUV) LIKE STKO-DATUV OPTIONAL *" VALUE(MTNRV) LIKE MARA-MATNR OPTIONAL *" VALUE(STLAN) LIKE STZU-STLAN OPTIONAL *" VALUE(STLAL) LIKE STKO-STLAL OPTIONAL *" VALUE(MKTLS) LIKE CSDATA-XFELD OPTIONAL *" VALUE(MEHRS) LIKE CSDATA-XFELD OPTIONAL *" VALUE(RNDKZ) LIKE CSDATA-XFELD OPTIONAL *" VALUE(WERKS) LIKE MARC-WERKS OPTIONAL *" EXPORTING *" VALUE(TOPMAT) LIKE CSTMAT STRUCTURE CSTMAT *" VALUE(DSTST) LIKE CSDATA-XFELD *" TABLES *" STB STRUCTURE STPOX *" MATCAT STRUCTURE CSCMAT OPTIONAL *" EXCEPTIONS *" ERROR *"---------------------------------------------------------------------- CALL FUNCTION 'CS_BOM_EXPL_MAT_V2' EXPORTING capid = 'PP01' "应用程序 ID datuv = DATUV "有效日期 mtnrv = MTNRV "物料号 stlan = '1' "BOM Usage#1 is product stlal = '1' "Alternative BOM mehrs = 'X' "多级展开 mktls = 'X' werks = WERKS "工厂号 IMPORTING topmat = topmat "顶级物料数据 TABLES stb = stb "BOM 明细表 matcat = matcat. "父级物料清单表 IF sy-subrc <> 0. WRITE:/ sy-subrc. RAISE error. ENDIF. 激活,测试一下,结果是对的,说明这个远程函数是没问题的。下面开始用c# 去调用这个远程函数。
ENDFUNCTION.
c# 调用sap远程函数,搜索一下,大多人使用 的 是.net connector 3.0。我这次用的是开源程序 SapNwRfc,开源地址是:https://github.com/huysentruitw/SapNwRfc,强烈推荐非常好用!
c#代码,第一步获取连接:
public class SAPConnection { public static SapConnection OpenConnection() { string connectionString = "AppServerHost=192.168.1.**; SystemNumber=00; User=***;Password=***; Client=300; Language=EN; PoolSize=5; Trace=8"; var connection = new SapConnection(connectionString); connection.Connect(); return connection; } }
创建winform窗体,大概是这样的:
查询按钮事件代码,如下,先把bom数据查询出来,然后再通过递归函数 用treeView展示出来:
private void button1_Click(object sender, EventArgs e) { dataGridView1.DataSource = null; dataGridView1.Refresh(); listSTB.Clear(); var connection = SAPConnection.OpenConnection(); var someFunction = connection.CreateFunction("ZFM_****001"); string str1 = someFunction.Metadata.Parameters.Count().ToString(); string strdate = dtp_DATUV.Value.ToString("yyyyMMdd"); var result = someFunction.Invoke<EexportCS_BOMResult>(new ImportParameters_CS_BOM { DATUV = strdate, MTNRV = txt_MTNRV.Text.Trim(), WERKS = txt_WERKS.Text.Trim(), }); if (result.STB.Count() > 0) { foreach (var stb in result.STB) { var someFunction1 = connection.CreateFunction("ZFM_****002"); var result1 = someFunction1.Invoke<EexportZHUBOM002Result>(new ImportParameters_ZHUBOM002 { I_MTNRV = stb.IDNRK, }); stb.OJTXB = result1.T_MAKT[0].MAKTX; listSTB.Add(stb); } } connection.Disconnect(); dataGridView1.AutoGenerateColumns = false; dataGridView1.DataSource = listSTB; treeView1.Nodes.Clear(); treeView1.Refresh(); List<EexportSTB> list1 = listSTB.Where(a => a.STUFE == "1").ToList(); tn.Nodes.Clear(); tn.Text = result.TOPMAT.STLNR + "----" + result.TOPMAT.MATNR; AddChildModuleTreeNode(tn, list1); treeView1.Nodes.Add(tn); treeView1.Nodes[0].ExpandAll(); }
递归函数:
/// <summary> /// 递归函数 /// </summary> private void AddChildModuleTreeNode(TreeNode tn, List<EexportSTB> list1) { for (int i = 0; i < list1.Count; i++) { TreeNode node = new TreeNode(); node.Text = list1[i].IDNRK + "----" + list1[i].STLNR.ToString(); // node.Tag = ds.Tables[0].Rows[i]["module_id"].ToString(); tn.Nodes.Add(node); if (!string.IsNullOrEmpty(list1[i].XTLNR)) { List<EexportSTB> list2 = listSTB.Where(a => a.STLNR == list1[i].XTLNR).ToList(); AddChildModuleTreeNode(node, list2); } } }
最后查询结果展示:
标签:LIKE,c#,list1,VALUE,bom,TreeView,OPTIONAL,BOM From: https://www.cnblogs.com/jiqingsishenet/p/17744904.html