ABAP 月末费用重新分摊

Posted 2021-07-19 狗尾巴草_lan

ABAP 月末费用重新分摊

一、需求概述：根据KSV3 / KSU3配置的发送方对应的会计凭证金额分摊至接收方所维护的订单

二、程序设计：

1. 查询未锁定的分配周期段（表T811S）

2. 对于每个分配周期段，查询对应的发送方成本中心和成本要素（表T811K），用于后面查询会计凭证的条件。

如果维护的是组，可能还有子集，所以需要不断循环找到所有子集（表SETNODE），然后查询所有集维护的具体单值（表SETLEAF）。

3. 根据2得出的条件查询需分摊的会计凭证行项目

4. 查询接收方规则

(1) 如果是按照固定比例分摊（T811S-RRULE = '3'），则查询接收方固定比例（表T811F）

(2) 如果是按照可调整份额分摊（T811S-RRULE = '1'），查询接收方的加权因素（表T811F），需注意默认值是100，如果是默认值表里无记录，只有修改了值表里才有记录。

参照TCODE：S_ALR_87012993 查询接收方订单指定统计指标的实际值（表COEPR），并计算每个订单所占比例

5. 分摊金额，需注意尾差问题，此处是将尾差放到最后一行

6. 检查会计凭证（BAPI：BAPI_ACC_DOCUMENT_CHECK）或者生成会计凭证（BAPI：BAPI_ACC_DOCUMENT_POST），需留意单张凭证不能超过999行