日期字段做校验时，用的比较多的是对比两个日期字段大小，比如两个日期之间的天数大于多少。本文显示销售订单如果单据日期过了一半保质期则警告用户，让用户确认是否保存（经测试只有一条分录超过了一半保质期才支持确认保存，如果多条分录都有校验，则没有是和否的按钮）。首先扩展销售订单，在保存操作上添加三个单据合法性校验，分别用于校验不同保质期单位，如下图1-1所示，校验表达式分别为：

FExpiryDate <> null and FExpUnit = 'D' and FDate > FExpiryDate.AddDays(-FExpPeriod  / 2)

FExpiryDate <> null and FExpUnit = 'M' and FDate >  FExpiryDate.AddDays(-FExpPeriod * 15)

FExpiryDate <> null and FExpUnit = 'Y' and FDate > FExpiryDate.AddDays(-FExpPeriod * 365 / 2)

图1-1

    如果有效期至为2024-05-16（保质期为15天）且当前单据日期为5月10号，则校验不通过，其它按年或月为保质期的类似，如下图1-2所示：

图1-2

    修改单据日期为5月8号，则通过校验，如下图1-3所示：

图1-3