REPL KSRQ WITH B->VQ endif
TY=VAL(SUBS(STR(KSRQ,8),1,4)) n=yer-TY-1 if n<0 n=0 endif
k=int(GL/10000) if B->GB=\ IF N=0
REPL gdfy WITH (k*8000*0.020)+8000 ELSE
REPL gdfy WITH (8000*(1+0.020)^n)+(k*8000*0.020) endif endif
if B->GB<>\ if n=0
REPL gdfy WITH 5500+(k*5500*0.020) else
REPL gdfy WITH (5500*(1+0.020)^n)+(k*5500*0.020) endif endif
if \摩托\
REPL gdfy WITH (1200*(1+0.020)^n)+(k*1200*0.020) endif do tdy retu
procedure tdy
RESTORE FROM TU ADDITIVE @3,2 clear to 24,77
@10,30 say \准备好打印机, 任意键继续....\ aaaa=inkey(0) stta=sys(13)
if stta=\ @10,2 clear to 11,76
@10,30 say \打印机没准备好, 请打开.....\ aaaa=inkey(0) endif
@ 11,30 say \标题打印:\@ 12,30 say \表格打印:\
@ 13,30 say \正在打印, 请稍侯......\set devi to print i=1
do while i<=2
@ PROW()+1,1 SAY &AR
@ prow()+1,14 say \车 辆 修 保 单\@ prow()+1,1 say \
@ prow()+1,68 say \编号： 维修(\@ prow()+1,1 say \
@ prow()+1,10 say ixdw+\：\
@ prow(),10 say \@ prow()+1,1 say \
@ prow()+1,10 say \今有我单位车辆前来您厂保养请按修保单规定范围进行修理，保证修理质量，请您厂\@ prow()+1,1 say \
@ prow()+1,10 say \协助我单位的设备管理工作，未经单位允许不准随意更换总成件，不准配备与车辆\@ prow()+1,10 say \
@ prow()+1,10 say \无关的物品，结算时以材料清单和此单为凭证。\
@ prow()+1,1 say \@ prow()+1,1 say \
@ prow()+1,10 say \保养级别： \@ prow(),10 say \@ prow()+1,1 say \
@ prow()+1,10 say \碎修范围： \@ prow(),10 say \_________________________________________________________________\@ prow()+1,1 say \
@ prow()+1,10 say \@ prow(),10 say \_________________________________________________________________\@ prow()+1,1 say \
@ prow()+1,10 say \使用单位： \ \车型：\车号：\
@ prow(),10 say \ __________\__________________________\@ prow()+1,1 say \
@ prow()+1,10 say \司机： \经办人：\ \年 \月 \日\
@ prow(),10 say \@ prow()+1,1 say \@ prow()+1,1 say \
@ prow()+1,10 say \备注：对无运转记录的车辆，单位不予安排修保，责任自负)。\ i=i+1 j=0
do while j< 4
j=j+1
@ prow()+1,1 say \ enddo enddo
set device to screen CLEAR close data
通过计算机实现单车费用核算功能。计算机内部台帐提供车辆所有相关信息，对车辆的日常行驶公里数、维修次数、维修费用等进行监控，如果单车费用超出核定费用，则计算机提示费用超出，无法安排维修，需要输入口令，此时，如果有特殊情况，经过领导批示同意安排维修，领导键入口令，才可以继续安排修理，否则无法维修。
四、“单车费用核算制度”的成效
1、 实行单车费用核算后，可有效控制维修费用。原维修费用为52.8万元，今年在实行单车费用核算后，上半年车辆使用维修费用为41万元，节约11多万元，由于上半年设备各项活动的开展，车辆修理大都安排在了上半年，所以费用节约不是很明显，下半年车辆只是一些定期保养，到时成效将会非常显著。
2、 实行单车核算，提高了驾驶员的工作积极性、主动性。由于车辆的各项费用与自己息息相关，大家首先重视日常保养，能自己保养和修理的自己解决，不能修理的则是当面和修理人员共同查找问题，在保证质量的基础上，进行经济换件，不断提高修理质量和效率，也提高了车辆的使用寿命，保证了生产的正常运行。另外在此工作中，我们还对修理厂家主要配件实行多厂家报价、质量比
较，可以有效控制修理厂配件、修理的质量和积极性，保证我处车辆的安全正常运行。
3、 实行单车核算后，使各项制度得到的加强。对车辆实行单车费用核算后，可以加强日常保养制度、巡回检查制度、各项修理制度等，使各项制度通过该办法落实到了实处，发挥出应有的作用。