pb局部函数，折旧总是提示第一个messagebox：('提示','折旧计算表中无固定资产编码【'+r_code+'】日期【'+r_rq+'】的相应数据！')，怎么回事呢？求助

//wf_jtzj(r_dw,r_row)        //计提折旧，0：正常计提，1：折旧计算表中无相应数据，2：采用工作量折旧方法，需要输入本月工作量

decimal r_zje,r_bygzl             //折旧额、本月工作量
string r_bz,r_shbj,r_zdr         //备注、审核标记、制单人
string r_code,r_rq,r_zjff
integer r_count

r_code=r_dw.getitemstring(r_row,'gdzc_code')
r_zjff=r_dw.getitemstring(r_row,'zjff_code')
r_rq=r_dw.getitemstring(r_row,'rq')
select zje into :r_zje from gd_zjjsb where gdzc_code=:r_code and rq=:r_rq;
if sqlca.sqlcode=100 then
    messagebox('提示','折旧计算表中无固定资产编码【'+r_code+'】日期【'+r_rq+'】的相应数据！')
    return 1
elseif sqlca.sqlcode=0 then   
    choose case r_zjff
        case '04'        //工作量折旧方法
            select count(*) into :r_count from gd_gzlb where gdzc_code=:r_code  and rq=:r_rq and shbj='Y';
            if r_count=0 then
                messagebox('提示','该固资【'+r_code+'】采用工作量折旧方法，请输入并审核本月工作量！')
                return 2
            else   
                select bygzl into :r_bygzl from gd_gzlb where gdzc_code=:r_code  and rq=:r_rq and shbj='Y';    //本月工作量
                r_zje=r_bygzl * r_zje
                r_dw.setitem(r_row,'byzje',r_zje)
           end if
        case else
            r_dw.setitem(r_row,'byzje',r_zje)
    end choose
end if
r_zdr=r_dw.getitemstring(r_row,'zdr')
r_shbj=r_dw.getitemstring(r_row,'shbj')
r_bz=r_dw.getitemstring(r_row,'bz')
//将本月折旧额插入计提折旧表
insert into gd_jtzjb ( rq,gdzc_code,byzje,zdr,shbj,bz)  
    values (:r_rq,:r_code,:r_zje,:r_zdr, :r_shbj ,:r_bz)  ;
return 0