Rabu, 24 Juli 2013

Cara menggunakan dan Perhatian Query

Bagi agan-agan yang belum pernah menggunakan Query, maka sebelum menggunakan query tersebut, perlu kita tanyakan pada yang lebih ahli dalam hal ini, baik melalui forum Laskar Siadpa Plus di Fecebook, karena perlu memahaman khusus sebelum digunakan, quary tersebut saya kumpulkan dari agan-agan master lain dalam forum Facebook dan quary tersebut telah digunakan oleh saya sendiri serta agan-agan lain dalam mengatasi masalah khusus, untuk petunjuk penggunakannya, saya paparkan sebagai berikut :

1. Agan-agan jalankan Database Tool dengan logo



2. Kemudian isikan menu seperti gambar dan masuk dengan klik Login















3. Masukkan salah satu query yang ingin digunakan, pastikan menu berada pada Query Analyzer dan nama database Siadpawin seperti gambar berikut :















4. Pastikan telah pada posisi yang benar dan sudahi dengan klik Ran(F5)

Demikian petunjuk penggunaan ini saya paparkan, semoga bermanfaat bagi agan-agan semua, dan saya sarankan agar selalu hati-hati, karena jika salah penggunaan akan fatal akibatnya, ibarat pepatah "Malu bertanya sesat dijalan dan malu bertanya banyak jalan-jalan" hehehe.... 

Selasa, 23 Juli 2013

scan alamat utk AC

Jalan=[jl.][jln.][jalan ][jln ][jl ]
Dusun=[dusun ][dsn.][dsn ][dukuh ][lingkungan ]
RT=[rt.][ rt ][rt ][rt][r.t.]
RW=[rw.][ rw ][rw ][rw][r.w.]
Nomor=[no.][nomor ][nomer ][ no ][ no]
Desa/Kelurahan=[desa ][kelurahan ][ ds ][ kel ][ds.][kel.]
Kecamatan=[kecamatan ][ kec. ][kec ][kec.]
Kabupaten=[kabupaten ][kota ][kodya ][kotamadya ][kab.][kod. ][kotamadia ]

Quary melihat data perkara

SELECT
right(LEFT(DATA_REGISTER.NO_PERK,4),3)
+'/Pdt.'+
SUBSTRING(DATA_REGISTER.NO_PERK, LEN(DATA_REGISTER.NO_PERK) - 2, 1)
+'/20'+
RIGHT(DATA_REGISTER.NO_PERK, 2)
+'/PA.Sjj'
AS NOMOR_PERKARA,
replace(MS_DATAHAKIM.NAMA_HAKIM,char(13)+char(10),'|') AS MAJELIS_LENGKAP,
DATA_REGISTER.TGL_DAFTAR AS DAFTAR,
DATA_REGISTER.TGL_PMH AS PMH,
DATA_REGISTER.TGL_PHS AS PHS,
DATA_SIDANG.TANGGAL AS SDG_I,
DATA_REGISTER.TGL_PUTUSAN AS PUTUSAN,
DATA_REGISTER.TGL_MINUTASI AS MINUTASI,
DATA_REGISTER.ARSP_TANGGAL AS ARSIP,
MS_PERKARA.KETERANGAN AS JENIS_PERKARA,
right(LEFT(DATA_REGISTER.NO_PERK,5),1) AS KD,
DATA_REGISTER.TINGKAT AS TK
FROM
SiadpaWin.dbo.DATA_REGISTER
INNER JOIN DATA_SIDANG ON DATA_REGISTER.NO_PERK= DATA_SIDANG.NO_PERK
INNER JOIN MS_HAKIM ON DATA_SIDANG.TGL_SK= MS_HAKIM.TGL_SK
INNER JOIN MS_DATAHAKIM ON MS_HAKIM.KODE= MS_DATAHAKIM.KODE
INNER JOIN MS_PERKARA ON DATA_REGISTER.KODE_PERK=MS_PERKARA.KODE_PERK
AND DATA_SIDANG.RUANG= MS_DATAHAKIM.RUANG
AND DATA_SIDANG.NO_MAJELIS= MS_DATAHAKIM.TIM
AND DATEPART(weekday, DATA_SIDANG.TANGGAL)= MS_DATAHAKIM.HARI
WHERE RIGHT(DATA_REGISTER.NO_PERK,2)='12'
AND (DATA_SIDANG.KE=0)
ORDER BY DATA_SIDANG.NO_PERK

