Cara Superfile di Windows

--------------------------------------------------------------
STEP SUPERFILE
1. Copy file superfile_window.magik ke s:\lo\pro2\sw\utils
2. Buat folder loc.gis di windows (di c atau d yg sizenya besar, min 15-20 GB)
3. Dalam folder loc.gis buat folder compress
4. Folder loc.gis di sharing dengan FULL PERMISSION
5. Gunakan SAMBA, Copy file yang berada di linux (/procas/lo/pro2/loc.gis) :
gdb.ds
gdb-1.ds
gdb-2.ds
gdb-3.ds
gdb-4.ds
gdb-5.ds
gdb.sfi
ke folder loc.gis tadi
Buka file gdb.sfi dengan notepad dan ubah:
\procas\lo\pro2\loc.gis\gdb.ds MENJADI D:\loc.gis\gdb.ds
\procas\lo\pro2\loc.gis\gdb-1.ds MENJADI D:\loc.gis\gdb-1.ds
\procas\lo\pro2\loc.gis\gdb-2.ds MENJADI D:\loc.gis\gdb-2.ds
\procas\lo\pro2\loc.gis\gdb-3.ds MENJADI D:\loc.gis\gdb-3.ds
\procas\lo\pro2\loc.gis\gdb-4.ds MENJADI D:\loc.gis\gdb-4.ds
\procas\lo\pro2\loc.gis\gdb-5.ds MENJADI D:\loc.gis\gdb-5.ds
6. Jalankan product - setup yang ada di dalam folder smallworld310 di g: atau c:
7. manage datastore - klik start server (jika tombol start server
tidak disable)
8. Jalankan grafikal dengan closed image yang biasa dipakai (closed_lo_de_map
kalau ndak salah) sampai keluar Magik2>
9. Magik2>load_file("s:\lo\pro2\sw\utils\superfile_window.magik")
10. Magik2>transfer2superfiles("gdb.ds","d:\loc.gis","compress",2000,10,{})
KETERANGAN :
d:\loc.gis adalah letak folder loc.gis di windows, kalau buat foldernya
di c maka d:\loc.gis diganti menjadi c:\loc.gis.
Tunggu hinggal selesai (keluar Magik2 dengan tanpa error).
Keluar dari grafikal.
11. Setelah selesai di folder compress yang dalam folder loc.gis akan tercipta
gdb.ds
gdb-1.ds
gdb-2.ds
gdb-3.ds
gdb-4.ds
gdb-5.ds
gdb-6.ds
gdb-7.ds
gdb-8.ds
gdb-9.ds
gdb-10.ds
gdb.sfi
12. Masuk linux (/procas/lo/pro2/loc.gis)
Dengan SAMBA pindahkan ke Harddisk file-file agar linux tidak penuh:
gdb.ds
gdb-1.ds
gdb-2.ds
gdb-3.ds
gdb-4.ds
gdb-5.ds
gdb.sfi
13. Buka gdb.sfi yang ada di windows folder loc.gis compress dengan notepad
dan ubah path yg ada menjadi path yang di linux.
contoh :
d:/loc.gis/compress/gdb.ds MENJADI /procas/lo/pro2/loc.gis/gdb.ds
d:/loc.gis/compress/gdb-1.ds MENJADI /procas/lo/pro2/loc.gis/gdb-1.ds
DAN SETERUSNYA
14. Dengan SAMBA file-file point no. 11 copy ke linux (/procas/lo/pro2/loc.gis)
15. Masuk Grafikal dengan closed image buat open image baru lagi.

Baca Selengkapnya..

Prosedure 99 atau Prosedure Manual

Sebagaimana diketahui bahwa prosedure manual/99 dalam aplikasi LOC adalah prosedure yang singkat dan berakhir di BKP, yang selanjutnya DI sisanya di Booking manual,
Apakah Prosedure 99 atau manual pada aplikasi LOC2A/LOC2B harus dihapus..?? atau memang Harus ada..??

Berikan Komentar anda...

Baca Selengkapnya..

Sql Contoh Load Table

Load tabel ke file txt

Misal meload tabel expe ke c:\temp\open.txt

begin work;
unload to "c:\temp\open.txt" select * from expe;
commit work;

Baca Selengkapnya..

SQL update gs tutup thn

update desa set currgs_yea=2003, lastgs_yea=2002;

Baca Selengkapnya..

menghapus DI booking manual

Menghapus DI yang dibooking manual

Misal DI307

delete from m307 where m307seq=152 and m307yea=2003;
select * from m307 where m307seq=152 and m307yea=2003;

delete from m307 where m307seq=153 and m307yea=2003;
select * from m307 where m307seq=153 and m307yea=2003;


delete from d307 where d307seq=152 and d307yea=2003;
select * from d307 where d307seq=152 and d307yea=2003;

delete from d307 where d307seq=153 and d307yea=2003;
select * from d307 where d307seq=153 and d307yea=2003;

Baca Selengkapnya..

Sql Update NIB

Update NIB

update parc set parcmapare=null, opernum=null where parcnib="000673" and desaco8="04010111";

select * from parc where parcnib="000673" and desaco8="04010111";


Untuk menghapusnya :

{delete from gspa where parcnib="000673" and desaco8="04010111";
select * from gspa where parcnib="000673" and desaco8="04010111";
}

delete from parc where parcnib="000673" and desaco8="04010111";
select * from parc where parcnib="000673" and desaco8="04010111";

Baca Selengkapnya..

hapus d302, 307 dan NIB yg sdh didaftarkan

Menghapus DI302, DI307 dan NIB yang sudah didaftarkan:

{select * from expe where expecod=142 and expeyea=2002;}

catat expeid nya
{
delete from d302 where expeid="170" and d302seq="20008";
select * from d302 where expeid="170" and d302seq="20008";

delete from d307 where expeid="170" and d307seq="150";
select * from d307 where expeid="170" and d307seq="150";
}
{delete from gspa where desaco8="04010111" and parcnib="000673";
select * from gspa where desaco8="04010111" and parcnib="000673";

delete from parc where desaco8="04010111" and parcnib="000673";
select * from parc where desaco8="04010111" and parcnib="000673";
}

Baca Selengkapnya..

Sql Rekap Berkas PHI

* .Jumlah berkas prosedur Jual Beli + Pemecahan *

select tprocod, count (*) from expe
where stexcod in ("CA","OP","CL")
and tprocod in (135)
group by tprocod
order by tprocod;

Baca Selengkapnya..

Memasukan DI kedalam tabel

insert into d307 values ("2002","21315","31/12/2002",-594,"01","750004673","0","M","4003");
select * from d307 where d307yea="2002";

Baca Selengkapnya..

Sql Edit Booking Manula

Mengubah/ edit booking manual

update m307 set m307parcnib="04116" where m307seq="323" and m307yea=2003;
select * from m307 where m307seq="323" and m307yea=2003;

Baca Selengkapnya..

menghapus nib booking manual

delete from gspa where desaco8="04010709" and parcnib="000766";
select * from gspa where desaco8="04010709" and parcnib="000766";

delete from parc where desaco8="04010709" and parcnib="000766";
select * from parc where desaco8="04010709" and parcnib="000766";

Baca Selengkapnya..

SQL cetak spasial SU transaksi dibatalkan

Waktu mencetak Surat Spasial keluar peringatan TRANSAKSI DIBATALKAN

sOLUSI :
sle

1. Lihat ditabel GRRE status END grreflgorg tidak boleh "G"

select * from grre where expecod=142 and expeyea=2002 and grreflgorg="G" order by grrenum;

2. Update

update grre set grreflgorg="N" where opercod="END" and expecod=142 and expeyea=2002;

3. lihat kode kode gis di parc

select * from grre where expecod=142 and expeyea=2002;


catat kode gis nya

4. update

update grre set grregiscod=63163 where expecod=142 and expeyea=2002 and grrenum=8;
update grre set grregiscod=63163 where expecod=142 and expeyea=2002 and grrenum=8;


{select parc_temp.* from gspa_temp, parc_temp where gspa_temp.expecod=142 and gspa_temp.expeyea=2002 and gspa_temp.parcgiscod=parc_temp.parcgiscod;}

update grre set grregiscod=63163 where expecod=142 and expeyea=2002 and grrenum=8;

update grre set grregiscod=21496 where expecod=142 and expeyea=2002 and grrenum=8;


{
select * from gspa_temp, grre where grre.expecod=142 and grre.expeyea=2002 and gspa_temp.gssugiscod=grre.grregiscod; }
{select * from gspa_temp where expecod=142 and expeyea=2002;}

Baca Selengkapnya..

Sql Edit Luas SU

update gssu set gssuare="383,00" where desaco8="04010301" and gssuyea=2003 and gssunum="00008";
update parc set parcare="383,00" where desaco8="04010301" and parcnib="001097";
update parc set parcmapare="383,31" where desaco8="04010301" and parcnib="001097";

select * from gssu where desaco8="04010301" and gssuyea=2003 and gssunum="00008";
select * from parc where desaco8="04010301" and parcnib="001097";

Baca Selengkapnya..

Hapus NIB Diatas Counter ( contoh !!! )

delete from gspa where desaco8="04010709" and parcnib>"000769";
delete from parc where desaco8="04010709" and parcnib>"000769";
select * from gspa where desaco8="04010709" and parcnib>"000769";
select * from parc where desaco8="04010709" and parcnib>"000769";

Baca Selengkapnya..

load tabel per hak

begin work;
unload to "c:\Load Tabel\M04010901.txt" select * from htan where desaco8="04010901" and thakcod="1";
commit work;

Baca Selengkapnya..

Mengganti jumlah Pemecahan

Mengganti jumlah Pemecahan


1. Lihat di sql pada tabel grre,
kemudian ubah grrenumsu_ (Nomor GSSU Genarate) dan grrenumpar (Nomor Persil Generate)
Gunakan perintah dibawah ini :

update grre set grrenumsu_="14"
where expecod=93 and expeyea=2003 and indetyp="G";
select * from grre where expecod=93 and expeyea=2003 and indetyp="G";

update grre set grrenumpar="14"
where expecod=93 and expeyea=2003 and indetyp="G";
select * from grre where expecod=93 and expeyea=2003 and indetyp="G";

2. Lanjutkan berkas di penggambaran seperti biasa

3. Kalau seandainya sudah dibuat gambar dan keluar NO GIS Sementara,
hapus No GIS Sementara tersebut dengan SQL

delete from grre where expecod=93 and expeyea=2003
and grregiscod=1401388;

select * from grre where expecod=93 and expeyea=2003
and grregiscod=1401388;

delete from grre where expecod=93 and expeyea=2003
and grregiscod=94499;

select * from grre where expecod=93 and expeyea=2003
and grregiscod=94499;

Baca Selengkapnya..

Proc 99

{Berkas Aktif}
select expe.expecod,expe.expeyea,tind.tinddes,task.user_ident,profile.description,expe.expedatini,expe.expedatend
from expe,tpro,expd,tind,task,profile
where tpro.tprocod=expe.tprocod
and tpro.tproalias = "99"
and expd.expeid = expe.expeid
and tind.tindcod = expd.tindcod
and task.expeid = expe.expeid
and task.stagcod = 2
and profile.ident = task.user_ident
group by expe.expecod,expe.expeyea,tind.tinddes,task.user_ident,profile.description,expe.expedatini,expe.expedatend;

{Berkas Selesai}
select expe.expecod,expe.expeyea,tind.tinddes,htas.user_ident,profile.description,expe.expedatini,expe.expedatend
from expe,tpro,expd,tind,htas,profile
where tpro.tprocod=expe.tprocod
and tpro.tproalias = "99"
and expd.expeid = expe.expeid
and tind.tindcod = expd.tindcod
and htas.expeid = expe.expeid
and htas.stagcod = 2
and profile.ident = htas.user_ident
group by expe.expecod,expe.expeyea,tind.tinddes,htas.user_ident,profile.description,expe.expedatini,expe.expedatend;

Baca Selengkapnya..

Sql Ambil data HAT

Ngambil Data Hak Atas Tanah dari DataBase tgl pembukuan diatas tgl 01/12/2002


begin work;
unload to "c:\load tabel\htan1.txt" select * from htan where htanboodat>"01/12/2002";
commit work;

Baca Selengkapnya..

Sql Memasukan / insert data dalam tabel

Memasukan / insert data dalam tabel
(misal tabel gsht)

insert into gsht (desaco8,thakcod,htanseq,gssuyea,gssunum,gssutyp,gshtflgact)
values ("04010204","1",2720,2001,"00042","SU","Y");}

Baca Selengkapnya..

Sql Melihat data hak antara

Melihat data hak antara no 2 dan 10 di desa 04010101

select * from htan where htanseq between 2 and 10 and desaco8="04010101"

Baca Selengkapnya..

Sql Ubah Grre

update grre set opercod="INT"
where expecod=1228 and expeyea=2003 and grrenum=1;

select * from gree
where expecod=1228 and expeyea=2003 and grrenum=1;

Baca Selengkapnya..

Sql Ganti tgl DI

Untuk berkas prosedur kombinasi : Misal Jual beli + Hak Tanggungan

{Update tgl Hak Tanggungan}
update d312c set d312cdat="18/12/2002" where d312cseq=436 and d312cyea=2003;
select * from d312c where d312cseq=436 and d312cyea=2003;

{update tgl DI 208}
update d208 set d208dat="18/12/2002" where d208seq=436 and d208yea=2003;
select * from d208 where d208seq=436 and d208yea=2003;


{update tgl DI 307}
update d307 set d307dat="18/12/2002" where d307seq=436 and d307yea=2003;
select * from d307 where d307seq=436 and d307yea=2003;


atau berdasarkan id berkas :

