有效期至默认为到期日每月最后一天的配置实现原创
金蝶云社区-邱育华
邱育华
103人赞赏了该文章 2,891次浏览 未经作者许可,禁止转载编辑于2022年05月20日 10:46:56

一、【需求问题】

启用了有效期管理,入库单据如何设置有效期默认到到期日每月的最后一天?比如生产日期是2022-3-12,有效期12月,到期日自动默认是2023-3-31号?


二、【功能分析】

当前系统中根据物料是否启用保质期,在物料编码的值更新配置有"通过日期单位计算日期"的服务,根据生产日期、保质期、保质期单位,计算得到有效期至,生产日期默认赋值为当前日期。

即:假设物料保质期单位为日,保质期为10,当前系统日期为2022-05-20,则计算得到有效期至为2022-05-30

image.png


【实现】

1、生产日期配置值更新,计算赋值有效期值:FEXPIRYDATE = FEXPIRYDATE.Date.AddDays(1 - FEXPIRYDATE.Date.Day).AddMonths(1).AddDays(-1) if FEXPIRYDATE != null else FEXPIRYDATE

image.png


2、物料编码配置值更新,触发"生产日期"值更新事件

image.png


实现效果

image.png


参考

1、【如何实现有效期至=生产日期+保质期-1天的效果

2、【配置日期字段取当月最后一天(月末那天)


赞 103