pb10 第一行syntax error 求大佬康康

如图 做的是工资管理系统里计算工资的按钮 错误里始终显示在第一行
呜呜呜大学生太菜了 求大佬

下接计算代码

integer r_yesno,r_row,r_count,r_rowcount,r_row1,r_gl1

string r_zg_code,r_gzzh

integer r_gznl,r_jbcs,r_cdcs,r_bjcs,r_sjcs,r_kgcs //工作年龄、加班次数、迟到次数、病假次数、事假次数、旷工次数

decimal r_xse //销售额

decimal r_jbgz,r_glgz,r_zcgz,r_gwjt,r_gdbt,r_glgz1 //基本工资项目

decimal r_jbf,r_cdkk,r_bjkk,r_sjkk,r_kgkk,r_jj,r_jtf,r_bxf //变动工资项目

decimal r_jbf1,r_cdkk1,r_bjkk1,r_sjkk1,r_kgkk1,r_jj1 //变动工资中对应的加班费、迟到扣款、病假扣款、事假扣款、旷工扣款

decimal r_je,r_sl,r_sskcs,r_ynsdexx,r_ynsdesx,r_ynsde //个人所得税额相关（金额、税率、速算扣除数、应纳所得额下限、应纳所得额上限、应纳所得额）

decimal r_ynse,r_jbgzhz,r_kkhj,r_yfhj,r_dkse,r_sfhj //应纳税额、基本工资汇总、扣款合计、应发合计、代扣税额、实发合计

string r_gw_code,r_zc_code,r_jx_code,r_sb_code//职工类别、岗位、职称、绩效、社保

r_yesno=messagebox('提示','是否真的进行相关操作？',question!,yesno!,2)

if r_yesno=2 then return

r_count=dw_table.rowcount()

for r_row=1 to r_count

r_zg_code=dw_table.getitemstring(r_row,'zg_code')

select gw_code,zc_code

into :r_gw_code,:r_zc_code

from gz_zgxxb where zg_code=:r_zg_code;

choose case i_type

case 'gz_jbgzb' //基本工资表

//工龄工资

select gznl into :r_gznl from gz_zgxxb where zg_code=:r_zg_code;

select glgz into :r_glgz1 from gz_glgz where gl=:r_gznl;

r_glgz=r_gznl*r_glgz1

//岗位津贴

select gwjt into :r_gwjt from gz_gwjt where gw_code=:r_gw_code;

//职称工资

select zcgz into :r_zcgz from gz_zcgz where zc_code=:r_zc_code;

//固定补贴

select gdbt into :r_gdbt from gz_kkbtgd;

r_gznl=gf_null_0(r_gznl)

r_glgz=gf_null_0(r_glgz)

r_gwjt=gf_null_0(r_gwjt)

r_zcgz=gf_null_0(r_zcgz)

r_gdbt=gf_null_0(r_gdbt)

dw_table.setitem(r_row,'gznl',r_gznl)

dw_table.setitem(r_row,'gnzl',r_gznl)

dw_table.setitem(r_row,'gwjt',r_gwjt)

dw_table.setitem(r_row,'zcgz',r_zcgz)

dw_table.setitem(r_row,'gdbt',r_gdbt)


case 'gz_bdgzb' //变动工资表

//计算在职职工的加班费、迟到扣款、病假扣款、事假扣款、旷工扣款

select jbcs,cdcs,bjcs,sjcs,kgcs into :r_jbcs,:r_cdcs,:r_bjcs,:r_sjcs,:r_kgcs

from gz_kqb where zg_code=:r_zg_code;

select jbf,cdkk,bjkk,sjkk,kgkk

into :r_jbf1,:r_cdkk1,:r_bjkk1,:r_sjkk1,:r_kgkk1

from gz_kkbtgd;

r_jbf=r_jbcs*r_jbf1

r_cdkk=r_cdcs*r_cdkk1

r_bjkk=r_bjcs*r_bjkk1

r_sjkk=r_sjcs*r_sjkk1

r_kgkk=r_kgcs*r_kgkk1

//绩效计算 以销售额为依据提成

select xse into :r_xse from gz_xse where zg_code=:r_zg_code;

if r_xse<5000 then

select tcse into :r_jj1 from gz_jx where jx_code=01;

r_jj=r_jj1

elseif r_xse>=5000 and r_xse<8000 then

select tcse into :r_jj1 from gz_jx where jx_code=02;

r_jj=r_jj1

elseif r_xse>=8000 and r_xse<11000 then

select tcse into :r_jj1 from gz_jx where jx_code=03;

r_jj=r_jj1

else

select tcse into :r_jj1 from gz_jx where jx_code=04;

r_jj=r_jj1

end if

r_jbf=gf_null_0(r_jbf)

r_cdkk=gf_null_0(r_cdkk)