Untuk berkas prosedur tunggal, misal : Hak Tanggungan

Catat dulu id berkas dari no berkas (expecod dan expeyea)

1.Select * from expe where expecod=noberkas and expeyea=thnberkas;

Kemudian ubah tanggal dari Daftar Isian (DI) berdasarkan Id Berkas yang dicatat :

misal :
2.
update d312c set d312cdat="18/12/2002" where expeid=436;
select * from d312c where expeid=436;

update d208 set d208dat="18/12/2002" where expeid=436;
select * from d208 where expeid=436;

update d307 set d307dat="18/12/2002" where expeid=436;
select * from d307 where expeid=436;

Baca Selengkapnya..

Sql Merubah DI 208 manual

Merubah DI 208 manual

update m208 set m208hakseq=5738
where m208seq=1845 and m208yea=2003;
select * from m208 where m208seq=1845 and m208yea=2003

Baca Selengkapnya..

SQL_Rekapitulasi Jumlah Berkas

#Jumlah total berkas antara tgl 01/01/2003 s/d 31/01/2003#

select count(*) from expe where expedatini between "01/01/2003" and "31/01/2003";


#Jumlah berkas belum selesai antara tgl 01/01/2003 s/d 31/01/2003#

select count(*) from expe where expedatini between "01/01/2003" and "31/01/2003" and stexcod="OP";


#Jumlah berkas selesai antara tgl 01/01/2003 s/d 31/01/2003#

select count(*) from expe where expedatini between "01/01/2003" and "31/01/2003" and stexcod="CL";


#Jumlah berkas selesai antara tgl 01/02/2003 s/d 28/02/2003 per subsie 4002#

select count(*) from d301 where sesucod=4002 and d301dat between "01/02/2003" and "28/02/2003"

Baca Selengkapnya..

Sql Load Table per Desa

{Meload data base per desa}


begin work;
unload to "c:\dokumen start up\load tabel\data entry\04010101.txt"
select * from htan where desaco8="04010101";
commit work;

Baca Selengkapnya..

Sql Batalin NIB

Cara membatalkan Booking NIB Manual

Jika ingin membatalakan NIB yang sudah terlanjur di booking,
tapi tidak jadi...

1. Masuk ke SQL yang dari c:\cosmos\bin, yakinkan koneksi database ke
pro2

select * from parc_mov where desaco8="xxyyaabb" and
parc_nib="000324"

NIB harus 6 digit!


Jika ada... dan benar adanya (biasanya ada 3 record dengan opercod
I, U dan D)
silahkan di DELETE

delete from parc_mov where desaco8="xxyyaabb" and parc_nib="000324"

2. setelah itu masuk ke FCE

Mundurkan counter NIB untuk desa tersebut.

General Tabel --> Wilayah --> Tabel Kecamatan
Pilih Kecamatan dan Desa yang diatas, kemudian mundurkan counter
NIB-nya
1 nomor

PASTIKAN SEBELUM MEMBATALKAN NIB TERSEBUT PERSILNYA BELUM DIGAMBAR!!!
Kalo udah call Support Center

Kalo ingin menghapus NIB, gunakan perintah dibawah ini dengan sql

{delete from parc where desaco8="04010805"
and parcnib>"000125";}
select * from parc where desaco8="04010805"
and parcnib>"000125";

Baca Selengkapnya..

Sql Berkas Lock

untuk berkas yang ke lock maka excekusi sql dibawah ini:

select * from stta where ttasdur = 0;
update stta set ttasdurtyp="4" where ttasdur=0 ;

select * from tpro where tprocod=xxxx and tprodurtyp="XXX";

ht
=====
nomor 1215/2003

ht 388/2003 Kambung bandar
hat 175/2003


roya
=====
hat 158/2002 Labu baru timur
ht 122/2002

nomor ht masih di pakai oleh 1215

solusi
=======

cek tabel inde
select * from inde where masterpk1="2002" and masterpk2="122";

cari kode 06/B6 dan indelckexp=kode berkas (misal 1215)

update untuk membebaskan ht yang terpakai dengan berkas lain

update inde set indelckexp=null where masterpk1="2002" and masterpk2="122";

Baca Selengkapnya..

Sql Hitung Data Entri

Menghitung jml hasil data entry Buku Tanah


select * from inde where indeorg = "DE"
and indedocdat between "10/03/2003" and "10/03/2003"
and emplnip="040100001"

Baca Selengkapnya..

Sql Berkas Hilang

Masalah :
1. Berkas hilang karena listrik mati mendadak
2. No berkas hilang di monitoring counsole


Solusi :
1. Masuk di Pelayanan dengan meggunakan FCE
2. Tekan Ctrl + Alt + F9 secara bersamaan dan ketikan losrvboxe1
3. Masukan No dan tahun berkas yang hilang kemudian ENTER atau F1
4. Cari berkas yang hilang tadi di monitoring

Kalau seandainya di Monitoring masih tidak ada, lakukan langkah berikut :

1. Ketikkan di SQL :
select * from expe where expecod=no berkas and expeyea=thn berkas;
kemudian eksekusi
2. Catat id berkas (expeid) dari hasil eksekusi tadi
3. Masuk lagi ke CSQL dan ketikan :
select * from task where expeid=id berkas;
Kemudian eksekusi
4. Catat Kode Kegiatan (taskcod) pada baris terakhir tampilan
5. Masuk lagi ke CSQL dan ketikan :
update task set status="S" where taskcod=(Kode Kegiatan);
select * from task where expeid=id berkas;
Kemudian eksekusi
6. Pastikan berkas sudah ada di monitoring

Baca Selengkapnya..

Sql untuk melihat hat berdasarkan nama:

select * from inde,shakinde,shak where inde.masterpk1= kodedes
and inde.masterpk2=jenishak and inde.masterpk3=nomorhak and tdoccod="B1"
and shakinde.indecod=inde.indecod and shak.shakcod=shakinde.shakcod
order by inde.indecod

muncul pemegang
dilihat jenis hak
catatan indecod paling kiri

delete from shakinde where indecod="kodeinde"

lihat kode jenis catatan


select from d312c where expeid=

harus ada
belum ada
chek paramater kegiatan


di 208 tglnya di hitung dari 271

dI 208,312c dan 307 di booking manual nomor berkas diisi
nomor hak

Asep:
=======


pada saat periksa berkas permohonana step 5 proc 171

proses cursor not open
ok
sql debugger
ok
step 6
pas di proses kembali ke step 27
tetap step 6 mandeg disitu



untuk melihat hat berdasarkan nama:
==================================

select shak.shaknam, inde.masterpk1, inde.masterpk2,
inde.masterpk3 from shak, shakinde, inde
where shak.shaknam="GORDONYST" and shakinde.shakcod=
shak.shakcod and inde.indecod=shakinde.indecod and
inde.tdoccod="B1";}

select shak.shaknam, desa.desanum8, inde.masterpk2,
inde.masterpk3 from shak, shakinde, inde, desa
where shak.shaknam="GORDONYST" and shakinde.shakcod=
shak.shakcod and inde.indecod=shakinde.indecod and
inde.tdoccod="B1" and desa.desaco8=inde.masterpk1;

Baca Selengkapnya..

Mengubah/ edit booking manual

Mengubah/ edit booking manual

update m307 set m307parcnib="04116" where m307seq="323" and m307yea=2003;
select * from m307 where m307seq="323" and m307yea=2003;

Baca Selengkapnya..

Berkas Hilang

Memperbaiki berkas hilang

Masalah :
1. Berkas hilang karena listrik mati mendadak
2. No berkas hilang di monitoring counsole


Solusi :
1. Masuk di Pelayanan dengan meggunakan FCE
2. Tekan Ctrl + Alt + F9 secara bersamaan dan ketikan losrvboxe1
3. Masukan No dan tahun berkas yang hilang kemudian ENTER atau F1
4. Cari berkas yang hilang tadi di monitoring

Kalau seandainya di Monitoring masih tidak ada, lakukan langkah berikut :

1. Ketikkan di SQL :
select * from expe where expecod=no berkas and expeyea=thn berkas;
kemudian eksekusi
2. Catat id berkas (expeid) dari hasil eksekusi tadi
3. Masuk lagi ke CSQL dan ketikan :
select * from task where expeid=id berkas;
Kemudian eksekusi
4. Catat Kode Kegiatan (taskcod) pada baris terakhir tampilan
5. Masuk lagi ke CSQL dan ketikan :
update task set status="S" where taskcod=(Kode Kegiatan);
select * from task where expeid=id berkas;
Kemudian eksekusi
6. Pastikan berkas sudah ada di monitoring

Kalau seandainya di berkas masih juga belum mau jalan, lakukan langkah berikut :

1. Ketikkan di SQL :
Select * from boxe where expecod= no berkas and expeyea=thn berkas;
Kemudian eksekusi
2. Lihat Status of boxe posisinya harus “IB”, kalau tidak seperti itu, update ..
Update boxe set tboxcod=”IB” where expecod= no berkas and expeyea=thn berkas;
3. Jalankan kembali berkas seperti biasa (proses), walaupun gambar nya masih gambar orang

Jika boxe tidak ada :

Select * from boxe where expecod=…… and expeyea= ……
Load to c:\temp\boxe.txt;

Setelah selesai update dulu isi boxe.txt terutama boxeidentifier, tboxcod, expecod )

Setelah itu jalankan perintah sql :

Begin
Unload from c:\temp\boxe.txt
Commit work;






Versi Lain

Masalah :
1. Berkas hilang karena listrik mati mendadak
2. No berkas hilang di monitoring counsole


Solusi :
1. Masuk di Pelayanan dengan meggunakan FCE
2. Tekan Ctrl + Alt + F9 secara bersamaan dan ketikan losrvboxe1
3. Masukan No dan tahun berkas yang hilang kemudian ENTER atau F1
4. Cari berkas yang hilang tadi di monitoring

Kalau seandainya di Monitoring masih tidak ada, lakukan langkah berikut :

1. Ketikkan di SQL :
select * from expe where expecod=no berkas and expeyea=thn berkas;
kemudian eksekusi
2. Catat id berkas (expeid) dari hasil eksekusi tadi
3. Masuk lagi ke CSQL dan ketikan :
select * from task where expeid=id berkas;
Kemudian eksekusi
4. Catat Kode Kegiatan (taskcod) pada baris terakhir tampilan
5. Masuk lagi ke CSQL dan ketikan :
update task set status="S" where taskcod=(Kode Kegiatan);
select * from task where expeid=id berkas;
Kemudian eksekusi
6. Pastikan berkas sudah ada di monitoring

Baca Selengkapnya..

Sql Perbaikan Biaya

perbaikan seting biaya

delete from tico
where tpaycod="K3"
and tindcod in ("06","07");

select tindcod, sum(tindcost) from tico
where tpaycod in ("BV","K3")
group by tindcod

Baca Selengkapnya..

Sql Insert BA Pembatalan DI

Sql insert berita acara pembatalan daftar isian

{
tambahkan jenis dokumen berita acara ke tdis & disi
}
select * from tdis;
insert into tdis values(“012”,”Berita Acara Lain-lain”);

select * from disi;
insert into disi values(“BAPDI”,”012”,”Berita Acara Pembatalan Daftar Isian”,”bapdicnt”,null);

{
tambahkan counter bapdicnt di daftar counter : cdes dan cont
}

select * from cdes;
insert into cdes values(“bapdicnt”,”Counter BA Pembatalan DI”,”Y”,2003);
select * from cont order by contcod;
insert into cont values(144,”bapdicnt”,0);

cat :

perintah tambahkan counter bapdicnt di daftar conter : cdes dan cont dapat dilakukan dengan penambahan counter pada fce ( General table, kantor, Counter ).

Baca Selengkapnya..

sql_DI 301 berdasarkan tindcod

select distinct expe.expecod,expe.expeyea,
tind.tindcod,tind.tinddes,
d301.sesucod
from expe,d301,tind
where expe.expeid=d301.expeid
and d301.tindcod=tind.tindcod
and expe.stexcod="OP"
and d301.sesucod="4002"
order by 1,2,3,4

Baca Selengkapnya..

Sql Lihat Kode Prosedure

##unutuk melihat kode prosedure dan procedure aliasis##

select * from tpro;

Baca Selengkapnya..

Error : Gambar Denah Tidak Boleh Dimasukan

select * from exin, inde
where exin.expeid = "No Berkas Sementara"
and exin.indecod = inde.indecod
and indetyp = 'D'
and tdoccod = 'GD';

{ Cari indecod Gambar Denah di exin misal indecod = 501486
delete gambar denah di exin }

delete from exin
where expeid = "No Berkas Sementara"
and indecod = "No Indecod"

Baca Selengkapnya..

SQL Update SU kembali ke NOL

unload to c:\tmp\desa_counter.unl
select * from desa order by desaco8;

update desa set lastgs_cnt=desags_cnt,
desags_cnt=0,
lastgs_yea=2004
where currgs_yea=2005;

Baca Selengkapnya..

Sql Jumlah permohonan yang masuk bulan ini

Jumlah permohonan yang masuk bulan ini


running ctsql;
select tind.tinddes, count (*) from tind,d208
where year(D208.d208dat)="2004" and month(D208.d208dat)="11"
and d208.d208typ="P" and d208.tindcod=tind.tindcod group by tind.tinddes;

Baca Selengkapnya..

SQL_nib_duplicate

{
delete from gspa where desaco8="04010709" and parcnib>"000769";
delete from parc where desaco8="04010709" and parcnib>"000769";
select * from gspa where desaco8="04010709" and parcnib>"000769";
select * from parc where desaco8="04010709" and parcnib>"000769";
}

