“维修费单车核算”
一、“单车费用核算制度”的制定
以往车辆维修，单台车辆每年维修费使用多少没有标准，修理次数无法控制，修理中换的质量如何，换的什么部件也只知道个大概，这两年维修费用一直在持续压缩，为立足改革，并提高驾驶员的工作主动性、积极性，提出在车队首先实行单车费用核算制度。
二、“单车费用核算制度”的内容
单车费用核算是指单车维修费用核算，对每台车每年的修理费用进行定额，有效控制维修费用。根据我处工作目标，充分挖掘设备潜力，节约维修费用，制定了车辆维修费用单车定额标准，实行单车费用核算。车辆年维修保养费用定额为：每台车基数为7000元；自新车投产后，每行驶一年或一万公里增加维修费用2%；大修、中修另由单位统一安排，不列入当年维修费用中；车辆大修后，费用重新核算。对超出核定修保费用的车辆，取消年度红旗设备和优秀操作手的评比资格；对超出核定维修费用的车辆，原则上不与安排修理，对生产急用车辆，可通过申请，经机动科鉴定，财务科审核后，安排修保。
三、“单车费用核算制度”的微机化管理
单车核算要求对车辆日常的多项数据进行时时监控，包括形式公里数、日常维护保养费用、修理次数等，全处200多台车辆，如果借助计算机进行监控和数据统计分析，不但大大节省劳动时间和强度，也提高了数据的准确性和真实性，所以我们根据实际工作要求和本办法的具体内容，设计了相应的计算机程序，以便计算机管理控制。
我们开发出多种功能，如：修理派工单、修理费用统计、修理次数和公里数统计、大修和购置的相关内容等。主要程序如下：
SM=MONTH(DATE()) if sm<10
tm=\ else
tm=str(sm,2) endif
yer=year(date())
Txlrq=YER*10000+sm*100+day(date()) tp=\鲁E- \
@ 9,16 SAY \请输入牌照号： \READ sele 2 USE DJ
&&use dj index dj.pzh set index to dj.pzh find '&tp'
&&LOCATE FOR PZH=\if eof()
@ 5,23 SAY \输入牌照号错........\wait \按任意键继续.......\clear DO GG retu endif
if ye<0
@ 11,23 say \车辆维修费已超出.......\
vbj=\
@ 13,23 say \输入口令!\READ
IF VBJ<>\clear do gg retu ENDIF endif
sele 1 TRQ=\USE CL GO BOTT RE=RECNO()
SET INDEX TO CL.PZH USE CL if re=1
APPE BLAN
repl pzh with tp,rq with tm,xlrq with txlrq,jl with 1 else
appe blan
repl pzh with tp,rq with tm,xlrq with txlrq GO RE TR=RQ TJL=JL SKIP +1 IF RQ=TR
REPL JL WITH TJL+1 ELSE
REPL JL WITH 1 ENDIF