sql union + left join

select 'ou' OU
,A.MACHINE_CODE||'-'||A.MACHINE_NAME MACHINE_NAME
,AC.FAC_NAME
,A.MACHINE_PLACE
,A.DIV_CODE
,A.MACHINE_BRAND
,A.MACHINE_MODEL
,A.MACHINE_SERILS_NO
,A.MACHINE_VENDOR
,A.MACHINE_VENDOR_ADDR
,A.MACHINE_TECH1
,A.MACHINE_TECH2
,A.MACHINE_TECH3
,A.MACHINE_TECH4
,A.MACHINE_TECH5
,A.MACHINE_TECH6
,A.MACHINE_INS_DATE
,AA.ASSET_AMT
,AA.BOOK_VALUE

,S.PROBLEM
,S.CAUSE
,S.EMP_CODE
,S.SUB_ATV_CODE
,S.ATV_SDATE
,S.ATV_EDATE
,S.ATV_STIME
,S.ATV_ETIME
,S.ITEM_CODE
,S.QTY
,S.AMT

FROM   MA_MACHINE A
                                                               
 LEFT OUTER JOIN FA_ASSET AA ON
A.ASSET_ID = AA. ASSET_ID
LEFT OUTER JOIN FA_PLACE AB ON
AA.PLACE_CODE = AB.PLACE_CODE
 LEFT OUTER JOIN FA_FACTORY AC ON
AB.FAC_CODE = AC. FAC_CODE

,
(select '1'                 type_report
,A.MACHINE_CODE  machine_code
,A.PROBLEM            problem
,C.CAUSE                cause
,C.EMP_CODE          emp_code
,D.SUB_ATV_CODE  SUB_ATV_CODE
,D.ATV_SDATE        ATV_SDATE
,D.ATV_EDATE        ATV_EDATE
,D.ATV_STIME        ATV_STIME
,D.ATV_ETIME        ATV_ETIME
,F.ITEM_CODE        ITEM_CODE
,F.TRAN_QTY         QTY
,F.TRAN_AMT         AMT
                                             
FROM    MA_REQUEST      A                                             
,           MA_REPAIR          C
,           MA_REPAIR_ATV  D
LEFT JOIN  IN_TRAN_HEAD E ON
D.OU_CODE = E.OU_CODE AND D.SPO_NO = E.DOC_NO AND E.DOC_TYPE = 'SPO01'
LEFT JOIN  IN_TRAN_DETAIL F ON
E.OU_CODE = F.OU_CODE AND E.DOC_NO = F.DOC_NO AND E.DOC_TYPE = F.DOC_TYPE
                                                      
WHERE   A.OU_CODE        = :OU_CODE
AND     A.OU_CODE          = C.OU_CODE 
AND     A.REQ_NO            = C.REQ_NO
AND     A.REQ_NO_SEQ    = C.REQ_NO_SEQ
                                                               
AND     C.OU_CODE          = D.OU_CODE
AND     C.REQ_NO            = D.REQ_NO
AND     C.REQ_NO_SEQ    = D.REQ_NO_SEQ
AND     C.REPAIR_SEQ     = D.REPAIR_SEQ

union

select   '2'                  type_report
,A.MACHINE_CODE      machine_code
,'-'                             problem
,'-'                             cause
,A.PM_EMP_CODE       emp_code
,D.SUB_ATV_CODE      SUB_ATV_CODE
,A.PM_ACTUal_DATE   ATV_SDATE
,D.ATV_EDATE            ATV_EDATE
,0                              ATV_STIME
,0                              ATV_ETIME
,E.ITEM_CODE            ITEM_CODE
,E.QTY                       QTY
,0                             AMT
                                             
FROM    MA_PM               A     
,           MA_PLAN_ATV     D
,           MA_PLAN_SP       E                                                   
WHERE A.plan_seq            = D.plan_seq
AND     A.atv_SEQ             = D.atv_SEQ

AND     A.plan_seq            = E.plan_seq
AND     A.atv_SEQ            = E.atv_SEQ
) S

WHERE  S.MACHINE_CODE = A.MACHINE_CODE
AND      S.type_report        like '%'
order by A.MACHINE_CODE,S.ATV_SDATE

emotion + symbol --> ep.3

⊙⊙▂⊙ 0 ⊙⊙︿⊙⊙ω⊙⊙﹏⊙⊙△⊙⊙▽⊙
◑◑▂◐ 0 ◐◑◐◑ω◐◑︿﹏◐◑△◐◑▽◐

