单车核算

“维修费单车核算”

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

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

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

单车费用核算是指单车维修费用核算，对每台车每年的修理费用进行定额，有效控制维修费用。根据我处工作目标，充分挖掘设备潜力，节约维修费用，制定了车辆维修费用单车定额标准，实行单车费用核算。车辆年维修保养费用定额为：每台车基数为7000元；自新车投产后，每行驶一年或一万公里增加维修费用2%；大修、中修另由单位统一安排，不列入当年维修费用中；车辆大修后，费用重新核算。对超出核定修保费用的车辆，取消年度红旗设备和优秀操作手的评比资格；对超出核定维修费用的车辆，原则上不与安排修理，对生产急用车辆，可通过申请，经机动科鉴定，财务科审核后，安排修保。

三、“单车费用核算制度”的微机化管理

单车核算要求对车辆日常的多项数据进行时时监控，包括形式公里数、日常维护保养费用、修理次数等，全处200多台车辆，如果借助计算机进行监控和数据统计分析，不但大大节省劳动时间和强度，也提高了数据的准确性和真实性，所以我们根据实际工作要求和本办法的具体内容，设计了相应的计算机程序，以便计算机管理控制。

我们开发出多种功能，如：修理派工单、修理费用统计、修理次数和公里数统计、大修和购置的相关内容等。主要程序如下：

SM=MONTH(DATE())

if sm<10

tm="0"+str(sm,1)

else

tm=str(sm,2)

endif

yer=year(date())

Txlrq=YER*10000+sm*100+day(date())

tp="鲁E- "

@ 9,16 SAY "请输入牌照号： " GET TP

READ

sele 2

USE DJ

&&use dj index dj.pzh

set index to dj.pzh

find '&tp'

&&LOCATE FOR PZH="&tp"

if eof()

@ 5,23 SAY " 输入牌照号错........"

wait " 按任意键继续......."

clear

DO GG

retu

endif

if ye<0

@ 11,23 say "车辆维修费已超出......."

vbj=" "

@ 13,23 say "输入口令!" get vbj

READ

IF VBJ<>"123"

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

ENDIF

if JL<10

VJL="00"+str(JL,1)

else

if JL<100

VJL="0"+str(JL,2) else

VJL=str(JL,3)

endif

endif

REPL XH WITH RQ+"-"+VJL K=" "

do while UPPER(K)<>"Y" SET FORMAT TO CL.FMT EDIT

SET FORMAT TO

if jb="1"

repl jb with " 一保"

endif

if jb="2"

repl jb with " 二保"

endif

if jb="3"

repl jb with " 三保"

endif

IF JBR="1"

REPL JBR WIHT "***"

endif

if jbr="2"

repl jbr with "***"

endif

if jbr="3"

repl jbr with "***"

endif

IF IXDW="GQX"

REPL IXDW WITH "##1汽修厂",vd with "#1" endif

if ixdw="GTX"

REPL IXDW WITH "##2汽修厂",vd with "#2" ENDIF

if ixdw="GSD"

REPL IXDW WITH "##3汽修厂",vd with "#3" ENDIF

@ 23,20 say "输入的数据准确吗? (y/n)" get K read

if UPPER(K)="Y"

EXIT

ELSE

LOOP

ENDIF

enddo

ixh=xh

LOCATE FOR PZH="&TP" .AND. xh=ixh sele 1

SET RELATION TO PZH INTO B

LOCATE FOR PZH="&TP" .AND. xh=ixh REPL ULJGL WITH b->LJGL+GL

REPL TBJ WITH "*"

IF "三保" $ jb .or. "大修" $ jb

repl ksrq with xlrq,hj1 with 0,uljgl with 0

sele 2

repl hj1 with 0

SELE 1

ELSE