Close Bekas

Close Berkas

Masalah :
Apabila berkas tidak bisa dijalankan lagi karena error tapi no Daftar Isian tidak dibatalkan

Solusi :
1. Masuk ke aplikasi pelayanan LOC dengan user FCE
2. Tekan Ctrl + Alt + F9 secara bersamaan
3. Ketikan lopclexpe
4. Masukan No berkas yang akan di close

Baca Selengkapnya..

updatedibook_kiki

select * from reggd

select * from desa where desaid='230B32B5CE944A5AE040A8C003001C9F'

select * from berkas where berkasnomor='4492' and berkasyear=2007

select * from dibook where berkasid='c2fd397c632545e5925c1e573b3d7ec0'

select * from berkasprosedur

select count(*), berkasid
from berkasprosedur where prosedurcode='31' and prosedurorder=1
group by berkasid
having count(*) = 1

select * from dibook
where exists (select 1
from berkasprosedur where prosedurcode='31' and prosedurorder=1
and berkasprosedur.berkasid=dibook.berkasid
group by berkasid
having count(*) = 1)
and dikode in ('DI301','DI208')
order by berkasid

select * from dibook
where exists (select 1
from berkasprosedur where prosedurcode='31' and prosedurorder=1
and berkasprosedur.berkasid=dibook.berkasid
group by berkasid
having count(*) = 1)
and dikode ='DI208'
and ditanggal <
(select ditanggal + 7 from dibook a
where a.berkasid=dibook.berkasid and dikode='DI301' and rownum=1)
order by berkasid

select * from dibook where berkasid='1df8833d21e349e3adf884d43bdba7b1'

and ditanggal <> (select ditanggal + 7 from dibook c
where exists (select 1
from berkasprosedur a where a.prosedurcode='31' and a.prosedurorder=1
and a.berkasid=dibook.berkasid and c.berkasid=a.berkasid)
and dikode ='DI301' and dibook.berkasid=c.berkasid)

select * from register where berkasid='1df8833d21e349e3adf884d43bdba7b1'

select * from regdi where regid='c5481f7d755244b1a3b90778ce8d37ca'


select * from dibook where berkasid='00005ee693744041894de35f57372f75'
and dikode='DI301'

select ditanggal + 7 from dibook where berkasid='00005ee693744041894de35f57372f75'
and dikode='DI301'

Baca Selengkapnya..

tekstual - updateemployee

update dibook set ditanggal = '01/05/2007'
where berkasid = '09b2cc496cf64d7d9549d19e5d153217'
and prosedurcode = '62'
and identseq = 'de63e04785c743428b3fc2b36766dc6e';


commit;

Baca Selengkapnya..

tekstual - updateditanggal

-- ditanggal = MM/DD/YYYY

update dibook set ditanggal = '12/21/2006'
where berkasid = 'b7b8e7a56fa643d7b2ed284b9cf616b9'
and prosedurcode = '06'
and identseq = 'd42b0cd2381841448b3f177dc1d4b6f5';

commit;

-- sebelum menjalankan update tanggal DI, jalankan tekstual-cari nomor DI & berkas
-- untuk mendapatkan identseq, seperti dibawah ini :
-- select dibook.* from dibook,berkas
-- where dibook.berkasid = berkas.berkasid
-- and berkas.berkasnomor = '260'
-- and dibook.dikode = 'DI307';

Baca Selengkapnya..

tekstual - update_kode prosedur

update dibook set prosedurcode = '31'
where berkasid = 'a0cb7ffb5f264ef2bc7e148e17f5c098'
and identseq = '28538E431F2BD956E040A8C001015105';


commit;

Baca Selengkapnya..

select * from reggd

select * from desa where desaid='230B32B5CE944A5AE040A8C003001C9F'

select * from berkas where berkasnomor='4492' and berkasyear=2007

select * from dibook where berkasid='c2fd397c632545e5925c1e573b3d7ec0'

select * from berkasprosedur

select count(*), berkasid
from berkasprosedur where prosedurcode='31' and prosedurorder=1
group by berkasid
having count(*) = 1

select * from dibook
where exists (select 1
from berkasprosedur where prosedurcode='31' and prosedurorder=1
and berkasprosedur.berkasid=dibook.berkasid
group by berkasid
having count(*) = 1)
and dikode in ('DI301','DI208')
order by berkasid

select * from dibook
where exists (select 1
from berkasprosedur where prosedurcode='31' and prosedurorder=1
and berkasprosedur.berkasid=dibook.berkasid
group by berkasid
having count(*) = 1)
and dikode ='DI208'
and ditanggal <
(select ditanggal + 7 from dibook a
where a.berkasid=dibook.berkasid and dikode='DI301' and rownum=1)
order by berkasid

select * from dibook where berkasid='1df8833d21e349e3adf884d43bdba7b1'

and ditanggal <> (select ditanggal + 7 from dibook c
where exists (select 1
from berkasprosedur a where a.prosedurcode='31' and a.prosedurorder=1
and a.berkasid=dibook.berkasid and c.berkasid=a.berkasid)
and dikode ='DI301' and dibook.berkasid=c.berkasid)

select * from register where berkasid='1df8833d21e349e3adf884d43bdba7b1'

select * from regdi where regid='c5481f7d755244b1a3b90778ce8d37ca'


select * from dibook where berkasid='00005ee693744041894de35f57372f75'
and dikode='DI301'

select ditanggal + 7 from dibook where berkasid='00005ee693744041894de35f57372f75'
and dikode='DI301'

Baca Selengkapnya..

tekstual - query insert dibook_rev

insert into dibook values (sys_guid(),'DI208','2007',
(select to_char(max(to_number(dinomor))+1) from dibook where ditahun ='2006' and dikode ='DI208'),
to_date('25/12/2006','DD/MM/YYYY'),'E', (select berkasid from berkas where berkasnomor ='785' and berkasyear ='2006'),
'06','750003469','A304','P','1','178bd91f09e54c44bb68bf623379dc13','N',null,null);
--'prosedur','NIP BKP','seksikode','(P)dari prosedur','1'aktif,kode kantor,'N',null....

