SQL 14 Prosedur Unggulan Berdasarkan Peraturan Ka BPN RI No. 6 Tahun 2008

Buat para admin ..

Thanks Fully

Download Disini

Baca Selengkapnya..

SQL Mencari Blanko HAT

Admin2 kayaknya rada susah deh kalo ada blanko Buku Tanah yang ngak kepake tapi ngak taunya pas nomor blanko dimasukin ke Buku Tanah katanya sudah dipake ama Buku Tanah lain. Mana yang bener sehhhhh ?!?!?!
Nah Script ini sebagai antisipasi buat para admin ngecek apakah blanko dimaksud sudah dipakai atau belum ...

select d.desaco8, k.kecanama, d.desanama, rh.tipehakid, rh.nomor, s.blankono
from reghat rh, sertipikat s, desa d, kecamatan k
where rh.regid = s.regid
and rh.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and s.blankono like '%140%';

Baca Selengkapnya..

ERROR Prosedur Konversi SU sudah ada belum pengumuman

Wah tumben mbak Tari "Jogja" nelp lagi neh, denger suaranya jadi adem lagi ... abis kemaren2 banyak yang nelp adminnya cowok terus sih, paling bu Tuti ... he he
Perasaan error ini dulu pernah deh dikasih tau solusinya tapi ama admin mana ya ??
ngak apa2 deh, mumpung BANG LOCER lagi baek neh download ada filenya ya ...
Jangan sedih gitu donk para admin ... senyum dikit biar pemohon ngasih nya agak banyakkan ... Alhamdulillah !!

Jo

Download File

Baca Selengkapnya..

Merubah Biaya untuk Berkas

Mbak Tuti emang cerewet deh .... Maklum cewek sih ?!?!?
Tapi dia baek loh .... (Kadang-kadang .. he he)

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

select * from berkasprosedur
where berkasid = 'fad4202547694c749635db433b160c5f';

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

select * from berkasbiaya
where berkasprosedurid = '6dc82a31ceb54161921f722a054c4a15';

Baca Selengkapnya..

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;

Baca Selengkapnya..

Luas di SU masih decimal

Mbak Tuti ... ini script untuk mengupdate luas Surat Ukur yang masih decimal yaa
Smoga sukses slalu dan panjang umur ... banyak rejeki ... banyak rejekii, banyak rejekiiii ... banyak rejekiiiiiiiiiiii ....

Jo

Coba dilihat dulu datanya dengan perintah SQL

select * from persil where persilarea like '%.%';

Kalo yakin baru update dengan perintah dibawah ini :

Script 1#, keterangan : update persilarea dengan pembulatan penyesuaian berdasarkan kisaran 0.5, jadi 0.01 s/d 0.50 dibulatkan kebawah dan 0.51 s/d 0.99 dibulatkan keatas

update persil
set persilarea=round(persilarea)
where persilarea like '%.%';

Script 2#, keterangan : update persilarea dengan pembulatan selalu kebawah

update persil
set persilarea=trunc(persilarea)
where persilarea like '%.%';

Baca Selengkapnya..

Script Histori Pemilik Rumah Susun

Buat Nusyirwan "Uday" ... Gua Kasih dah !!!!

SELECT d.desaco8, k.kecanama, d.desanama, rhs.hmsnomor, rg.gdnomor, rg.gdtahun, rh.tipehakid,
rh.nomor, s.nama, ro.ownerseq
FROM reghms rhs, regowner ro, subyek s, desa d, kecamatan k, apartment ap, hatpersil hp,
reghat rh, reggd rg
WHERE rhs.regid = ro.regid
AND ro.subyekid = s.subyekid
AND rhs.desaid = d.desaid
AND d.kecamatanid = k.kecamatanid
AND rhs.regid(+) = ap.reghrsid
AND ap.per_regid = hp.regpersilid
AND hp.reghatid = rh.regid
AND ap.reggdid = rg.regid
AND rh.hatstatus = '1'
UNION
SELECT d.desaco8, k.kecanama, d.desanama, rhs.hmsnomor, rg.gdnomor, rg.gdtahun, rh.tipehakid,
rh.nomor, s.nama, rhsanno.orderseq
FROM reghms rhs, reghmsanno rhsanno, regowner ro, subyek s, desa d, kecamatan k,
apartment ap, hatpersil hp, reghat rh, reggd rg
WHERE rhs.regid = rhsanno.reghmsid
AND rhsanno.regid = ro.regid
AND ro.subyekid = s.subyekid
AND rhs.desaid = d.desaid
AND d.kecamatanid = k.kecamatanid
AND rhs.regid(+) = ap.reghrsid
AND ap.per_regid = hp.regpersilid
AND hp.reghatid = rh.regid
AND ap.reggdid = rg.regid
AND rh.hatstatus = '1'
AND rhsanno.reghmsid = rhs.regid
ORDER BY 1, 4, 10

