declare
maxwritno integer
;<
!--宣告了2個變數，變數型別是integer-->
linety integer
;begin
<
!--表示進入方法體-->
for rec in
(select
*'01'
'02'
'17'
)and a.iseffect=
'0')
loop
<
!-- 這個loop表示迴圈開始，實際上會查詢多條記錄出來，那麼第1次迴圈時rec
會獲得第1條記錄，第2次迴圈時再獲取第2條記錄，依此類推-->
----------獲取最大的文書號，pernotion案例審核意見表
select
max(writno)
into maxwritno from $prdline.pernotion t
where writtype=
'106'
and length(writno)=10
and pernotionyear=substr(to_char(sysdate,
'yyyy-mm-dd'),
0,4)
;---------查詢對應班線型別
select l.lintype into linety from $prdline.line l where l.linid=rec.linid;
-----------新增資料到linperreg班線登記表，班線經營許可通過的才能往班線登記表插入資料
insert
into linperreg
(linperregid, cmcltid, linid,
, lintype, regctctype, times, pervecnum, biscltid, biscltname, stadate, enddate, creusrcode, credate, cretime, ediusrcode, edidate, editime, remarkdoc, perstatus, iseffect, days, docdepcode, cyclefatban, passeanum, perid)
values
(sys_guid(
), rec.cmcltid, rec.linid,
'', linety ,rec.regctctype ,rec.times, rec.pervecnum, rec.biscltid, rec.biscltname, rec.stadate, rec.enddate,
'$sysusercode'
, to_char(sysdate,
'yyyy-mm-dd'),
'','',
'','',
'','',
'0', rec.days, rec.depcode, rec.cyclefatban, rec.passeanum, rec.perid);1
'22'
,perdep=$sysdepcode where perid=rec.perid;
endloop
;<
!-- 這個loop表示迴圈結束-->
end;
<
!-- 表示結束方法的呼叫，或者說離開方法體-->
自己寫 el 函式
step 1 寫乙個j a類，定義乙個或多個public static 方法，在方法中實現函式的邏輯 step 2 在.tld檔案中描述該函式可以參考fn.tld step 3 在jsp檔案中，匯入並使用函式 如，j a類如下 1 package myfunc 23 public class mye...
自己寫的字串函式
include using namespace std define n 50 將字串src複製到desti void mystrcpy char desti,char src desti 0 比較字串大小 int mystrcmp char str1,char str2 return p1 p2 ...
自己寫的常用jquery擴充套件函式
function validate common extend jquery.request,url arr 1 去掉最後乙個 字元 if url.lastindexof url.length 1 url url.substring 0,url.length 1 var arrquerystring...