∩∩▂∩ 0 ∩∩︿∩∩ω∩∩﹏∩∩△∩∩▽∩
●●▂● 0 ●●︿●●ω●●﹏●●△●●▽●
∪∪▂∪ 0 ∪∪︿∪∪ω∪∪﹏∪∪△∪∪▽∪

≧≧▂≦ 0 ≦≧︿≦≧ω≦≧﹏≦≧△≦≧▽≦
>> ▂ <0 <> ︿ <> ω <> ﹏ <> △ <> ▽ <
╯╯▂╰ 0 ╰╯︿╰╯ω╰╯﹏╰╯△╰╯▽╰
+ ▂ + +0 + + ︿ + + ω + + ﹏ + + △ + + ▽ +
▂ 0 ︿ω▽﹏△
▂ 0 ︿ω▽﹏△
˙˙▂˙ 0 ˙˙︿˙˙ω˙˙﹏˙˙△˙˙▽˙
≡ (▔﹏▔) ≡⊙﹏⊙∥ | ° ︿﹀ -- # ╯︿╰﹀ (=`'=)
<(`^')> O (‧""‧) o (° ▽ ¯;) (-__-) _ \ b /

¯ □ ¯ | | ------ \ \ O <(""" (˙ <> ˙ )/------ """)>
(#`') นูน (`▽') ψ (° ο °) ~ @ (^ คน ^)
(^ O ~ O ^) (* ‧↓˙ *) [> \ / <] ↓ υ ↓
(* ^ ︹ ^ *) (/. \) ('-') (^ 3 ^) ╱ ~ ~
(; ° ○ °) (> C <)
===========================