-- Jo --

Baca Selengkapnya..

Laporan DI 301

Mbak Tari ....
Agak pusing juga neh bikin SQL nya tapi mudah-mudahan ada manpaatnyo


1. DI 301 untuk prosedur diluar HT

SELECT
b.berkasnomor,b.berkasyear,b.prosedurdesc,di.dinomor DI301Nomor,to_char(di.ditanggal,'dd-MM-yyyy')DI301Tgl,
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
WHERE di.berkasid = b.berkasid
AND di.dikode = 'DI301'
AND di.dikode = rd.dikode(+)
AND di.dinomor = rd.dinomor(+)
AND di.ditahun = rd.ditahun(+)
AND rd.regid = DI208.regid(+)
-- AND b.prosedurdesc like '%Pemecahan%'
-- AND b.creationdate between to_date('01/01/2007','dd-mm-yyyy') and to_date('31/01/2007','dd-mm-yyyy')
order by b.berkasnomor,b.berkasyear;

2. DI 301 untuk Hak Tanggungan

-- 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;


Okeh ?!?!?!

Jo

Baca Selengkapnya..

Berkas tidak ada di InboxBerkas

Buat Pak Sami Boy di Bogor
Untuk kasus berkas yang tidak ada di inboxberkas harus dijalankan pake SQL


insert into inboxberkas

SELECT DISTINCT A.*,g.WFMPROFILE,e.subyekid,c.duedate_ ,w.useridto

FROM

BERKAS A, JBPM_TOKEN B, JBPM_TASKINSTANCE C, SUBYEKBERKAS D,

PERORANGAN E, SUBYEK F, PROFILE G,

(SELECT

berkasflow.berkasid, berkasflow.useridto, profile.keterangan EMPLOYEENAME

FROM berkasflow, profile

WHERE

berkasflow.berkasflowterakhir = '1'

AND profile.profileid = berkasflow.useridto) W

WHERE

A.BERKASWFM = B.PROCESSINSTANCE_ AND

B.ID_ = C.TOKEN_ AND

G.WFMPROFILE(+) = C.ACTORID_ AND G.FLAGSPOPP = 'Y' AND

D.BERKASID(+) = A.BERKASID AND

D.SUBYEKID = E.SUBYEKID(+) AND

D.SUBYEKID = F.SUBYEKID(+) AND

W.BERKASID(+) = A.BERKASID AND

D.SUBYEKTIPE(+) = 'P' AND

a.berkasyear =2008 and a.berkasnomor=2900 and

(A.BERKASSTATUS = '1' or A.BERKASSTATUS = '2') AND

C.END_ IS NULL AND

A.KODESPOPP <> 'SPOPP-1.01.1' AND

A.KODESPOPP <> 'SPOPP-1.01.2' AND

C.ISCANCELLED_ = 0;

Baca Selengkapnya..

SQL Laporan DE

Buat Kang Apek 'Ciamis' mudah-mudahan pulang proyek jadi beunghar ... Amien
Tong pho ka babaturan sa Karawang ...
Jo


-- rekap entri HAT per desa berdasarkan tanggal
select d.desaco8, k.kecanama, d.desanama, rh.tipehakid, count(rh.userentri)
from reghat rh, desa d, kecamatan k
where rh.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and flagdb = 'Y'
and rh.tanggalentri between to_date('01/17/2006')
and to_date('01/30/2007')
group by d.desaco8, k.kecanama, d.desanama, rh.tipehakid
order by 1,4;

