pb10 第一行syntax error 求大佬康康

weixin_44229313 2020-12-14 04:16:39

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

下接计算代码

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)

...全文