Perbaiki error update 15 su - error arsip tgl

ALTER TABLE DATA_REGISTER
ADD ARSP_LOKASI VARCHAR(10) NULL,
ARSP_NO_RAK VARCHAR(10) NULL,
ARSP_KODE_RAK VARCHAR(10) NULL,
ARSP_NO_BOX VARCHAR(10) NULL,
ARSP_TANGGAL DATETIME NULL,
ARSP_KETERANGAN VARCHAR(50) NULL

Quary Perbaiki DB

EXEC sp_resetstatus ‘yourDBname’;

ALTER DATABASE yourDBname SET EMERGENCY

DBCC checkdb(‘yourDBname’)

ALTER DATABASE yourDBname SET SINGLE_USER WITH ROLLBACK IMMEDIATE

DBCC CheckDB (‘yourDBname’, REPAIR_ALLOW_DATA_LOSS)

ALTER DATABASE yourDBname SET MULTI_USER

PANJAR DI KIPA ADA TAPI DI INFOPERKARA TIDAK ADA



Judul diatas banyak dialami oleh PA-PA bahkah juga tidak muncul tanggal dan nilai panjarnya waktu mencetak SKUM,dibawah ini adalah cara memperbaikinya yang sudah dilaksanakan dilapangan :) :

Panjar untuk semua jenis perkara harus satu karena defaultnya harus satu jangan di buat bermacam-macam, seperti PANJAR CT, PANJAR CG, PANJAR PERMOHONAN, dll
, mungkin karena nilai panjarnya beda-beda mungkin dibikin bermacam-macam, jangan takut karena nilai panjar bisa dirubah waktu mengisi. Jika sudah terlanjur di bikin banyak macam, agar diseragamkan menjadi satu panjar dengan variabel perkiraan yang standar (0101000000) ikuti langkah-langkah berikut ini:

1. cari panjar yang variabel perkiraannya 0101000000, rubah menjadi nama yang umum misalnya Panjar atau Biaya Panjar atau terserah satker :), ceklist di sebelah kanan kata Perkiraan Panjar Biaya Perkara.
2. catat nomer variabel perkiraan yang di pakai panjar selain variabel 0101000000 , misalnya PANJAR CT = 0103000000, PANJAR CG=0104000000, PANJAR PERMOHONAN = 0105000000, dstnya. Ini berguna buat migrasi data ke satu panjar, jadi setelah diganti menjadi satu PANJAR, data yang dulu dinput tidak akan hilang dan tidak perlu dinput ulang
3. Backup dulu SIADPA plus nya sebelum migrasi data satu PANJAR.
4. Buka Databasetool atau SQL Management Studio atau yang lain, lakukan query di bawah ini:
----------------------------------------------------------------------------------------------------
UPDATE TRANS_PERK SET VAR_PERK='0101000000' WHERE LEFT(VAR_PERK,4) IN ('0103','0104','0105')
-----------------------------------------------------------------------------------------------------
CATATAN:SQL di atas bagian IN ('...','...','....') ---> titik-titik itu diisi 4 huruf dari kiri variabel perkiraaan panjar selain 0101000000, misalnya misalnya PANJAR CT = 0103000000 -->0103, PANJAR CG=0104000000 -->0104, PANJAR PERMOHONAN = 0105000000 --->0105, dst nya('...','...','....') ---> tidak terbatas 3, bisa ditambah sesuai yang mau dirubah/migrasi

5. setelah diekskusi, cek PANJAR nya apa sudah sesuai.
6. Pakai Panjar yang sudah di bakukan tadi (0101000000) untuk semua perkara
7. jika di infoperkara sebelumnya gak valid/kosoong panjarnya atau merah, hapus semua, kemudian upload ulang data keuangannya

selamat mencoba, kalau ada yang salah mohon dikoreksi

Ngakalin bagi yg tanggal sidang pertama tdk ada