-- rekap entri HAT per petugas berdasarkan tanggal
select rh.userentri, count(rh.userentri)
from reghat rh, desa d, kecamatan k
where rh.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and flagdb = 'Y'
and rh.tanggalentri between to_date('01/17/2006')
and to_date('01/30/2007')
group by rh.userentri
order by 1;


-- Kalo Pengen sama nama petugas entri tapi kok jumlahnya ngak sama ya ???
-- rekap entri HAT per petugas berdasarkan tanggal link berdasarkan employee
select rh.userentri, e.nama, count(rh.userentri)
from reghat rh, desa d, kecamatan k, employee e
where rh.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and e.employeenip = rh.userentri
and flagdb = 'Y'
and rh.tanggalentri between to_date('01/17/2006')
and to_date('01/30/2007')
group by rh.userentri, e.nama
order by 1;

-- rekap entri HAT per petugas berdasarkan tanggal link berdasarkan profile
select rh.userentri, p.keterangan, count(rh.userentri)
from reghat rh, desa d, kecamatan k, profile p
where rh.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and p.profileid = rh.userentri
and flagdb = 'Y'
and rh.tanggalentri between to_date('01/17/2006')
and to_date('01/30/2007')
group by rh.userentri, p.keterangan
order by 1;

-- rekap entri GD per petugas berdasarkan tanggal
select rg.gduserentri, count(rg.gduserentri)
from reggd rg, desa d, kecamatan k
where rg.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and rg.flagdb = 'Y'
and rg.gdtanggalentri between to_date('01/17/2006')
and to_date('01/30/2007')
group by rg.gduserentri;

-- rekap entri GD per desa berdasarkan tanggal
select d.desaco8, k.kecanama, d.desanama, 'GD', count(rg.gduserentri)
from reggd rg, desa d, kecamatan k
where rg.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and rg.flagdb = 'Y'
and rg.gdtanggalentri between to_date('01/17/2006')
and to_date('01/30/2007')
group by d.desaco8, k.kecanama, d.desanama
order by 1,4;

-- rekap entri SU per petugas berdasarkan tanggal
select rs.suuserentri, count(rs.suuserentri)
from regsu rs, desa d, kecamatan k
where rs.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and rs.flagdb = 'Y'
and rs.sutanggalentri between to_date('01/17/2006')
and to_date('01/30/2007')
group by rs.suuserentri;

-- rekap entri SU per desa berdasarkan tanggal
select d.desaco8, k.kecanama, d.desanama, rs.sutahun, rs.sutipe, count(rs.suuserentri)
from regsu rs, desa d, kecamatan k
where rs.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and rs.flagdb = 'Y'
and rs.sutanggalentri between to_date('01/17/2006')
and to_date('01/30/2007')
group by d.desaco8, k.kecanama, d.desanama, rs.sutahun, rs.sutipe
order by 1,4,5;


-- rekap entri HT per petugas berdasarkan tanggal
select rh.htuserentri, count(rh.htuserentri)
from reght rh, desa d, kecamatan k
where rh.flagdb = 'Y'
and rh.httanggalentri between to_date('01/17/2006')
and to_date('01/30/2007')
group by rh.htuserentri
order by 1;

-- rekap entri HT per tahun berdasarkan tanggal
select rh.httahun, count(rh.htuserentri)
from reght rh
where rh.flagdb = 'Y'
and rh.httanggalentri between to_date('01/17/2006')
and to_date('01/30/2007')
group by rh.httahun
order by 1;

-- rekap entri HMS per petugas berdasarkan tanggal
select rh.hmsuserentri, count(rh.hmsuserentri)
from reghms rh, desa d, kecamatan k
where rh.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and rh.flagdb = 'Y'
and rh.hmstanggalentri between to_date('01/17/2006')
and to_date('01/30/2007')
group by rh.hmsuserentri
order by 1;

