按部门设置自动日记帐科目-项目案例

kingson

某项目实现按部门设置自动日记帐科目,供大家参考:
科目设置原则：
1）311部门包、直材进生产成本。

311部门低、辅、维修进制造费用。
2）非311部门3开头部门，杂项领用均进制造费用（与物料类别无关）。
3）2开头的部门，杂项领用均进销售费用（与物料类别无关）。
4）1开头的部门，杂项领用均进管理费用（与物料类别无关）。
测试案例1：
测试目标：出库操作包装直材、低值维修、天然气物料出库，分部门记入不同科目。
物料出库（包装、直材），出库类型 MIS，对应自动日记帐STKZX
物料         产品分析元   出库数量     出库单价 出库部门
Z0006（STD）
907
1
60.68
311
410103
B0001
802
1
0.29
311
410105
Z0006（STD）
907
1
60.68
320
410524
B0001
802
1
0.29

320

410524
D0001（PMP）
DZ
1
5
301

410524
F0001（PMP）
DZ
1
68.38
101
550225
C10001（PMP） WX
1

1.32
200
550123


自动日记帐设置:
行4（复制第3行）： 311部门包、直材出库,记生产成本
[F:SMD]CCE2
= '311' and (left$([F:STJ]ITMREF,1)= 'B' or left$([F:STJ]ITMREF,1)= 'Z')
行5（复制第3行）： 311部门低、辅、维修进制造费用
[F:SMD]CCE2 ='311' and (left$([F:STJ]ITMREF,1)= 'F' or left$([F:STJ]ITMREF,1)= 'C'
or left$([F:STJ]ITMREF,1)= 'D'
)
行6（复制第3行）：非311部门3开头部门，杂项领用均进制造费用
left$([F:SMD]CCE2,1) ='3'
& [F:SMD]CCE2
<> '311'
行7（复制第3行）：2开头的部门，杂项领用均进销售费用。
left$([F:SMD]CCE2,1) ='2'
行8（复制第3行）：1开头的部门，杂项领用均进管理费用。
left$([F:SMD]CCE2,1) ='1'

注意检查修改公式中CCE1、CCE2、CCE3、CCE4为SMD表

运行结果:
410103 : 生产成本-直接材料
60.68
311
410105 : 生产成本-包装物
0.29
311
410524 : 制造费-物料消耗
0.29
320

5
301

60.68
320
550123 : 销售费-物料消耗
1.32
200
550225 : 管理费-物料消耗
68.38

101
121110 : 存货- 原材料直接材料 60.68

311


60.68
320
121111 : 存货- 包装物



0.29


311

0.29
320
121113存货- 原材料备品备件
1.32

200
121114存货- 原材料辅助材料
68.38


101
121112 : 存货- 低值易耗


5



301