buat deteksi sudah ada PHS tapi tanggal sidang Pertamanya gak ada, buat cek yang digrafik kinerja antara PHS dan tanggal sidang pertama tidak seimbang
dicoba quary ini:


SELECT DATA_REGISTER.NO_PERK, DATA_REGISTER.TGL_PHS, DATA_SIDANG.TANGGAL, SUM(DATA_SIDANG.KE + 1) AS SIDANG_KE
FROM DATA_REGISTER INNER JOIN
DATA_SIDANG ON DATA_REGISTER.NO_PERK = DATA_SIDANG.NO_PERK
WHERE (DATA_REGISTER.TGL_PHS IS NOT NULL) AND (RIGHT(DATA_REGISTER.NO_PERK, 2) = '12') AND (DATA_SIDANG.TANGGAL IS NULL) AND (DATA_SIDANG.KE = 0)
GROUP BY DATA_REGISTER.NO_PERK, DATA_REGISTER.TGL_PHS, DATA_SIDANG.TANGGAL

Quary Mengetahui Nomor Perkara, Majelis, DLL

SELECT DISTINCT LEFT(DATA_REGISTER.NO_PERK, 4) + '/Pdt.'+ SUBSTRING(DATA_REGISTER.NO_PERK, LEN(DATA_REGISTER.NO_PERK) - 2, 1)+ '/20' + RIGHT(DATA_REGISTER.NO_PERK, 2) AS NOMER_PERKARA, DATA_SIDANG.RUANG, DATA_SIDANG.TIM,MS_DATAHAKIM.NAMA_HAKIM AS MAJELIS,
MS_PERKARA.KETERANGAN AS JENIS_PERKARA,LEFT(DATA_REGISTER.KODE_PERK,2) AS JP, DATA_REGISTER.TINGKAT
FROM DATA_REGISTER INNER JOIN DATA_SIDANG ON DATA_REGISTER.NO_PERK = DATA_SIDANG.NO_PERK INNER JOIN MS_HAKIM ON DATA_SIDANG.TGL_SK = MS_HAKIM.TGL_SK INNER JOIN
MS_DATAHAKIM ON MS_HAKIM.KODE = MS_DATAHAKIM.KODE AND DATA_SIDANG.RUANG = MS_DATAHAKIM.RUANG AND DATA_SIDANG.NO_MAJELIS = MS_DATAHAKIM.TIM AND DATEPART(weekday, DATA_SIDANG.TANGGAL) = MS_DATAHAKIM.HARI
INNER JOIN MS_PERKARA ON DATA_REGISTER.KODE_PERK=MS_PERKARA.KODE_PERK
WHERE RIGHT(DATA_REGISTER.NO_PERK,2)='12'

Quary Hapus Data Transaksi Keuangan (SIADPA-KIPA) perkara tertentu

Untuk menghapus transaksi keuangan perkara tertentu pada SIADPA-KIPA pada perkara tertentu menggunakan Quary :
Contoh perkara Nomor 123/G/2013

DELETE FROM SIADPAWIN.DBO.TRANS_PERK WHERE NO_PERK='0123G13' AND TINGKAT=0

Jika pada perkara lain, ganti 0123G13 dengan perkara yang dituju, dengan ketentuan pada quary 4 digit nomor perkar (contoh perkara 123/G/2013, maka menjadi 0123G13)

Quary Delete Seluruh Data SIADPA

DELETE FROM SIADPAWIN.DBO.DATA_AMAR
DELETE FROM SIADPAWIN.DBO.DATA_ANGKA
DELETE FROM SIADPAWIN.DBO.DATA_BAP
DELETE FROM SIADPAWIN.DBO.DATA_BIODATA
DELETE FROM SIADPAWIN.DBO.DATA_REG_AC
DELETE FROM SIADPAWIN.DBO.DATA_REGISTER
DELETE FROM SIADPAWIN.DBO.DATA_SIDANG
DELETE FROM SIADPAWIN.DBO.DATA_TANGGAL
DELETE FROM SIADPAWIN.DBO.DATA_TEKS
DELETE FROM SIADPAWIN.DBO.DATA_TUTUP_INDUK
DELETE FROM SIADPAWIN.DBO.TRANS_PERK

