会计日历-自动生成脚本

--自动生成当前年份所有月的会计期间

--Parameters:

--:YEAR  当前年份

--:TYPE  会计日历类型

SELECT INITCAP (TO_CHAR (TO_DATE (ROWNUM, ‘MM‘), ‘MON‘)) PREFIX,

:TYPE TYPE,

:YEAR YEAR,

TO_CHAR (TO_DATE (ROWNUM, ‘MM‘), ‘q‘) QUARTER,

ROWNUM NUM,

( :YEAR || ‘-‘ || ROWNUM || ‘-01‘) FROM_DAY,

TO_CHAR (LAST_DAY (TO_DATE ( :YEAR || ‘-‘ || ROWNUM, ‘YYYY-MM‘)), ‘YYYY-MM-DD‘) TO_DAY,

INITCAP (TO_CHAR (TO_DATE (ROWNUM || ‘-‘ || :YEAR, ‘MM-YYYY‘), ‘MON-YYYY‘)) NAME

FROM DUAL

CONNECT BY ROWNUM <= 12

UNION ALL

SELECT ‘Adj‘ PREFIX,

:TYPE TYPE,

:YEAR YEAR,

‘4‘ QUARTER,

13 NUM,

TO_CHAR (LAST_DAY (TO_DATE ( :YEAR || ‘-‘ || ‘12‘, ‘YYYY-MM‘)), ‘YYYY-MM-DD‘) FROM_DAY,

TO_CHAR (LAST_DAY (TO_DATE ( :YEAR || ‘-‘ || ‘12‘, ‘YYYY-MM‘)), ‘YYYY-MM-DD‘) TO_DAY,

‘Adj-‘ || :YEAR NAME

FROM DUAL;

--Dataload template

SELECT INITCAP (TO_CHAR (TO_DATE (ROWNUM, ‘MM‘), ‘MON‘)) PREFIX,

‘TAB‘ KEY,

:TYPE TYPE,

‘TAB‘ KEY,

:YEAR YEAR,

‘TAB‘ KEY,

TO_CHAR (TO_DATE (ROWNUM, ‘MM‘), ‘q‘) QUARTER,

‘TAB‘ KEY,

ROWNUM NUM,

‘TAB‘ KEY,

( :YEAR || ‘-‘ || ROWNUM || ‘-01‘) FROM_DAY,

‘TAB‘ KEY,

TO_CHAR (LAST_DAY (TO_DATE ( :YEAR || ‘-‘ || ROWNUM, ‘YYYY-MM‘)), ‘YYYY-MM-DD‘) TO_DAY,

‘TAB‘ KEY,

INITCAP (TO_CHAR (TO_DATE (ROWNUM || ‘-‘ || :YEAR, ‘MM-YYYY‘), ‘MON-YYYY‘)) NAME,

‘TAB‘ KEY,

‘\^{DOWN}‘ KEY

FROM DUAL

CONNECT BY ROWNUM <= 12

UNION ALL

SELECT ‘Adj‘ PREFIX,

‘TAB‘ KEY,

:TYPE TYPE,

‘TAB‘ KEY,

:YEAR YEAR,

‘TAB‘ KEY,

‘4‘ QUARTER,

‘TAB‘ KEY,

13 NUM,

‘TAB‘ KEY,

TO_CHAR (LAST_DAY (TO_DATE ( :YEAR || ‘-‘ || ‘12‘, ‘YYYY-MM‘)), ‘YYYY-MM-DD‘) FROM_DAY,

‘TAB‘ KEY,

TO_CHAR (LAST_DAY (TO_DATE ( :YEAR || ‘-‘ || ‘12‘, ‘YYYY-MM‘)), ‘YYYY-MM-DD‘) TO_DAY,

‘TAB‘ KEY,

‘Adj-‘ || :YEAR NAME,

‘TAB‘ KEY,

‘*SB‘ KEY

FROM DUAL;