check_duplicate(:parc_sw)
ditemukan 4 data duplikat
-system--version management--mode--writable
-pilih query--object browser-- parc_sw where desaco8="xxxxxx"
and parcnib="xxxxx"
-masuk magic
-setup()
-delete_rec_sw(:parc_sw,"kode desa",kode persil)
-merge subalternatif
-lakukan integrasi

-buka magic2> check_duplicate(:parc_sw)
-system--version management--mode--writable
-pilih query--object browser-- parc_sw where desaco8="xxxxxx"
and parcnib="xxxxx"
-setelah di temukan duplikatnya hapus salah satu berdasarkan kelengkapan datanya,
terutama yang yang tidak ada geometrinya
-delete_rec_sw(:parc_sw,"kode desa",kode persil)
-merge subalternatif
-lakukan integrasi


-buka magic2> check_duplicate(:parc_sw)
-system--version management--mode--writable
-pilih query--object browser-- parc_sw where desaco8="xxxxxx"
and parcnib="xxxxx"
-setelah di temukan duplikatnya hapus salah satu berdasarkan kelengkapan datanya,
terutama yang yang tidak ada geometrinya
-delete_rec_sw(:parc_sw,"kode desa",kode persil)
-merge subalternatif
-pada version management - click LO PROCESSES - lalu pilih alternative merge change - lihat di magik no-noberkas yang error.
-di Bawah LO Processes pilih no berkas yang error.
-click 2X berkas tersebut.
-click OK - pilih replace By child - pilih complete.
-pilih system commit.
- merge subalternative
-lakukan integrasi

Baca Selengkapnya..

sql_berkas belum selesai

select gsht.htanseq,gsht.thakcod,gsht.desaco8,
gsht.gssutyp,gsht.gssunum,gsht.gssuyea,
gssu.gssuare
from gsht,gssu
where gsht.gssunum=gssu.gssunum
and gsht.gssuyea=gssu.gssuyea
and gssu.gssuare>20000
order by gsht.desaco8;

Baca Selengkapnya..

SQL di301terhapus

begin work;
unload to "c:\tmp\d301.unl" select * from ct_d301;
commit work;

begin work;
load from "c:\tmp\d301.unl" insert into d301;
commit work;

Baca Selengkapnya..

SQL Cari SU GS hasil DataEntry

select * from inde
where indeorg="DE"
and indetyp="S"
and year(indedocdat)=2004
and month(indedocdat)="05"

Baca Selengkapnya..

Sql mencari nip petugas ukur dari jumlah yang paling banyak ngukur

mencari nip petugas ukur dari jumlah yang paling banyak ngukur


select emplnip, count(*) from puexsub where expeid>130000
group by emplnip
order by 2 desc;

Baca Selengkapnya..

Sql Jumlah Ngukur

select puexsub.emplnip, profile.description, count(*) from puexsub, profile
where puexsub.emplnip=profile.ident
group by puexsub.emplnip, profile.description
order by 3 desc;

Baca Selengkapnya..

salah desa untuk kegiatan yg ada pengukuran sebelum gambar

problem:
========
Procedure 82,191,32 step buat gambar ukur ternyata salah desa:
update desa di surat tugas pengukuran dan di gambar ukur


Solusi:
=======

1. select * from expe where expecod=XXX and expeyea =2003;
catat nomor expeid

2. select * from puex where expeid=xxx
update puex set puexdsa="xxxxxxxxxx"

2. select * from gauk where gauknum=5 and gaukyea=2005
update gauk set desaco8="xxxxxxxxxxx" where gauknum=xxx and gaukyea=2003;

Baca Selengkapnya..

Sql JUMLAH SERTIFIKAT PER DESA PER TAHUN

=== JUMLAH SERTIFIKAT PER DESA PER TAHUN ====

select count(*),htan.thakcod,thak.thakdes,htan.desaco8,desa.desanam
from htan,desa,thak
where htanflgact<>"N"
and desa.desaco8=htan.desaco8
and htan.thakcod=thak.thakcod
and year(htan.htanboodat)=2005 ->( diisi dgn tahun yang akan dicari )
group by htan.thakcod,htan.desaco8,desa.desanam,thak.thakdes;

Baca Selengkapnya..

SQL Mencari BT per DESA

unload to "c:\tmp\BT_perdesa.txt"
select htan.thakcod,thak.thakdes,htan.htanseq,htan.desaco8,desa.desanam
from htan,desa,thak
where htanflgact<>"N"
and desa.desaco8=htan.desaco8
and htan.thakcod=thak.thakcod
group by htan.desaco8,htan.thakcod,htan.htanseq,desa.desanam,thak.thakdes;

DESA TERTENTU
unload to "c:\tmp\BT_desa_A.txt"
select htan.thakcod,thak.thakdes,htan.htanseq,htan.desaco8,desa.desanam
from htan,desa,thak
where htanflgact<>"N"
and desa.desaco8="kode_desa"
and htan.desaco8="kode_desa"
and htan.thakcod=thak.thakcod
group by htan.desaco8,htan.thakcod,htan.htanseq,desa.desanam,thak.thakdes;

kode_desa = "02010101" ----->misalnya.
jika kode desa berubah maka BT_desa_A.txt juga dirubah misal BT_desa_B.txt dst.

1. Hasil disimpan di C:\tmp dengan nama file BT_desa_A.txt
2. Hasil sudah urut perdesa kemudian per jenis hak.
3. Buka dengan excel.
4. Buku Tanah/Sertipikat yang ditampilkan hanya yang masih aktif.
5. Selamat mencoba.

Baca Selengkapnya..

Sql PERMOHONAN MASUK PROSEDUR 82 PER TAHUN

PERMOHONAN MASUK PROSEDUR 82 PER TAHUN
select count(*) from expe
where expe.tprocod=110
and expe.expeyea=2004;

Baca Selengkapnya..

Sql DI 302 RANGE LUAS 0 S/D 250

DI 302 RANGE LUAS 0 S/D 250

select d302.d302seq,d302.d302dat,inde.masterpk1,
inde.masterpk2,inde.masterpk3,gssu.gssuare,
gssu.gssudat
from d302,inde,gssu
where year(d302.d302dat)=2005
and month(d302.d302dat)="05"
and inde.indecod=d302.indecod
and gssu.desaco8=inde.masterpk1
and gssu.gssuyea=inde.masterpk2
and gssu.gssunum=inde.masterpk3
and gssu.gssuare>=0 and gssu.gssuare<=250;

select distinct d302.d302seq,d302.d302dat,exprare.exprare,
exprare.expramo
from d302,exprare
where year(d302.d302dat)=2005
and month(d302.d302dat)="05"
and d302.expeid=exprare.expeid
and exprare.exprare between 0 and 250;

Baca Selengkapnya..

Sql 301 belum 208

301 belum 208

select distinct expe.expecod,expe.expeyea,d301.d301seq,
d301.d301yea
from d208,d301,expe,inde,tind
where inde.tdoccod="B1"
and d301.expeid=expe.expeid
and d301.indecod=inde.indecod
and d301.sesucod=4003
and expe.expeyea=2004
and inde.masterpk2="3"
and inde.tindcod="31"
and inde.tindcod=tind.tindcod
and d301.tindcod=tind.tindcod
and month(expe.expedatini)="01"
and d301.expeid not in (select expeid from d208
where d208yea=2004);

Baca Selengkapnya..

Cari berkas, 208, 305 dan alas Hak

Cari berkas, 208, 305 dan alas Hak

select distinct expe.expecod,expe.expeyea,
d208.d208typ,d208.d208seq,d208.d208yea,
d305.d305typ,d305.d305seq,d305.d305yea,
inde.masterpk1,inde.masterpk2,inde.masterpk3
from expe,d208,d305,inde
where inde.tdoccod="B1"
and inde.indetyp="R"
and inde.tindcod=d208.tindcod
and expe.expeid=inde.expeid
and d208.expeid=expe.expeid
and expe.expeyea=2005
and year(d208.d208dat)=2005
and d208.expeid=d305.expeid;

Yang dihasilkan ada alas hak yang dobel karena tiap no 208 akan dimunculkan,
jadi diedit dulu ya...(lewat excel) unload dulu.
-----------------------------------------------------------------------------------------
Cari berkas, 208 dan 305 saja

select distinct expe.expecod,expe.expeyea,
d208.d208typ,d208.d208seq,d208.d208yea,
d305.d305typ,d305.d305seq,d305.d305yea
from expe,d208,d305
where d208.expeid=expe.expeid
and expe.expeyea=2005
and year(d208.d208dat)=2005
and d208.expeid=d305.expeid;
-----------------------------------------------------------------------------------------
nama pemohon, jenis kegiatan, letak

select distinct d208.d208seq,d208.d208yea,d208.d208typ,
d305.d305seq,d305.d305yea,d305.d305typ,tind.tinddes,
shak.shaknam,inde.masterpk1,inde.masterpk2,inde.masterpk3,
desa.desanam,keca.kecanam,expe.expecod,expe.expeyea
from expe,d208,d305,inde,tind,desa,keca,shak,suex
where expe.expeyea=2005
and expe.expeid=inde.expeid
and d208.expeid=expe.expeid
and year(d208.d208dat)=2005
and d208.expeid=d305.expeid
and inde.tdoccod="B1"
and inde.indetyp="R"
and suex.expeid=expe.expeid
and suex.shakcod=shak.shakcod
and inde.tindcod=d208.tindcod
and tind.tindcod=d208.tindcod
and desa.desanum8=inde.masterpk1
and keca.kecacod=desa.kecacod;

Baca Selengkapnya..

SQL CARI SU KUTIPAN

SQL CARI SU KUTIPAN
select gssu.desaco8,gssu.gssunum,gssu.gssuyea,
d303.d303seq,d303.d303yea,d303.d303dat
from gssu,d303,inde
where inde.indecod=d303.indecod
and gssu.desaco8=inde.masterpk1
and gssu.gssuyea=inde.masterpk2
and gssu.gssunum=inde.masterpk3
order by gssu.desaco8;

Baca Selengkapnya..

Sql CARI HAK YANG MATI JADI NO HAK BARU BERAPA????

CARI HAK YANG MATI JADI NO HAK BARU BERAPA????

select * from olht
where olhtdsa="12340101" (kode desa yg haknya sudah mati)
and olhttha="1" (jenis hak, 1=Milik 3=HGB dst)
and olhtseq=10; (no hak yang sudah mati)

Baca Selengkapnya..

Sql Mencari Uraian Biaya (dalam contoh ini Biaya Panitia A) tahun 2005

Mencari Uraian Biaya (dalam contoh ini Biaya Panitia A) tahun 2005

select * from exco
where excocod=15 and tindcod="83"
and expeid in (select expeid from expe
where expeyea=2005);

Baca Selengkapnya..

Sql Mencari BERKAS berdasarkan no. Persilnya.

Mencari BERKAS berdasarkan no. Persilnya.

select * from pelo
where pelonum="167"
and pelocla="D.I";
---------------------------------------------------------------------------

Mencar BERKAS berdasarkan no. Letter C.

select * from buex
where tbukcod="01"
and buexnum="1234/VII/1995";

select * from tbuk;
---------------------------------------------------------------------------

Baca Selengkapnya..

SQL cari jumlah wakaf perdesa

select desaco8,count(*) from htan
where thakcod="8"
group by desaco8,thakcod
order by desaco8;

Baca Selengkapnya..

luas lebih besar hgb hpl 90000 m2

luas lebih besar hgb hpl 90000 m2

select gsht.desaco8,gsht.thakcod,gsht.htanseq,
gsht.gssuyea,gsht.gssunum,gsht.gssutyp,
gssu.gssuare
from gsht,gssu
where gsht.thakcod in ("3","5")
and gsht.desaco8=gssu.desaco8
and gsht.gssuyea=gssu.gssuyea
and gsht.gssunum=gssu.gssunum
and gssu.gssuare>90000
order by gsht.desaco8;

select gsht.desaco8,gsht.thakcod,gsht.htanseq,
gsht.gssuyea,gsht.gssunum,gsht.gssutyp,
gssuold.gssuare
from gsht,gssuold
where gsht.thakcod in ("3","5")
and gsht.desaco8=gssuold.desaco8
and gsht.gssuyea=gssuold.gssuyea
and gsht.gssunum=gssuold.gssunum
and gssuold.gssuare>90000
order by gsht.desaco8;

Baca Selengkapnya..

SQL Mencari BT aktif tapi belum di entry

select * from htan
where emplnip is null
and htanflgact="Y"
and htanflgan is null;

Baca Selengkapnya..

SQL Cari jumlah Rupiah/Dollar untuk Hak Tanggungan per Tahun

Cari jumlah Rupiah/Dollar untuk Hak Tanggungan per Tahun

select sum(moggamo) from mogg
where moggyea=2005
group by tcurcod;

Baca Selengkapnya..

SQL hitung jumlah nilai ht perbank

select sum(moggamo),mogg.moggyea, mogg.moggseq,mogg.moggamo,
shakinde.indecod, inde.tdoccod,shak.shaknam
from inde,mogg,shakinde,shak
where tdoccod="B6"
and tsubcod="05"
and moggflgact="Y"
and moggyea=2003
and mogg.moggyea=inde.masterpk1
and mogg.moggseq=inde.masterpk2
and inde.indecod=shakinde.indecod
and shak.shakcod=shakinde.shakcod
group by shak.shaknam, mogg.moggyea, mogg.moggseq,mogg.moggamo,
shakinde.indecod, inde.tdoccod


MENCARI JML LUAS YANG DI TANGGUNGKAN