(HATI-HATI UNTUK MENCOBA-COBA QUARY INI, NYESEL KARENA HILANG SMUA NTAR NANGIS...HEHEHE)

Quary Delete data AC via Nomor perkara

DELETE FROM DATA_REG_AC WHERE NO_PERK='0001G12'

Quary Data Majeis Hakim

SELECT DATA_SIDANG.NO_PERK, DATA_SIDANG.RUANG, DATA_SIDANG.TIM, MS_DATAHAKIM.KODE_HAKIM, MS_DATAHAKIM.NAMA_HAKIM
FROM DATA_SIDANG INNER JOIN
MS_HAKIM ON DATA_SIDANG.TGL_SK = MS_HAKIM.TGL_SK INNER JOIN
MS_DATAHAKIM ON MS_HAKIM.KODE = MS_DATAHAKIM.KODE AND DATA_SIDANG.RUANG = MS_DATAHAKIM.RUANG AND
DATA_SIDANG.TIM = MS_DATAHAKIM.TIM AND DATEPART(weekday, DATA_SIDANG.TANGGAL) = MS_DATAHAKIM.HARI
WHERE (DATA_SIDANG.NO_PERK = '0123G12')

Quary Mencari Tanggal Putus

SELECT     tgl_pts
FROM         DATA_REG_AC
WHERE     (no_perk = '0010G11')

Quary Cari data AC berdasarkan tanggal AC

SELECT * FROM DATA_REG_AC WHERE TGL_AC='2011/03/13'

Quary Cara lihat transaksi KIPA perperkara

select A.tgl_trans, B.keterangan,
SUM (CASE WHEN B.debet=1 THEN A.nil_trans ELSE 0 END) AS DEBET,
SUM (CASE WHEN B.debet=0 THEN A.nil_trans ELSE 0 END) AS KREDIT
from trans_perk A, var_perkiraan B
where
A.var_perk=B.kode AND
A.tingkat=0 and A.no_perk='0001G12'
GROUP BY A.tgl_trans, B.urutan,B.keterangan,A.var_perk
order by A.tgl_trans,B.urutan, A.var_perk asc

Cara Ganti Nomor Variable

1. Buka tabel DATA_BIODATA
    select * from data_biodata
2. Fungsi 1001 buat Pemohon/Penggugat
3. Fungsi 1002 buat Tergugat/Termohon
4. Tadi yang T fungsinya 8179, sehingga di rubah ke 1002 pake query:
    update data_biodata set fungsi=1002 where fungsi=8179

Quary menghilangkan data tanggal ikrar talak 1900 cerai gugat diaplikasi Akte cerai


Ketika user menginputkan Akta Cerai dalam Aplikasi AC, tanggal ikrar pada perkara CG sering terisi otomatis, maka untuk membuangnya secara keseluruhan, dapat menggunakan Quary berikut :

UPDATE DATA_REG_AC SET TGL_IKRAR=NULL WHERE GC=1 AND TGL_IKRAR IS NOT NULL

Senin, 22 Juli 2013

Quary untuk menghapus Perkara di SIADPA

 Jika Perkara yang ingin di Hapus per-Tahun, quary nya adalah :

DELETE FROM DATA_REGISTER WHERE CAST(RIGHT(NO_PERK,2) AS INTEGER) = 10

(quary diatas yang dihapus Perkara tahun 2010, jika tahun lain ganti 10 dengan tahun perkara yang ingin dihapus)

  Jika Perkara yang ingin di Hapus per-Nomor Perkara, quary nya adalah :

DELETE FROM DATA_REGISTER WHERE NO_PERK = 896G11


(quary diatas yang dihapus Perkara Nomor 0896/G/2011, jika Perkara lain ganti 896G11 dengan  perkara yang ingin dihapus)

untuk menghapus AC salah simpan

DELETE FROM DATA_REG_AC WHERE NO_PERK='0001G12'

('0001G12' di ganti dengan nomor perkara yang bersangkutan)

klo muncul (sqlQuery1_Field 'ARSP_TANGGAL' NOT FOUND), quary untuk mengatasinya

