加一
CREATE OR REPLACE FUNCTION "F_CODEINC" (s VARCHAR2)
RETURN VARCHAR2
IS
cstr varchar2(20);
i NUMBER;
len NUMBER;
BEGIN
len:=length(s);
cstr:=to_char(to_number(s)+1);
i:=len - length(cstr);
WHILE ( i> 0) LOOP
cstr:='0'||cstr;
i:=i-1;
END LOOP;
RETURN cstr;
END;
减一
CREATE OR REPLACE FUNCTION "F_CODESUB" (s VARCHAR2)
RETURN VARCHAR2
IS
cstr varchar2(20);
i NUMBER;
len NUMBER;
BEGIN
len:=length(s);
cstr:=to_char(to_number(s)-1);
i:=len - length(cstr);
WHILE ( i> 0) LOOP
cstr:='0'||cstr;
i:=i-1;
END LOOP;
RETURN cstr;
END;