commit;

Baca Selengkapnya..

tekstual - nomor hak dapat digunakan utk beberapa berkas

select * from profile
order by keterangan ;

select rh.regid from reghat rh, desa d
where d.desaid = rh.desaid
-- kondisi desa menggunakan kode desa
-- and d.desaco8 = '09010101'
-- kondisi desa menggunakan nama desa
and d.desanama like '%Duri Pulo%'
and rh.tipehakid = '3'
and rh.nomor = '2532';

-- Hapus berkasidlock di tabel register
select * from register
where berkasid = '9f47ab259068484d9c35c20e17805ea9';

Baca Selengkapnya..

tekstual - merubah luas gambar ukur

--Merubah luas Ukur

--1.Mencari BERKASID
select * from berkas
where berkasnomor = '743';

--2.Mencari BERKASPROSEDURID, berdasarkan BERKASID pada tabel BERKASPROSEDUR
select * from berkasprosedur
where berkasid = '39f82982d016471ba86228736f59df96';

--3.Melihat record pada tabel PETUGASUKUR berdasarkan BERKASPROSEDURID
select * from petugasukur
where berkasprosedurid = '6ac93a6000d54ad0871e20c3c39ac941';

--4.Jika ingin mengupdate lebih baik query nomor 3 dicopy ke tab baru,
-- lalu jalankan query dengan Run and Edit (Ctrl+E)

Baca Selengkapnya..

tekstual - merubah data utk kasus nomor ganda

select * from berkas where berkasnomor=6918 and berkasyear=2007;

select * from berkasprosedur where berkasid='d49f2d1c99d84ba7bf558b6f7f095f6a';

select * from regprosedur where berkasprosedurid='6d3efd4ea7de4b12bd667a0ae61db6a3';

select * from register where regid='12d65d62b65e408cb1b5f89b01dc38f9';

select * from reghms where regid='12d65d62b65e408cb1b5f89b01dc38f9';

Baca Selengkapnya..

Registrasi License SW di Linux

Pas buka Smallworld4 eh .... katanya "Manage License is unregistered". Aplikasi grafikal bisa kebuka sih tapi kok rasanya ngak sreg deh ada pesen ERROR kayak diatas.

Tips and Trik dibawah ini ada manfaatnya loh

Dokumen bisa didownload disini

Baca Selengkapnya..

tekstual - menghitung laporan DI per kegiatan

select * from prosedur
order by prosedurdesc;

select * from dibook
where dikode='DI303' and ditahun='2007'
and ditanggal between '01/01/2007 00:00:00' and '01/31/2007 00:00:00' and prosedurcode='90'
order by ditanggal;

Baca Selengkapnya..

tekstual - menghapus NIB

-- After found fictive PERSIL REGID, Delete that row in BerkasSpatial, SUPersil and Persil Table
DELETE FROM supersil where regpersilid = '1cddfd6eeca74238aa6eecccbb81e721';
DELETE FROM berkasspatial where regid = '1cddfd6eeca74238aa6eecccbb81e721';
DELETE FROM persil where persil.regid = '1cddfd6eeca74238aa6eecccbb81e721';
DELETE FROM regprosedur where regid = '1cddfd6eeca74238aa6eecccbb81e721';
DELETE FROM register where regid = '1cddfd6eeca74238aa6eecccbb81e721';

-- DELETE FROM FICTIVE REGSU
delete from suhistori where REGNEWSUID = '78673a2d3227457ba062ff401429fdec';
delete from regsu where regid = '78673a2d3227457ba062ff401429fdec';
delete from regprosedur where regid = '78673a2d3227457ba062ff401429fdec';
delete from regdi where regid = '78673a2d3227457ba062ff401429fdec';
delete from register where regid = '78673a2d3227457ba062ff401429fdec';

commit;

Baca Selengkapnya..

Perintah Dasar SQL Bag - 1

Biasanya para admin akan pusing kalau seandainya bos-bos minta data spesifik yang berhubungan dengan laporan, apalagi sudah datang KPK ... wah tambah ruwet lagi apalagi laporan sudah harus kejar tayang. He he ...
Padahal data laporan yang dibutuhkan semuanya ada dalam database cuman kita bingung memilah-milah mana saja data yang perlu dikeluarkan.
Mungkin penjelasan dibawah ini bisa membatu admin untuk memecahkan masalah diatas, lumayan lah daripada habis pulsa buat telp ke SUPPORT. He he ..


Artikel dapat anda dowload disini

Baca Selengkapnya..

tekstual - menghapus DI ganda

delete dibook where identseq in ('27343659F8C6E856E040A8C001017221','27343659F8C6E856E040A8C001017221');

commit;

Baca Selengkapnya..

tekstual - mengedit luas su

select * from persil
where desaid='230B32B5CE624A5AE040A8C003001C9F'
and NIB='09747'

Baca Selengkapnya..

tekstual - membuang row subyek berkas

-- mengidentifikasi subyektipe dan identseq pada tabel SUBYEKBERKAS
-- berdasarkan BERKASID yang sudah diidentifikasi pada sql CariBerkasIDdobel.sql
select * from SUBYEKBERKAS
where berkasid='5c9ce296933540359d71f8919d9e61ef';

-- Membuang satu baris di tabel SUBYEKBERKAS berdasarkan identseq subyekberkas
-- yang sudah diidentifikasi pada sql di atas
delete SUBYEKBERKAS where identseq ='fc3a283a5dc6408eb94e9b989da7e21f';

Baca Selengkapnya..

tekstual - melihat su_persil

select * from supersil where regsuid = 'afbe9a74381147389eb73d7bed24c231';

select * from supersil where regpersilid = '171bb3297761498f8b9ef0471ec07b32';

select * from supersil where regpersilid = '62347ee5205a4eb0b5dc0ac921d7fe0d';

Baca Selengkapnya..

tekstual - melihat su terkunci berkas lain

