752
社区成员
发帖
与我相关
我的任务
分享
global function string f_getsjlysql (string asbbbh, string assh, string aszcbz, string astype)
end prototypes
global function string f_getsjlysql (string asbbbh, string assh, string aszcbz, string astype);//参数说明:
//asbbbh :报表编号
//aszcbz :主从标识
//astype :类型
//返回值:string sql
//ADD 平忠强
//最大可读取1000个字符 32
string ls_sql[]
string vs_sql
string vs_return
integer i
vs_sql = ""
for i = 1 to 32
vs_sql = " select substring(sjly_sql,( "+string(i)+" -1)*250 + 1,8000/32) from ldpsjly where sjly_bbbh = '" + asbbbh + "' and sjly_sh = '" + assh + "' and sjly_zcbz = '" + aszcbz + "' and sjly_type = '" + astype + "'"
declare get_cursor dynamic cursor for sqlsa;
prepare sqlsa from :vs_sql;
if sqlca.sqlcode <> 0 then
return ""
end if
open get_cursor;
fetch get_cursor into :ls_sql[i];
CLOSE get_cursor;
next
for i = 1 to UpperBound(ls_sql[])
vs_return = vs_return + ls_sql[i]
next
return vs_return
end function