pb求助 保存报错

[li671207]

/*------------------------------------------------
*函数名称：string gf_getbh(string as_bh)
*函数作用：生成一个编号
*返回值：string类型的编号
*调用举例：ls_new=gf_getbh(ls_old)
* 其中，ls_old为数据窗口中已经存在

的当天的最大编号
*编写日期：xxxx.xx.xx
*编写人：xxx
*-------------------------------------------------*/

string ls_part1 //用来保存编码的前6位
string ls_part2 //用来保存编码的后4位
string ls_dbsn //数据库中当天最大流水号
string ls_agrsn //参数中的流水号
string ls_sn //新生成的编号

ls_part1=right(string(today(),'yyyymmdd'),6)
ls_agrsn=right(as_bh,4)

//从数据库中选择当天最大的编号
select max(bh) into:ls_dbsn
from mpgl
where substring(bh,1,6)=:ls_part1;

if sqlca.sqlcode=0 then //如果正确取出了数据
if isnull(ls_dbsn) or ls_dbsn='' then
ls_dbsn='0000'
else
ls_dbsn=right(ls_dbsn,4)
end if
if isnull(ls_agrsn) or ls_agrsn='' then
ls_agrsn='0000'
if integer(ls_dbsn)<integer(ls_agrsn) then
ls_part2=string(integer(ls_agrsn)+1)
else
ls_part2=string(integer(ls_dbsn)+1)
end if

ls_sn=ls_part1+right('0000'+ls_part2,4)
else
ls_sn=''
end if

return ls_sn



保存提示： error coo93:incompatible type string returned for function
error coo31:syntax error
error coo31:syntax error
我菜鸟 实在不晓得哪里有错了

[xuam]

1.返回值数据类型错误。 2.语法错误: if isnull(ls_agrsn) or ls_agrsn='' then ls_agrsn='0000' ------> if isnull(ls_agrsn) or ls_agrsn='' then ls_agrsn='0000'

[li671207]

没有报这个错了 error coo93:incompatible type string returned for function 谢谢哈 但是还是要报 error coo31:syntax error error coo31:syntax error 这样的错呢 语法错在哪呢？ 貌似是最后几句有错 但是 实在不晓得为啥错呢

[岁月明灯]

string ls_part1 //用来保存编码的前6位 .... ls_part1=right(string(today(),'yyyymmdd'),6) //这样只能保存编码的后6位

[xuam]

不是给你指出来了么，要么在一行写，要么加个 end if

引用 2 楼 li671207 的回复:

没有报这个错了 error coo93:incompatible type string returned for function 谢谢哈 但是还是要报 error coo31:syntax error error coo31:syntax error 这样的错呢 语法错在哪呢？ 貌似是最后几句有错 但是 实在不晓得为啥错呢

[PB菜鸟]

if end if 对应有问题，应该是少了end if 自己看代码对比下

[DD]

少了一个END IF 仔细检查吧