Script Histori Pemegang Hak HAT

Buat Mr. Underscore_ganteng 'Jakpus', emang SQL ini rada-rada ribet deh so silahkan dicoba, dihayati, direspkan, diterapkan dan diamalkan, mudah-mudahan pahalanya ngalir deh ke gue .. Amin
Tapi ini untuk HAT yang aktif aja ya, kalo pengen semua diremark aja hatstatus nya


SELECT d.desaco8, k.kecanama, d.desanama, rh.tipehakid, rh.nomor NoHak, rs.sutipe, rs.sunomor, rs.sutahun,
s.nama, 0 Histori
FROM regowner ro, subyek s, desa d, kecamatan k, hatpersil hp, reghat rh, persil p, regsu rs,
supersil sp
WHERE rh.regid = ro.regid
AND ro.subyekid = s.subyekid
AND rh.desaid = d.desaid
AND d.kecamatanid = k.kecamatanid
AND hp.reghatid = rh.regid
AND hp.regpersilid = p.regid
AND p.regid = sp.regpersilid
AND sp.regsuid = rs.regid
AND rh.hatstatus = '1'
--AND d.desaco8 = '09030404'
UNION
SELECT d.desaco8, k.kecanama, d.desanama, rh.tipehakid, rh.nomor NoHak, rs.sutipe, rs.sunomor, rs.sutahun,
s.nama, rhanno.orderseq
FROM reghat rh, reghatanno rhanno, regowner ro, subyek s, desa d, kecamatan k, hatpersil hp,
persil p, regsu rs, supersil sp
WHERE rh.regid = rhanno.reghatid
AND rhanno.regid = ro.regid
AND ro.subyekid = s.subyekid
AND rh.desaid = d.desaid
AND d.kecamatanid = k.kecamatanid
AND hp.reghatid = rh.regid
AND hp.regpersilid = p.regid
AND p.regid = sp.regpersilid
AND sp.regsuid = rs.regid
AND rh.hatstatus = '1'
--AND d.desaco8 = '09030404'
AND rhanno.reghatid = rh.regid
order by 1, 4, 5, 10;