บทความเกี่ยวกับสัตว์
< ปลา )#))) ≦ (‧‧) ด้วง NNN
\ (0 ^ ◇ ^ 0) Sparrow /
<*)>>> ="กระดูกปลา (= ^ ^ =) แมว / (* w *) กระต่าย \
[≡ . ปู] ≡ (° (∞) °) ถ้วยหมู■ D"
(: ≡ε == 3 แมงกะพรุน(。。)~กระดูกของลูกอ๊อด
<□ : ≡ปลาหมึก <`▽'> เสือ○●○ -- ลูกชิ้นหมูย่าง
(: ◎) ζ≡ปลาหมึก ไลออนส์≡ (● -- ●) แว่นกันแดด
@ /"Σ Snail ^) / กุหลาบ Crow --<-<-<
(((●แมลงสาบ <(^ ^ = ω =) สุนัขจิ้งจอก※ช่อดอกไม้ <
===========================
||||| ||||| เศษซากบทความ
■ D"ถ้วย∠※ช่อ 8"กรรไกรขนาดเล็ก
===========================
ความพึงพอใจ. พบกับ
<(¯)¯)> []~(¯ ▽ °) ~ * (° ﹏ °) (° °)
\ (¯)¯)> <(¯)¯)/ (`﹏') ╮ (`▽') ╭
\ (`▽') /
============================
Long Live. Awesome. Happy ~
Y ≧▽≦ (/ ≦≧▽) y (≧▽≦) (/ ≧▽≦) / ~ ┴┴ (≧▽≦) (@)
\ (3 ≦≧) / \ (≧ω≦) / o (≧ω≦) OO (≧ o ≦) o (° ▽ °,)
o (≧ v ≦) o ┴┴ ~ \ (≧▽≦) / ~ ┴┴≧□≦○
============================
Surprise เซอร์ไพรส์. ~
︽⊙ _ ⊙︽ (⊙ _ ⊙) (พอร์ต @ @) Σ (@)(¯  °) + Σ (⊙▽⊙"
(@[]@!!) ㄟ (≧◇≦) ㄏ (° ε (# °) Σ (° △ °|||) ︴
===========================
โง่ทำอะไรไม่ถูก. ~
(° ▽ °) ~ * (° ▽ °)"╮ (╯▽╰) ╭╮ (° ▽ °) ╭
= ¯ ω ¯ = (° 3 °) องศา▽ ¯ ╮ (╯ 3 ╰) ╭
╮ (╯ 3 ╰) ╭╮ (╯ _ ╰) ╭ (= 0 =) โย o () ︿))
(¯.¯) \ (° <°)> (~ o ¯ ▽ °) o ~ ~ . . (~ ¯)~[] ¯ ▽
('~`)


 
└ (^ o ^) ┘; แม้หัวดีที่มีรูปร่างและㄟㄋ strong ```
﹌○﹋ Hi Yo ^ ^ ≡โอ้
รอยยิ้มอบอุ่น =^_^=!
Y (^_^) Y มือในชัยชนะ
\ ^ ^ O / เชียร์
^ Y ^ o ^ O ^ Y ชัยชนะ
↖ (^ ω ^) ↗หมูเชียร์สำหรับคุณ

~ ^ O ^ ~ Come on Yo!
^ ^ * หัวเราะ * เล่น
^ ^ Ο * * Oh, Oh ขำ
^ ^ ◎ * * หัวเราะดัง (ริมฝีปากหนาดี)
รอยยิ้ม *^÷^* ภูมิใจ (ปากบนและล่างของยอ)
~ หัวเราะไปสู่ความตายสวัสดี (ยิ้มด้วยน้ำตากระโดดออก ... )
(-.-)= 3 คนหลวมตอนนี้ลมหายใจ ~
~ ^ V) \ \ \ \ \ ~ ~ ~ รอยยิ้มที่จะเป็นมิตร! ฮ่า ~ ~ ~
~@^_^@~ Lovely Yo!
\ \ ^ O ^ * * / / น่ารักㄋㄟ ~
~*.*~ ขี้อายและมีเสน่ห์สาวน้อย
#^_^# Blush!
∩ __ ∩ใช่ Y ~ ~ ^ ^ (น่ารัก!)
(*^@^*) ดี ~ (ยังกับจุกโอ้) X X ﹏แย่ลง . เสร็จสิ้นความหมายของอา ~ ~
(° ο °) ~ @ ลม ..
เขย่า {{{(>_<)}}}
ผง╯﹏╰ ~ ~ ทำอะไรไม่ถูก
\ (╯ -- ╰) / น่าเบื่อ / Wu นายเป็นค่าเฉลี่ย
(╯︿╰﹀ลักษณะของมะระ
_}} .. ผงไร้อำนาจอนาถสีชมพู
-____-" โอ้ ~ ~ ไม่เป็นไร .....
. _. Hit, หน้าแสดงซบเซาเช่น ~
(* * @ @ ︿﹀รัศมีเศร้า
-- (-- Sad
/ / (ㄒ o ㄒ) / น้ำตา / ใน ...
Cry ::>_<::
〒 _ 〒หมิง ~ ~ ... ฉันร้องไห้
%>_<% ร้องไห้ฉันโอ้ ...
╰ _ ╯ฉันโกรธ! โกรธหมายถึง ~ ~ ~ ~ ~ คิ้วติดอยู่ขึ้น
> _ <# Pink บ้า ~ เอาเส้นสีฟ้า
@ X @ โกรธ
(︿﹀ -- # โกรธ
(> ﹏ <) ไม่ได้ ~
(* ﹏ + + *) @ ~ ~ หมี
x__x, โอ้ ..... ไม่ร้องไห้!
>_<||| น่าอายมาก ~!
^ _ ^; ความลำบากใจ
⊙﹏⊙∥ | ° อายเพื่อ ~ ~
^_^||| เป็นอายเลย!
^ _ ^"รอยยิ้มมุมกล้องเลย .....
→ _ →สงสัยในสายตา ~ ~
..@_@|||||.. เวียนศีรษะ
... (⊙ _ ⊙;) ... ○○คยู ~ ~ ~ วิธีการออกเนย?
o_O .... คิดว่า (ที่จะนำมันห้วนๆ"สถานะหนี้สงสัยจะสูญ")
O__O"~ ตามัว
///^_^....... ส่งผลให้"เย็น"... กลวง ~
? O |? | | ฟังฟรี (กล่าวคือไม่เข้าใจความหมาย ^ ^ ㄉ啦)
(^ _ ^)? คุณหมายถึงอะไร?
(+_+)? ไม่ทราบสิ่งที่คุณ
(? Ε?)? ไมล์ว้าวประชาพิจารณ์โดยไม่ต้อง啦 ~ Han
o_O? เรื่องอะไรเกิดขึ้น?
_ @ @ Saotou, ข้อสงสัย
ตา Eleven + คม ~
>"<|||| ปวดหัวเฉลี่ย ~`(*> ﹏ <*)'มันน่าตื่นเต้น ..
(* @ Ο @ *) ว้าว ~
แปลกใจ o_O ~ ~ ~
(⊙ o ⊙) ตะลึง
(° ο °) ~ @ ยุบลงไปให้หมดสติ
*@_@* ตานมัสการ; เพื่อตาของเรา
★ ~ ★ไอดอลต่อตาของเราที่จะเห็น
◎ ^ -- รักคุณยอ ~ ~
(^ ^ * ‧ *) 啵หนึ่ง!
(^_^) ∠※ส่งช่อดอกไม้
(^ ^ * ความอับอายขายหน้า * ︺︹
`(* ^ ﹏ ^ *)'ความอับอายขายหน้าซุปเปอร์
`(* ∩ _ ∩ *) เสนอ'
~ _ ~ ความหมายของการพยายามที่จะนอนหลับ!
(~ O ~) ~ ZZ ~ ฉันเพื่อนง่วงนอน
เคลิ้มπ_π
=@~@= กาล + หน้าแดงเพื่อดูความสนใจของนักเรียน
@ (--) ของลับ Hush ``````` --------
(﹀︿ไม่เห็นด้วย
^ ^ (^ คน ^) ~ โปรดสิทธิ
(^_^)/ ใบใบ ~
* x *... ... คุณทำให้ฉันไม่ได้ผล, ผมไม่ได้รับปล้นดิบทิ้ง!
~ ~ W_w ... ... Hush! Hush สอง, Rangou คิดเกี่ยวกับ!
() อ่า ~ คิด
. . <{=. . . อีกาอีกาบินผ่านมาที่น่าอึดอัดใจ, น่าเบื่อ .....
(*>.<*)~ Acid @ ~
~`O`~ เรียนรู้
_ * ไม่เคยเพื่อน!
-.- รอจนกว่าฉันจะได้รับการแสดงผลที่ดีของคน ~>_<~+ Yo ...
น้ำตา Q_Q ดู!
(+ ﹏ +) น้ำตา, ย้าย
`(+ ﹏ +)'Super - สัมผัสน้ำตาเก็บไว้
^ _ ^ O ~ ~ ~ ~ ~ ~ ย้ายย้าย

emotion + symbol --> ep.2

(╯▽╰)╭~ ♡

(⊙＿⊙)

(@口@)

Σ(￣￣)+

Σ(⊙▽⊙"a

♡.(@[]@!!)

ㄟ(≧◇≦)ㄏ

(￣ε(#￣)

╮(╯▽╰)╭

╮(￣▽￣)╭

♡. =￣ω￣=

(￣３￣)a

╮(╯3╰)╭

♡╮(╯3╰)╭

╮(╯_╰)╭

(= 0 =)y

o(︶︿︶)o

หมายเหตุ : เยอะมากมายอ่ะเอาไป!!

ˋ( ° ▽、° ) ♡. o(≧v≦)o ┴┴~(≧▽≦)/~┴┴ ≧□≦○ ♡. 驚訝.吃驚~ ♡. ︽⊙＿⊙︽ (⊙＿⊙) (@口@)
 Σ(@)(￣￣)+ Σ(⊙▽⊙"a ♡. (@[]@!!) ㄟ(≧◇≦)ㄏ(￣ε(#￣) Σ( ° △ °|||)︴♡. 無奈.裝傻~ ♡ .
 (￣▽￣)~* (￣▽￣)" ╮(╯▽╰)╭ ╮(￣▽￣)╭♡. =￣ω￣= (￣３￣)a ￣▽￣ ╮(╯3╰)╭ ♡. ╮
(╯3╰)╭ ╮(╯_╰)╭ (= 0 =)y o(︶︿︶)o ˋ(′～‵)ˊ♡. (￣.￣)

۩۞۩๑ ♡♪۩ ™ ♡ 美鳥の日タ ♥ ◕｡◕　♡.1　⊙●○①⊕◎Θ⊙㊣★☆♀◆◇◣◢◥▲▼△▽⊿◤ ◥　　　　 ♡.2　▆ ▇
 █ █ ■ ▓ 回 □ 〓≡ ╝╚╔ ╗╬ ═ ╓ ╩ ┠ ┨┯ ┷┏ ♡.3　┓┗ ┛┳⊥﹃﹄┌ ┐└ ┘∟「」↑↓→←↘↙♀♂┇┅ ﹉﹊
﹍﹎╭ ♡.4　╮╰ ╯ * ^*^ ^-^  ^︵^ ∵∴‖︱ ︳︴﹏﹋﹌︵︶︹︺ ♡.5　【】〖〗＠﹕﹗/ " _ 　┈━═☆
　┣▇▇▇═─ ♡.7　ゅ≈小鱼≈ゅ　卐　 ♡ゞ、 时差 7 or 8 小时｀ヅ♡ ◈◇ ♡. ♡.16 ( E___E ) ( $ _ $ )
！( 3__3 )♡.17 (ｂ_ｄ) (*^＠^*) ♡.18 ( ＠^^＠) o(‧"‧)o ♡.19 ™
ˋ( ° ▽、° ) ♡. o(≧v≦)o ┴┴~(≧▽≦)/~┴┴ ≧□≦○ ♡. 驚訝.吃驚~ ♡. ︽⊙＿⊙︽ (⊙＿⊙) (@口@)
Σ(@)(￣￣)+ Σ(⊙▽⊙"a ♡. (@[]@!!) ㄟ(≧◇≦)ㄏ(￣ε(#￣) Σ( ° △ °|||)︴♡. 無奈.裝傻~ ♡ .
(￣▽￣)~* (￣▽￣)" ╮(╯▽╰)╭ ╮(￣▽￣)╭♡. =￣ω￣= (￣３￣)a ￣▽￣ ╮(╯3╰)╭ ♡. ╮
(╯3╰)╭ ╮(╯_╰)╭ (= 0 =)y o(︶︿︶)o ˋ(′～‵)ˊ♡. (￣.￣)
　o(‧""‧)o　(-_-)b　＼　＿　／ ♡. ￣□￣｜｜　　------(˙<>˙)/------　　　<("""O""")> ♡. (#‵′)凸
　(‵▽′)ψ 　 @　 (^人^) (＊‧↓˙＊) ♡. (O ^ ~ ^ O) 　♡. (￣▽￣)~* (￣﹏￣) (￣ˇ￣)
 ♡. (￣︶￣)> <(￣︶￣)/ (‵﹏′) ╮(‵▽′)╭ (‵▽′)/♡. 萬歲.真棒.開心~♡. ≧▽≦y (/≧▽≦/)
 (≧▽≦)y (/≧▽≦)/~┴┴ (≧▽≦)(@) ♡. (≧3≦)/ (≧ω≦)/ o(≧ω≦)o o(≧o≦)o

LPAD Function ,การเติม charecter ทางซ้าย

LPAD Function
ฟังก์ชัน LPAD หรือฟังก์ชันเติมส่วนที่ที่หายไปทางซ้ายให้เต็ม (left-padded)

Syntax
>ฤฤLPADฤฤ(char1 , n ฤ?ฤฤฤฤฤฤฤฤฤ?ฤ)ฤฤ><
                     ภฤ, char2ฤู
PL/SQL Example
การเติมศูนย์ให้ ค่าที่ต้องการมีขนาด  = 10 ตัวอักษร

LPAD ('55', 10, '0') ==> '0000000055'

การเติมศูนย์ให้ ค่าที่ต้องการมีขนาด  = 5 ตัวอักษร

LPAD ('12345678', 5, '0') ==> '12345'

การเติมเลขหรือปอักษรสามารถทำได้มากกว่า หนึ่งตัวอักษร

LPAD ('HITOP TIES', 45, 'sell!')
==>
   'sell!sell!sell!sell!sell!sell!sell!HITOP TIES'
จะเห็นได้ว่าคำว่า HITOP TIES มี10ตัวอักษรรวมถึงช่องว่างด้วยดังนั้นการเติมคำว่า  sell! 5 ตัวก็จะได้ 7 ชุด รวมแล้ว = 45 พอดี

LPAD ('HITOP TIES', 43, 'sell!')
==>
   'sell!sell!sell!sell!sell!sell!selHITOP TIES'
ถ้าสังเกตให้ดีจะเห็นว่าsell! มาไม่เต็มเมื่อติดกับ  HITOP TIES เพราะว่าการเติมอักษรจะเติมจากซ้ายไปขวาดังนั้นพอหมดที่ว่างก็จะหยุด

เช่นเดียวกันถ้าคำว่า  "DRAFT-ONLY" นั้นมี  spacesช่องว่างอยู่ก็จะนับรวมเป็น ตัวอักษรด้วยเช่นกัน 2 วรรค ก็ 2 ตัวอักษร

LPAD ('Why I Love PL/SQL', 53, 'DRAFT-ONLY  ');
==>
      'DRAFT-ONLY  DRAFT-ONLY  DRAFT-ONLY  Why I Love PL/SQL'
ทั้งหมด 53 โดย "Why I Love PL/SQL" มี 17 ตัวอักษร  "DRAFT-ONLY  " มี 12 ตัวอักษร ขนาดความยาว  17 + 12*3 = 53

SQL Example
ตัวอย่างการใช้ function LPAD "*.":

SELECT LPAD('Page 1',15,'*.') "LPAD example"
     FROM DUAL;
LPAD example
---------------

เผยแพร่บทความ

*.*.*.*.*Page 1

wow!!! สถิติใน blogger

เพิ่งรู้นะค่ะเนี่ยว่าดูละเอียดขนาดนี้ ^^ ชอบจัง มาร่วมเป็นส่วนหนึ่งกับ blogger นะค่ะ ^/\^ ขอบคุณ พท. ดีๆ ที่ทำให้เกิดเนื้อหาดี และแหล่งรวมความรู้จากทั่วโลกค่ะ

gen table with ERWin

หาความต่าง วัน เวลา ,วันที่เริ่มต้น-วันที่สิ้นสุด ORACLE pl/sql

function CF_DIF_DATEFormula return VARCHAR is
    days number;
    hr   number;
  mm   number;
  vTmp_ret      varchar2(100);
  temp varchar2(100);
begin
  days     := trunc(:startup_date) - trunc(:break_date);
    hr        := trunc((:startup_time - :break_time)/3600) ;
    mm    := trunc( mod((:startup_time - :break_time) , 3600 ) / 60 ) ;
  temp  := '  ';
  
    IF trunc(:startup_date) = trunc(:break_date) THEN
        vTmp_ret     := (replace(to_char(hr,'99')||' ชม   '||to_char(mm,'99')||' นาที',' ',''));
  
    ELSIF trunc(:startup_date) <> trunc(:break_date) THEN
          IF :startup_time = :break_time THEN
              vTmp_ret  := (replace(to_char(days,'99,999')||' วัน  ',' ',''));
        
          ELSIF :startup_time <> :break_time THEN
              IF :break_time < :startup_time THEN
                  days     := days;
                    hr        := hr ;
                    mm    := mm ;
              ELSIF :break_time > :startup_time THEN
                  days             := days -1;
                 hr                := trunc((86400-(:break_time - :startup_time))/3600) ;
                 mm        := trunc( mod((:break_time - :startup_time) , 3600 ) / 60 ) ;
              END IF;
          ----------------------------------------------------------------------------------------------------------------
          IF days = 0 THEN
              vTmp_ret  := (replace(to_char(hr,'99')||' ชม   '||to_char(mm,'99')||' นาที',' ',''));
          ELSE
              vTmp_ret  := (replace(to_char(days,'99,999')||' วัน '||'   '||to_char(hr,'99')||' ชม   '||to_char(mm,'99')||' นาที ',' ',''));
          END IF;
            ----------------------------------------------------------------------------------------------------------------
  
          END IF;
        
    END IF;
   
     return(vTmp_ret);
end;

ตัวอย่าง : การใช้ cursor จัดการกับข้อมูลที่ส่งกลับมา>=2ค่า

function CF_receipt_noFormula return varchar2 is
vTmp varchar2(1000);
  cursor c_receipt IS
  select nvl(rgrr.receipt_no, rgrr.account_number) receipt_no
  from   rg_register_receive rgrr
  where  rgrr.ou_code        =  :ou_code
  and    rgrr.register_no     =  :register_no
  and    nvl(rgrr.receipt_no, rgrr.account_number) is not null;
BEGIN
FOR i IN c_receipt LOOP              
--> วนลูปเพื่อนำข้อมูลมา(||)ไปร์ต่อกันโดยครั่นด้วย ","
      vTmp := vTmp||','||i.receipt_no;
END LOOP;

return   SUBSTR(vTmp,INSTR(vTmp,',', 1)+1); 
-->หา "," ตัวแรกแล้วตัดออก
end;

gen_creat_table_script_with_TOAD