{SELECT paht.desaco8, paht.thakcod, sum(gssu.gssuare),

FROM paht,gssu,inde,mogg,gsht,gssuold,otht
WHERE tindcod="06"
and moggflgact="Y"
and moggyea=2003
and paht.desaco8=inde.masterpk1
AND paht.thakcod =inde.masterpk2
AND paht.htanseq =inde.masterpk3
AND gssu.desaco8 =paht.desaco8
AND gssu.gssuyea = paht.gssuyea
AND gssu.gssunum = paht.gssunum
and gsht.desaco8=inde.masterpk1
and gsht.thakcod=inde.masterpk2
and gsht.htanseq = inde.masterpk3
and gssuold.desaco8=
group by paht.desaco8, paht.thakcod}


*********************************************
MENCARI JML NILAI HT PER BANK

select shak.shaknam, sum(moggamo)
from inde,mogg,shakinde,shak
where tdoccod="B6"
and tsubcod="05"
and moggflgact="Y"
and moggyea=2003
and moggamo<>0
and mogg.moggyea=inde.masterpk1
and mogg.moggseq=inde.masterpk2
and inde.indecod=shakinde.indecod
and shak.shakcod=shakinde.shakcod
group by shak.shaknam
order by shak.shaknam

***********************************************

Baca Selengkapnya..

Sql Mencari Gambar Ukur dengan No Berkas dan Biaya Ukurnya

Mencari Gambar Ukur dengan No Berkas dan Biaya Ukurnya

select expe.expecod No_Berkas,expe.expeyea Thn_Berkas,
gauk.gauknum No_GU,sum(excoamo) Biaya_Ukur
from gauk,puex,expe,exco
where expe.expeyea=2005
and gauk.opernum=puex.opernum
and puex.expeid=expe.expeid
and exco.expeid=expe.expeid
group by expe.expecod,expe.expeyea,
gauk.gauknum;

Baca Selengkapnya..

SQL cari pemegang hak ht beserta objek ht nya

select inde.indecod,mogginde.moggindecod,
mogginde.objectanocod,
mogg.moggseq,
mogg.moggyea,
shak.shaknam
from inde,mogginde,shak,shakinde,mogg
where inde.tindcod="06"
and shak.tsubcod="05"
and inde.masterpk1[1,4]=mogg.moggyea
and inde.masterpk2=mogg.moggseq
and inde.indecod=mogginde.moggindecod
and mogginde.moggindecod=shakinde.indecod
and shak.shakcod=shakinde.shakcod
into temp a;


select a.*,inde.masterpk1,inde.masterpk2,inde.masterpk3
from a,inde
where a.objectanocod=inde.indecod
;

Baca Selengkapnya..

Sql Mencari Uang Pemasukan

Mencari Uang Pemasukan.

select inde.masterpk1 DESA,
inde.masterpk2 JENIS_HAK,
inde.masterpk3 NO_HAK,
decr.decramo PEMASUKAN,
d301.d301seq NO_301,
d301.d301yea THN_301,
d208.d208seq NO_208,
d208.d208yea THN_208
from inde,indedecr,decr,d301,d208
where inde.indecod=indedecr.indecod
and indedecr.decrcod=decr.decrcod
and decr.decramo is not null
and decr.decramo<>0
and d301.indecod=inde.indecod
and d208.indecod=inde.indecod;

Baca Selengkapnya..

Sql GU dan Biaya Ukurnya

select expe.expecod,
expe.expeyea,
inde.masterpk2 No_GU,
inde.masterpk1 Thn_GU,
sum(exco.excoamo)
from expe,inde,exco
where expe.expeyea=2005
and inde.indetyp="G"
and inde.expeid=expe.expeid
and exco.expeid=expe.expeid
group by expe.expecod,
expe.expeyea,
inde.masterpk1,
inde.masterpk2;

Baca Selengkapnya..

MENCARI JUMLAH PER BULAN HGB/HP MENJADI HM

MENCARI JUMLAH PER BULAN HGB/HP MENJADI HM

select month(olhtisudat) BULAN,
year(olhtisudat) TAHUN,
count(distinct htanseq) JML_HAK
from olht
where thakcod="1"
and olhttha in ("3","4")
and year(olhtisudat)=2005
group by 1,2;

DETAIL NO HAK YANG TELAH BERUBAH MENJADI HAK MILIK

select desaco8,thakcod,htanseq,
olhtdsa,olhttha,olhtseq
from olht
where thakcod="1"
and olhttha in ("3","4")
and year(olhtisudat)=2005;

Baca Selengkapnya..

Sql Mencari Nilai HT

select sum(akta.aktaceimgg) from akta,inde
where akta.indecod=inde.indecod
and inde.masterpk1="2005"
and inde.indetyp="R"
and inde.tdoccod="B6";

Baca Selengkapnya..

Sql Monitoring

select expe.expecod No_Berkas,
expe.expeyea Thn_Berkas,
tpro.tprodes Prosedur,
expe.expedatini Tgl_Mulai,
expe.expedatend Tgl_Akhir
from expe,tpro
where expe.tprocod=tpro.tprocod
and expe.stexcod="OP"
and expe.expecod<>0
order by 1 desc,4 desc;

no_berkas tind nama_pemohon 301 208 307

select * from expe
where expecod=1524
and expeyea=2005;

select * from suex where expeid=33341;

select * from shak where shakcod in (12,54431);

select * from d301 where expeid=33341;

select expe.expecod,
expe.expeyea,
tind.tindcod,
tind.tinddes,
shak.shaknam,
d301.d301seq,
d301.d301yea,
d208.d208seq,
d208.d208yea
from expe,tind,shak,d301,d208,suex
where expe.expeyea=2005
and month(expe.expedatini)="01"
and suex.expeid=expe.expeid
and suex.suexflgapp="Y"
and shak.shakcod=suex.shakcod
and d301.expeid=expe.expeid
and d208.expeid=d301.expeid
and d301.tindcod=tind.tindcod
order by 3;

Baca Selengkapnya..

Sql 301 YG SUDAH 208 Selama Tahun 2005

MENCARI
BERKAS,TAHUN,NAMA PEMOHON,JENIS KEGIATAN,
301 YG SUDAH 208 Selama Tahun 2005

select inde.masterpk1,
desa.desanam,
expe.expecod,
expe.expeyea,
shak.shaknam Pemohon,
tind.tindcod,
tind.tinddes,
d301.d301seq,
d301.d301yea,
d208.d208seq,
d208.d208yea
from expe,shak,tind,suex,d301,d208
where expe.expeyea=2005
and suex.expeid=expe.expeid
and suex.suexflgapp="Y"
and shak.shakcod=suex.shakcod
and d301.expeid=expe.expeid
and d208.expeid=expe.expeid
and d301.indecod=d208.indecod
and inde.indecod=d301.indecod
and desa.desaco8=inde.masterpk1
and tind.tindcod=d301.tindcod;

Yang 301 belum 208 belum ketemu, sory ya.. bentar.

select expe.expecod,
expe.expeyea,
shak.shaknam Pemohon,
tind.tindcod,
tind.tinddes,
d301.d301seq,
d301.d301yea
from expe,shak,tind,suex,d301,a
where expe.expeyea=2005
and suex.expeid<>a.expeid
and suex.suexflgapp="Y"
and shak.shakcod=suex.shakcod
and d301.expeid<>a.expeid
and tind.tindcod=d301.tindcod;
021 8973832

Baca Selengkapnya..

Sql Mencari Berkas - 301 belum 208

Mencari Berkas - 301 belum 208

select month(expe.expedatini) Bulan,
expe.expecod No_Berkas,
expe.expeyea Thn_Berkas,
d301.d301seq DI301,
d301.d301yea Thn_DI301
from d301,expe
where expe.expeyea=2005
and d301.expeid=expe.expeid
and d301.expeid not in (select expeid from d208
where d208yea=2005)
group by 1,2,3,4,5;

Baca Selengkapnya..

SQL Jml luas yg ditanggungkan

SELECT paht.desaco8, paht.thakcod, sum(gssu.gssuare)
FROM paht,gssu,inde,mogg
WHERE tindcod="06"
and moggflgact="Y"
and moggyea=2003
and paht.desaco8=inde.masterpk1
AND paht.thakcod =inde.masterpk2
AND paht.htanseq =inde.masterpk3
AND gssu.desaco8 =paht.desaco8
AND gssu.gssuyea = paht.gssuyea
AND gssu.gssunum = paht.gssunum
group by paht.desaco8, paht.thakcod;

JML LUAS PER BULAN
select month(mogg.moggboodat) BULAN,
paht.desaco8 DESA,
paht.thakcod JENIS_HAK,
sum(gssu.gssuare) LUAS
from paht,gssu,inde,mogg
where inde.tindcod="06"
and mogg.moggflgact="Y"
and mogg.moggyea=2003
and paht.desaco8 = inde.masterpk1
and paht.thakcod = inde.masterpk2
and paht.htanseq = inde.masterpk3
and gssu.desaco8 = paht.desaco8
and gssu.gssuyea = paht.gssuyea
and gssu.gssunum = paht.gssunum
group by 1,paht.desaco8, paht.thakcod

Baca Selengkapnya..

SQL 301 - 302 - 305 NILAI BELUM 208

SQL 301 - 302 - 305 NILAI BELUM 208

select expe.expeyea,
expe.expecod,
d301.d301seq,
d302.d302seq,
d305.d305seq,
sum(exco.excoamo) Nilai
from expe,d301,d302,d305,exco
where expe.expeyea=2005
and d301.expeid=expe.expeid
and d301.expeid not in (select expeid from d208
where d208yea=2005)
and d302.expeid=expe.expeid
and d302.expeid not in (select expeid from d208
where d208yea=2005)
and d305.expeid=expe.expeid
and d305.expeid not in (select expeid from d208
where d208yea=2005)
group by expe.expeyea,expe.expecod,d301.d301seq,
d302.d302seq,d305.d305seq;

Baca Selengkapnya..

Sql DI208 dg Luas SU

{LUAS SU SQL di bawah ini JALANKAN SATU KALI saja}
select inde.expeid,
gssu.gssuare
from inde,gssu
where inde.indetyp="S"
and inde.expeid is not null
and inde.expeid<>0
and gssu.desaco8=inde.masterpk1
and gssu.gssuyea=inde.masterpk2[1,4]
and gssu.gssunum=inde.masterpk3
into temp a;

{LUAS GS SQL di bawah ini JALANKAN SATU KALI saja}
select inde.expeid,
gssuold.gssuare
from inde,gssuold
where inde.indetyp="S"
and inde.expeid is not null
and inde.expeid<>0
and gssuold.desaco8=inde.masterpk1
and gssuold.gssuyea=inde.masterpk2[1,4]
and gssuold.gssunum=inde.masterpk3
into temp b;

{208 DG LUAS SU}
select d208.d208seq,
a.gssuare Luas_SU
from d208,a
where d208.d208yea=2005
and d208.expeid > 0
and a.expeid=d208.expeid;

{208 DG LUAS GS}
select d208.d208seq,
b.gssuare Luas_GS
from d208,b
where d208.d208yea=2005
and d208.expeid > 0
and b.expeid=d208.expeid;

Baca Selengkapnya..

Sql Cari Jumlah Peralihan

select month(d301.d301dat) Bulan,
year(d301.d301dat) Tahun,
tind.tinddes Jenis_Kegiatan,
count(distinct d301.d301seq) Jumlah
from d301,tind
where d301.d301dat>="01/01/2003"
and d301.d301dat<="01/05/2004"
and d301.tindcod in ("31","34","32","22","21","51",
"36","25","33","X3","35")
and tind.tindcod=d301.tindcod
group by 1,2,3
order by 2;

Baca Selengkapnya..

SQL Nilai HT per bulan per PPAT

Perbulan per nama PPAT
select month(inde.indeanodat) BULAN,
sum(akta.aktaceimgg) Nilai_HT,
govp.govpnam Nama_PPAT
from akta,inde,govp
where akta.indecod=inde.indecod
and inde.masterpk1="2004"
and inde.indetyp="R"
and inde.tdoccod="B6"
and month(akta.aktadat)=month(inde.indeanodat)
and govp.govpcod=akta.govpcod
group by 1,3;

Perbulan
select month(inde.indeanodat) BULAN,
sum(akta.aktaceimgg) Nilai_HT
from akta,inde
where akta.indecod=inde.indecod
and inde.masterpk1="2004"
and inde.indetyp="R"
and inde.tdoccod="B6"
and month(akta.aktadat)=month(inde.indeanodat)
group by 1;

Pertahun
select sum(akta.aktaceimgg) from akta,inde
where akta.indecod=inde.indecod
and inde.masterpk1="2005"
and inde.indetyp="R"
and inde.tdoccod="B6";

Baca Selengkapnya..

SQL 305 PENGUKURAN

305 per kegiatan (prosedur 82,191,192) perbulan.


select expe.expecod,expe.expeyea,
d305.d305seq,d305.d305yea,
tind.tinddes,
exco.excoamo,exco.tpaycod,exco.tpaydes
from d305,tind,exco,expe
where d305.tindcod in ("80","83","11","12","03","84","87","54","55")
and d305.tindcod=tind.tindcod
and d305.expeid=exco.expeid
and expe.expeid=d305.expeid
and month(d305.d305dat)="01" -----> Bulan Januari
{and d305.d305dat="11/01/2005"} --> kalau mau perhari
and year(d305.d305dat)=2005 -----> Tahun 2005
group by 5,3,2,1,4,6,7,8;


Prosedur 82,191,192

Prosedur | Jenis Kegiatan | Deskripsi Kegiatan
Prosedur 82 80 Konversi
83 Pengakuan Hak

Prosedur 820 84 Konversi (SU sudah ada)
87 Pengakuan Hak (SU sudah ada)

Prosedur 823 54 Konversi (SU sudah ada, Belum Pengumuman)
55 Pengakuan Hak (SU sudah ada, Belum Pengumuman)