select * from regsu
where desaid='230B32B5CE534A5AE040A8C003001C9F' and sunomor='07106' and sutahun='2006';

select * from register
where regid='b4e9b554658c4e17b0e03b51e947ecec';

Baca Selengkapnya..

tekstual - melihat regprosedur

select * from regprosedur
where berkasprosedurid = '0dd23015b1054de4b1fd464dd2cfb871'

Baca Selengkapnya..

tekstual - melihat register

select * from register
where regid in ('516cd81fde0043afb13040096b807bef','5fe7aaa5f4454ea9a6b865b83b2dff67','dbf8764fadcb4391b907873233ad6bc7','ebc9eb46012344529f955d876e212884')

Baca Selengkapnya..

tekstual - melihat profile,desa,employee

select desaid,kecamatanid,desaco8,desanama from desa order by desaco8;
select profileid,keterangan,password from profile order by keterangan;
select employeenip,seksikode,gelardepan,nama,gelarbelakang from employee order by nama;

Baca Selengkapnya..

tekstual - melihat persil pada buku tanah

select * from hatpersil
where regpersilid ='516cd81fde0043afb13040096b807bef'

Baca Selengkapnya..

tekstual - melihat persil

select * from persil where nib = '01715'and desaid='230B32B5CE784A5AE040A8C003001C9F';
--select * from supersil where regpersilid = '171bb3297761498f8b9ef0471ec07b32';
--select * from regsu where regid = 'a5756c56367148219c71aad067df8ab4';

Baca Selengkapnya..

tekstual - melihat jumlah prosedur yg digunakan

select a.prosedurcode, a.prosedurdesc, b.jumlah jumlahopen, c.jumlah jumlahselesai, d.jumlah jumlahcancel, e.jumlah jumlahclose from prosedur a,
(select a.prosedurcode, b.berkasstatus, count(*) jumlah from berkas b, berkasprosedur a
where a.berkasid = b.berkasid
and b.berkasstatus =1
group by a.prosedurcode, b.berkasstatus) b,
(select a.prosedurcode, b.berkasstatus, count(*) jumlah from berkas b, berkasprosedur a
where a.berkasid = b.berkasid
and b.berkasstatus =0
group by a.prosedurcode, b.berkasstatus) c,
(select a.prosedurcode, b.berkasstatus, count(*) jumlah from berkas b, berkasprosedur a
where a.berkasid = b.berkasid
and b.berkasstatus =3
group by a.prosedurcode, b.berkasstatus) d,
(select a.prosedurcode, b.berkasstatus, count(*) jumlah from berkas b, berkasprosedur a
where a.berkasid = b.berkasid
and b.berkasstatus =4
group by a.prosedurcode, b.berkasstatus) e
where a.prosedurcode= b.prosedurcode(+)
and a.prosedurcode= c.prosedurcode(+)
and a.prosedurcode= d.prosedurcode(+)
and a.prosedurcode= e.prosedurcode(+)
and a.PROSEDURVISIBLE = 'Y';

Baca Selengkapnya..

tekstual - melihat jumlah nib

select nib from persil group by nib having count(*) > 1;

Baca Selengkapnya..

tekstual - melihat histori persil

select * from persilhistori
where regnewpersilid ='dbf8764fadcb4391b907873233ad6bc7';

Baca Selengkapnya..

tekstual - melihat flow berkas

select berkas.berkasnomor, berkas.berkasyear, berkasflow.berkasid, count(berkasflow.berkasid) from berkasflow,berkas
where berkas.berkasid = berkasflow.berkasid
group by berkas.berkasnomor, berkas.berkasyear, berkasflow.berkasid
order by count(berkasflow.berkasid) desc;

select * from berkasflow,berkas
where berkas.berkasid = berkasflow.berkasid
and berkas.berkasnomor = '1804'
and berkas.berkasyear = '2006'
order by berkasflow.berkasflowtanggal;

select * from berkasflow
where berkasid = 'c7da6dc1caaa4886a0393aa0f381179a'
order by berkasflowtanggal;

Baca Selengkapnya..

tekstual - melihat DI terakhir

(select to_char(max(to_number(dinomor))+1) from dibook where ditahun ='2006' and dikode ='DI301')

Baca Selengkapnya..

tekstual - melihat database hasil migrasi

select * from register
where regorg='DM'

Baca Selengkapnya..

tekstual - melihat berkas dari prosedur dgn tanggal2

select * from dibook
where berkasid = '4bfe974cba2f48129bac01dfca5255f1';

-- berkas.berkasnomor, berkas.berkasyear,
select dibook.dikode,dibook.dinomor,dibook.ditanggal, berkas.berkasnomor, berkas.berkasyear, berkas.berkasid from dibook, berkas
where dibook.berkasid = berkas.berkasid
and dibook.dikode = 'DI208'
and berkas.creationdate < '02/13/2007'
and berkas.prosedurdesc like 'Hak Tanggungan'
and berkas.berkasnomor is not null
and berkas.berkasstatus = '1'
group by dibook.dikode,dibook.dinomor, berkas.berkasnomor, dibook.ditanggal, berkas.berkasyear,berkas.berkasid
order by dibook.dikode,dibook.dinomor, berkas.berkasnomor, dibook.ditanggal,berkas.berkasyear,berkas.berkasid ;

--and dibook.dikode in ('DI208');
--group by dibook.dikode;

Baca Selengkapnya..

tekstual - melihat berkas dari prosedur dgn tanggal

select * from berkas
where creationdate > '02/13/2007'
and prosedurdesc like 'Hak Tanggungan'
and berkasnomor is not null
and berkasstatus = '1';

Baca Selengkapnya..

tekstual - luas tanah lebih dari 2000

select * from persil ,hatpersil ,reghat
where persilarea > 2000
and hatpersil.regpersilid=persil.regid
and reghat.regid=hatpersil.reghatid;

Baca Selengkapnya..

tekstual - fix_DI208

exec z_FixDI208('205',2007,to_date('24/01/2007','dd-mm-yyyy'));

