《Book2工业版过帐反过帐及结转存货成本》由会员分享，可在线阅读，更多相关《Book2工业版过帐反过帐及结转存货成本（9页珍藏版）》请在金锄头文库上搜索。
1、第7章程序讲解一一工业版过帐、反过帐和结转成本第7章程序讲解 工业版过帐、反过帐和结转成本7.1过帐7.1.1相关的数据表GLVch , FAVch , GLAcct , GLCIs , GLObj , GLBal , GLQtyBal , GLPnL , FABal* , FACard , ICBill* , ICInvoice* , ICVch* , ICPriceList , ICItem , ICQueue* , ICTrack* , ICIdentBal7.1.2处理流程7.1.2.1过帐前检查统计未过帐的凭证、固定资产变动及存货单据张数，若总数为零，则退出过帐过程，否 则进入下一步
2、。7.1.2.2 处理凭证资料按照期间、凭证字、凭证号、分录号的顺序逐条处理凭证分录：A. 若凭证已删除，则作上过帐标记。B. 检查科目、核算项目的合法性。C. 根据帐套选项的“凭证过帐前必须审核”，检查凭证是否已经审核。D. 检查凭证号是否连续。E. 将分录中的借或贷方发生额登记至GLBal，分三步完成：a）登记科目的发生额，必须同时处理原币、 原币折合本位币及所有币别三类发生 数。b）登记核算项目的发生额，必须同时处理原币、原币折合本位币及所有币别三类 发生数。c）若是非明细科目，则处理其所有上级科目的发生数。以上三步操作中数据库中数据会发生变化的有GLBal表中的FDebit、FCred
3、it、FYtdDebit、FYtdCredit、FEndBal 五个字段。F. 若科目属于损益类科目 （GLAcct中FGroup值大于500），且凭证分录中的 FModule字段值不为“ GL ”，则将分录中的借或贷方发生额登记至GLPnL表中，分两步完 成：a）登记损益类科目的发生额，必须同时处理原币、原币折合本位币及所有币别三 类发生数。b）登记核算项目的发生额，必须同时处理原币、原币折合本位币及所有币别三类 发生数。c）若是非明细科目，则处理其所有上级科目的发生数。以上三步操作中数据库中数据会发生变化的有GLPnL表中的FAmt、FYtd两个字段。G. 若科目或核算项目设有数量辅助核算
4、，则更新 GLQtyBal表，发生变化的字段有FDebit、FCredit、FYtdDebit、FYtdCredit、FEndQty 五个字段。H. 根据FModule字段值，若该凭证与购货单或销货单相关，则必须设置ICBill、ICInvoice的过帐标记。到此为止，一条凭证分录的过帐过程结束。I. 检查借方汇总数和贷方汇总数是否相等。7.1.2.3处理固定资产资料A. 若本次过帐中有计提折旧的凭证，则更新FABal表中FPeriod=0的记录的以下字段值：FYtdDepr=FYtdDepr+FDeprFAccumDepr=FAccumDepr+FDeprFAccumDeprA=FAccum
5、DeprA+FDeprB. 按照变动类型，逐条处理固定资产变动资料(FAVch):a) 若调整原值或累计折旧，则更新 FABal表中FPeriod=0的记录的以下字段值： 调增原值时(FAVch.FOrgV al0)FDebitOrg = FDebitOrg + FA Vch.FOrgValFYtdDebitOrg = FYtdDebitOrg + FA Vch.FOrgValFOrgVal=FOrgVal+FA Vch.FOrgVal调减原值时(FAVch.FOrgV al0 )FDebitDepr = FDebitDepr + FA Vch.FAccumDeprFYtdDebitDepr
6、= FYtdDebitDepr + FA Vch.FAccumDeprFAccumDepr=FAccumDepr+ FA Vch.FAccumDepr调减累计折旧时(FAVch.FAccumDepr=0 时FDebitOrg = FDebitOrg + FA Vch.FOrgVal当 FAVch.FOrgVaKO 时FCreditOrg = FCreditOrg -tFAVch.FOrgVal当 FAVch.FAccumDepr=0 时FDebitDepr = FDebitDepr + FA Vch.FAccumDepr当 FAVch.FAccumDepr0 时FCreditDepr = FC
7、reditDepr -FAVch.FAccumDeprf）根据变动后的信息，分别更新FABalFor、FABalDept、FABalExpense三个表。7.1.2.4 处理存货资料按照日期、收发顺序号、分录号的顺序逐条处理ICVchEntry表中本期未过帐的记录。A) 对采用计划成本法计价的存货，首先获取存货的最新价格。如果ICPriceList表中有调价记录，则取 ICPriceList.FPrice 的值，否则取 ICVchEntry.FPIannedCost 值.。B) 根据存货单据类型，确定收入单价及发出成本。若为购货单(0FType10000)单价应为原购货单的单价。若为销货单或其
8、它发出单(-10000FType-10000 ）若是指定成本，就按指定成本计算，否则应按原销货单上的单价计算。若为调拨单（FType=O）分别计算发出地点的发出单价和收入地点的收入单价。注意：对于加权平均法计价的存货，过帐时先按移动平均法计算发出单价，直至结转存货成本时才真正按加权平均法的算法进行调整。C）更新购销存的辅助表。若存货采用先进先出、后进先出法入库时在ICQueue中增加批次，同时更新ICTrack。出库时依据发出数量逐批减少ICQueue中的结存数，直至够发为止，若最后仍不够发出，则提示存货不足以发出，并退出过帐过程。若存货采用分批认定法入库时在ICIdentBal中增加批次。出
9、库时依据发出数量逐批减少ICIdentBal中的结存数，直至够发为止，若最后仍不够发出，则提示存货不足以发出，并退出过帐过程。D）更新 ICVchEntry根据在步骤B）计算出的单价，更新 ICVchEntry以下字段： FAmou nt=实际收入或发出成本FUn itCost=FActualAmou nt/FQtyE）更新 ICBal根据收发金额及数量，更新ICBal中本期总仓（FStocklD=0 ）记录的以下字段：收入（包含退购）时：FReceive = FReceive +实收数量（若为退购，则为负数） FYtdReceive = FYtdReceive + 实收数量（若为退购，则为负
10、数） FEn dQty = FE ndQty +实收数量（若为退购，则为负数） FDebit = FDebit +实收金额（若为退购，则为负数）FYtdDebit = FYtdDebit +实收金额（若为退购，则为负数） FEn dBal = FEn dBal + 实收金额（若为退购，则为负数） FReceiveD iff = FReceiveD iff + 收入的进销差价发出（包含退销）时：FSe nd = FSe nd +实发数量（若为退销，则为负数）FYtdSe nd = FYtdSe nd +实发数量（若为退销，则为负数）FEn dQty = FE ndQty 实发数量（若为退销，则为
11、负数）FCredit = FCredit +实发金额（若为退销，则为负数） FYtdCredit = FYtdCredit +实发金额（若为退销，则为负数）FEn dBal = FEn dBal 实收金额（若为退销，则为负数）调拨时，调入地点作收入处理，调出地点作发出处理。对ICBal中本期分仓（FStocklD=ICVch.FStocklD ）记录，只更新与数量有关的字 段，因此，分仓查询存货收发汇总表时，只能显示数量汇总数。F）更新购销存的辅助表对采用先进先出和后进先出法计价的存货，最后统一进行批次的整理。7.1.3进度显示当进度条显示进度为 100%时，程序处理的记录总数 =GLVch中
12、所有本期FPosted=False的记录+ FAVch中所有本期 FPosted= False的记录+ ICVch中所有本期 FPosted= False的记录的2倍+ 1 （若本次过帐中包含计提折旧的凭证）程序处理时顺序如上所列，可根据进度条的百分比大致推断程序执行至哪个阶段。#7.2反过帐721相关的数据表GLVch, FAVch, GLBal，GLQtyBal，GLPnL，FABal* , FACard, ICBill* ，ICInvoice*ICVch*， ICPrice* ， ICQueue*， ICTrack* ， ICIdentBal7.2.2处理流程一检查本期有没有结转存货成本的凭证，若有，则删除之。二检查本期有没有已过帐的凭证，若没有，则退出反过帐过程。三更新G
