需求单No.139943：结算单导NC凭证增加变更导出状态按钮，手动可以把状态变更为已导出。

BWP.B3ButcherManageExport.Web/Pages/B3ButcherManageExport/NC_/StatPayToNc_/StatPayToNcList.cs

@@ -1,6 +1,7 @@
 using BWP.B3ButcherManage.BO;
 using BWP.B3ButcherManageExport.BL;
 using BWP.B3ExportBase;
+using BWP.B3ExportBase.BO;
 using BWP.B3ExportBase.Utils;
 using BWP.B3Frameworks;
 using BWP.B3Frameworks.BO.MoneyTemplate;
@@ -13,6 +14,7 @@ using Forks.EnterpriseServices.SqlDoms;
 using Forks.Utils;
 using System;
 using System.Collections.Generic;
+using System.Linq;
 using System.Web.UI.WebControls;
 using TSingSoft.WebControls2;
 
@@ -38,7 +40,6 @@ namespace BWP.Web.Pages.B3ButcherManageExport.NC_.StatPayToNc_
     private DFDateInput _billDate;
     protected override void AddExportControl(HLayoutPanel hbox)
     {
-
       hbox.Add(new SimpleLabel("外部系统"));
       _dfcUrl = hbox.Add(new ChoiceBox());
       _dfcUrl.DataKind = B3ExportBaseConsts.DataSources.外部系统;
@@ -50,7 +51,20 @@ namespace BWP.Web.Pages.B3ButcherManageExport.NC_.StatPayToNc_
       hbox.Add(new SimpleLabel("日期"));
       _billDate = hbox.Add(new DFDateInput());
       _billDate.Value = DateTime.Today;
+
       base.AddExportControl(hbox);
+
+      hbox.Add(new TSButton("变更导出状态", delegate
+      {
+        var idList = mBrowseGrid.GetSelectedItems().Select(item => (long)item["ID"]).ToList();
+        if (idList.Count == 0)
+          return;
+        var bl = BIFactory.Create<IStatPayToNcBL>();
+        var message = bl.UpdateExportState(idList);
+
+        AspUtil.Alert(this, message + "变更成功！");
+        mBrowseGrid.DataBind();
+      }));
     }
 
     private DropDownList payStateSelect;

BWP.B3ButcherManageExport/BL/NC/StatPayToNcBL_/StatPayToNcBL.cs

@@ -5,6 +5,7 @@ using BWP.B3ExportBase.BO;
 using BWP.B3Frameworks;
 using Forks.EnterpriseServices;
 using Forks.EnterpriseServices.BusinessInterfaces;
+using Forks.EnterpriseServices.DomainObjects2;
 using System;
 using System.Collections.Generic;
 using System.Linq;
@@ -17,6 +18,8 @@ namespace BWP.B3ButcherManageExport.BL
   public interface IStatPayToNcBL : INcBL<StatPay>
   {
     void Export(List<long> idList, long p, DateTime? nullable);
+
+    string UpdateExportState(List<long> idList);
   }
 
   [LogicName("结算单导NC凭证")]
@@ -68,5 +71,27 @@ namespace BWP.B3ButcherManageExport.BL
         throw new ApplicationException("一次导出只能选择同一个会计单位下的单据");
       }
     }
+
+    public string UpdateExportState(List<long> idList)
+    {
+      CheckExportLog(idList);
+      var returnMess = "";
+      foreach (var id in idList)
+      {
+        var log = new ExportLog
+        {
+          BackInfo = string.Empty,
+          BillTypeID = DmoTypeIDAttribute.GetID(typeof(StatPay)),
+          BillID = id,
+          WpfUser_ID = BLContext.User.ID,
+          Time = BLContext.Now,
+          MethodID = ExportIDAttribute.GetID(GetType()),
+          StatusInfo = string.Empty
+        };
+        Session.Insert(log);
+        returnMess += string.Format("No.{0} ", id);
+      }
+      return returnMess;
+    }
   }
 }