set talk off
sele 1
use ii
sele 2
use 转换
zap
sele 1
go top
do while .not. eof()
qq1=姓名
qq2=性别
qq3=出生年月
qq4=工作单位
qq5=第一学历
qq6=毕业学校
qq7=毕业时间
qq8=学位
qq9=专业
qq10=最后学历
qq11=毕业学校1
qq12=毕业时间1
qq13=学位1
qq14=申报学科
qq15=行政职务
qq16=现职称
qq17=资格时间
qq18=聘任时间
qq19=现职称1
qq20=资格时间1
qq21=聘任时间1
qq22=主管部门
qq23=申报职务
qq25=身份证号
sele 2
appe blank
repl 姓名 with qq1,性别 with qq2,出生年月 with subs(qq3,1,4)+"年"+subs(str(val(subs(qq3,6,2))+100,3),2,2)+"月"
repl 工作单位 with qq4,任职资格 with qq23,单位性质 with "国有事业",人事档案 with qq4,身份证号 with qq25
if qq23="教授" .or. qq23="副教授"
repl 评委会 with "山西省普通高校教师高级职务评委会",系列名称 with "高等学校教师系列",评审日期 with "2009年10月14日"
endif
if qq23="高级实验师"
repl 评委会 with "山西省普通高校实验高级职务评委会",系列名称 with "实验系列",评审日期 with "2009年10月13日"
endif
if qq23="副研究馆员"
repl 评委会 with "山西省普通高校图书高级职务评委会",系列名称 with "图书资料系列",评审日期 with "2009年10月13日"
endif

if qq6="  "
repl 毕业学校 with qq11
else
repl 毕业学校 with qq6
endif
if qq5="  "
repl 第一学历 with qq10
else
repl 第一学历 with qq5
endif
if qq7="  "
repl 毕业时间 with subs(qq12,1,4)+"年"+subs(str(val(subs(qq12,6,2))+100,3),2,2)+"月"
else
repl 毕业时间 with subs(qq7,1,4)+"年"+subs(str(val(subs(qq7,6,2))+100,3),2,2)+"月"
endif
if qq8="  "
repl 最后学位 with qq13
else
repl 最后学位 with qq8
endif
repl 毕业专业 with qq9

if qq11="  "
repl 毕业学校1 with qq6
else
repl 毕业学校1 with qq11
endif
if qq10="  "
repl 最后学历 with qq5
else
repl 最后学历 with qq10
endif
if qq12="  "
repl 毕业时间1 with subs(qq7,1,4)+"年"+subs(str(val(subs(qq7,6,2))+100,3),2,2)+"月"
else
repl 毕业时间1 with subs(qq12,1,4)+"年"+subs(str(val(subs(qq12,6,2))+100,3),2,2)+"月"
endif

repl 毕业专业1 with qq9
repl 主管部门 with qq22,行政职务 with qq15,从事专业 with qq14
if qq16<>"  "
repl 现职务 with qq16
repl 资格时间1 with subs(qq17,1,4)+"年"+subs(str(val(subs(qq17,6,2))+100,3),2,2)+"月"
repl 聘任时间1 with subs(qq18,1,4)+"年"+subs(str(val(subs(qq18,6,2))+100,3),2,2)+"月"
endif
if qq19<>"  "
repl 原职务 with qq19
repl 资格时间 with subs(qq20,1,4)+"年"+subs(str(val(subs(qq20,6,2))+100,3),2,2)+"月"
repl 聘任时间 with subs(qq21,1,4)+"年"+subs(str(val(subs(qq21,6,2))+100,3),2,2)+"月"
*else
*repl 现职务 with qq16
*repl 资格时间1 with subs(qq17,1,4)+"年"+subs(str(val(subs(qq17,6,2))+100,3),2,2)+"月"
*repl 聘任时间1 with subs(qq18,1,4)+"年"+subs(str(val(subs(qq18,6,2))+100,3),2,2)+"月"
endif

sele 1
skip
enddo
close data
return