Prosedur 191 11 Pecah Sempurna
12 Pemisahan (Pecah Sebagian)

Prosedur 192 03 Penggabungan

bpnjember@yahoo.com

Baca Selengkapnya..

Sql Perintah LIKE

Perintah LIKE

select * from bank
where banknam
LIKE "PT. BANK RAKYAT INDONESIA%";


Tanda % seperti tanda * pada search
windows *.* apa aja muncul.

Baca Selengkapnya..

SQL Merubah tanggal catatan perubahan

select * from masterdi
where didecod="DI208"
and dideseq between 3 and 5
and dideyea=2005;

update masterdi set didedat="07/28/2005"
where didecod="DI208"
and dideseq between 3 and 5
and dideyea=2005;

Baca Selengkapnya..

SQL 301 thn 2005 tapi 208 thn 2006

select distinct expe.expecod,expe.expeyea,
d301.d301seq,
d301.d301yea,
d301.d301dat,
d208.d208seq,
d208.d208yea,
d208.d208dat
from expe,d301,d208
where year(d301.d301dat)=2005
and year(d208.d208dat)=2006
and d301.expeid=expe.expeid
and d208.expeid=d301.expeid;

Baca Selengkapnya..

Sql Cari Berkas Di Kakan

select * from boxe
where profile_ident="9000";

Baca Selengkapnya..

Sql DI208 Perkegiatan Persubsi

select d208.d208seq No_DI,
d208.d208yea Thn_DI,
d208.sesucod Sub_Seksi,
tind.tinddes Jenis_Kegiatan,
tind.tindcod
from d208,tind
where d208.d208yea=2006
and month(d208.d208dat)="01"
and d208.sesucod="4002"
and d208.tindcod=tind.tindcod
and d208.tindcod="11"
{group by 1,2,3,4}
order by 3,4;
{select * from tind;}

Baca Selengkapnya..

Sql Pengecekan sudah Arsip

PROSEDUR PENGECEKAN SUDAH ARSIPKAN
BERKAS,TAHUN BERKAS,NO. HAK,JENIS HAK,DESA,KECAMATAN,PEMOHON


select boxe.expecod,
boxe.expeyea,
inde.masterpk3,
thak.thakdes,
desa.desanam,
keca.kecanam,
shak.shaknam
from boxe,thak,desa,keca,shak,suex,inde
where boxe.tprocod=79
and boxe.tproaliasexpe="281"
and boxe.stagposition=14
{and boxe.start_date between today-1 and today}
and inde.expeid=boxe.expeid
and inde.tindcod in ("P1","P3","S7")
and desa.desaco8=inde.masterpk1
and thak.thakcod=inde.masterpk2
and keca.kecacod=desa.kecacod
and suex.expeid=boxe.expeid
and suex.suextyp="A"
and shak.shakcod=suex.shakcod;

Baca Selengkapnya..

Sql Semua Jenis Kegiatan yang Arsip

select boxe.expecod,
boxe.expeyea,
tind.tinddes,
inde.masterpk3,
thak.thakdes,
desa.desanam,
keca.kecanam,
shak.shaknam
from boxe,thak,desa,keca,shak,suex,inde,tind
where boxe.ttasdes="Arsipkan Dokumen"
and year(boxe.start_date)=2006
and boxe.tproaliasexpe not in ("191","192","82","822","281")
and inde.expeid=boxe.expeid
and inde.tindcod<>"00"
and inde.tdoccod="B1"
and inde.indetyp="A"
and desa.desaco8=inde.masterpk1
and thak.thakcod=inde.masterpk2
and keca.kecacod=desa.kecacod
and suex.expeid=boxe.expeid
and suex.suextyp="A"
and shak.shakcod=suex.shakcod
and tind.tindcod=inde.tindcod;

Baca Selengkapnya..

Hapus Catatn Perubahan di HT

select * from cert
where certbla="555777";

select * from inde where indecod=1050246;

delete from cert where indecod=1050246;

Baca Selengkapnya..

SQL BERKAS SUDAH NIB

select boxe.expecod,
boxe.expeyea,
tind.tinddes,
grre.parcnib,
desa.desanam,
keca.kecanam,
shak.shaknam
from boxe,desa,keca,shak,suex,grre,tind,inde
where boxe.ttasdes="Cetak Surat Ukur Spatial"
and year(boxe.start_date)=2006
and grre.expecod=boxe.expecod
and grre.expeyea=boxe.expeyea
and grre.indetyp="P"
and grre.grreflgorg="G"
and desa.desaco8=grre.desaco8
and keca.kecacod=desa.kecacod
and inde.expeid=boxe.expeid
and inde.indetyp="G"
and inde.tindcod<>"00"
and suex.expeid=boxe.expeid
and suex.suextyp="A"
and shak.shakcod=suex.shakcod
and tind.tindcod=inde.tindcod;

Baca Selengkapnya..

SQL BERKAS SUDAH NIB

select boxe.expecod,
boxe.expeyea,
tind.tinddes,
grre.parcnib,
desa.desanam,
keca.kecanam,
shak.shaknam
from boxe,desa,keca,shak,suex,grre,tind,inde
where boxe.ttasdes="Cetak Surat Ukur Spatial"
and year(boxe.start_date)=2006
and grre.expecod=boxe.expecod
and grre.expeyea=boxe.expeyea
and grre.indetyp="P"
and grre.grreflgorg="G"
and desa.desaco8=grre.desaco8
and keca.kecacod=desa.kecacod
and inde.expeid=boxe.expeid
and inde.indetyp="G"
and inde.tindcod<>"00"
and suex.expeid=boxe.expeid
and suex.suextyp="A"
and shak.shakcod=suex.shakcod
and tind.tindcod=inde.tindcod;

Baca Selengkapnya..

SQL CARI JML BT AKTIF TAPI BELUM DIENTRY PERDESA

select * from htan
where emplnip is null
and htanflgact="Y"
and htanflgan is null;

select count(*),htan.thakcod,thak.thakdes,htan.desaco8,desa.desanam
from htan,desa,thak
where htanflgact<>"N"
and htan.emplnip is null
and htan.htanflgan is null
and desa.desaco8=htan.desaco8
and htan.thakcod=thak.thakcod
group by htan.thakcod,htan.desaco8,desa.desanam,thak.thakdes;

Baca Selengkapnya..

SQL CARI BT SEMUA ENTRY DAN BELUM ENTRY

select count(*),htan.thakcod,thak.thakdes
from htan,thak
where htan.htanflgact="Y"
and htan.emplnip is null
and htan.htanflgan is null
and htan.thakcod=thak.thakcod
group by htan.thakcod,thak.thakdes;

select count(*),htan.thakcod,thak.thakdes
from htan,thak
where htan.htanflgact="Y"
and htan.emplnip is not null
and htan.htanflgan is not null
and htan.thakcod=thak.thakcod
group by htan.thakcod,thak.thakdes;

Baca Selengkapnya..

SQL boking 208 HT dipercepat

208 HT dipercepat

update expr set exprdatstart="26/12/2005"
where expeid=(select expeid from expe
where expecod=4 and expeyea=2006);

select exprdatstart from expr exprdatstart=tanggal mulai kegiatan
where expeid=(select expeid from expe
where expecod=4 and expeyea=2006);


update expr set exprdatstart="26/12/2005"
where expeid in (select expeid from expe
where expecod in (1,2,3,4) and expeyea=2006);

select exprdatstart from expr
where expeid in (select expeid from expe
where expecod in (1,2,3,4) and expeyea=2006);

Baca Selengkapnya..

SQL 301 Perkegiatan PerTAHUN

select d301.d301seq,d301.d301yea,
d301.tindcod,tind.tinddes
from d301,tind
where d301.d301yea=2006
and d301.tindcod=tind.tindcod
order by 3;

Baca Selengkapnya..

SQL BT atas nama Badan Hukum Imron

HAK YG SUNYA MASIH GS/SU LAMA

select
keca.kecanam,
desa.desanam,
htan.desaco8,
htan.thakcod,
thak.thakdes,
htan.htanseq,
htan.htanboodat,
htan.htanflgact,
gssuold.gssuare,
shak.shaknam
from inde,htan,gsht,gssuold,desa,keca,
thak,shak,shakinde
where inde.masterpk3 is not null
and htan.desaco8=inde.masterpk1
and htan.thakcod=inde.masterpk2
and htan.htanseq=inde.masterpk3
and desa.desaco8=htan.desaco8
and desa.kecacod=keca.kecacod
and thak.thakcod=htan.thakcod
and gsht.desaco8=htan.desaco8
and gsht.thakcod=htan.thakcod
and gsht.htanseq=htan.htanseq
and gssuold.desaco8=gsht.desaco8
and gssuold.gssuyea=gsht.gssuyea
and gssuold.gssunum=gsht.gssunum
and shakinde.indecod=inde.indecod
and shak.tsubcod="04"
and shak.shakcod=shakinde.shakcod;
---------------------------------------------

HAK YG SUNYA MASIH GS/SU BARU

select
keca.kecanam,
desa.desanam,
htan.desaco8,
htan.thakcod,
thak.thakdes,
htan.htanseq,
htan.htanboodat,
htan.htanflgact,
gssu.gssuare,
shak.shaknam
from inde,htan,paht,gssu,desa,keca,
thak,shak,shakinde
where inde.masterpk3 is not null
and htan.desaco8=inde.masterpk1
and htan.thakcod=inde.masterpk2
and htan.htanseq=inde.masterpk3
and desa.desaco8=htan.desaco8
and desa.kecacod=keca.kecacod
and thak.thakcod=htan.thakcod
and paht.desaco8=htan.desaco8
and paht.thakcod=htan.thakcod
and paht.htanseq=htan.htanseq
and gssu.desaco8=paht.desaco8
and gssu.gssuyea=paht.gssuyea
and gssu.gssunum=paht.gssunum
and shakinde.indecod=inde.indecod
and shak.tsubcod="04"
and shak.shakcod=shakinde.shakcod;

Baca Selengkapnya..

SQL BUKU TANAH YG TERBIT DARI TGL A SD TGL B

select htan.desaco8,
desa.desanam,
htan.thakcod,
thak.thakdes,
htan.htanseq
from htan,desa,thak
where htan.htanboodat>="24/09/2005"
and htan.htanboodat<="31/08/2006"
and htan.htanflgact="Y"
and desa.desaco8=htan.desaco8
and thak.thakcod=htan.thakcod
order by htan.desaco8,htan.thakcod,htan.htanseq;

Baca Selengkapnya..

CARI LUAS HPL

UNTUK HPL YANG SU-nya GS

select gsht.desaco8,
gsht.htanseq,
gsht.gssunum,
gsht.gssuyea,
gssuold.gssuare
from gsht,gssuold
where gsht.thakcod="5"
and gssuold.desaco8=gsht.desaco8
and gssuold.gssuyea=gsht.gssuyea
and gssuold.gssunum=gsht.gssunum;
------------------------------------------

UNTUK HPL YANG SU-nya SU

select paht.desaco8,
paht.htanseq,
paht.gssunum,
paht.gssuyea,
gssu.gssuare
from paht,gssu
where paht.thakcod="5"
and gssu.desaco8=paht.desaco8
and gssu.gssuyea=paht.gssuyea
and gssu.gssunum=paht.gssunum;
-------------------------------------------

Baca Selengkapnya..

SQL HGB BERAKHIR TAHUN 2024

MENCARI HGB YANG BERAKHIR TAHUN 2024

select inde.masterpk1,inde.masterpk2,inde.masterpk3,
decr.decrexpdat,inde.expeid
from inde,indedecr,decr
where indedecr.indecod=inde.indecod
and inde.masterpk2="3"
and decr.expeid=inde.expeid
and year(decr.decrexpdat)=2024;

SYARAT :
1. BUKU TANAH HASIL PROSEDURAL
2. MEMPUNYAI EXPEID
3. TANGGAL BERAKHIR HAK HARUS ADA ISINYA PADA BUKU TANAH

-------------------------------------------------------------------------
select inde.masterpk1,inde.masterpk2,inde.masterpk3,
decr.decrexpdat,inde.expeid
from inde,indedecr,decr
where indedecr.indecod=inde.indecod
and inde.masterpk2="3"
and inde.expeid is null
and year(decr.decrexpdat)=2024;

SYARAT :
1. BUKU TANAH HASIL DATA ENTRY
2. TIDAK MEMPUNYAI EXPEID
3. TANGGAL BERAKHIR HAK HARUS ADA ISINYA PADA BUKU TANAH

-------------------------------------------------------------------------
select distinct inde.masterpk1 Desa,
inde.masterpk2 Jenis_Hak,
inde.masterpk3 No_Hak,
decr.decrexpdat Tgl_Berakhir,
shak.shaknam Nama_Pemegang_Hak
from inde,indedecr,decr,shak,shakinde
where indedecr.indecod=inde.indecod
and inde.masterpk2="3" -----------------------> HGB
and decr.expeid=inde.expeid
and year(decr.decrexpdat)=2024
and shakinde.indecod=inde.indecod
and shak.shakcod=shakinde.shakcod
order by 1,3;

BERAKHIR HAK DAN NAMA PEMEGANG HAKNYA

-------------------------------------------------------------------------
select distinct
desa.desanam Nama_Desa,
inde.masterpk2 Jenis_Hak,
inde.masterpk3 No_Hak,
decr.decrisudat Tgl_Terbit_SK,
decr.decrexpdat Tgl_Berakhir,
shak.shaknam Nama_Pemegang_Hak
from inde,indedecr,decr,shak,shakinde,desa
where indedecr.indecod=inde.indecod
and inde.masterpk2="4" --------------------> HAK PAKAI
and decr.decrcod=indedecr.decrcod
and year(decr.decrexpdat)=2024
and shakinde.indecod=inde.indecod
and shak.shakcod=shakinde.shakcod
and desa.desaco8=inde.masterpk1
order by 1,3;