Baca Selengkapnya..

tekstual - cek berkas tidak dapat dibuka

-- Bandingkan dua nomor berkas
-- 1804 = berkas tidak dapat dibuka
-- 1807 = berkas dapat dibuka
-- kedua duanya mempunyai prosedur dan posisi berkas yang sama.
select berkasflow.*, berkas.*
from berkasflow,berkas
where
berkas.berkasnomor in('1804','1807')
and berkas.berkasyear = '2006'
and berkas.berkasid=berkasflow.berkasid
order by berkas.berkasnomor, berkasflow.berkasflowtanggal;


select register.*, berkas.berkasnomor, berkas.berkasyear from register,berkas
where
register.berkasid in('c7da6dc1caaa4886a0393aa0f381179a','a7ec91cdf3744cd096ce8217db3b38c0')
and register.berkasid = berkas.berkasid
order by register.berkasid, register.regdocdate;

Baca Selengkapnya..

tekstual - cari nomor DI dan berkas

select dibook.* from dibook,berkas
where dibook.berkasid = berkas.berkasid
and berkas.berkasnomor = '260'
and dibook.dikode = 'DI307';

Baca Selengkapnya..

tekstual - cari berkasID ganda

select * from berkas where berkasid = '5c9ce296933540359d71f8919d9e61ef';

--Cari berkasID di group berdasarkan
select subyekberkas.berkasid,count(subyekberkas.berkasid) from subyekberkas,berkas
where berkas.berkasyear = '2007'
and berkas.berkasid = subyekberkas.berkasid
group by subyekberkas.berkasid
order by count(subyekberkas.berkasid) desc;

Baca Selengkapnya..

tekstual - buku tanah dan annotasi

--Buku Tanah dan Annotasi
select *
from register a, reghat b, reghatanno c
where c.reghatid = b.regid
and c.regid = a.regid
and b.regid = c.reghatid
and b.desaid = '230B32B5CE5A4A5AE040A8C003001C9F'
and b.tipehakid = 1
and b.nomor = '1'
order by c.orderseq;

--Mencari Buku Tanah dengan Annotasi Pemisahan (12), Tetapi dimatikan (0)
select *
from register a, reghat b, reghatanno c
where c.reghatid = b.regid
and c.regid = a.regid
and b.regid = c.reghatid
and a.prosedurcode = '12' --Pemisahan
and b.hatstatus = '0'
;

--Mencari BT dengan Asal Persil Pemisahan (5)
--dengan regorg = 'DM'
select c.desaco8, a.kecanama, c.desanama,
b.tipehakid, b.nomor, d.regorg,
b.hatstatus
from kecamatan a, reghat b, desa c, register d
where a.kecamatanid = c.kecamatanid
and c.desaid = b.desaid
and d.regid = b.regid
and d.regorg = 'DM'
and b.asalpersilid = '5' --Pemisahan
and b.hatstatus = '1' --Status Aktif
and b.tipehakid = '3' --HGB
order by c.desaco8, b.tipehakid, b.nomor
;

Baca Selengkapnya..

tekstual - berkas terkunci pemakai lain

select * from berkas
where berkasnomor = '131'
and berkasyear = '2007';

select * from berkasflow
where berkasid = '2d81456b4ced438ea762c95be6c82a1d'
order by berkasflowtanggal;

Baca Selengkapnya..

Membandingkan Tanggal DI

-- Memandingkan tanggalDI301 dan DI208, prosedur Hak Tanggungan
select a.dikode, a.ditahun, a.dinomor, a.ditanggal,
b.dikode, b.ditahun, b.dinomor, b.ditanggal,
c.berkasnomor, c.berkasyear, c.prosedurdesc
from dibook a, dibook b, berkas c, berkasprosedur d
where a.berkasid = c.berkasid
and b.berkasid = c.berkasid
and c.berkasid = d.berkasid
and a.dikode = 'DI301'
and b.dikode = 'DI208'
and d.prosedurcode = '06'
--and c.berkasnomor = 239
--and c.berkasyear = 2006
;

Baca Selengkapnya..

Hapus Di Double

delete dibook where identseq in ('260B8B0853B268A2E040A8C0010152C4','260B8B0853B268A2E040A8C0010152C4');

commit;

Baca Selengkapnya..

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

Baca Selengkapnya..

grafikal&tekstual - check berkas

desc supersil;

select * from berkas where berkasnomor = 1971 and berkasyear = 2007;
select * from berkasprosedur where berkasid = '25d60af356694c1bbd52e8e0676635f9';
select * from regprosedur where berkasprosedurid = '7d646ac1b8c44287b47a9e6263c343d6';

select * from register where regid = '4d2c4a8d360e4298b169574ba0adb766'; -- HAT
select * from register where regid = '81c3e7a545f64e1ab4495f05f10962bd'; -- SU
select * from register where regid = '137676635fc0482182fa41fc28f7af86'; -- GU

select * from supersil where regsuid = '81c3e7a545f64e1ab4495f05f10962bd'; -- SUPERSIL

select kecamatan.kecanama, desa.desanama, persil.regid, persil.nib, persil.persilarea
from persil, desa, kecamatan
where kecamatan.kecamatanid = desa.kecamatanid
and persil.desaid = desa.desaid
and regid = 'ebc3c4240a724b49b83e046479e4e99a'; -- PERSIL

-- CHECK PERSIL
select kecamatan.kecanama, desa.desanama, persil.regid, persil.nib, persil.persilarea
from persil, desa, kecamatan
where kecamatan.kecamatanid = desa.kecamatanid
and persil.desaid = desa.desaid and NIB = '05928'
order by kecanama, desanama;

-- CHECK PERSIL By NIB
select kecamatan.kecanama, desa.desanama, persil.regid, persil.nib, persil.persilarea
from persil, desa, kecamatan
where kecamatan.kecamatanid = desa.kecamatanid
and persil.desaid = desa.desaid and NIB = &NIB
order by kecanama, desanama;

