根据格式字符串自动生成单据号(ORACLE版)(三)
OUTPUT.PUT_LINE(RES);
IF INSTR(TO_CHAR(MSTART), TO_CHAR(RES)) > 0 THEN
STAT := 1;
END IF;
RMOVE := SUBSTR(RMOVE, INSTR(RMOVE, ',') + 1,
LENGTH(RMOVE) - INSTR(RMOVE, ','));
END LOOP;
IF STAT = 1 THEN
BEGIN
MSTART := TO_NUMBER(MSTART) + 1;
GOTO A;
END;
END IF;
MSTART := TO_NUMBER(MSTART) - 1;
END;
ELSE
BEGIN
WHILE (INSTR(REMOVE, TO_CHAR(MSTART)) > 0) LOOP
MSTART := MSTART + 1;
--dbms_output.put_line(MSTART||'A');
END LOOP;
END;
END IF;
END;
END IF;
SSN := LPAD(TO_CHAR(MSTART), XZERO, '0');
SN := REPLACE(SN, ZERO, SUBSTR(SSN, LENGTH(SSN) - XZERO, XZERO));
SSN := SN;
RETURN SSN;
END;