BERAKHIR HAK, NAMA DESA, TGL TERBIT SK DAN NAMA PEMEGANG HAK
-------------------------------------------------------------------------

Baca Selengkapnya..

CARI LUAS HGB BADAN HUKUM

HGB YANG SU-nya GS
---------------------------------------------
select distinct
keca.kecanam,
desa.desanam,
inde.masterpk2,
inde.masterpk3,
decr.decrcodbpn,
decr.decrisudat,
decr.decrexpdat,
shak.shaknam,
gssuold.gssuare
from inde,indedecr,decr,shak,shakinde,
desa,keca,gsht,gssuold
where indedecr.indecod=inde.indecod
and inde.masterpk2="3"
and decr.decrisudat is not null
and decr.decrexpdat is not null
and decr.decrcod=indedecr.decrcod
and shakinde.indecod=inde.indecod
and shak.tsubcod="04"
and shak.shakcod=shakinde.shakcod
and desa.desaco8=inde.masterpk1
and desa.kecacod=keca.kecacod
and gsht.desaco8=desa.desaco8
and gsht.thakcod=inde.masterpk2
and gsht.htanseq=inde.masterpk3
and gssuold.desaco8=gsht.desaco8
and gssuold.gssuyea=gsht.gssuyea
and gssuold.gssunum=gsht.gssunum
order by 2,4;

HGB YANG SU-nya SU
---------------------------------------------
select distinct
keca.kecanam,
desa.desanam,
inde.masterpk2,
inde.masterpk3,
decr.decrcodbpn,
decr.decrisudat,
decr.decrexpdat,
shak.shaknam,
gssu.gssuare
from inde,indedecr,decr,shak,shakinde,
desa,keca,paht,gssu
where indedecr.indecod=inde.indecod
and inde.masterpk2="3"
and decr.decrisudat is not null
and decr.decrexpdat is not null
and decr.decrcod=indedecr.decrcod
and shakinde.indecod=inde.indecod
and shak.tsubcod="04"
and shak.shakcod=shakinde.shakcod
and desa.desaco8=inde.masterpk1
and desa.kecacod=keca.kecacod
and paht.desaco8=desa.desaco8
and paht.thakcod=inde.masterpk2
and paht.htanseq=inde.masterpk3
and gssu.desaco8=paht.desaco8
and gssu.gssuyea=paht.gssuyea
and gssu.gssunum=paht.gssunum
order by 2,4;

KECAMATAN|DESA|JENIS HAK(HGB)|NO HAK|NO SK|TGL TERBIK SK|TGL AKHIR SK|NAMA PEMEGANG HAK|LUAS

Baca Selengkapnya..

Cari Hak Pakai Instansi Pemerintah

select distinct
keca.kecanam Kecamatan,
desa.desanam Desa,
inde.masterpk2 Kode_Hak,
thak.thakdes Jenis_Hak,
inde.masterpk3 No_Hak,
shak.shaknam Nama_Pemilik
From inde,indedecr,shak,shakinde,
desa,keca,thak
where indedecr.indecod=inde.indecod
and inde.masterpk2="4"
and thak.thakcod="4"
and shakinde.indecod=inde.indecod
and shak.tsubcod="02"
and shak.shakcod=shakinde.shakcod
and desa.desaco8=inde.masterpk1
and desa.kecacod=keca.kecacod
order by 2,5;

Baca Selengkapnya..

UBAH TANGGAL PENGUMUMAN D201B

update d201b set d201bdat="03/04/2006"
where expeid=(select expeid from expe
where expecod=26606
and expeyea=2005);
select * from d201b
where expeid=(select expeid from expe
where expecod=26606
and expeyea=2005);

update doex set doexdat="03/04/2006"
where docuid=113
and expeid=(select expeid from expe
where expecod=26606
and expeyea=2005);
select * from doex
where expeid=(select expeid from expe
where expecod=26606
and expeyea=2005);

Baca Selengkapnya..

Buat DBS LOC

create database loc with log in "/procas/lo/pro2/support/dedy/loc.log";

Baca Selengkapnya..

SQL JML HAK DAN LUAS SEMUA

1)--------------------------------------------------
unload to "c:\tmp\jml_hak1.txt"
select gsht.desaco8,
gsht.thakcod,
count(distinct gsht.htanseq) JUMLAH_HAK,
sum(gssuold.gssuare) JUMLAH_LUAS
from gsht,gssuold
where gssuold.desaco8=gsht.desaco8
and gssuold.gssuyea=gsht.gssuyea
and gssuold.gssunum=gsht.gssunum
group by gsht.desaco8,
gsht.thakcod;
2)--------------------------------------------------
unload to "c:\tmp\jml_hak2.txt"
select paht.desaco8,
paht.thakcod,
count(distinct paht.htanseq) JUMLAH_HAK,
sum(gssu.gssuare) JUMLAH_LUAS
from paht,gssu
where gssu.desaco8=paht.desaco8
and gssu.gssuyea=paht.gssuyea
and gssu.gssunum=paht.gssunum
group by paht.desaco8,
paht.thakcod;
3)--------------------------------------------------
select desaco8,
thakcod,
count(distinct htanseq)
from htan
group by desaco8,thakcod;
----------------------------------------------------

KETERANGAN :
Buka dg MSExcel, SQL1 dan SQL2 di gabung
SQL NO 1 JUMLAH HAK YANG SURAT UKURNYA GS
SQL NO 2 JUMLAH HAK YANG SURAT UKURNYA SU
SQL NO 3 JUMLAH HAK KESELURUHAN YG TERBIT
JIKA ADA SELISIH ANTARA SQL 3 DAN SQL1-2 DIKARENAKAN
1. ADA BUKU TANAH YG SUDAH ADA NOMORNYA TAPI BELUM DIENTRY
2. ADA BUKU TANAH YG SURAT UKURNYA BUKAN GS/SU TAPI SUS ATAU PLL

Baca Selengkapnya..

SQL Cari Hak berdasar Nama

select shak.shaknam,
inde.masterpk1,
inde.masterpk2,
inde.masterpk3
from shak,shakinde,inde
where shak.shaknam="GORDONYST"
and shakinde.shakcod=shak.shakcod
and inde.indecod=shakinde.indecod
and inde.tdoccod="B1";

select shak.shaknam,
desa.desanum8,
inde.masterpk2,
inde.masterpk3
from shak,shakinde,inde,desa
where shak.shaknam="GORDONYST"
and shakinde.shakcod=shak.shakcod
and inde.indecod=shakinde.indecod
and inde.tdoccod="B1"
and desa.desaco8=inde.masterpk1;

Baca Selengkapnya..

SQL CARI 302 BELUM SU NAMA PEMOHON

select d302.d302seq No_DI302,
d302.d302yea Tahun,
puexsub.emplnip NIP,
empl.emplnam Petugas_Ukur,
expe.expecod No_Berkas,
expe.expeyea Tahun,
shak.shaknam Nama_Pemohon
from d302,puexsub,empl,expe,shak,suex
where expe.expeyea=2006
and d302.indecod is null
and d302.expeid=expe.expeid
and puexsub.expeid=expe.expeid
and empl.emplnip=puexsub.emplnip
and suex.expeid=expe.expeid
and shak.shakcod=suex.shakcod;

KETERANGAN :
HASIL SQL

No_DI302 | Tahun | NIP | Petugas_Ukur | No_Berkas | Tahun | Nama_Pemohon |

Baca Selengkapnya..

SQL BT SU DAN NIB JUMLAHNYA

1) JUMLAH BUKU TANAH
-------------------------------------------
select desaco8,
thakcod,
count(distinct htanseq) Jumlah_Hak
from htan
group by desaco8,thakcod;

2) JUMLAH SU
-------------------------------------------
select desaco8,
count(distinct gssunum) Jumlah_SU
from gssu
group by desaco8;

3) JUMLAH GS
-------------------------------------------
select desaco8,
count(distinct gssunum) Jumlah_GS
from gssuold
group by desaco8;

4) JUMLAH NIB
-------------------------------------------
select desaco8,
count(distinct parcnib) Jumlah_NIB
from gspa
group by desaco8;

-------------------------------------------
KETERANGAN :
JUMLAH SU TEKSTUAL HASIL PENJUMLAHAN SQL 2 DAN 3.
JUMLAH SU SPATIAL SQL NO. 4

Baca Selengkapnya..

SQL BT SU GU DAN SK JUMLAHNYA

1) JUMLAH BUKU TANAH
-------------------------------------------
select desaco8,
thakcod,
count(distinct htanseq) Jumlah_Hak
from htan
group by desaco8,thakcod;
2) JUMLAH SU
-------------------------------------------
select desaco8,
count(distinct gssunum) Jumlah_SU
from gssu
group by desaco8;
3) JUMLAH GS
-------------------------------------------
select desaco8,
count(distinct gssunum) Jumlah_GS
from gssuold
group by desaco8;
4) JUMLAH GAMBAR UKUR
-------------------------------------------
select desaco8,
count(distinct gauknum) Jumlah_GU
from gauk
group by desaco8;
5) JUMLAH SK
-------------------------------------------
select count(*) from decr
where decr.decrisudat is not null
and decr.decrexpdat is not null;
-------------------------------------------
KETERANGAN :
JUMLAH SU TEKSTUAL HASIL PENJUMLAHAN SQL 2 DAN 3.

Baca Selengkapnya..

SQL Percepat Pengumuman 82

select * from doex
where expeid=(select expeid from expe
where expecod=1836 and expeyea=2006);

1. Cek kode dokumen (pengumuman) untuk yg akan dirubah tanggalnya.

update doex set doexdat="18/01/2006"
where expeid=(select expeid from expe
where expecod=1836 and expeyea=2006)
and docuid="cek di tabel docu";

Baca Selengkapnya..

Close berkas gantung yg udah 208

unload to "c:\208.txt"
select
expe.expecod No_Berkas,
expe.expeyea Thn_Berkas
from d301,expe
where expe.expeyea=2005
and d301.expeid=expe.expeid
and d301.expeid in (select expeid from d208
where d208yea=2005)
group by 1,2;

update expe set stexcod="CL"
where expeyea=2005
and expecod in (2,
3,
4,
5,
6,
7,
8,
9,
10);

Baca Selengkapnya..

SQL 301 thn 2005 tapi 208 thn 2006 Nama Pemohon

select distinct expe.expecod,expe.expeyea,
d301.d301seq,
d301.d301yea,
d301.d301dat,
d208.d208seq,
d208.d208yea,
d208.d208dat,
shak.shaknam
from expe,d301,d208,suex,shak
where month(d301.d301dat)=2
year(d301.d301dat)=2006
and d301.expeid=expe.expeid
and d208.expeid=d301.expeid
and suex.expeid=expe.expeid
and shak.shakcod=suex.shakcod;

Nama-Pemohon dan jenis kegiatan
select distinct expe.expecod,expe.expeyea,
d301.d301seq,
d301.d301yea,
d301.d301dat,
d208.d208seq,
d208.d208yea,
d208.d208dat,
tind.tindcod,
tind.tinddes,
shak.shaknam
from expe,d301,d208,suex,shak,tind
where month(d301.d301dat)=2
and year(d301.d301dat)=2006
and d301.expeid=expe.expeid
and d208.expeid=d301.expeid
and d301.tindcod=tind.tindcod
and suex.expeid=expe.expeid
and shak.shakcod=suex.shakcod;

PER-SEKSI
select distinct expe.expecod,expe.expeyea,
d301.d301seq,
d301.d301yea,
d301.d301dat,
d208.d208seq,
d208.d208yea,
d208.d208dat,
d301.sesucod,
shak.shaknam
from expe,d301,d208,suex,shak
where month(d301.d301dat)=2
and year(d301.d301dat)=2006
and d301.expeid=expe.expeid
and d208.expeid=d301.expeid
and suex.expeid=expe.expeid
and shak.shakcod=suex.shakcod
order by d301.sesucod;

Baca Selengkapnya..

SQL 301 belum 301A

301 yang belum 301A

select count(*) from d301 where
d301.expeid not in (select d301A.expeid from d301A)
and d301.d301yea=2005;

Baca Selengkapnya..

SQL 301 dan 208 per jenis kegiatan

select distinct expe.expecod,expe.expeyea,
d301.d301seq,
d301.d301yea,
d301.d301dat,
d208.d208seq,
d208.d208yea,
d208.d208dat,
shak.shaknam
from expe,d301,d208,suex,shak
where month(d301.d301dat)=2
year(d301.d301dat)=2006
and d301.expeid=expe.expeid
and d208.expeid=d301.expeid
and suex.expeid=expe.expeid
and shak.shakcod=suex.shakcod;

Nama-Pemohon dan jenis kegiatan
select distinct expe.expecod,expe.expeyea,
d301.d301seq,
d301.d301yea,
d301.d301dat,
d208.d208seq,
d208.d208yea,
d208.d208dat,
tind.tindcod,
tind.tinddes,
shak.shaknam
from expe,d301,d208,suex,shak,tind
where month(d301.d301dat)=2
and year(d301.d301dat)=2006
and d301.expeid=expe.expeid
and d208.expeid=d301.expeid
and d301.tindcod=tind.tindcod
and suex.expeid=expe.expeid
and shak.shakcod=suex.shakcod;

PER-SEKSI
select distinct expe.expecod,expe.expeyea,
d301.d301seq,
d301.d301yea,
d301.d301dat,
d208.d208seq,
d208.d208yea,
d208.d208dat,
d301.sesucod,
shak.shaknam
from expe,d301,d208,suex,shak
where month(d301.d301dat)=2
and year(d301.d301dat)=2006
and d301.expeid=expe.expeid
and d208.expeid=d301.expeid
and suex.expeid=expe.expeid
and shak.shakcod=suex.shakcod
order by d301.sesucod;

