string ls_doc_no
DECLARE sp_generate_doc_no PROCEDURE FOR sp_generate_doc_no
@comp_code = :comp_code,
@doc_type = :doc_type,
@doc_month = :doc_month,
@doc_year = :doc_year,
@doc_no = :ls_doc_no out;
execute sp_generate_doc_no ;
fetch sp_generate_doc_no into :ls_doc_no ;
if sqlca.sqlcode <> 0 then
gf_message("","失敗")
close sp_generate_doc_no ;
return -1
end if
doc_no = ls_doc_no
close sp_generate_doc_no ;
return 1
說明:在帶返回帶數過程調用的時候一定要注意在提交後一定要close sp_generate_doc_no ;,不然執行時將報錯