资源描述：
《利用foxpro编程方法编制费用分配表》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、利用FoxPro编程方法编制费用分配表假定某企业以分批法进行产品成本核算。2008年6月份有A01、B01和B02三个定单在生产中。各定单6月份领用原材料的计划成本分别为98000元、20000元、12400元，发生的人工小时分别为6500小时、4200小时、2100小时，应由产品负担的直接人工成本为25600元，应由产品负担的制造费用为33280，材料成本差异率为1%。要求:利用FoxPro编程方法编制费用分配表，通过运行程序完成材料成本差异额和材料实际成本的计算，直接人工、制造费用的分配。应由产品负担的直接人工和制造费用及材料成本差异率可通过定位输入输出命令“sa
2、y_get_”输入。创建费用分配表时月份代码的输入可使用宏代换函数“&”。一、进入FoxPro应用程序：◆点击“开始”→选择“程序”→选择“MicrosoftVisualFoxPro6.0”→再选择“MicrosoftVisualFoxPro6.0”，进入FoxPro应用程序；二、在磁盘上创建一个新目录并指定为默认的文件夹：◆在命令窗口输入“mdc:kj”后按回车，就在c盘上建立了一个名为“kj”(会计)的文件夹(若已建立了此文件夹，可省略这一步)；◆在命令窗口输入“setdefatoc:kj”后按回车，就使“c:kj”成为默认的文件夹；三、编写编制“费用分配表
3、”的程序：◆在命令窗口输入“modicommfyfp”后按回车，编写名为“fyfp”(费用分配)的程序；◆在弹出的程序窗口中输入以下代码：*fyfpSETDEFATOc:kjCLEAALLCLEAmcyr=0.01mzjrg=0mzzfy=0bq="0806"@1,1SAY'rate='GETmcyr@3,1SAY'直接人工='GETmzjrg@5,1SAY'制造费用='GETmzzfy@9,1SAY"本期代码"GETbqREADDOcjbWITHbqCLOSDATACLEAUSEfyfp&bqWAITWINDOWS"按任意键后请输入数据。输入数据后请按'Ctrl+
4、W'"BROWSEFIELyjzh:h="应借账户",ddh:h="定单号",jhcb:h="计划成本",gs:h="工时"DOfpWITHmcyr,mzjrg,mzzfyRETUPROCEDUREcjbPARAMETERSbqCREATETABLEfyfp&bq(yjzhc(8),ddhc(8),jhcbn(10,2),cyen(10,2),zjcln(10,2),gsn(10,2),zjrgn(10,2),zzfyn(10,2),hjn(10,2))INSEINTOfyfp&bq(yjzh,ddh)valu('生产成本','A01')INSEINTOfyfp&bq
5、(yjzh,ddh)valu('生产成本','B01')INSEINTOfyfp&bq(yjzh,ddh)valu('生产成本','B02')RETUPROCEDUREfpPARAMETERSmcyr,mzjrg,mzzfySELE1USEfyfp&bqSUMgsTOmgsREPLALLcyeWITHjhcb*mcyrREPLALLzjclWITHjhcb+cyemgr=mzjrg/mgsmzr=mzzfy/mgsREPLALLzjrgWITHgs*mgrREPLALLzzfyWITHgs*mzrREPLALLhjWITHzjcl+zjrg+zzfySUMjhcb,c
6、ye,zjcl,hjTOmjhcb,mcye,mzjcl,mhjINSEINTOfyfp&bq(yjzh,jhcb,cye,zjcl,gs,zjrg,zzfy,hj)valu('合计',mjhcb,mcye,mzjcl,mgs,mzjrg,mzzfy,mhj)BROWSEFIELyjzh:h="应借账户",ddh:h="定单号",jhcb:h="计划成本",cye:h="差异额",zjcl:h="直接材料",gs:h="工时",zjrg:h="直接人工",zzfy:h="制造费用",hj:h="合计"RETU◆按Ctrl+W存盘并退到命令窗口；四、运行程序，输入数据，
7、完成材料成本差异额和材料实际成本的计算，直接人工、制造费用的分配：◆在命令窗口输入“dofyfp”后按回车，运行fyfp程序；◆输入正确的材料成本差异率、直接人工和制造费用后按回车；◆输入当月的月份代号后按回车，本例假定为“0806”（08年6月）；◆在弹出的“fyfp0806”表的“计划成本”、“工时”栏输入数据（见图1）；图1在费用分配表中输入数据◆按Ctrl+W存盘，程序自动完成材料成本差异额和材料实际成本的计算，直接人工和制造费用的分配率的计算，并按计算出的分配率分配直接人工和制造费用，计算出合计数（见图2）。图2已完成分配的“fyfp080
