T100开发笔记：表关联的审核和取消审核

客制需求逻辑：

• axmt500订单维护作业【审核按钮】

1. SELECT SUM(xmdc011) INTO 变量 FROM xmdc_t WHERE xmdcent=g_enterprise AND xmdcsite=g_site AND xmdcdocno=订单号，判断变量与 pmabud012企业余额度(数量)。
2. 若变量<企业余额度(数量)，则走标准审核逻辑。Update pmab_t SET  pmabud012= 企业余额度(数量)-变量；
3. 若变量>企业余额度(数量)，则报错“此客户信用额度已超限，请先完成上一笔出货。”；
4. 取消审核，Update pmab_t SET  pmabud012=原企业余额度(数量)+变量。

 

• axmt540出货单维护作业【审核按钮】

1. SELECT SUM(xmdl018) INTO 变量 FROM xmdl_t WHERE xmdlent=g_enterprise AND xmdlsite=g_site AND xmdldocno=订单号。

（1）与销售订单出货策略逻辑结合，若出货时间在管控范围+系统标准审核逻辑都不报错则Update pmab_t SET  pmabud012= 企业余额度(数量)+变量；

（1）系统标准取消审核逻辑不报错则Update pmab_t SET  pmabud012= 企业余额度(数量)-变量。

 

前提：综上所述2个逻辑，必须要在WLD据点+aoos020销售相关设置有开启【客户信用额度数量管控】=Y+客户资料有启用pmabud001=’Y’的条件下才进行。

 

这个作业涉及到三个表：axmt500：xmda表（订单单号xmdadncn）

                                       axmt540：xmdk表（）

                    &nb