日计划用料清单下推，建立生产领料单与生产用料清单关联关系 代码上传 测试成功

王 垚

2021-02-26 085cb82a480997b718a5a9a8c825d39fb6298a11

日计划用料清单下推，建立生产领料单与生产用料清单关联关系
代码上传 测试成功

 src/BLL/Demo.BillView/Demo.BillView.csproj

@@ -220,6 +220,8 @@
    <Compile Include="PRD\ProCompleteAnalysisMateriel.cs" />
    <Compile Include="PRD\ProCompleteAnalysisDetails.cs" />
    <Compile Include="PRD\Pro_DayPlanCheckSelectMenu.cs" />
    <Compile Include="PRD\Pro_SCLLFSH.cs" />
    <Compile Include="PRD\Pro_SCLLSH.cs" />
    <Compile Include="PRD\Pro_ZJDBSH.cs" />
    <Compile Include="PRD\Pro_ZJDBFSH.cs" />
    <Compile Include="PRD\Pro_DayPlanPushZJDB2.cs" />

 src/BLL/Demo.BillView/PRD/Pro_DayPlanPushZJDB.cs

@@ -105,7 +105,6 @@
                            as DynamicObjectCollection;
                foreach (var entryRow in entryRows)
                {

                    string srcFormId = "PRD_PPBOM";
                    string srcSrcBillNo = entryRow["FPPBOMBILLNO"]?.ToString();
                    string FPPBOMFID = entryRow["FPPOMFID"]?.ToString();
@@ -159,14 +158,14 @@
            if (FentryIdList.Count > 0)
            {
                string FentryId = string.Join(",", FentryIdList.ToArray());
                sql = string.Format(@"/*dialect*/
   update a set FBASEQTY = FQTY
   from T_STK_STKTRANSFERINENTRY_LK a
   join T_STK_STKTRANSFERINENTRY b on a.FENTRYID = b.FENTRYID
   where 
   --a.FSTABLENAME = 'T_PRD_PPBOMENTRY' and
   a.FENTRYID in ({0})", FentryId);
                sqlList.Add(sql);
   //             sql = string.Format(@"/*dialect*/
   //update a set FBASEQTY = FQTY
   //from T_STK_STKTRANSFERINENTRY_LK a
   //join T_STK_STKTRANSFERINENTRY b on a.FENTRYID = b.FENTRYID
   //where 
   //--a.FSTABLENAME = 'T_PRD_PPBOMENTRY' and
   //a.FENTRYID in ({0})", FentryId);
   //             sqlList.Add(sql);
                sql = string.Format(@"/*dialect*/update T_STK_STKTRANSFERINENTRY_R 
    set FSrcBillTypeId = 'PRD_PPBOM',FSRCBILLNO=b.FPPBOMBILLNO
    ,FTRANSRESERVELINK=1

 src/BLL/Demo.BillView/PRD/Pro_MaterialRequisitionAuditDayPlan.cs

@@ -16,13 +16,13 @@
namespace Demo.DynamicForm.PRD
{
    /// <summary>
    /// 插件示例：引入销售出库单，建立与销售订单的关联
    /// 插件示例：日计划用料清单下推后，建立生产领料单与生产用料清单关联关系
    /// </summary>
    /// <remarks>
    /// 要求：
    /// 1. 需要引入单据体的源单类型、源单编号字段
    /// 2. 本插件挂在销售出库单的保存操作上
    /// 出库关联销售订单
    /// 2. 本插件挂在生产领料单的保存操作上
    /// 生产领料单与生产用料清单关联
    /// </remarks>
    [Description("日计划用料清单下推后，建立生产领料单与生产用料清单关联关系")]
    [HotUpdate]
@@ -59,6 +59,9 @@
                            as DynamicObjectCollection;
                foreach (var entryRow in entryRows)
                {
                    //生产用料清单为空时
                    if (Convert.ToString(entryRow["FDayPlanBillNo"]) == "")
                        continue;
                    string srcFormId = "";
                    string srcSrcBillNo = "";
                    string FPPBOMFENTRYID = "";
@@ -152,24 +155,29 @@
        public override void AfterExecuteOperationTransaction(AfterExecuteOperationTransaction e)
        {
            base.AfterExecuteOperationTransaction(e);
            if (FentryIdList.Count == 0)
                return;
            string FentryId = string.Join(",", FentryIdList.ToArray());
            List<string> sqlList = new List<string>();
            //          string sql = string.Format(@"/*dialect*/
            //update a set FBASEACTUALQTY = b.FBASEACTUALQTY
            // from T_PRD_PICKMTRLDATA_LK a
            // join T_PRD_PICKMTRLDATA b on a.FENTRYID = b.FENTRYID
            // where a.FSTABLENAME = 'T_PRD_PPBOMENTRY' and a.FENTRYID in ({0})", FentryId);
            //          sqlList.Add(sql);
            string sql = string.Format(@"/*dialect*/
     update a set FBASEACTUALQTY = b.FBASEACTUALQTY
   from T_PRD_PICKMTRLDATA_LK a
   join T_PRD_PICKMTRLDATA b on a.FENTRYID = b.FENTRYID
   where a.FSTABLENAME = 'T_PRD_PPBOMENTRY' and a.FENTRYID in ({0})", FentryId);
            sqlList.Add(sql);
            sql = string.Format(@"/*dialect*/
    update T_PRD_PICKMTRLDATA set 
    FSrcBillType = 'PRD_PPBOM',
    FSRCENTRYID=FPPBomEntryId,
    FSrcBillNo=FPPBOMBILLNO
    where FENTRYID in ({0})
update a set
FSrcBillType='PRD_PPBOM',
FSrcBillNo = b.FPPBOMBILLNO,
FSRCINTERID =FHPPBomInterID,
FSRCENTRYID = FHPPBomEntryID,
FSRCENTRYSEQ =FPPBOMFSEQINT
from T_PRD_PICKMTRLDATA a 
join Sc_DayPlanPPBomBillSub b on a.FDAYPLANFENTRYID = b.FEntryID
where a.FEntryID in ({0})
     ", FentryId);
            sqlList.Add(sql);
            DBServiceHelper.ExecuteBatch(Context, sqlList);
            //DBServiceHelper.Execute(Context, sql);
        }
        /// <summary>
        /// 加载相关的销售订单数据
@@ -245,7 +253,7 @@
            //剩余领料数量 
            decimal remainQty = DBServiceHelper.ExecuteScalar<decimal>(Context, $"select FMustQty -isnull(FSelPickedQty,0) from  T_PRD_PPBOMENTRY t1  left join  T_PRD_PPBOMENTRY_Q t2 on t1.FENTRYID = t2.FENTRYID where t1.FENTRYID={toRow["PPBomEntryId"]?.ToString()}", 0);
            linkRow["FlowId"] = srcRow["BFLowId_Id"];
            linkRow["FlowLineId"] = 0;
            linkRow["FlowLineId"] = 5;
            linkRow["RuleId"] = "PRD_PPBOM2PICKMTRL_NORMAL";
            linkRow["SBillId"] = ((DynamicObject)srcRow.Parent)[0];
            linkRow["STableId"] = ((DynamicObject)srcRow.Parent)[0];

 src/BLL/Demo.BillView/PRD/Pro_SCLLFSH.cs

New file
@@ -0,0 +1,66 @@
using System;
using System.Collections.Generic;
using Kingdee.BOS.Util;
using Kingdee.BOS.Core.Metadata;
using Kingdee.BOS.Core.Metadata.EntityElement;
using Kingdee.BOS.Core.DynamicForm.PlugIn;
using Kingdee.BOS.Core.DynamicForm.PlugIn.Args;
using Kingdee.BOS.Orm.DataEntity;
using Kingdee.BOS.Contracts;
using Kingdee.BOS.App;
using Kingdee.BOS.Core.Metadata.FieldElement;
using System.ComponentModel;
using Kingdee.BOS.ServiceHelper;
using Kingdee.K3.SCM.App;

namespace Demo.DynamicForm.PRD
{
    [Description("[生产领料单-反审核]按钮功能]")]
    [HotUpdate]
    public class Pro_SCLLFSH : AbstractOperationServicePlugIn
    {
        public override void OnPreparePropertys(PreparePropertysEventArgs e)
        {
            base.OnPreparePropertys(e);
            e.FieldKeys.Add("FSrcBillType");
            e.FieldKeys.Add("FSrcBillNo");
            e.FieldKeys.Add("FID");
            e.FieldKeys.Add("FTreeEntity_FEntryID");
            e.FieldKeys.Add("FBillNo");
            e.FieldKeys.Add("FBFLowId");
            e.FieldKeys.Add("FMaterialId");
            e.FieldKeys.Add("FBaseUnitQty");
            e.FieldKeys.Add("FBaseJoinQty");
            e.FieldKeys.Add("FDayPlanBillNo");
            e.FieldKeys.Add("FDayPlanFentryId");
        }
        /// <summary>
        ///反审核 反更新日计划用料清单调拨数量
        /// </summary>
        /// <param name="e"></param>
        public override void AfterExecuteOperationTransaction(AfterExecuteOperationTransaction e)
        {
            base.AfterExecuteOperationTransaction(e);
            List<string> sqlList = new List<string>();
            string sql = "";
            //保存时更新生产用料清单表明细调拨数量
            Entity entity = this.BusinessInfo.GetEntity("FEntity");//获取明细信息
            foreach (var billObj in e.SelectedRows)
            {
                DynamicObjectCollection entryRows = entity.DynamicProperty.GetValue(billObj.DataEntity)
                            as DynamicObjectCollection;
                foreach (var entryRow in entryRows)
                {
                    //生产用料清单为空时
                    if (Convert.ToString(entryRow["FDayPlanBillNo"]) == "")
                        continue;
                    string fentryId = entryRow["FDayPlanFentryId"].ToString();
                    decimal FBaseQty = Convert.ToDecimal(entryRow["BaseActualQty"]);
                    sql = string.Format($"/*dialect*/update Sc_DayPlanPPBomBillSub set  FPickedQty -= {FBaseQty} where FEntryID = { fentryId} ");
                    sqlList.Add(sql);
                }
            }
            DBServiceHelper.ExecuteBatch(Context, sqlList);
        }
    }
}

 src/BLL/Demo.BillView/PRD/Pro_SCLLSH.cs

New file
@@ -0,0 +1,65 @@
using System;
using System.Collections.Generic;
using Kingdee.BOS.Util;
using Kingdee.BOS.Core.Metadata;
using Kingdee.BOS.Core.Metadata.EntityElement;
using Kingdee.BOS.Core.DynamicForm.PlugIn;
using Kingdee.BOS.Core.DynamicForm.PlugIn.Args;
using Kingdee.BOS.Orm.DataEntity;
using Kingdee.BOS.Contracts;
using Kingdee.BOS.App;
using Kingdee.BOS.Core.Metadata.FieldElement;
using System.ComponentModel;
using Kingdee.BOS.ServiceHelper;
using Kingdee.K3.SCM.App;

namespace Demo.DynamicForm.PRD
{
    [Description("[生产领料单-审核]按钮功能]")]
    [HotUpdate]
    public class Pro_SCLLSH : AbstractOperationServicePlugIn
    {
        public override void OnPreparePropertys(PreparePropertysEventArgs e)
        {
            base.OnPreparePropertys(e);
            e.FieldKeys.Add("FSrcBillType");
            e.FieldKeys.Add("FSrcBillNo");
            e.FieldKeys.Add("FID");
            e.FieldKeys.Add("FTreeEntity_FEntryID");
            e.FieldKeys.Add("FBillNo");
            e.FieldKeys.Add("FBFLowId");
            e.FieldKeys.Add("FMaterialId");
            e.FieldKeys.Add("FBaseUnitQty");
            e.FieldKeys.Add("FBaseJoinQty");
            e.FieldKeys.Add("FDayPlanBillNo");
            e.FieldKeys.Add("FDayPlanFentryId");
        }
        /// <summary>
        ///反审核 反更新日计划用料清单调拨数量
        /// </summary>
        /// <param name="e"></param>
        public override void AfterExecuteOperationTransaction(AfterExecuteOperationTransaction e)
        {
            base.AfterExecuteOperationTransaction(e);
            List<string> sqlList = new List<string>();
            string sql = "";
            //审核时更新生产用料清单表明细调拨数量
            Entity entity = this.BusinessInfo.GetEntity("FEntity");//获取明细信息
            foreach (var billObj in e.SelectedRows)
            {
                DynamicObjectCollection entryRows = entity.DynamicProperty.GetValue(billObj.DataEntity)
                            as DynamicObjectCollection;
                foreach (var entryRow in entryRows)
                {
                    //生产用料清单为空时
                    if (Convert.ToString(entryRow["FDayPlanBillNo"]) == "")
                        continue;
                    string fentryId = entryRow["FDayPlanFentryId"].ToString();
                    sql = string.Format($"/*dialect*/update Sc_DayPlanPPBomBillSub set  FPickedQty = (select sum(FBaseActualQty) from T_PRD_PICKMTRLDATA where FDayPlanFentryId = { fentryId})where FEntryID = { fentryId} ");
                    sqlList.Add(sql);
                }
            }
            DBServiceHelper.ExecuteBatch(Context, sqlList);
        }
    }
}