ALTER TABLE DATA_PRE_REG
ADD ARSP_NO_RAK VARCHAR(10) NULL,
ARSP_KODE_RAK VARCHAR(10) NULL,
ARSP_NO_BOX VARCHAR(10) NULL,
ARSP_TANGGAL DATETIME NULL,
ARSP_KETERANGAN VARCHAR(50) NULL

Query untuk ngecek/melihat perkara CG sudah putus belum keluar ac

SELECT A.NO_PERK,A.TGL_PUTUSAN,A.KODE_PERK,B.NO_AC,B.TGL_AC,B.NO_AKTA
FROM DATA_REGISTER A LEFT JOIN DATA_REG_AC B ON A.NO_PERK=B.NO_PERK
WHERE ((LEFT(A.KODE_PERK,2)='CG') OR (LEFT(A.KODE_PERK,2)='GC') or
LEFT(KODE_PERK,1)='7') AND (A.TGL_PUTUSAN IS NOT NULL) AND
(B.TGL_AC IS NULL) AND (YEAR(A.TGL_DAFTAR)=2013) ORDER BY A.TGL_PUTUSAN ASC

Quary Menghapus data "JENIS PUTUSAN" yg belum putus tetapi terinputkan jenis putusannya




Sering kali dalam penggunaan SIADPA user salah dalam penginputan Jenis Putusan, ketika telah di inputkan dan tersimpan, Jenis Putusan terisi dalam suatu perkara tersebut tidak bisa dibuang atau dikosongkan, karena dalam menu tersebut tidak tersedia untuk mengosongkannya, maka digunakanlah Quary untuk menyelesaikan masalah tersebut :

Adapun Quary untuk mengosongkan kembali Jenis Putusan pada perkara yang belum putus tersebut adalah:

Cara 1 (untuk semua Perkara)
 update data_register set jenis_p='-1' where tgl_putusan is null

Cara 2 ( untuk 1 Perkara)
 update data_register set jenis_p= null where no_perk='(no perkara)'

Variabel Total Rincian Biaya untuk diletakkan pada Putusan

Model: SQL
Field: Data
Sql Ambil Data: SELECT SUM(NIL_TRANS) AS DATA FROM TRANS_PERK WHERE
LEFT(VAR_PERK,2)='02'
AND VAR_PERK <> '0217000000' AND LEFT(VAR_PERK,4) <> '0214'
AND no_perk=:noPerk

Variable Pernyataan Saksi dalam Putusan yang diambil dari Hasil Tanya-Jawab di BAP

DECLARE @@MYTEKS VARCHAR(8000)
SET @@MYTEKS=''
SELECT @@MYTEKS = @@MYTEKS + 'Bahwa ' +LTRIM(RTRIM(SUBSTRING(JAWAB,1,8000))) FROM DATA_BAP
WHERE NO_PERK=:NoPerk AND TINGKAT=:Tingkat AND FUNGSI=5058
ORDER BY BAP
SELECT REPLACE(@@MYTEKS, CHAR(13)+CHAR(10), + CHAR(13) + CHAR(10) + 'Bahwa ') as DATA

Query menghapus data di SIADPA-KIPA yang perkaranya tidak ada di SIADPA

DELETE FROM SIADPAWIN.DBO.TRANS_PERK
WHERE NO_PERK + CAST(TINGKAT AS CHAR) NOT IN (SELECT NO_PERK + CAST(
TINGKAT AS CHAR ) FROM SIADPAWIN.DBO.DATA_REGISTER)

Quary Untuk Memindahkan Variable SIADPA-KIPA


( Keterangan : Buang #KETERANGAN# dan cocokkan Kode Variable dengan Variable yang dibuat)

UPDATE
VAR_PERKIRAAN SET KODE=REPLACE(KODE,LEFT(KODE,6),'020101'#VARIABLE TUJUAN# ) WHERE LEFT(KODE,6)='020501' #VARIABLE SUMBER#
UPDATE TRANS_PERK SET VAR_PERK=REPLACE(VAR_PERK,LEFT(VAR_PERK,6),'020101'#VARIABLE TUJUAN# ) WHERE LEFT(VAR_PERK,6)='020501'#VARIABLE SUMBER#