Aplikasi Management Perkara (AMP)

Aplikasi Management Perkara (AMP)

Court Untuk User Hakim Dan Panitera Pengganti

Aplikasi Ini Merupakan rujukan dari court calender hakim yang ada di peradilan agama,
ditujukan Untuk user Hakim dan Panitera Pengganti;

Kegunaan Aplikasi

• Untuk Memudahkan Hakim Mengecek Perkaranya yang masih berjalan / masih ditanganinya
  Memudahkan Detail Perkara Pernomor Perkara
• Untuk Memudahkan Rekap Data Persidangan Hakim
• Mendapatkan Laporan Perkara Hakim dengan mudah
• Mendapatkan Informasi Validasi Otomatis
• Mengingatkan Hakim akan panjar biaya yang habis/kurang

Catatan Aplikasi

• Cobain Dulu dah aplikasinya, kalau ada pertanyaan sampein di blog ini aja biar rapih ada riwayatnya.
• Scan dulu foldernya takut ada virusnya, mengingat labtop saya udah berganti ganti flasdisk orang PA seindonesia 
• Ini filenya, --> http://pa-jakartabarat.go.id/@DIKA/APLIKASI_MANAGEMENT_PERKARA.rar

Penggunaan Digit Nomor Perkara SIADPA

Penggunaan Digit Nomor Perkara SIADPA

Langsung Saja Saya Posting Coding Query Penggunaan Digit Nomor Perkara SIADPA

Digit Tanpa 0 contoh (1/Pdt.G/2014/PAJB) 
SELECT DATA=

RTRIM(CAST(CAST(LEFT(:NoPerk,4) AS INTEGER) AS CHAR))

+ '/Pdt.' + SUBSTRING(:NoPerk, 5, 1 ) + 

CASE WHEN RIGHT(:NoPerk,2) < '90'

   THEN '/20'

   ELSE '/19' END +

RIGHT(:NoPerk,2) + '/PA.JB'

Digit 0 jika 1 digit contoh (01/Pdt.G/2014/PAJB)

SELECT DATA=

RTRIM(CAST(

   CASE WHEN CAST(LEFT(:NoPerk,4) AS INTEGER) < 100 THEN RIGHT(LEFT(:NoPerk,4),2)

   ELSE RTRIM(CAST(CAST(LEFT(:NoPerk,4) AS INTEGER) AS CHAR)) END

AS CHAR))

+ '/Pdt.' + SUBSTRING(:NoPerk, 5, 1 ) +

CASE WHEN RIGHT(:NoPerk,2) < '90'

   THEN '/20'

   ELSE '/19' END +

RIGHT(:NoPerk,2) + '/PA.JB'

Digit 00 jika 2 atau 3 digit contoh (001/Pdt.G/2014/PAJB)

SELECT DATA=

RTRIM(CAST(

   CASE

   WHEN CAST(LEFT(:NoPerk,4) AS INTEGER) < 1000 THEN RIGHT(LEFT(:NoPerk,4),3)

   ELSE RTRIM(CAST(CAST(LEFT(:NoPerk,4) AS INTEGER) AS CHAR)) END

AS CHAR))

+ '/Pdt.' + SUBSTRING(:NoPerk, 5, 1 ) +

CASE WHEN RIGHT(:NoPerk,2) < '90'

   THEN '/20'

   ELSE '/19' END +

RIGHT(:NoPerk,2) + '/PA.JB'

Full Digit 000 jika 2 atau 3 atau 4 digit contoh (0001/Pdt.G/2014/PAJB)

SELECT DATA=

LEFT(:NoPerk,4)

+ '/Pdt.' + SUBSTRING(:NoPerk, 5, 1 ) +

CASE WHEN RIGHT(:NoPerk,2) < '90'

   THEN '/20'

   ELSE '/19' END +

RIGHT(:NoPerk,2) + '/PA.JB'

Demikian Pembahasan Penggunaan Digit Nomor Perkara SIADPA... semoga bermanfaat... ^_^