金蝶云星空下游单据的操作控制上游单据的状态转换开发方案

发布时间 2023-11-09 17:47:34作者: lanrenka

一、说明
一般来说,下游反写数量到上游的场景比较,比如用来控制超额,状态模式使用累加,就省事很多,保存累加,删除会自动扣减。但是状态反写,复选框和文本类的,就不能这样设计了。
本文就以状态反写来说明一下开发的实现,复选框和文本也是一样的。

二、方案设计
售后单增加变更标记:N未变更,A变更中,B已变更
售后单变更单保存的时候 反写变更单状态为变更中,
生效时反写为已变更,
删除反写为未变更

 

三、开发实现

3.1、售后单添加变更状态

拖动一个单据状态

 修改标识

F_开发商_ChangeStatus

 状态列表

 

 

默认状态值

 

锁定性

 

 新建后

 


3.2、反写规则反写状态:在保存配置了反写状态

 

 

 

 


3.3、保存后删除,反写规则不生效,需要在删除操作配置插件根据关联关系进行反写

using Kingdee.BOS.App.Data;
using Kingdee.BOS.Core.DynamicForm.PlugIn;
using Kingdee.BOS.Core.DynamicForm.PlugIn.Args;
using Kingdee.BOS.Util;
using System;
using System.ComponentModel;
using System.Linq;
using 开发商.K3.Core.Const;

namespace 开发商.K3.SCM.App.Service.PlugIn.AS
{
    /// <summary>
    /// 功能描述    :售后单变更单-删除  
    /// 创 建 者    :Administrator
    /// 创建日期    :2023/11/9 9:48:21 
    /// 最后修改者  :Krystal
    /// 最后修改日期:2023/11/9 9:48:21 
    /// </summary>
    [Description("售后单变更单-删除"), HotUpdate]

    public class AfterOrderBGDelete : AbstractOperationServicePlugIn
    {
        #region <常量>
        #endregion <常量>

        #region <变量>
        #endregion <变量>

        #region <方法>
        #endregion <方法>

        #region <事件>
        public override void OnPreparePropertys(PreparePropertysEventArgs e)
        {
            base.OnPreparePropertys(e);
            e.FieldKeys.Add("FPKIDX_H");//售后单主键
        }
        public override void EndOperationTransaction(EndOperationTransactionArgs e)
        {
            base.EndOperationTransaction(e);
            if (e.DataEntitys == null || e.DataEntitys.Count() <= 0) return;
            foreach (var dyn in e.DataEntitys)
            {
                long afterId = Convert.ToInt64(dyn["FPKIDX_H"]);
                string billNo = dyn["BillNo"] + "";
                long fid = Convert.ToInt64(dyn["Id"]);//单据FID
                if (afterId>0)
                {
                    string sqlStr = string.Format(@"{0}UPDATE 开发商_T_AS_AfterOrder SET  F_开发商_ChangeStatus='N' WHERE FID={1};",OtherConst.DIALECT,afterId);
                    DBUtils.Execute(this.Context,sqlStr);
                }
            }
        }
        #endregion <事件>
    }
}
View Code

 

3.4、生效操作:更新为 已变更

同删除:

sql语句:

UPDATE XHWT_T_AS_AfterOrder SET  F_XHWT_ChangeStatus='B' WHERE FID=111