无详细内容 无 CREATE OR REPLACE FUNCTION fn_no_make(v_prefix VARCHAR2, v_table_name VARCHAR2, v_number_col VARCHAR2) /* * v_prefix: 编码前缀两位 * v_table_name：编码所在表名 * v_number_col：编码所在列名 */ RETURN VARCHAR2 IS v_old_no VARCHA
<style> .CodeEntity .code_pieces ul.piece_anchor{width:25px;position:absolute;top:25px;left:-30px;z-index:1000;} .CodeEntity .code_pieces ul.piece_anchor li{width:25px;background: #efe;margin-bottom:2px;} .CodeEntity .code_pieces ul.piece_anchor li{border-left:3px #
本文来源gao!%daima.com搞$代*!码网1
40AA63 solid;border-right:3px #efe solid;} .CodeEntity .code_pieces ul.piece_anchor li:hover{border-right:3px #40AA63 solid;border-left:3px #efe solid;} .CodeEntity .code_pieces ul.piece_anchor li a{color: #333;padding: 3px 10px;} .CodeEntity .code_pieces .jump_to_code{visibility:hidden;position:relative;} .CodeEntity .code_pieces .code_piece:hover .jump_to_code{visibility:visible;} .CodeEntity .code_pieces .code_piece:hover .jump_to_code a{text-decoration:none;} .CodeEntity .code_pieces h2 i{float:right;font-style:normal;font-weight:normal;} .CodeEntity .code_pieces h2 i a{font-size:9pt;background: #FFFFFF;color:#00A;padding: 2px 5px;text-decoration:none;} </style> <!—ecms
- –> <!—ecms
- $velocityCount
–> <!—ecms
–>
CREATE OR REPLACE FUNCTION fn_no_make(v_prefix VARCHAR2, v_table_name VARCHAR2, v_number_col VARCHAR2) /* * v_prefix: 编码前缀两位 * v_table_name：编码所在表名 * v_number_col：编码所在列名 */ RETURN VARCHAR2 IS v_old_no VARCHAR2(50); --原编码 v_new_no VARCHAR2(50); --新编码 v_old_num NUMBER; --原编码后三位编号 v_new_num VARCHAR2(10); --新编码后三位编号 v_date_no VARCHAR2(10); --当前日期编号 v_sql VARCHAR2(4000);BEGIN v_sql := 'SELECT MAX(' || v_number_col || ') FROM ' || v_table_name; EXECUTE IMMEDIATE v_sql INTO v_old_no; v_sql := 'SELECT TO_CHAR(SYSDATE,''YYYYMMDD'') FROM DUAL'; EXECUTE IMMEDIATE v_sql INTO v_date_no; v_old_num := to_number(substr(v_old_no, 12, 3)); v_new_num := lpad(to_char(v_old_num+1), 3, '0'); IF v_old_no IS NULL OR substr(v_old_no, 3, 8) v_date_no THEN v_new_no := v_prefix || v_date_no || '-' || '001'; ELSE v_new_no := v_prefix || v_date_no || '-' || v_new_num; END IF; RETURN v_new_no;EXCEPTION WHEN OTHERS THEN dbms_output.put_line(SQLERRM);END fn_no_make;
转载请注明原文链接：PLSQL生成流水号