-- rekap entri HMS per desa berdasarkan tanggal
select d.desaco8, k.kecanama, d.desanama, 'HMS', count(rh.hmsuserentri)
from reghms rh, desa d, kecamatan k
where rh.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and flagdb = 'Y'
and rh.hmstanggalentri between to_date('01/17/2006')
and to_date('01/30/2007')
group by d.desaco8, k.kecanama, d.desanama
order by 1;

Baca Selengkapnya..

SQL buat Pak Roni Depok

Buat Pak Roni di Depok
Pak Kabar pak ustadz, kayaknya depok aman neh. Sorry ambil SQL nya di blog aja ya abis panjang sih jadi ngak bisa di sms.
Mudah-mudahan ada manfaatnya .. kontak terus ya

Jo


select d.desaco8, k.kecanama, d.desanama, rh.tipehakid, to_number(rh.nomor) nomor, rs.sutipe, rs.sutahun,
rs.sunomor, p.nib, p.persilarea, s.nama, s.alamat, p.tanggallahir
from reghat rh, regsu rs, persil p, supersil sp, hatpersil hp, desa d, kecamatan k, regowner ro,
subyek s, perorangan p
where rh.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and rh.regid = hp.reghatid
and hp.regpersilid = p.regid
and rs.regid = sp.regsuid
and sp.regpersilid = p.regid
and ro.regid = getlastowner(rh.regid)
and ro.subyekid = s.subyekid
and s.subyekid = p.subyekid
-- Mengkondisikan status hak aktif (1)/ tidak aktif (0)
and rh.hatstatus = 1
-- Mengkondisikan jenis hak
and rh.tipehakid = 1
-- Mengkondisikan desa dengan kode desa
and d.desaco8 = '09010101'
-- Mengkondisikan pemilik buku tanah dengan nama pemilik
and s.nama like '%NOERHADI PARTO%'
-- Mengkondisikan pemilik buku tanah dengan tanggal pemilik
and p.tanggallahir = to_date('12/14/1960','mm/dd/yyyy')
-- Mengkondisikan pemilik buku tanah dengan alamat pemilik
and s.alamat like '%Jalan%'
order by 1,4,5;

Baca Selengkapnya..

SQL mencari HAT dengan Pemilik Terakhir

Buat dik Gu3 admin Kantah Jakpus ..
Neh Syntax yang diminta, mudah-mudahan ada manpaatnya

Jo


select d.desaco8, k.kecanama, d.desanama, rh.tipehakid, to_number(rh.nomor) nomor, rs.sutipe, rs.sutahun,
rs.sunomor, p.nib, p.persilarea, s.nama, s.alamat
from reghat rh, regsu rs, persil p, supersil sp, hatpersil hp, desa d, kecamatan k, regowner ro,
subyek s
where rh.desaid = d.desaid
and d.kecamatanid = k.kecamatanid
and rh.regid = hp.reghatid
and hp.regpersilid = p.regid
and rs.regid = sp.regsuid
and sp.regpersilid = p.regid
and ro.regid = getlastowner(rh.regid)
and ro.subyekid = s.subyekid
-- and rh.desaid = '141bee59eea64cf6ab374b7d9ed6a998'
-- and rh.tipehakid = 1
and rh.hatstatus = 1
order by 1,4,5;

Baca Selengkapnya..

Script Trigger Perbaikan untuk Ekspedisi Berkas.

---

From: Jokolee [mailto:jokolee@jau.co.id]

Hallo Bapak2 Admin di Kantah LOC2B (DKI Jakarta) ,

Tolong di jalankan script trigger perbaikan di bawah ini, masalah ini terjadi jika di kantah memakai “Ekspedisi Berkas”, tetapi karena di kantah belum pakai

Berarti saat ini kantah tidak bermasalah....

Script :

CREATE OR REPLACE TRIGGER AFTER_UPDATE_BERKAS

AFTER UPDATE

ON BERKAS

FOR EACH ROW

declare

vberkasstatus varchar2(2);

BEGIN

vberkasstatus :=:new.berkasstatus;

