山东省住房城乡建设厅查询网站wordpress 执行顺序

实现目的：

在金蝶ERP采购申请列表界面，勾选某些行采购申请物料信息后，点击按钮推送到第三方系统。

实现思路：

通过WebService方式实现两个系统间的数据交互。

实现过程：

1、新建项目，然后通过Visual Studio IDE工具解析第三方WebService服务端地址，具体参照网上教程。

2、项目的app.config配置如下：

<?xml version="1.0" encoding="utf-8" ?>
<configuration><system.serviceModel><bindings><basicHttpBinding><binding name="BatchInsertPendingPurchaseDataServiceSoap" /></basicHttpBinding></bindings><client><endpoint address="http://192.168.23.250/BatchInsertPendingPurchaseDataService.asmx"binding="basicHttpBinding" bindingConfiguration="BatchInsertPendingPurchaseDataServiceSoap"contract="WebServiceClient.BatchInsertPendingPurchaseDataServiceSoap"name="BatchInsertPendingPurchaseDataServiceSoap" /></client></system.serviceModel>
</configuration>

3、创建WebService客户端调用程序：

using System;
using System.Collections.Generic;
using System.Linq;
using System.ServiceModel;
using System.Text;
using System.Threading.Tasks;
using K3Cloud.Purchase.Requisition.WebServiceClient;namespace K3Cloud.Purchase.Requisition
{public class BachInsertPendingPurchaseDataClient{public static string BachInsertData(List<DataItem> dataItems){try{string Url = "http://192.168.23.250/BatchInsertPendingPurchaseDataService.asmx";// 动态创建绑定和终结点var binding = new BasicHttpBinding();var endpoint = new EndpointAddress(Url);// 使用动态配置创建客户端using (var client = new BatchInsertPendingPurchaseDataServiceSoapClient(binding, endpoint)){return client.BatchInsertData(dataItems.ToArray());}}catch (Exception ex){Console.WriteLine($"调用WebService时发生错误: {ex.Message}");if (ex.InnerException != null){Console.WriteLine($"内部错误: {ex.InnerException.Message}");}return ex.Message;}}}
}

4、新建列表插件，获取选中的列表行数据，然后调用WebService传输数据：

using Kingdee.BOS;
using Kingdee.BOS.Core.DynamicForm.PlugIn.Args;
using Kingdee.BOS.App.Data;
using Kingdee.BOS.Core.DynamicForm.PlugIn.ControlModel;using Kingdee.BOS.Core.List;using Kingdee.BOS.Core.List.PlugIn;using Kingdee.BOS.Util;
using System.Collections.Generic;
using System.ComponentModel;using System.Linq;
using System.Data;
using K3Cloud.Purchase.Requisition.TRMWebServiceClient;
using System;namespace K3Cloud.Purchase.Requisition
{public class PushPurchaseRequisition:AbstractListPlugIn{public override void BarItemClick(BarItemClickEventArgs e){base.BarItemClick(e);if (e.BarItemKey.EqualsIgnoreCase("tbGetListSelectedRows")){var lv = this.View as IListView;if (lv == null){return;}ListSelectedRowCollection selectedRows = lv.SelectedRowsInfo;if (selectedRows == null || selectedRows.Count == 0){this.View.ShowMessage("当前没有行被选中！");return;}// 1. 收集所有选中行的单据体主键（FEntryID）var entryIds = selectedRows.Select(item => item.EntryPrimaryKeyValue).ToList();// 2. 构建批量查询SQLvar sql = "SELECT * FROM vw_PUR_Requisition_y WHERE LineNumber IN ({0})";var paramNames = new List<string>();var sqlParams = new List<SqlParam>();for (int i = 0; i < entryIds.Count; i++){var paramName = $"@id{i}";paramNames.Add(paramName);sqlParams.Add(new SqlParam(paramName, KDDbType.Int64, entryIds[i]));}sql = string.Format(sql, string.Join(",", paramNames));// 3. 执行查询var ds = DBUtils.ExecuteDataSet(this.Context, sql, sqlParams);if (ds == null || ds.Tables[0].Rows.Count == 0){this.View.ShowMessage("未查询到选中的数据！");return;}// 4. 转换为DataItem列表List<DataItem> dataItems = new List<DataItem>();foreach (DataRow row in ds.Tables[0].Rows){dataItems.Add(new DataItem{MaterialCode = row["MaterialCode"].ToString(),MaterialName = row["MaterialName"].ToString(),SpecModel = row["SpecModel"].ToString(),Unit = row["Unit"].ToString(),Level1 = row["Level1"].ToString(),PurchaseQuantity = Convert.ToDecimal(row["PurchaseQuantity"]), // 避免直接强制转换失败ArrivalDate = Convert.ToDateTime(row["ArriveDate"]),});}// 5. 调用WebService批量插入string res = BachInsertPendingPurchaseDataClient.BachInsertData(dataItems);this.View.ShowMessage(res);}}}
}

5、在BOS平台新增列表操作按钮、新增绑定列表插件，重启后可在采购申请列表页查看新增的按钮，在列表选中行数据后，点击该按钮即可查看效果。