用友U8開發-winform開發的界面使用UAP原生參照

1. 先看下展示的效果
   

    

    

2. 開發說明
   2.1 工程中引用COM組件：Microsoft ActiveX Data Objects 2.7 Library，由於U8原生開發的參照控件都是VB6開發的，參照控件中使用了Recordset，因此需要引用該組件
   
   

   2.2 添加U8RefService.dll的引用，路徑為X:\U8SOFT\ufcomsql，X為安裝目錄，該文件為U8參照對應的引用
   
   

    

    

   2.3 在對應的按鈕點擊事件實現以下代碼

               U8RefService.IService refService = new U8RefService.IService();
               refService.RefType = U8RefService.RefTypes.RefArchive;
               refService.RefID = "BomQuery";//UAP設計器-參照設計器，參照ID
               Recordset rds1 = null;
               Recordset rds2 = null;
               object obj = LoginProperty.U8Login;
               string errStr = "";
               string sMetaXML = "";
               refService.MetaXML = sMetaXML;
               refService.ShowRefSecond(ref obj, ref rds1, ref rds2, ref errStr);
   
               if (rds2 != null && rds2.EOF == false)
               {
                   txttProductCode.Text = rds2.Fields["cinvcode"].Value.ToString();
                   txttProductName.Text = rds2.Fields["cinvname"].Value.ToString();
                   txtBomId.Text = rds2.Fields["BomId"].Value.ToString();
                   if (!string.IsNullOrEmpty(rds2.Fields["version"].Value.ToString()))//如果為空則為替代bom
                   {
                       txtBomVersion.Text = rds2.Fields["version"].Value.ToString();
                       txtBomVersionDesc.Text = rds2.Fields["versiondesc"].Value.ToString();
                   }
                   else
                   {
                       txtBomVersion.Text = rds2.Fields["identcode"].Value.ToString();
                       txtBomVersionDesc.Text = rds2.Fields["identdesc"].Value.ToString();
                   }
               }

   其中RefID打開UAP直接查詢即可