if (vberkasstatus='4' or vberkasstatus='0' or vberkasstatus='3') and :new.berkaswfm>0

then

delete INBOXBERKAS where berkasid=:new.berkasid;

else

if(:new.berkaswfm>0 )

then

update INBOXBERKAS

set BERKASNOMOR=:new.BERKASNOMOR,

BERKASYEAR=:new.BERKASYEAR,

BERKASREMARK=:new.BERKASREMARK,

BERKASWFM=:new.BERKASWFM,

CURRENTPROFILE=:new.CURRENTPROFILE,

EMPLOYEENIP=:new.EMPLOYEENIP,

FINISHDATE=:new.FINISHDATE,

ekpedisiberkas=:new.ekpedisiberkas

where berkasid=:new.berkasid;

end if;

end if;

END;

/

Baca Selengkapnya..

SQL Jumlah Total Hak per Tanggal per Kegiatan

Buat Juragan Erick semoga bermanfaat deh ...


Baca Selengkapnya ...

select p.kodespopp, p.prosedurdesc, rh.tipehakid, th.tipehaknama, b.berkasstatus, count(*)
from berkas b, berkasprosedur bp, regprosedur rp, reghat rh, prosedur p,
kecamatan k, desa d, tipehak th
where b.berkasid = bp.berkasid
and bp.berkasprosedurid = rp.berkasprosedurid
-- Kalau ingin jml hak yg dimasukan di loket 2 (didaftarkan utk prosedur) rp.origintype = 'I'
-- Kalau ingin jml hak yg telah dibuat karena hasil prosedur (output prosedur)rp.origintype = 'O'
and rp.origintype = 'I'
-- Kalau ingin melihat untuk berkas dengan status tertentu, buka tanda remark pd syntax dibawah ini
-- and b.berkasstatus = 1
and rp.regid = rh.regid
and k.kecamatanid = d.kecamatanid
and d.desaid = rh.desaid
and rh.tipehakid = th.tipehakid
and bp.prosedurcode = p.prosedurcode
and b.creationdate between to_date('01/01/2007','dd/mm/yyyy')
and to_date('22/11/2007','dd/mm/yyyy')
group by p.kodespopp, p.prosedurdesc, rh.tipehakid, th.tipehaknama, b.berkasstatus
order by 1, 3;

-- catatan : kode berkasstatus
-- 0 = selesai
-- 1 = proses
-- 3 = dibatalkan
-- 4 = ditutup

Baca Selengkapnya..

Sql Untuk Laporan DI 302 + Pemohon

Buat Hary Gu3 JAKPUS....
Ini sql nya yang di minta semoga bermanfaat.


Baca Selengkapnya

-- Lap DI 302

SELECT
di.dinomor DI302Nomor,to_char(di.ditanggal,'dd-MM-yyyy')DI302Tgl,
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, b.berkasnomor,b.berkasyear,b.creationdate
Tgl_Dftr_Berkas,b.prosedurdesc,
d.desaco8, d.desanama, e.employeenip, e.nama, s.nama
FROM berkas b,dibook di,regdi rd, subyek s, subyekberkas sb,
(SELECT rd.regid,rd.dinomor,to_char(rd.ditanggal,'dd-MM-yyyy')ditanggal
FROM regdi rd
WHERE rd.dikode = 'DI307')DI307, persillokasi pl, berkasprosedur
bp, desa d, petugasukur pu, detilpetugasukur dpu, employee e
WHERE di.berkasid = b.berkasid
AND b.berkasid = bp.berkasid
AND pu.petugasukurid = dpu.petugasukurid
AND dpu.employeenip = e.employeenip
AND bp.berkasprosedurid = pu.berkasprosedurid
AND bp.berkasprosedurid = pl.berkasprosedurid
AND d.desaid = pl.desaid
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 '%Pemecahan%'
AND di.ditanggal between to_date('01/02/2007','dd-mm-yyyy') and
to_date('28/02/2007','dd-mm-yyyy')
AND b.berkasid = sb.berkasid
AND sb.subyekid = s.subyekid
AND sb.subyektipe='P'
order by to_number(di.dinomor);

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..