grafikal&tekstual - check berkas_ persil

-- CHECK PERSIL BY BERKAS
select
regsu.regid,
reghat.nomor as "Nomor HAT", tipehak.tipehaknama as "Jenis Hak", asalpersil.keterangan as "Asal Persil",
regsu.sunomor as "Nomor SU", regsu.sutahun as " Tahun SU",
kecamatan.kecanama as "Kecamatan", desa.desanama as "Desa",
regsu.regid as "RegID SU", persil.regid as "RegID Persil",
persil.nib as "NIB", persil.persilarea as "Luas Persil"
from
berkas, berkasprosedur, regprosedur, regsu, reghat,
tipehak, asalpersil, supersil, persil, desa, kecamatan
where
berkas.berkasid = berkasprosedur.berkasid
and berkasprosedur.berkasprosedurid = regprosedur.berkasprosedurid
and reghat.regsuid = regsu.regid
and regsu.regid = regprosedur.regid
and supersil.regsuid = regsu.regid
and persil.regid = supersil.regpersilid
and tipehak.tipehakid = reghat.tipehakid
and asalpersil.asalpersilid = reghat.asalpersilid
and kecamatan.kecamatanid = desa.kecamatanid
and persil.desaid = desa.desaid
and berkas.berkasnomor = &BerkasNomor
and berkas.berkasyear = &BerkasYear
order by kecanama, desanama;

-- CHECK PERSIL By NIB
select distinct
kecamatan.kecanama as "Kecamatan",
desa.desanama as "Desa", persil.regid as "RegID Persil",
persil.nib as "NIB", persil.persilarea as "Luas Persil"
from persil, supersil, desa, kecamatan
where kecamatan.kecamatanid = desa.kecamatanid
and persil.regid = supersil.regpersilid
and persil.desaid = desa.desaid and NIB = &NIB
order by kecanama, desanama;

-- CHECK SU BY PERGISTER PERSIL, if found duplicate nib in the same kelurahan
select
reghat.nomor as "Nomor HAT", tipehak.tipehaknama as "Jenis Hak", asalpersil.keterangan as "Asal Persil",
regsu.sunomor as "Nomor SU", regsu.sutahun as " Tahun SU"
from regsu, reghat, supersil, persil, tipehak, asalpersil
where
supersil.regsuid = regsu.regid
and tipehak.tipehakid = reghat.tipehakid
and asalpersil.asalpersilid = reghat.asalpersilid
and reghat.regsuid = regsu.regid
and persil.regid = supersil.regpersilid
and persil.regid = ®ID;

-- CHECK ALL REGISTER BY BERKAS
select register.* from berkas, berkasprosedur, regprosedur, register
where
register.regid = regprosedur.regid
and regprosedur.berkasprosedurid = berkasprosedur.berkasprosedurid
and berkasprosedur.berkasid = berkas.berkasid
and berkas.berkasnomor = &BerkasNomor
and berkas.berkasyear = &BerkasYear