r_bjkk=gf_null_0(r_bjkk)

r_sjkk=gf_null_0(r_sjkk)

r_kgkk=gf_null_0(r_kgkk)

r_jj=gf_null_0(r_jj)

dw_table.setitem(r_row,'jbf',r_jbf)

dw_table.setitem(r_row,'cdkk',r_cdkk)

dw_table.setitem(r_row,'bjkk',r_bjkk)

dw_table.setitem(r_row,'sjkk',r_sjkk)

dw_table.setitem(r_row,'kgkk',r_kgkk)

dw_table.setitem(r_row,'jj',r_jj)


case else //工资汇总表

choose case i_type

case 'gzhzjs' //汇总工资计算

//将基本工资项目、变动工资项目插入到工资汇总表

select gzzh into :r_gzzh from gz_zgxxb where zg_code=:r_zg_code;

select jbgz,glgz,gwjt,gdbt,zcgz into :r_jbgz,:r_glgz,:r_gwjt,:r_gdbt,:r_zcgz

from gz_jbgzb where rq=:g_rq and zg_code=:r_zg_code;

select jbf,jj,jtf,cdkk,bjkk,sjkk,kgkk,bxf into :r_jbf,:r_jj,:r_jtf,:r_cdkk,:r_bjkk,:r_sjkk,:r_kgkk,:r_bxf

from gz_bdgzb where rq=:g_rq and zg_code=:r_zg_code;

select gzzh into :r_gzzh

from gz_zgxxb where zg_code=:r_zg_code;

r_jbgz=gf_null_0(r_jbgz)

r_glgz=gf_null_0(r_glgz)

r_gwjt=gf_null_0(r_gwjt)

r_gdbt=gf_null_0(r_gdbt)

r_zcgz=gf_null_0(r_zcgz)

r_jtf=gf_null_0(r_jtf)

r_jbf=gf_null_0(r_jbf)

r_jj=gf_null_0(r_jj)

r_cdkk=gf_null_0(r_cdkk)

r_bjkk=gf_null_0(r_bjkk)

r_kgkk=gf_null_0(r_kgkk)

r_sjkk=gf_null_0(r_sjkk)

r_bxf=gf_null_0(r_bxf)

dw_table.setitem(r_row,'gzzh',r_gzzh)

dw_table.setitem(r_row,'jbgz',r_jbgz)

dw_table.setitem(r_row,'glgz',r_glgz)

dw_table.setitem(r_row,'gwjt',r_gwjt)

dw_table.setitem(r_row,'gdbt',r_gdbt)

dw_table.setitem(r_row,'zcgz',r_zcgz)

dw_table.setitem(r_row,'jtf',r_jtf)

dw_table.setitem(r_row,'jbf',r_jbf)

dw_table.setitem(r_row,'jj',r_jj)

dw_table.setitem(r_row,'cdkk',r_cdkk)

dw_table.setitem(r_row,'bjkk',r_bjkk)

dw_table.setitem(r_row,'sjkk',r_sjkk)

dw_table.setitem(r_row,'kgkk',r_kgkk)

dw_table.setitem(r_row,'bxf',r_bxf)

//计算在职职工的基本工资汇总，扣款合计，应发合计

r_jbgzhz=r_jbgz+r_glgz+r_gwjt+r_gdbt+r_zcgz

r_kkhj=r_cdkk+r_bjkk+r_sjkk+r_kgkk+r_bxf

r_yfhj=r_jbgzhz+r_jbf+r_jj+r_jtf

//计算代扣税额，实发合计

if r_yfhj<3000 then

r_dkse=0

else

r_ynse=r_yfhj - r_je

select count(*) into :r_rowcount from gz_grsdsl;

for r_row1=1 to r_rowcount

select ynsdexx,ynsdesx into :r_ynsdexx,:r_ynsdesx

from gz_grsdsl where sdsl_name=:r_row1;

if r_ynsdexx<r_ynse and r_ynsdesx>=r_ynse then

select sl,sskcs into :r_sl,:r_sskcs

from gz_grsdsl where sdsl_name=:r_row1;

r_dkse=r_ynse*(r_sl) - r_sskcs

end if

next

end if

r_sfhj=r_yfhj -r_dkse - r_kkhj

r_jbgzhz=gf_null_0(r_jbgzhz)

r_dkse=gf_null_0(r_dkse)

r_yfhj=gf_null_0(r_yfhj)

r_kkhj=gf_null_0(r_kkhj)

r_sfhj=gf_null_0(r_sfhj)

dw_table.setitem(r_row,'jbgzhz',r_jbgzhz)

dw_table.setitem(r_row,'yfhj',r_yfhj)

dw_table.setitem(r_row,'dkse',r_dkse)

dw_table.setitem(r_row,'kkhj',r_kkhj)

dw_table.setitem(r_row,'sfhj',r_sfhj)