Baca Selengkapnya..

update desa utk gu & persil lokasi

--select * from reggu
--where regid ='' and gunomor='' and gutahun='';

update reggu set desaid='desaid' -- update kelurahan untuk GU
where regid='regid terkait';

--select

update persillokasi set desaid='desaid' -- update kelurahan untuk STP
where persillokasiid='regid terkait';

select * from berkas where berkasnomor=7359 and berkasyear=2007;

select * from berkasprosedur where berkasid='d6d2a4a6afeb412c98f86a7bed41ca63';

select * from regprosedur where berkasprosedurid='98c2cd0921d04cedb76864599eb5924f';

select * from register where regid in ('145402ce202940b3b65001e724b304d8','995b7cdc8e4f4a83904eb7e144163ced','aae31c350c394b98af348f946eaa2eb0');

select * from supersil where regsuid='145402ce202940b3b65001e724b304d8';

select * from persillokasi where berkasprosedurid='98c2cd0921d04cedb76864599eb5924f';

select * from persil where regid='342020b16df24f628955e1998927459d';

select * from desa where desanama like 'Sunter Jaya%';

select * from persillokasi where desaid='230B32B5CE5A4A5AE040A8C003001C9F'and persilluas=96;


commit;

select distinct a.prosedurcode, a.prosedurdesc
from prosedur a, berkasprosedur
where a.prosedurcode=berkasprosedur.prosedurcode
and exists (select 1 from persillokasi where persillokasi.berkasprosedurid = berkasprosedur.berkasprosedurid);

Baca Selengkapnya..

Cek Konter NIB

select persil.* from persil,desa
where desa.desaco8 = '09050703' and persil.desaid = desa.desaid
and nib >= '02489'
order by nib;

Baca Selengkapnya..

Error Spatial

select * from berkasspatial
where berkasnomor ='556' and berkasyear='2006';

--delete from berkasspatial
--where berkasnomor ='556'

Baca Selengkapnya..

Error NIB

