“维修费单车核算”

一、“单车费用核算制度”的制定

以往车辆维修，单台车辆每年维修费使用多少没有标准，修理次数无法控制，修理中换的质量如何，换的什么部件也只知道个大概，这两年维修费用一直在持续压缩，为立足改革，并提高驾驶员的工作主动性、积极性，提出在车队首先实行单车费用核算制度。

二、“单车费用核算制度”的内容

单车费用核算是指单车维修费用核算，对每台车每年的修理费用进行定额，有效控制维修费用。根据我处工作目标，充分挖掘设备潜力，节约维修费用，制定了车辆维修费用单车定额标准，实行单车费用核算。车辆年维修保养费用定额为：每台车基数为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