Baca Selengkapnya..

SQL JUMLAH DI305 PERTAHUN PER KEGIATAN

select d305.tindcod,
tind.tinddes,
count(distinct d305.d305seq) Jumlah_DI305
from d305,tind
where year(d305.d305dat)=2006
and tind.tindcod=d305.tindcod
group by d305.tindcod,tind.tinddes;

Baca Selengkapnya..

SQL MENCARI JUMLAH TOTAL PERMOHONAN PEMECAHAN DAN HAKNYA

select inde.masterpk2 KODE_HAK,
thak.thakdes JENIS_HAK,
d301.tindcod KODE_KEGIATAN,
tind.tinddes JENIS_KEGIATAN,
count(distinct d301.d301seq) JUMLAH_PERMOHONAN
from d301,inde,thak,tind
where year(d301.d301dat)=2006
and d301.tindcod in ("03","11","12","27","28","29")
and tind.tindcod=d301.tindcod
and d301.indecod=inde.indecod
and thak.thakcod=inde.masterpk2
group by 1,2,3,4;

Baca Selengkapnya..

SQL MENCARI JUMLAH PERMOHONAN SUDAH NIB

JUMLAH PERMOHONAN SUDAH NIB

select tpro.tprodes PROSEDUR,
count(distinct boxe.expecod) JML_PERMOHONAN
from boxe,tpro
where boxe.ttasdes like "% Surat Ukur Tex%"
and boxe.expeyea=2006
and tpro.tprocod=boxe.tprocod
group by tpro.tprodes;

Baca Selengkapnya..

SQL JUMLAH LUAS DARI DI303_Prayma

luas sertipikat dari 303 tahun 2004

(1) SEMUA SU
----------------------------------------------
select d303.tindcod,
tind.tinddes,
d303.d303seq,
d303.d303yea,
inde.tdoccod,
inde.masterpk1,
inde.masterpk2,
inde.masterpk3,
gssu.gssuare
from d303,inde,tind,gssu
where d303.d303yea=2005
and d303.indecod=inde.indecod
and inde.tdoccod="SU"
and d303.tindcod not in ("P1","P3","S1","90",
"S2","P7","P8","S8")
and tind.tindcod=d303.tindcod
and gssu.desaco8=inde.masterpk1
and gssu.gssuyea=inde.masterpk2
and gssu.gssunum=inde.masterpk3[1,8];

(2) SEMUA GS
----------------------------------------------
select d303.tindcod,
tind.tinddes,
d303.d303seq,
d303.d303yea,
inde.tdoccod,
inde.masterpk1,
inde.masterpk2,
inde.masterpk3,
gssuold.gssuare
from d303,inde,tind,gssuold
where d303.d303yea=2005
and d303.indecod=inde.indecod
and inde.tdoccod="GS"
and d303.tindcod not in ("P1","P3","S1","90",
"S2","P7","P8","S8")
and tind.tindcod=d303.tindcod
and gssuold.desaco8=inde.masterpk1
and gssuold.gssuyea=inde.masterpk2
and gssuold.gssunum=inde.masterpk3[1,8];

SQL (1) DAN (2) JIKA INGIN DI LOAD KE EXCEL KEMUDIAN DI EDIT SENDIRI

(3) YG SU
----------------------------------------------
select d303.tindcod,
tind.tinddes,
sum(gssu.gssuare) LUAS
from d303,inde,tind,gssu
where d303.d303yea=2005
and inde.tdoccod="SU"
and d303.indecod=inde.indecod
and d303.tindcod not in ("P1","P3","S1","90"
,"S2","P7","P8","S8")
and tind.tindcod=d303.tindcod
and gssu.desaco8=inde.masterpk1
and gssu.gssuyea=inde.masterpk2
and gssu.gssunum=inde.masterpk3[1,8]
group by 1,2;

(4) YG GS
------------------------------------------------------
select d303.tindcod,
tind.tinddes,
sum(gssuold.gssuare) LUAS
from d303,inde,tind,gssuold
where d303.d303yea=2005
and inde.tdoccod="GS"
and d303.indecod=inde.indecod
and d303.tindcod not in ("P1","P3","S1","90"
,"S2","P7","P8","S8")
and tind.tindcod=d303.tindcod
and gssuold.desaco8=inde.masterpk1
and gssuold.gssuyea=inde.masterpk2
and gssuold.gssunum=inde.masterpk3[1,8]
group by 1,2;

SQL (3) DAN (4) JUMLAH TOTALNYA SAJA, DUA2NYA DIEKSEKUSI
KEMUDIAN JUMLAHKAN MANUAL.
DI BAWAH INI SAMA HANYA TINDCODNYA (JENIS KEGIATAN) YANG
PENGECEKAN DAN SEBAGAINYA. DIBEDAKAN SQLNYA KARENA DI INDE
UNTUK KEGIATAN PENGECEKAN YG MUNCUL BUKU TANAH BUKAN SU/GS
KALAU YG KEGIATANNYA KUTIPAN SU DI INDE MUNCUL SU/GSNYA.

--------------------------------------------------------------------
SEMUA UNTUK GS (YG TINDNYA P1 DST)
------------------------------------------------------
select d303.tindcod,
tind.tinddes,
d303.d303seq,
d303.d303yea,
inde.tdoccod,
inde.masterpk1,
inde.masterpk2,
inde.masterpk3,
gssuold.gssuare
from d303,inde,tind,gsht,gssuold
where d303.d303yea=2005
and d303.indecod=inde.indecod
and d303.tindcod in ("P1","P3","S1","90",
"S2","P7","P8","S8")
and tind.tindcod=d303.tindcod
and gsht.desaco8=inde.masterpk1
and gsht.thakcod=inde.masterpk2
and gsht.htanseq=inde.masterpk3[1,8]
and gssuold.desaco8=gsht.desaco8
and gssuold.gssunum=gsht.gssunum
and gssuold.gssuyea=gsht.gssuyea
order by d303.d303seq;

SEMUA UNTUK SU (YG TINDNYA P1 DST)
------------------------------------------------------
select d303.tindcod,
tind.tinddes,
d303.d303seq,
d303.d303yea,
inde.tdoccod,
inde.masterpk1,
inde.masterpk2,
inde.masterpk3,
gssu.gssuare
from d303,inde,tind,paht,gssu
where d303.d303yea=2005
and d303.indecod=inde.indecod
and d303.tindcod in ("P1","P3","S1","90",
"S2","P7","P8","S8")
and tind.tindcod=d303.tindcod
and paht.desaco8=inde.masterpk1
and paht.thakcod=inde.masterpk2
and paht.htanseq=inde.masterpk3[1,8]
and gssu.desaco8=paht.desaco8
and gssu.gssunum=paht.gssunum
and gssu.gssuyea=paht.gssuyea
order by d303.d303seq;

JUMLAH TOTAL UNTUK GS (YG KEGIATANNYA P1 DST)
------------------------------------------------------------
select d303.tindcod,
tind.tinddes,
sum(gssuold.gssuare) JUMLAH
from d303,inde,tind,gsht,gssuold
where d303.d303yea=2005
and d303.indecod=inde.indecod
and d303.tindcod in ("P1","P3","S1","90",
"S2","P7","P8","S8")
and tind.tindcod=d303.tindcod
and gsht.desaco8=inde.masterpk1
and gsht.thakcod=inde.masterpk2
and gsht.htanseq=inde.masterpk3[1,8]
and gssuold.desaco8=gsht.desaco8
and gssuold.gssunum=gsht.gssunum
and gssuold.gssuyea=gsht.gssuyea
group by 1,2;

JUMLAH TOTAL UNTUK SU (YG KEGIATANNYA P1 DST)
------------------------------------------------------------
select d303.tindcod,
tind.tinddes,
sum(gssu.gssuare) JUMLAH
from d303,inde,tind,paht,gssu
where d303.d303yea=2005
and d303.indecod=inde.indecod
and d303.tindcod in ("P1","P3","S1","90",
"S2","P7","P8","S8")
and tind.tindcod=d303.tindcod
and paht.desaco8=inde.masterpk1
and paht.thakcod=inde.masterpk2
and paht.htanseq=inde.masterpk3[1,8]
and gssu.desaco8=paht.desaco8
and gssu.gssunum=paht.gssunum
and gssu.gssuyea=paht.gssuyea
group by 1,2;

Baca Selengkapnya..

SQL JUMLAH HAK PERTAHUN DARI INDE

select inde.masterpk2 KODE_HAK,
thak.thakdes JENIS_HAK,
count(distinct inde.masterpk3) JUMLAH_HAK
from inde,thak
where inde.tdoccod="B1"
and inde.tindcod<>"06"
and year(inde.indedocdat)=2005
and thak.thakcod=inde.masterpk2
group by 1,2;

Baca Selengkapnya..

SQL 301A PERBULAN

select expe.expecod,
expe.expeyea,
expr.tindcod,
tind.tinddes,
d301a.d301aseq,
d301a.d301ayea
from expe,d301a,tind,expr
where month(d301a.d301adat)="02"
and year(d301a.d301adat)=2005
and expe.expeid=d301a.expeid
and expr.expeid=d301a.expeid
and tind.tindcod=expr.tindcod;

select expe.expecod,
expe.expeyea,
expr.tindcod,
tind.tinddes,
d301a.d301aseq,
d301a.d301ayea,
inde.masterpk1 DESA,
inde.masterpk2 JENIS_HAK,
inde.masterpk3 NO_HAK,
shak.shaknam NAMA_PEMILIK
from expe,d301a,tind,expr,inde,shak,shakinde
where month(d301a.d301adat)="02"
and year(d301a.d301adat)=2005
and expe.expeid=d301a.expeid
and expr.expeid=d301a.expeid
and inde.tdoccod="B1"
and inde.expeid=d301a.expeid
and shakinde.indecod=inde.indecod
and shak.shakcod=shakinde.shakcod
and tind.tindcod=expr.tindcod;

Baca Selengkapnya..

TOTAL HAK DARI HTAN

TOTAL HAK YG SUDAH TERBIT
--------------------------------
select htan.thakcod KODE_HAK,
thak.thakdes JENIS_HAK,
count(distinct htan.htanseq) JUMLAH_HAK
from htan,thak
where thak.thakcod=htan.thakcod
group by 1,2;

TOTAL HAK MASIH AKTIF
--------------------------------
select htan.thakcod KODE_HAK,
thak.thakdes JENIS_HAK,
count(distinct htan.htanseq) JUMLAH_HAK
from htan,thak
where thak.thakcod=htan.thakcod
and htan.htanflgact="Y"
group by 1,2;

TOTAL HAK SUDAH MATI
--------------------------------
select htan.thakcod KODE_HAK,
thak.thakdes JENIS_HAK,
count(distinct htan.htanseq) JUMLAH_HAK
from htan,thak
where thak.thakcod=htan.thakcod
and htan.htanflgact="N"
group by 1,2;

