Laporan DI302

-- Lap DI 302
SELECT
b.berkasnomor,b.berkasyear,b.prosedurdesc,di.dinomor DI302Nomor,to_char(di.ditanggal,'dd-MM-yyyy')DI302Tgl,
DI307.dinomor DI307Nomor,DI307.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 = 'DI307')DI307
WHERE di.berkasid = b.berkasid
AND di.dikode in ('DI302')
AND di.dikode = rd.dikode(+)
AND di.dinomor = rd.dinomor(+)
AND di.ditahun = rd.ditahun(+)
AND rd.regid = DI307.regid(+)
AND b.prosedurdesc like '%Pengukuran%'
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;

select a.ditahun, a.dinomor, a.ditanggal, b.berkasyear, b.berkasnomor from dibook a, berkas b
where a.dikode = 'DI302'
and a.berkasid = b.berkasid
and a.ditanggal between to_date('01/02/2007','dd-mm-yyyy') and to_date('28/02/2007','dd-mm-yyyy')
order by a.ditahun, to_number(a.dinomor);

select a.berkasnomor, a.berkasyear, a.prosedurdesc, d.desaco8, d.desanama
from berkas a, berkasprosedur b, persillokasi c, desa d
where a.berkasid = b.berkasid
and b.berkasprosedurid = c.berkasprosedurid
and c.desaid = d.desaid
and a.berkasnomor = '1819'
and a.berkasyear = 2007;

--and b.prosedurcode = d.prosedurcode
--, d.prosedurdesc, c.desaid
-- , persillokasi c and b.berkasprosedurid = c.berkasprosedurid