您的位置:首页 > 博客中心 > 数据库 >

ORACLE数字转换人民币大写

时间:2022-03-14 01:52

Application Object Library Lookups

Application Object Library Lookups

Application Object Library Lookups

CUX_CONVERTER_CNY_PKG

AS

)

;

)

;

)

;

)

;

)

;

END;

/

CUX_CONVERTER_CNY_PKG

AS

)

VARCHAR2

IS

;

;

;

;

);

);

);

);

);

);

);

);

EXCEPTION;

BEGIN

--Special number

)

THEN

;

IF;

--Checking decimal fraction

);

);

NULL;

;

--Integer transaction

THEN

;

NULL;

);

;

LOOP

);

);

--Converter each number cny format

);

--Search each number unit

THEN

NULL;

THEN

NULL;

THEN

);

IF;

);

);

LOOP

);

THEN

);

IF;

;

LOOP;

);

IF;

--Decimal transaction

THEN

;

NULL;

);

;

LOOP

);

);

--Converter each number cny format

);

--Search each number unit

THEN

NULL;

--ELSIF (L_CUR_POS = 1) THEN

--   L_UNIT := NULL;

THEN

);

IF;

);

LOOP;

IF;

THEN

--Linking Integer and unit

);

ELSE

--Linking Integer and unit

NULL;

IF;

--Merge concatenation Zero

);

--Fixed duplicate unit

);

;

EXCEPTION

THEN

);

);

OTHERS

THEN

SQLcode);

SQLERRM);

END;

)

VARCHAR2

IS

);

BEGIN

1

SYSDATE)

)

‘Y‘

‘CUX_CNY_FORMAT‘

;

;

EXCEPTION

OTHERS

THEN

SQLcode);

SQLERRM);

END;

)

VARCHAR2

IS

);

BEGIN

--FLV.DESCRIPTION

1

SYSDATE)

)

‘Y‘

‘CUX_CNY_UNIT‘

;

;

EXCEPTION

OTHERS

THEN

SQLcode);

SQLERRM);

END;

)

VARCHAR2

IS

;

);

BEGIN

1

SYSDATE)

,

)

‘Y‘

‘0‘

‘CUX_CNY_FORMAT‘

;

1

SYSDATE)

,

)

‘Y‘

)

‘CUX_CNY_SPECIAL_ZERO‘

0

DESC)

LOOP

);

LOOP;

THEN

);

IF;

;

EXCEPTION

OTHERS

THEN

SQLcode);

SQLERRM);

END;

)

VARCHAR2

IS

);

;

;

);

);

;

);

);

;

BEGIN

1

SYSDATE)

)

‘Y‘

‘5‘

‘CUX_CNY_UNIT‘

;

1

SYSDATE)

)

‘Y‘

‘9‘

‘CUX_CNY_UNIT‘

;

;

));

LOOP

;

);

)

THEN

;

)

THEN

NULL;

IF;

IF;

)

THEN

;

)

THEN

NULL;

IF;

IF;

;

;

LOOP;

NULL;

)

LOOP

);

LOOP;

;

EXCEPTION

OTHERS

THEN

SQLcode);

SQLERRM);

END;

END;

/

 

;

;

V1411.1

 

热门排行

今日推荐

热门手游