-----------------------------------
JUMLAH HAK DAN SU SUDAH LINK (GS/SU
-----------------------------------

(1)PERTAHUN YG GS
--------------------------------------------------------
select gsht.thakcod KODE_HAK,
thak.thakdes JENIS_HAK,
count(distinct gsht.htanseq) JUMLAH_HAK,
sum(gssuold.gssuare) JUMLAH_LUAS
from gsht,gssuold,htan,thak
where year(htan.htanboodat)=2006
and thak.thakcod=gsht.thakcod
and gsht.desaco8=htan.desaco8
and gsht.thakcod=htan.thakcod
and gsht.htanseq=htan.htanseq
and gssuold.desaco8=gsht.desaco8
and gssuold.gssuyea=gsht.gssuyea
and gssuold.gssunum=gsht.gssunum
group by 1,2;

(2)PERTAHUN YG SU
--------------------------------------------------------
select paht.thakcod KODE_HAK,
thak.thakdes JENIS_HAK,
count(distinct paht.htanseq) JUMLAH_HAK,
sum(gssu.gssuare) JUMLAH_LUAS
from paht,gssu,htan,thak
where year(htan.htanboodat)=2006
and thak.thakcod=paht.thakcod
and paht.desaco8=htan.desaco8
and paht.thakcod=htan.thakcod
and paht.htanseq=htan.htanseq
and gssu.desaco8=paht.desaco8
and gssu.gssuyea=paht.gssuyea
and gssu.gssunum=paht.gssunum
group by 1,2;

SQL (1)DAN(2) HASILNYA DIJUMLAHKAN YA...

------------------------------
JUMLAH SU PERTAHUN DAN LUASNYA
------------------------------
select year(gssudat) TAHUN,
count(distinct gssunum) JUMLAH_SU,
sum(gssuare) JUMLAH_LUAS
from gssu
where gssudat is not null
group by 1;

------------------------------
JUMLAH GS PERTAHUN DAN LUASNYA
------------------------------
select year(gssudat) TAHUN,
count(distinct gssunum) JUMLAH_GS,
sum(gssuare) JUMLAH_LUAS
from gssuold
where gssudat is not null
group by 1;

Baca Selengkapnya..

SQL 301 sudah 208 perkegiatan

select inde.masterpk1,
desa.desanam,
expe.expecod,
expe.expeyea,
shak.shaknam Pemohon,
tind.tindcod,
tind.tinddes,
d301.d301seq,
d301.d301yea,
d208.d208seq,
d208.d208yea
from expe,inde,desa,shak,tind,suex,d301,d208
where expe.expeyea=2005
and suex.expeid=expe.expeid
and suex.suexflgapp="Y"
and shak.shakcod=suex.shakcod
and d301.expeid=expe.expeid
and d208.expeid=expe.expeid
and d301.indecod=d208.indecod
and inde.indecod=d301.indecod
and desa.desaco8=inde.masterpk1
and tind.tindcod=d301.tindcod
group by tind.tindcod,inde.masterpk1,
desa.desanam,
expe.expecod,
expe.expeyea,
shak.shaknam,
tind.tinddes,
d301.d301seq,
d301.d301yea,
d208.d208seq,
d208.d208yea

Baca Selengkapnya..

JUMLAH TOTAL 301 sudah 208 perkegiatan

select tind.tindcod,
tind.tinddes,
count(distinct d301.d301seq) JUMLAH_301
from expe,tind,d301,d208
where expe.expeyea=2005
and d301.expeid=expe.expeid
and d208.expeid=expe.expeid
and d301.indecod=d208.indecod
and tind.tindcod=d301.tindcod
group by 1,2;

Baca Selengkapnya..

SQL Jumlah Tunggakan dan Selesai Petugas Ukur

{sisa}
{
SELECT sum(puexsub.parcamt)
FROM puexsub,puex,expe
WHERE puexsub.emplnip ="010184570"
AND puexsub.expeid = puex.expeid
AND puexsub.opernum = puex.opernum
AND puexsub.expeid = expe.expeid
AND expe.stexcod <> "CA"
AND puex.puexenddat is null
AND year(puex.puexinidat)=2006;
}
{selesai}
{
SELECT sum(puexsub.parcamt)
FROM puexsub, puex, expe
WHERE puexsub.emplnip ="010184570"
AND puexsub.expeid = puex.expeid
AND puexsub.opernum = puex.opernum
AND puexsub.expeid = expe.expeid
AND expe.stexcod <> "CA"
AND puex.puexenddat is not null
AND year(puex.puexinidat)=2006;
}
{total}
SELECT sum(puexsub.parcamt)
FROM puexsub, puex, expe
WHERE puexsub.emplnip ="010184570"
AND puexsub.expeid = puex.expeid
AND puexsub.opernum = puex.opernum
AND puexsub.expeid = expe.expeid
AND expe.stexcod <> "CA"
AND year(puex.puexinidat)=2006;

-------------------------------------------
GROUP BERDASARKAN NIP
-------------------------------------------
{sisa}

SELECT puexsub.emplnip,
empl.emplnam,
sum(puexsub.parcamt)
FROM puexsub,puex,expe,empl
WHERE empl.emplnip=puexsub.emplnip
AND puexsub.expeid = puex.expeid
AND puexsub.opernum = puex.opernum
AND puexsub.expeid = expe.expeid
AND expe.stexcod <> "CA"
AND puex.puexenddat is null
AND year(puex.puexinidat)=2006
GROUP BY 1,2;

{selesai}

SELECT puexsub.emplnip,
empl.emplnam,
sum(puexsub.parcamt)
FROM puexsub,puex,expe,empl
WHERE empl.emplnip=puexsub.emplnip
AND puexsub.expeid = puex.expeid
AND puexsub.opernum = puex.opernum
AND puexsub.expeid = expe.expeid
AND expe.stexcod <> "CA"
AND puex.puexenddat is not null
AND year(puex.puexinidat)=2006
GROUP BY 1,2;

{total}

SELECT puexsub.emplnip,
empl.emplnam,
sum(puexsub.parcamt)
FROM puexsub,puex,expe,empl
WHERE empl.emplnip=puexsub.emplnip
AND puexsub.expeid = puex.expeid
AND puexsub.opernum = puex.opernum
AND puexsub.expeid = expe.expeid
AND expe.stexcod <> "CA"
AND year(puex.puexinidat)=2006
GROUP BY 1,2;

Baca Selengkapnya..

SQL CARI 302 BELUM SU NAMA PEMOHON, DESA

select d302.d302seq No_DI302,
d302.d302yea Tahun,
puexsub.emplnip NIP,
empl.emplnam Petugas_Ukur,
expe.expecod No_Berkas,
expe.expeyea Tahun,
shak.shaknam Nama_Pemohon,
desa.desanam nama_desa

from d302,puexsub,empl,expe,shak,suex,desa,puex
where expe.expeyea=2006
and d302.indecod is null
and d302.expeid=expe.expeid
and puexsub.expeid=expe.expeid
and empl.emplnip=puexsub.emplnip
and suex.expeid=expe.expeid
and shak.shakcod=suex.shakcod
and puex.expeid=puexsub.expeid
and desa.desaco8=puex.puexdsa;

KETERANGAN :
HASIL SQL

No_DI302 | Tahun | NIP | Petugas_Ukur | No_Berkas | Tahun | Nama_Pemohon |nama_desa |

Baca Selengkapnya..

SQL MENCARI JUMLAH TOTAL PERMOHONAN PEMECAHAN DAN HAKNYA,luas

select inde.masterpk2 KODE_HAK,
thak.thakdes JENIS_HAK,
d301.tindcod KODE_KEGIATAN,
tind.tinddes JENIS_KEGIATAN,
count(distinct d301.d301seq) JUMLAH_PERMOHONAN,
sum(puex.puexare) Jumlah_luas

from d301,inde,thak,tind,puex

where year(d301.d301dat)=2006
and d301.tindcod in ("03","11","12","27","28","29")
and tind.tindcod=d301.tindcod
and d301.indecod=inde.indecod
and thak.thakcod=inde.masterpk2

and puex.expeid=d301.expeid

group by 1,2,3,4;

Baca Selengkapnya..

JUMLAH TOTAL HAK PER KECAMATAN PER JENIS HAK

JUMLAH TOTAL HAK PER KECAMATAN PER JENIS HAK
---------------------------------------------------

select htan.thakcod KODE_HAK,
thak.thakdes JENIS_HAK,
keca.kecanam KECAMATAN,
count(distinct htan.htanseq) JUMLAH_HAK
from htan,thak,keca,desa
where thak.thakcod=htan.thakcod
and desa.desaco8=htan.desaco8
and keca.kecacod=desa.kecacod
group by 1,2,3;

JUMLAH TOTAL HAK PER KECAMATAN PER JENIS HAK
TAPI SUDAH MATI
----------------------------------------------------
select htan.thakcod KODE_HAK,
thak.thakdes JENIS_HAK,
keca.kecanam KECAMATAN,
count(distinct htan.htanseq) JUMLAH_HAK
from htan,thak,keca,desa
where thak.thakcod=htan.thakcod
and desa.desaco8=htan.desaco8
and keca.kecacod=desa.kecacod
and htan.htanflgact="N"
group by 1,2,3;


LIST HAK YANG TERBIT
----------------------------------------------------
select htan.thakcod KODE_HAK,
thak.thakdes JENIS_HAK,
keca.kecanam KECAMATAN,
desa.desanam DESA,
htan.htanseq NO_HAK
from htan,thak,keca,desa
where thak.thakcod=htan.thakcod
and desa.desaco8=htan.desaco8
and keca.kecacod=desa.kecacod
order by 3,4;

LIST HAK YANG TERBIT TAPI SUDAH MATI
----------------------------------------------------
select htan.thakcod KODE_HAK,
thak.thakdes JENIS_HAK,
keca.kecanam KECAMATAN,
desa.desanam DESA,
htan.htanseq NO_HAK
from htan,thak,keca,desa
where thak.thakcod=htan.thakcod
and desa.desaco8=htan.desaco8
and keca.kecacod=desa.kecacod
and htan.htanflgact="N"
order by 3,4;

Baca Selengkapnya..

JUMLAH 301 PERJENIS KEGIATAN

select tind.tindcod,
tind.tinddes,
count(distinct d301.d301seq) JUMLAH_301
from tind,d301
where tind.tindcod=d301.tindcod
and year(d301.d301dat)=2006
group by 1,2;

-----------------------------------------------------
LIST 301 TAHUN 2006

select d301.d301seq NO_301,
d301.d301dat TGL_301,
d301.tindcod KODE_KEGIATAN,
tind.tinddes JENIS_KEGIATAN
from d301,tind
where tind.tindcod=d301.tindcod
and year(d301.d301dat)=2006;

Baca Selengkapnya..

SQL PETUGAS UKUR_ PEMOHON_SU_LUAS

TGL MULAI|TGL SELESAI|BERKAS|THN BERKAS|PEMOHON|KODE DESA|NAMA DESA|

LUAS|NO SU|THN SU|NIP|NAMA PETUGAS UKUR

SELECT puex.puexinidat TGL_MULAI,
puex.puexenddat TGL_SELESAI,
expe.expecod NO_BERKAS,
expe.expeyea THN_BERKAS,
shak.shaknam NAMA_PEMOHON,
puex.puexdsa KODE_DESA,
desa.desanam DESA,
puex.puexare LUAS,
inde.masterpk3 NO_SU,
inde.masterpk2 THN_SU,
puexsub.emplnip NIP,
empl.emplnam NAMA_PETUGAS_UKUR
FROM puexsub,puex,expe,empl,desa,shak,inde,suex
WHERE empl.emplnip=puexsub.emplnip
AND puexsub.expeid=puex.expeid
AND puexsub.opernum=puex.opernum
AND puexsub.expeid=expe.expeid
AND desa.desaco8=puex.puexdsa
AND expe.stexcod<>"CA"
AND suex.expeid=expe.expeid
AND suex.suexflgapp="Y"
AND inde.expeid=expe.expeid
AND inde.indetyp="S"
AND inde.tindcod<>"00"
AND shak.shakcod=suex.shakcod
AND year(puex.puexinidat)=2006;

SELECT puex.puexinidat TGL_MULAI,
puex.puexenddat TGL_SELESAI,
expe.expecod NO_BERKAS,
expe.expeyea THN_BERKAS,
shak.shaknam NAMA_PEMOHON,
puex.puexdsa KODE_DESA,
desa.desanam DESA,
puex.puexare LUAS,
inde.masterpk3 NO_SU,
inde.masterpk2 THN_SU,
puex.emplnip NIP,
empl.emplnam NAMA_PETUGAS_UKUR
FROM puex,expe,empl,desa,shak,inde,suex
WHERE month(puex.puexinidat)="02"
AND year(puex.puexinidat)=2006
AND empl.emplnip="010158685"
AND puex.emplnip="010158685"
AND puex.expeid=expe.expeid
AND desa.desaco8=puex.puexdsa
AND expe.stexcod<>"CA"
AND suex.expeid=expe.expeid
AND suex.suexflgapp="Y"
AND inde.expeid=expe.expeid
AND inde.indetyp="S"
AND inde.tdoccod in ("GS","SU")
AND shak.shakcod=suex.shakcod;

Baca Selengkapnya..

Error dengna keterangan Gambar denah tidak bisa dimasukan

select * from inde where indetyp="D" and tdoccod="GD"
and indelckexp is null

lalu hapus inde yang indelckexp ada isinya

Baca Selengkapnya..

BUKU TANAH PAKAI HPL HGU

DESA|JENIS HAK|NO HAK|NO SK|TGL SK|TGL BERAKHIR SK|NAMA PEMILIK|NOMOR SU|THN SU|LUAS

YG GS
-------------------------------------------------------------
select desa.desanum8 KODE_DESA,
htan.thakcod JENIS_HAK,
htan.htanseq NO_HAK,
decr.decrcodbpn NO_SK,
decr.decrisudat TGL_SK,
decr.decrexpdat TGL_AKHIR_SK,
shak.shaknam PEMILIK,
gsht.gssunum NOMOR_SU,
gsht.gssuyea TAHUN_SU,
gssuold.gssuare LUAS
from htan,decr,desa,inde,shak,shakinde,gsht,gssuold
where htan.thakcod in ("2","4","5")
and decr.decrcod=htan.decrcod
and desa.desaco8=htan.desaco8
and inde.masterpk1=htan.desaco8
and inde.masterpk2=htan.thakcod
and inde.masterpk3[1,8]=htan.htanseq
and inde.indetyp="R"
and shakinde.indecod=inde.indecod
and shak.shakcod=shakinde.shakcod
and gsht.desaco8=htan.desaco8
and gsht.thakcod=htan.thakcod
and gsht.htanseq=htan.htanseq
and gssuold.desaco8=gsht.desaco8
and gssuold.gssuyea=gsht.gssuyea
and gssuold.gssunum=gsht.gssunum;

DESA|JENIS HAK|NO HAK|NO SK|TGL SK|TGL BERAKHIR SK|NAMA PEMILIK|NOMOR SU|THN SU|LUAS
YG SU
-------------------------------------------------------------------
select desa.desanum8 KODE_DESA,
htan.thakcod JENIS_HAK,
htan.htanseq NO_HAK,
decr.decrcodbpn NO_SK,
decr.decrisudat TGL_SK,
decr.decrexpdat TGL_AKHIR_SK,
shak.shaknam PEMILIK,
paht.gssunum NOMOR_SU,
paht.gssuyea TAHUN_SU,
gssu.gssuare LUAS
from htan,decr,desa,inde,shak,shakinde,paht,gssu
where htan.thakcod in ("2","4","5")
and decr.decrcod=htan.decrcod
and desa.desaco8=htan.desaco8
and inde.masterpk1=htan.desaco8
and inde.masterpk2=htan.thakcod
and inde.masterpk3[1,8]=htan.htanseq
and inde.indetyp="R"
and shakinde.indecod=inde.indecod
and shak.shakcod=shakinde.shakcod
and paht.desaco8=htan.desaco8
and paht.thakcod=htan.thakcod
and paht.htanseq=htan.htanseq
and gssu.desaco8=paht.desaco8
and gssu.gssuyea=paht.gssuyea
and gssu.gssunum=paht.gssunum;

Baca Selengkapnya..