一用户对缴款日报中的票据号使用情况提出要求,希望以类似5-6,9-10,12-20的方式展现,以便直观地反映实际使用的票据号情况。
我们经过分析发现,实现这一需求的难点主要有两点:
1. 如果要找出断号,用SQL语句实现,主要是要考虑性能;
2. 将排除断后的使用号码段的多条记录转换为一行显示,即用SQL实现行列转换;
如果通过编程来实现,这两点都不难,但通过SQL来实现,则需要一些技巧。
假设知道已用票据号为3,4,5,7,8,11,12,最小为3,最大为12,求断号的SQL如下:
Select Rownum + (3 - 1)
From Dual
Connect By Rownum <= 12 - (3 - 1)
Minus
Select Column_Value Txt From Table(Cast(Zltools.f_Num2list('3,4,5,7,8,11,12') As Zltools.t_Numlist))
求出的结果是三条记录,6,9,10
其中用到一个技巧就是用Connect by Rownum来产生按顺序增长的记录集。
求转换为一行显示的已用票据段的SQL如下:
With TEST As(
Select Column_Value 编号 From Table(Cast(Zltools.f_Num2list('3,4,5,7,8,11,12') As Zltools.t_Numlist))
)
Select Substr(Max(LPAD(Length(分段), 5,'0') || 分段), 7, 1000) As 分段
From (
Select Sys_Connect_By_Path(分段, ',') As 分段
From (
Select Rownum As 行号,A.起始号||'-'||(B.中断号-1) As 分段
From (
Select Rownum As 行号,编号 As 起始号
From (
Select 编号 From TEST
Minus
Select 编号+1 From TEST)
) A,
(Select Rownum As 行号,编号 As 中断号 From (
Select 编号+1 As 编号 From TEST
Minus
Select 编号 From TEST)
) B
Where A.行号=B.行号)
Start With 行号 = 1
Connect By (行号-1) = Prior 行号)
查询结果: 3-5,7-8,11-12
其中用到以下技巧:
1. 用minus方式求已用号码段的起始号和终止号的记录集
2. 用Sys_Connect_By_Path函数和树型查询实现多行记录转换为一列
3. 用Substr,Max,LPAD,Length几个函数的组合来求最长的一条记录
如是Oracle 10G及以后的版本,可以使用一个新的函数Wmsys.Wm_Concat,比前面树型查询的速度要快很多。
With TEST As(
Select Column_Value 编号 From Table(Cast(Zltools.f_Num2list('3,4,5,7,8,11,12') As Zltools.t_Numlist))
)
Select Wmsys.Wm_Concat(分段) as 分段
From (
Select Rownum As 行号,A.起始号||'-'||(B.中断号-1) As 分段
From (
Select Rownum As 行号,编号 As 起始号
From (
Select 编号 From TEST
Minus
Select 编号+1 From TEST)
) A,
(Select Rownum As 行号,编号 As 中断号 From (
Select 编号+1 As 编号 From TEST
Minus
Select 编号 From TEST)
) B
Where A.行号=B.行号)