Sql Buku Tanah Link SU

{jumlah bukutanah yang ada su }
{
select count(*) from htan where (exists(select 1 from
paht where paht.desaco8=htan.desaco8
and paht.thakcod=htan.thakcod
and paht.htanseq=htan.htanseq))
or (exists(select 1 from gsht
where gsht.desaco8=htan.desaco8
and gsht.thakcod=htan.thakcod
and gsht.htanseq=htan.htanseq));
}

{
{jumlah bukutanah yang tidak ada su }
{
select count(*) from htan where (not exists(select 1 from
paht where paht.desaco8=htan.desaco8
and paht.thakcod=htan.thakcod
and paht.htanseq=htan.htanseq))
and (not exists(select 1 from gsht
where gsht.desaco8=htan.desaco8
and gsht.thakcod=htan.thakcod
and gsht.htanseq=htan.htanseq));
}

select count(*) from htan

Baca Selengkapnya..

Sql List Biaya Panitia A

SQL List Biaya Panita A
=====================

select expe.expecod No_Berkas,expe.expeyea Thn_Berkas,
gauk.gauknum No_GU,exco.excoamo Biaya_Panitia_A
,d305.d305seq No_DI305
,d305.d305dat tanggal
,shak.shaknam Nama_pemohon
from gauk,puex,expe,exco,D305,shak,suex
where expe.expeyea=2005
and exco.tpaycod="PA"
and gauk.opernum=puex.opernum
and puex.expeid=expe.expeid
and exco.expeid=expe.expeid
and d305.expeid=expe.expeid
and expe.expeid=suex.expeid
and shak.shakcod=suex.shakcod
and year(d305.d305dat) = 2005
and month(d305.d305dat)= 2

Baca Selengkapnya..

Jumlah BT Aktif

Jumlah BT Aktif yang belum di entry
==========================
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;

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



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

nilai jual beli dan nama pemilik

select d301.d301seq No_d301,
d301.d301yea Tahun301,
inde.masterpk1 desa,
inde.masterpk2 jenis_hak,
inde.masterpk3 no_hak,
shak.shaknam nama_pemilik,
gssu.gssuare Luas,
akta.aktavalue NilaiJualBeli

from d301,inde,akta,gssu,paht,shakinde,shak
where d301.indecod=akta.indecod
and d301.d301dat>="01/01/2007"
and d301.d301dat<="30/12/2007"
and d301.tindcod="31"
and d301.indecod=inde.indecod
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 shakinde.indecod= inde.indecod
and shak.shakcod=shakinde.shakcod;

Baca Selengkapnya..

Script_Untuk Aplikasi Baru

---

From: Jokolee [mailto:jokolee@jau.co.id]
Sent: 09 Nopember 2007 10:58
To: 'Andy JAU'
Subject: Script

Para Bapak-bapak di Kantah….

Yang masalah “Berkas dibuka petugas Lain “ ternyata memang ada kekurangan di trigger database, Untuk itu tolong jalanin script ini di tiap kantah (kecuali Jak-bar karena belum pakai aplikasi baru)…

Script :

CREATE OR REPLACE TRIGGER After_ins_berkasflow

after INSERT ON BERKASFLOW

FOR EACH ROW

declare

vflowname VARCHAR2 (15);

vsubyekid VARCHAR2 (32);

vduedate DATE;

BEGIN

vflowname:=:new.berkasflowname;

if vflowname='MULAI' OR vflowname='KIRIM' OR vflowname='TOLAK' or vflowname='AMBIL'

then

select JBPM_TASKINSTANCE.duedate_ into vduedate

from berkas,JBPM_TOKEN,JBPM_TASKINSTANCE

where berkasid=:new.berkasid

and berkas.berkaswfm=JBPM_TOKEN.PROCESSINSTANCE_

and JBPM_TOKEN.id_=JBPM_TASKINSTANCE.token_

and JBPM_TASKINSTANCE.end_ is null;

if vflowname='MULAI'

then

insert into INBOXBERKAS

select a.*,:new.profileid,vsubyekid,vduedate,:new.useridto from berkas a

where berkasid=:new.berkasid;

else

update INBOXBERKAS

set profileid=:new.profileid,duedate=vduedate,useridto=:new.useridto

where berkasid=:new.berkasid;

end if;

end if;

END;

/

Thanks…………..:)

Wassalam

Jokolee

Baca Selengkapnya..

Memperbaiki Tabel di Database LINUX

Memperbaiki Tabel di Database LINUX

 

Masalah :

Memperbaiki tabel Database

 

 

Solusi :

1. Pastikan tidak ada yang menjalankan aplikasi pelayanan LOC

2. Kerjakan di komputer server

3. Masuk ke Linux dengan user : ctl

4. Masuk ke /procas/lo/pro2

5. Setelah itu ketikan di pro2>trepidx loc expe kemudian ENTER, tunggu sampai proses selesai dan kalau ada error catat

6. Setelah itu ketikan di pro2>trepidx loc task kemudian ENTER, tunggu sampai proses selesai dan kalau ada error catat

7. Setelah itu ketikan di pro2>trepidx loc boxe kemudian ENTER, tunggu sampai proses selesai dan kalau ada error catat

8. Setelah itu ketikan di pro2>trepidx loc inde kemudian ENTER, tunggu sampai proses selesai dan kalau ada error catat

Baca Selengkapnya..