- 论坛徽章:
- 0
|
//Public function of_hand_task_gen (string as_customcode,string as_comcode,string as_comtype,st_parm ast_parm) returns integer
//string as_customcode
//string as_comcode
//string as_comtype
//st_parm ast_parm
string ls_handtasksql
string ls_msg
string ls_executesql
DECLARE cur_handsql CURSOR FOR select SQLHand from ComTranSQL where CustomCode =:as_customcode and ComCode =:as_comcode and ComType =:as_comtype order by SeqNo USING sqlca;
OPEN cur_handsql;
FETCH cur_handsql INTO :ls_handtasksql;
DO WHILE sqlca.sqlcode = 0
IF (isnull(ls_handtasksql) OR trim(ls_handtasksql) = "") THEN
ELSE
ls_executesql = THIS.of_replace_sql(ls_handtasksql,as_customcode,as_comcode,ast_parm)
IF ls_executesql = "" THEN
RETURN -1
ELSE
EXECUTE IMMEDIATE ls_executesql USING sqlca;
IF sqlca.sqlcode <> 0 THEN
ls_msg = "手工处理出错" + sqlca.sqlerrtext
GOTO LABEL_KENSHU_20
END IF
END IF
END IF
FETCH cur_handsql INTO :ls_handtasksql;
LOOP
CLOSE cur_handsql;
IF sqlca.sqlcode < 0 THEN
ls_msg = "数据错误" + sqlca.sqlerrtext
ELSE
RETURN 1
LABEL_KENSHU_20:
END IF
ROLLBACK USING sqlca;
gf_messagebox("",ls_msg)
RETURN -1
各位大大大大大虾,偶请教个非常菜菜菜菜菜的问题,SQLCA是什么意思啊?我的本意是通过源码找到数据库的LOGIN ID 和 PASSWORD,可是每次最关键的时候就被SQLCA取代了,我又找不到SQLCA在什么位置,非常郁闷,各位路过的神仙给指点一下啊,怎么样才能找到PASSWORD呢 ?跪谢啊~~~~~~ |
|