[转]Tiptop成本计算函数结构表

一   p500_ask() –询问画面

二   p500_del()—删除成本相关资料cch_file,ccg_file,,ccu_file, cct_file,ccc_file,cce_file

三   p500()----成本计算主函数

 3.1.  p500_get_date()---获取成本计算日期

 3.2.  p500_last0()---取上期结存转本月期初

  3.2.1  p500_ckp_ccc()---若ccc为空,则指定其为0

 3.3.  p500_ccc_0()---清空ccc_file,给一个零

 3.4.  p500_last()---取上期结存转本月期初

 3.5.  p500_wip()---处理 WIP 在制成

  3.5.1 wip_del()---delete ccg_file, cch_file,cce_file 该主件相关资料

  3.5.2 wip_1()---计算每张工单的 WIP-主件 部份 成本

  3.5.3 wip_2()---计算每张工单的 WIP-元件 投入 成本 (cch)

3.5.3.1 wip_2_1() --WIP-元件 上期期末转本期期初

3.5.3.2 wip_2_21()--WIP-元件 本期投入材料 (依工单发料/退料档)

  3.5.3.2.1 p500_cch_01() ---# 将 cch 归 0

3.5.3.3 wip_ccg21()--计算每张工单的 WIP-主件 投入数量 -> 有争议

3.5.3.4 wip_2_22() ---  WIP-元件 本期投入人工制费

3.5.3.5 wip_2_23()--- WIP-元件 本期投入调整成本

  3.5.4 wip_3()---计算每张工单的 WIP-元件 转出 成本 (cch)

3.5.4.1 -- wip_32()---WIP-元件 本期转出成本 (实际成本制)

  3.5.4.1.1 p500_sub(l_sfa.sfa01,l_sfa.sfa03,l_sub_qty)

  3.5.4.1.2 p500_sub(l_cch.cch01,l_cch.cch04,l_sub_qty)

  3.5.5 wip_4()---计算每张工单的 WIP-主件 SUM  成本

 3.6.  p500_wip2()----处理重复性生产WIP(计算产品在制成本(料,工,费)投入,)

  3.6.1 wip2_1()--计算产品WIP主件  ccg

  3.6.2 wip2_2()--计算每张工单的 WIP-元件 投入 成本 (cch)

    3.6.2.1 wip2_2_1()    # step 1. WIP元件 期初

    3.6.2.2 wip2_2_21()   # step 2-1. WIP元件 本期投入材料 (依发料/退料档)

    3.6.2.3 wip2_2_22()   # step 2-2. WIP元件 本期投入人工制费

    3.6.2.4 wip2_2_23()   # step 2-3. WIP元件 本期投入调整成本

  3.6.3 wip2_3()--计算每张工单的 WIP-元件 转出 成本 (cch)

  3.6.4 wip2_4()--计算产品WIP主件 SUM cch  (ccg)

 3.7.  p500_tlf()---由 tlf_file 计算各类入出库数量, 采购成本

        p500_upd_cxa09(l_apb12,l_apb09,1)

        p500_ccc22_cost()

         p500_ccc44_cost()

 3.8.  p500_ccb_cost()---计算入库调整金额

 3.9.  p500_ccg_cost()---计算wip入库调整金额

 3.a.  p500_ccg3_cost()---计算wip入库调整金额(重复性生产)

 3.b.  p500_ccc_tot(p_sw)--- 计算所有出库成本及结存

        p500_ccc_ccc26()

        p500_ccc_ccc23()

  3.b.1 p500_tlf21_upd()----回写tlf21的成本--update 

        p500_get_tlf21(p_tlf01,p_tlf10,p_chr,p_flag)

 3.c.  p500_ccc_ins()----insert ccc档

 3.d.  p500_can_upd()---加上销货收入调整金额

 3.e.  p500_rework()----计算重工工单

  3.e.1 p500_rework1()  ---先算 WIP 及 完成品入库

3.e.1.1 p500_wip_rework()  --处理 WIP 重工成本 (重工sfb99='Y')

   wip_1()       # 计算每张工单的 WIP-主件 部份 成本 (ccg)

   wip_2()       # 计算每张工单的 WIP-元件 投入 成本 (cch)

   wip_3()       # 计算每张工单的 WIP-元件 转出 成本 (cch)

   wip_4()       # 计算每张工单的 WIP-主件 SUM  成本 (ccg)

  3.e.2  p500_rework2()  ---再算所有出库成本及结存

    3.e.2.1 p500_ccg2_cost()    --加上WIP重工入库金额

    3.e.2.2 p500_ccc_tot('2')    --计算所有出库成本及结存

    3.e.2.3 p500_ccc_upd()       --Update ccc_file

  3.e.3  p500_wipx0()    ---记录WIP-拆件式工单 在制成本 (工单性质=11) --因为要取重工后单价

    3.e.3.1 p500_wipx()---处理 WIP 在制成本 (工单性质=11拆件工单)                  

 3.f .  p500_reshare()--对于 联产品入库分摊 部份, 进行第二次处理

3.f.1  p500_ccg4_cost()    -- 计算联产品入库分摊

  3.f.2  p500_ccc_tot('3')    --计算所有出库成本及结存

  3.f.3  p500_ccc_upd()      -- Update ccc_file

 3.g .  p500_reshare2()---对于 拆件式入库分摊 部份, 进行处理

3.g.1  p500_ccg5_cost()   --计算拆件式入库分摊

  3.g.2  p500_ccc_tot('3')  -- 计算所有出库成本及结存

  3.g.3  p500_ckp_ccc()   --CHECK ccc_file做NOT NULL栏位的判断

  3.g.4  p500_ccc_upd()     -- Update ccc_file

 3.h .  p500_cct2ccg()--将cct_file,ccu_file写入ccg_file,cch_file

四   p500_out()----显示成本计算错误讯息(ccy_file)

 4.1   p500_rep()---显示成本计算错误讯息(ccy_file)

作者：罗向锋