| do p3 p3.prg clear set print on set device to print set default to d:\dbf set path to d:\dbf select 1 use lyc1 i=2 @1,10 say " 医保数据库 错误记录：" @2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+' 人员分类 '+'对比提示' locate for bj="n" do while not eof() i=i+1 if i>76 @1,10 say " 医保数据库 错误记录：" @2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+' 人员分类 '+'对比提示' i=3 endif @i,10 say str(xh,4,0)+" "+xm+xb+" "+substr(sbbh,1,30)+ryfl+" "+db continue enddo go 1 i=2 @1,10 say "****************医保数据库 无对应记录：******************" @2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'人员分类 '+'对比提示' locate for bj=" " do while not eof() i=i+1 if i>76 @1,10 say "****************医保数据库 无对应记录：****************" @2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'人员分类 '+'对比提示' i=3 endif @i,10 say str(xh,4,0)+" "+xm+xb+" "+substr(sbbh,1,30)+ryfl+" "+db continue enddo go 1 i=i+1 @i,10 say "****************医保数据库 分类有问题：****************" i=i+1 @i,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'人员分类 '+'对比提示' locate for at('？',ryfl)>0 do while not eof() i=i+1 if i>76 @1,10 say "****************医保数据库 分类有问题：****************" @2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'人员分类 '+'对比提示' i=3 endif @i,10 say str(xh,4,0)+" "+xm+xb+" "+substr(sbbh,1,30)+ryfl+" "+db continue enddo count all to t count all for bj="y" to s count all for ryfl="在职" to zs count all for ryfl="退休" to tx @i+1,10 say "****医保数据库 正确记录数："+str(s,4,0)+"/"+str(t,4,0)+"/在职"+str(zs,4,0)+"/退休"+str(tx,4,0) select 2 use lyc1_1 i=2 @1,10 say "===============校对文稿 无对应记录：===============" @2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'对比提示' locate for bj=" " do while not eof() i=i+1 if i>76 @1,10 say "===============校对文稿 无对应记录：===============" @2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'对比提示' i=3 endif @i,10 say str(xh,4,0)+" "+xm+xb+" "+substr(sbbh,1,30)+" "+db continue enddo count all to t count all for bj="y" to s count all for zgz > 0 to zs count all for tgz > 0 to tx @i+1,10 say "========校对文稿 校对正确记录数："+str(s,4,0)+"/"+str(t,4,0)+"/在职"+str(zs,4,0)+"/退休"+str(tx,4,0) eject sele 1 use sele 2 use set print off set device to screen |
