Laporan DI301

-- Lap DI 301
SELECT
b.berkasnomor,b.berkasyear,b.prosedurdesc,di.dinomor DI301Nomor,to_char(di.ditanggal,'dd-MM-yyyy')DI301Tgl,
DI312C.dinomor HTNomor,
DI208.dinomor DI208Nomor,DI208.ditanggal,
decode(b.berkasstatus,0,'Selesai',1,'Proses',2,'Blokir',3,'Batal',4,'Ditutup',
55,'Jatuh Tempo',56,'Belum Diumumkan',57,'Sedang Diumumkan',58,'Selesai Diumumkan',
99,'Berkas Manual')Status
FROM berkas b,dibook di,regdi rd,
(SELECT rd.regid,rd.dinomor,to_char(rd.ditanggal,'dd-MM-yyyy')ditanggal FROM regdi rd
WHERE rd.dikode = 'DI208') DI208,
(SELECT rd.regid,rd.dinomor,to_char(rd.ditanggal,'dd-MM-yyyy')ditanggal FROM regdi rd
WHERE rd.dikode = 'DI312C') DI312C
WHERE di.berkasid = b.berkasid
AND di.dikode in ('DI301')
AND di.dikode = rd.dikode(+)
AND di.dinomor = rd.dinomor(+)
AND di.ditahun = rd.ditahun(+)
AND rd.regid = DI208.regid(+)
AND rd.regid = DI312C.regid(+)
AND b.prosedurdesc like '%Hak Tanggungan%'
AND di.ditanggal between to_date('01/02/2007','dd-mm-yyyy') and to_date('28/02/2007','dd-mm-yyyy')
order by b.berkasnomor,b.berkasyear;