select * from berkasspatial
where berkasnomor='879' and berkasyear='2007'; --lihat ada berapa baris kodeoperasi (utk pengukuran ulang dgn berita acara HARUS 3

select desaco8, persil.* from berkasspatial,persil,desa
where berkasnomor='879' and regtipe='P'
and berkasspatial.regid=persil.regid and persil.desaid=desa.desaid ;

select desaco8,persil.* from persil,desa
where regid in ('098b700c35e04f6fae79f158d7c28f3c,098b700c35e04f6fae79f158d7c28f3c')
and persil.desaid=desa.desaid;

select * from persil
where regid ='eee1b08b80ef4dc6aa7c6ff27c39817c' or regid='dde0b9e243574bb1bf4f038a7664ab9f';

Baca Selengkapnya..

Lihat Data Penting

--seluruh berkas tahun 2007
select berkasyear, berkasnomor, berkasseq pin, berkasstatus
from berkas
where berkasyear = 2007

--seluruh BT
select b.berkasyear, b.berkasnomor, b.berkasseq pin, b.berkasstatus,
d.desaco8, k.kecanama, d.desanama, rh.tipehakid, rh.nomor
from berkas b, berkasprosedur bp, regprosedur rp, register r, reghat rh,
desa d, kecamatan k
where b.berkasid = bp.berkasid
and bp.berkasprosedurid = rp.berkasprosedurid
and rp.regid = r.regid
and rp.origintype = 'I'
and r.regkode = 'B1'
and rp.regid = rh.regid
and rh.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and b.berkasnomor is not null
order by b.berkasyear, b.berkasnomor;

Seluruh HAT
select b.berkasyear, b.berkasnomor, b.berkasseq pin, b.berkasstatus, k.kecanama, d.desanama,
rh.tipehakid, rh.nomor
from berkas b, berkasprosedur bp, regprosedur rp, reghat rh, desa d, kecamatan k
where b.berkasyear = 2007
and b.berkasid = bp.berkasid
and bp.berkasprosedurid = rp.berkasprosedurid
and rp.origintype = 'I'
and rp.regid = rh.regid
and rh.desaid = d.desaid
and d.kecamatanid = k.kecamatanid

-- Seluruh HMS
select b.berkasyear, b.berkasnomor, b.berkasseq pin, b.berkasstatus,
d.desaco8, k.kecanama, d.desanama, rh.hmsnomor
from berkas b, berkasprosedur bp, regprosedur rp, register r, reghms rh,
desa d, kecamatan k
where b.berkasid = bp.berkasid
and bp.berkasprosedurid = rp.berkasprosedurid
and rp.regid = r.regid
and rp.origintype = 'I'
and r.regkode = 'B7'
and rp.regid = rh.regid
and rh.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and b.berkasnomor is not null
order by b.berkasyear, b.berkasnomor;

-- Seluruh HT
select b.berkasyear, b.berkasnomor, b.berkasseq pin, b.berkasstatus,
rh.httahun, rh.htnomor
from berkas b, berkasprosedur bp, regprosedur rp, register r, reght rh
where b.berkasid = bp.berkasid
and bp.berkasprosedurid = rp.berkasprosedurid
and rp.regid = r.regid
and rp.origintype = 'I'
and r.regkode = 'B6'
and rp.regid = rh.regid
and b.berkasnomor is not null
order by b.berkasyear, b.berkasnomor;

-- Seluruh SU
select b.berkasyear, b.berkasnomor, b.berkasseq pin, b.berkasstatus,
d.desaco8, k.kecanama, d.desanama, rs.sutahun, rs.sutipe, rs.sunomor
from berkas b, berkasprosedur bp, regprosedur rp, register r, regsu rs,
desa d, kecamatan k
where b.berkasid = bp.berkasid
and bp.berkasprosedurid = rp.berkasprosedurid
and rp.regid = r.regid
and rp.origintype = 'I'
and r.regkode = 'SU'
and rp.regid = rs.regid
and rs.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and b.berkasnomor is not null
order by b.berkasyear, b.berkasnomor;

-- Seluruh Wakaf
select b.berkasyear, b.berkasnomor, b.berkasseq pin, b.berkasstatus,
d.desaco8, k.kecanama, d.desanama, rh.tipehakid, rh.nomor
from berkas b, berkasprosedur bp, regprosedur rp, register r, reghat rh,
desa d, kecamatan k
where b.berkasid = bp.berkasid
and bp.berkasprosedurid = rp.berkasprosedurid
and rp.regid = r.regid
and rp.origintype = 'I'
and r.regkode = 'B8'
and rp.regid = rh.regid
and rh.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and b.berkasnomor is not null
order by b.berkasyear, b.berkasnomor;

Baca Selengkapnya..

sql_cek_migrasi_LOC2b

-- Mencari Konter per Desa
select kb.kabunama, d.desaco8, k.kecanama, d.desanama, d.konternib NIB, d.konterhat1 HM, d.konterhat3 HGB,
d.konterhat4 HP, d.konterhat8 WAKAF, d.konterhms HMSRS, d.kontergd GD, d.kontersu SU
from desa d, kecamatan k, kabupaten kb
where d.kecamatanid = k.kecamatanid
and k.kabupatenid = kb.kabupatenid
order by kb.kabukode, k.kecakode, d.desaco8;

-- Mencari jumlah HAT
select kb.kabukode, kb.kabunama Kabupaten, k.kecakode, d.desaco8 Kode, k.kecanama Kecamatan, d.desanama Desa,
rh.tipehakid TipeHak, count(rh.tipehakid) JmlHAT
from reghat rh, desa d, kecamatan k, kabupaten kb
where rh.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and k.kabupatenid = kb.kabupatenid
group by kb.kabukode, kb.kabunama, k.kecakode, d.desaco8, k.kecanama, d.desanama, rh.tipehakid
order by kb.kabukode, k.kecakode, d.desaco8, rh.tipehakid;

-- Mencari Jumlah GSSU
select kb.kabukode, kb.kabunama Kabupaten, k.kecakode, d.desaco8 Kode, k.kecanama Kecamatan,
d.desanama Desa, rs.sutipe TipeGSSU, count(rs.sutipe) JmlGSSU
from regsu rs, desa d, kecamatan k, kabupaten kb
where rs.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and k.kabupatenid = kb.kabupatenid
group by kb.kabukode, kb.kabunama, k.kecakode, d.desaco8, k.kecanama, d.desanama, rs.sutipe
order by kb.kabukode, k.kecakode, d.desaco8, rs.sutipe;

-- Mencari Jumlah HMSRS
select kb.kabukode, kb.kabunama Kabupaten, k.kecakode, d.desaco8 Kode, k.kecanama Kecamatan,
d.desanama Desa, count(rhs.hmsnomor) JmlHMSRS
from reghms rhs, desa d, kecamatan k, kabupaten kb
where rhs.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and k.kabupatenid = kb.kabupatenid
group by kb.kabukode, kb.kabunama, k.kecakode, d.desaco8, k.kecanama, d.desanama
order by kb.kabukode, k.kecakode, d.desaco8;

-- Mencari Jumlah GD
select kb.kabukode, kb.kabunama Kabupaten, k.kecakode, d.desaco8 Kode, k.kecanama Kecamatan,
d.desanama Desa, count(rgd.gdnomor) JmlGD
from reggd rgd, desa d, kecamatan k, kabupaten kb
where rgd.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and k.kabupatenid = kb.kabupatenid
group by kb.kabukode, kb.kabunama, k.kecakode, d.desaco8, k.kecanama, d.desanama
order by kb.kabukode, k.kecakode, d.desaco8;

-- Mencari Jumlah Persil & Luas Persil
select kb.kabukode, kb.kabunama Kabupaten, k.kecakode, d.desaco8 Kode, k.kecanama Kecamatan,
d.desanama Desa, count(p.nib) JmlPersil, sum(p.persilarea) TotalLuas
from persil p, desa d, kecamatan k, kabupaten kb
where p.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and k.kabupatenid = kb.kabupatenid
group by kb.kabukode, kb.kabunama, k.kecakode, d.desaco8, k.kecanama, d.desanama
order by kb.kabukode, k.kecakode, d.desaco8;

-- Mencari Jumlah Berkas per tahun
select o.officeid, o.namakantah, b.berkasyear, count(b.berkasnomor) JmlBerkas
from berkas b, office o
where b.officeid = o.officeid
group by o.officeid, o.namakantah, b.berkasyear
order by o.officeid, b.berkasyear;

-- Biaya Ukur
select * from biaya;

-- Biaya Prosedur
select * from biayaprosedur;

-- Daftar Isian
select o.kodekantah Kode, o.namakantah, d.ditahun, d.dikode, count(d.dinomor) JmlDI from dibook d, office o
where o.officeid = d.officeid
group by o.kodekantah, o.namakantah, d.ditahun, d.dikode
order by o.kodekantah, d.ditahun, d.dikode;

-- Employee Matching 2A 2B
select darimana, employeenip, nama from employee
where darimana = 'JAKPUS';

-- Profile Matching 2A 2B
select * from profile
where officeid = '734bfde7273040cd8efbc6d856446d2f';

Baca Selengkapnya..

Hitung Jumlah SU dan Luas Per Bulan

select * from regsu where rownum<10;

select count(*) bidang, sutipe, sum(persilarea)
from regsu, register, supersil, persil
where regsu.regid = register.regid
and regsu.regid = supersil.regsuid
and supersil.regpersilid = persil.regid
and regdocdate between to_date('01/01/2007','dd/mm/yyyy') and to_date('01/02/2007','dd/mm/yyyy')-1
group by sutipe

Baca Selengkapnya..

Hitung Berkas Salah Satu Prosedure Per Bulan

select count(*) from berkas
where kodespopp='SPOPP-3.28' and creationdate between to_date('01/01/2007','dd/mm/yyyy') and to_date('01/02/2007','dd/mm/yyyy')-1;

Baca Selengkapnya..

Lihat HAT dan SU nya

select * from regsu rs, reghat rh, supersil sp, hatpersil hp, persil p
where rs.regid = sp.regsuid
and rh.regid = hp.reghatid
and p.regid = hp.regpersilid
and p.regid = sp.regpersilid
and p.regid = '35FDCBB91A1DB608E040A8C097001D6D';

Baca Selengkapnya..

update_no_berkas_kosong

select * from berkas
where berkasyear = 2007
and prosedurdesc like '%Pengukuran%'
--and creationdate = to_date('14/03/2007','dd/mm/yyyy');
and currentprofile = 'A20101';

select * from persillokasi
where desaid = (select desaid from desa where desanama like 'Cempaka Putih Barat')
and persilluas = 24;

select * from berkasprosedur
where berkasprosedurid = '37541c7fcde94381ae11b7869e04d249';

select * from berkas
where berkasid = '510db34da95c40ca98342ed7af235838';

Baca Selengkapnya..

update_gis

select * from berkasspatial
where berkasnomor = '9148'
and berkasyear = 2007;

Baca Selengkapnya..

update tgl DI

select * from dibook
where berkasid =
(select berkasid from berkas where berkasnomor = 20336 and berkasyear = 2006);

--select * from berkas where berkasnomor = 20336 and berkasyear = 2006;

select * from regdi where dikode = 'DI208'
and ditahun = 2007
and dinomor between '3655' and '3657';

Baca Selengkapnya..

Update Nomor HAT

select * from desa where desanama = 'Kebon Sirih';

select * from reghat where desaid = 'acd1b7f6ee2a436b89db3df40cbcf1c5'
and nomor = '160'
and tipehakid = 4;

Baca Selengkapnya..

update nib ke su lain

select * from regsu
where sutahun = 2007
and desaid = (select desaid from desa where desaco8 = '09010302');

select * from supersil
where regpersilid = '7a4c9b761d8649198bb1c891ede9ec9d';

Baca Selengkapnya..

select * from regsu
where desaid =
(select desaid from desa where desanama like '%Kebon Kelapa%')
and sutahun = 2007
and sunomor = 24;

select * from supersil
where regsuid = '9dcfccb504d744319e1b6c716ecb6fd4';

select * from persilhistori
where regnewpersilid = '172a38de53224c1f82706b557ef828db';

Baca Selengkapnya..

Update Luas SU

select * from regsu
where desaid =
(select desaid from desa where desanama like '%Rawasari%')
and sutahun = 2007
and sunomor = 1;

select * from supersil
where regsuid = 'bf5a1419a26144b99c54487004d1b655';

select * from persil
where regid = '172a38de53224c1f82706b557ef828db';

Baca Selengkapnya..

Update link SU NIB ke berkas

select * from regsu
where desaid = (select desaid from desa where desanama like 'Menteng')
and sutahun = 2006
and sunomor = '00032';

select * from persil
where desaid = (select desaid from desa where desanama like 'Menteng')
and nib = '01889';

select * from supersil
where regsuid = '1f473bc16ae94764bec1d3ab56498194';

Baca Selengkapnya..

Select HMS

select * from reghms
where desaid=(select desaid from desa where desaco8='09010605')
and hmsnomor='2753';

Baca Selengkapnya..

Update DI yg ke booking diberkas lain

select * from berkas
where berkasnomor = '853'
and berkasyear = 2007;

--737f5c38295e4fb1ad296eb91af0692f
--b57688f057c14cdca90a20cf6272aec1

--select * from berkas
--where berkasid = 'b57688f057c14cdca90a20cf6272aec1';

select * from dibook
where dikode = 'DI208'
and ditahun = 2007
and dinomor between '3978' and '3982';

--select * from regdi
--where dikode = 'DI208'
--and ditahun = 2007
--and dinomor between '3978' and '3982';

Baca Selengkapnya..

update desa yang salah untuk prosedur pengukuran

Membetulkan Desa ntuk Surat Keterangan Lokasi
-- Coba terlebih dahulu mengupdate desa yang benar dengan menggunakan lopruntask untuk berkas yang bermasalah
-- Kalau seandainya tidak bisa gunakan SQL dibawah ini untuk Surat Keterangan LOkasi (SKLO) dengan cara :
-- a. Mencari desaID yang benar
select * from desa
where desaco8 = '09010701';

--b. Copykan desaid yang benar
--c. Mengupdate data desaid untuk Surat Keterangan Lokasi, jangan lupa di commit
select * from persillokasi
where berkasprosedurid=
(select berkasprosedur.berkasprosedurid from berkas,berkasprosedur
where berkasnomor='4209' and berkasyear=2007
and berkasprosedur.berkasid=berkas.berkasid);

-- Mengupdate Desa yang salah untuk berkas yang sudah ada di Kasubsi (Tunjuk Petugas Ukur) dengan cara :
-- a. Mencari desaID yang benar
select * from desa
where desaco8 = '09010701';

--Update desaid berdasarkan berkas untuk mengubah desa yang benar. Jangan lupa di COMMIT!
select * from petugasukur
where berkasprosedurid=
(select berkasprosedur.berkasprosedurid from berkas,berkasprosedur
where berkasnomor='4209' and berkasyear=2007
and berkasprosedur.berkasid=berkas.berkasid);

Baca Selengkapnya..

Update Berkasstatus 1 menjadi 0

update berkas set berkasstatus = '0'
where berkasyear = 2005
and berkasstatus = '1'

Baca Selengkapnya..

Update berkasprosedurHT

select * from berkas where berkasnomor='253' and berkasyear=2007;

select * from berkasprosedur where berkasid='46c91a52150d4d5583914dc6bb626a95'
where berkasprosedurid='6d02ff6fc325458b954740dcaff7e3f7'


--update berkasprosedur set prosedurcode='06', persilgenerate=-211
--where berkasprosedurid='6d02ff6fc325458b954740dcaff7e3f7'

Baca Selengkapnya..

Salah Prosedur

-- lihat prosedur yg sebenarnya
select * from prosedur
where prosedurdesc like '%Konstatering%';

-- update kode spopp dan prosedurdesc
select * from berkas
where berkasnomor = '3767'
and berkasyear = 2007;

-- update prosedurcod berdasar berkasid
select * from BERKASPROSEDUR
where berkasid = 'd6652234b85b4333807a3540a8b98dcc';

-- update di berdasrkan nomorberkas, dan ubah prosedurcode yg sebenarnya
select DIKODE, DITAHUN, DINOMOR, DITANGGAL, PROSEDURCODE, AKTIF from dibook
where berkasid = (select berkasid from berkas where berkasnomor = 3767 and berkasyear = 2007);, PROSEDURCODE, IDENTSEQ

Baca Selengkapnya..

Salah Prosedur

-- lihat prosedur yg sebenarnya
select * from prosedur
where prosedurdesc like '%Konstatering%';

-- update kode spopp dan prosedurdesc
select * from berkas
where berkasnomor = '3767'
and berkasyear = 2007;

-- update prosedurcod berdasar berkasid
select * from BERKASPROSEDUR
where berkasid = 'd6652234b85b4333807a3540a8b98dcc';

-- update di berdasrkan nomorberkas, dan ubah prosedurcode yg sebenarnya
select DIKODE, DITAHUN, DINOMOR, DITANGGAL, PROSEDURCODE, AKTIF from dibook
where berkasid = (select berkasid from berkas where berkasnomor = 3767 and berkasyear = 2007);, PROSEDURCODE, IDENTSEQ

Baca Selengkapnya..

Ubah objek dokumen kosong untuk berkas

-- Hapus dokumen objek dgn menggunakan lopruntask
-- Buka dgn SQL dokumen objek tesrbut kemudian ubah nomor yang salah dengan menambahkan x didepan nomornya kemudian commit
-- Masukan kembali nomor dokumen objek untuk berkas tersebut dgn menggunakan lopruntask di loket II
-- Lanjutkan berkas

select * from reghms
where desaid = (select desaid from desa where desaco8='09010206')
and hmsnomor='4597';

Baca Selengkapnya..

Statistik Berkas

select a.prosedurcode, a.prosedurdesc, b.jumlah jumlahopen, c.jumlah jumlahselesai, d.jumlah jumlahcancel, e.jumlah jumlahclose from prosedur a,
(select a.prosedurcode, b.berkasstatus, count(*) jumlah from berkas b, berkasprosedur a
where a.berkasid = b.berkasid
and b.berkasstatus =1
group by a.prosedurcode, b.berkasstatus) b,
(select a.prosedurcode, b.berkasstatus, count(*) jumlah from berkas b, berkasprosedur a
where a.berkasid = b.berkasid
and b.berkasstatus =0
group by a.prosedurcode, b.berkasstatus) c,
(select a.prosedurcode, b.berkasstatus, count(*) jumlah from berkas b, berkasprosedur a
where a.berkasid = b.berkasid
and b.berkasstatus =3
group by a.prosedurcode, b.berkasstatus) d,
(select a.prosedurcode, b.berkasstatus, count(*) jumlah from berkas b, berkasprosedur a
where a.berkasid = b.berkasid
and b.berkasstatus =4
group by a.prosedurcode, b.berkasstatus) e
where a.prosedurcode= b.prosedurcode(+)
and a.prosedurcode= c.prosedurcode(+)
and a.prosedurcode= d.prosedurcode(+)
and a.prosedurcode= e.prosedurcode(+)
and a.PROSEDURVISIBLE = 'Y';

Baca Selengkapnya..

set tgl di208

select * from dibook
where dikode='DI208' and dinomor between 4050 and 13886 and ditahun=2006

--select * from dibook
--where dikode='DI307' and dinomor=224 and ditahun=2007

Baca Selengkapnya..

Selisih Keuangan DI306

--Check DI306 yang lebih dari 1 untuk berkas yang sama
SELECT berkasid
FROM dibook
WHERE dikode = 'DI306'
AND ditanggal >= TO_DATE ('26/04/2007', 'dd/MM/yyyy')
AND ditanggal < TO_DATE ('26/04/2007', 'dd/MM/yyyy') + 1
GROUP BY berkasid
HAVING COUNT (*) > 1;
--Untuk melihat nomor DI306 untuk berkas yang sama yang lebih dari 1
select * from dibook where berkasid = '1a524acafa654590aaf808629b0f275a'
and dikode='DI306';
--Ambil berkasprosedur untuk check berkasbiaya perberkas
SELECT * FROM BERKASPROSEDUR WHERE BERKASID ='17285ee9b5b1434796e45e2c362fdaf7';

SELECT * FROM BERKASBIAYA WHERE BERKASPROSEDURID = '6da9beefcc0247f989dd12c50e5983a7';

--Bila memang ada DI306 untuk berkas yang sama lebih dari 1 tetapi hanya mempunya 1 berkasprosedur dan 1 berkasbiaya maka :

--Update dibook set ditanggal = null, digroup = ‘U’ where identseq = :ambil identseq dibook yang salah (yang double)
--Catatan :
--dibook yang double atau salah tidak dihapus karena untuk history data
--digroup di set = ‘U’ untuk tanda bahwa dibook tersebut telah di update
--ditanggal di set menjadi null karena untuk laporan di selalu mengambil tanggal yang tidak null

Baca Selengkapnya..

Laporan HT

select * from dibook where
ditanggal > (select ditanggal+7 from dibook a where a.berkasid = dibook.berkasid and prosedurcode='06'
and a.dikode='DI301' and rownum=1)
and dikode='DI208'
and prosedurcode='06'
and ditanggal between to_date('01/04/2007','dd/mm/yyyy') and to_date('30/04/2007','dd/mm/yyyy')

select * from dibook where berkasid='f0e51874a5324c46a1e9787d9fe931af'

select * from diprosedur where prosedurcode='06'

Baca Selengkapnya..