SQL 2A - Laporan Jual Beli Lengkap

Permintaan untuk bapak Admin Masduki di Medan
Sql Untuk LOC2A - Laporan Jual Beli Lengkap.

select inde.masterpk1,
inde.masterpk2,
inde.masterpk3,
shak.shaknam,
inde.expeid,
inde.indecod
from inde,shak,shakinde
where year(inde.indeanodat)=2006
and inde.tindcod="31"
and shakinde.indecod=inde.indecod
and shak.shakcod=shakinde.shakcod
into temp a;

select inde.masterpk1,
inde.masterpk2,
inde.masterpk3,
shak.shaknam,
inde.expeid
from inde,shak,shakinde
where year(inde.indeanodat)=2006
and inde.indetyp="R"
and inde.tdoccod="B1"
and shakinde.indecod=inde.indecod
and shak.shakcod=shakinde.shakcod
into temp b;

select
d301.d301seq NO_d301,
d301.d301yea Tahun_d301,
akta.aktadat tgl_transaksi,
a.masterpk1 DESA,
a.masterpk2 JENIS_HAK,
a.masterpk3 NO_HAK,
a.shaknam PEMBELI,
b.shaknam PENJUAL,
gspa.parcnib NIB,
gssu.gssuare luas,
akta.aktavalue nilaijualbeli

from a,b,paht,gspa,gssu,akta,d301
where a.masterpk1=b.masterpk1
and a.masterpk2=b.masterpk2
and a.masterpk3=b.masterpk3

and paht.desaco8 = a.masterpk1
and paht.thakcod = a.masterpk2
and paht.htanseq = a.masterpk3

and gssu.desaco8 = paht.desaco8
and gssu.gssuyea = paht.gssuyea
and gssu.gssunum = paht.gssunum

and gssu.desaco8=gspa.desaco8
and gssu.gssuyea=gspa.gssuyea
and gssu.gssunum=gspa.gssunum

and akta.indecod=a.indecod
and d301.indecod=a.indecod;

Baca Selengkapnya..

Sql 2A Peralihan Hak nama Pembeli & Penjual

Oleh : Sri Songko Sudiro.

Permintaan Untuk : Pak Masduki Medan.
SQL LOC2A untuk melihat peralihan hak menampilkan nama pembeli dan penjual.



PEMBELI {eksekusi sekali aja}
---------------------------------------------
select inde.masterpk1,
inde.masterpk2,
inde.masterpk3,
shak.shaknam,
inde.expeid
from inde,shak,shakinde
where year(inde.indeanodat)=2006 {DARI PADA HANG MENDING PERTAHUN BOS}
and inde.tindcod="31"
and shakinde.indecod=inde.indecod
and shak.shakcod=shakinde.shakcod
into temp a;
PENJUAL {eksekusi sekali aja}
---------------------------------------------
select inde.masterpk1,
inde.masterpk2,
inde.masterpk3,
shak.shaknam,
inde.expeid
from inde,shak,shakinde
where year(inde.indeanodat)=2006
and inde.indetyp="R"
and inde.tdoccod="B1"
and shakinde.indecod=inde.indecod
and shak.shakcod=shakinde.shakcod
into temp b;

PEMBELI DAN PENJUAL
------------------------------------------
select a.masterpk1 DESA,
a.masterpk2 JENIS_HAK,
a.masterpk3 NO_HAK,
a.shaknam PEMBELI,
b.shaknam PENJUAL
from a,b
where a.masterpk1=b.masterpk1
and a.masterpk2=b.masterpk2
and a.masterpk3=b.masterpk3;

Baca Selengkapnya..

Membuat Grid Desa yang Terhapus

Masalah :
Apabila pada saat pemilihan desa pada penggambaran keluar pesan dari Smallworld
"no geometry to goto or geometry not acessibility in graphics window"

Hal diatas terjadi karena grid desa lokalnya tanpa sengaja terhapus

Solusi :
1. Periksa grid lokal desa tersebut dengan cara klik menu system pada window
PROCAS Tool Main Graphics Window
2. Pilih Object Control
3. Klik mouse tanda [+] Administrasi
4. Klik mouse tanda [+] Limit
5. Klik mouse 2x pada Grid
6. Klik mouse pada tanda Desa [^]
7. Masukan kode desa yang grid desanya hilang, kemudian klik gambar teropong yg
ada gambar sama dengan (=), kemudian keluar
8. Lihat pada Grid apakah ada tanda hitamnya, kalau tidak ada grid desa sudah terhapus
9. Menu2 diatas jangan ditutup dulu

Cara membuat grid desa
1. Klik gambar bola dunia yang ada di window PROCAS Tool Main Graphics Window
2. Pilih Select Zone
3. Klik zone TM3 2x dengan mouse, tunggu sampai keluar grid desanya pada window
PROCAS Tool Main Graphics Window
4. Cari posisi grid desa yang terhapus
5. Trail titik-titik pojok batas grid desanya
6. Klik Menu Desa - Limit yang telah dibuka pada Solusi point 5
7. Klik set Aktif kemudian klik update
8. Lanjutkan berkas yang tidak bisa digambar seperti biasa

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