Pemograman Aplikasi: digit Nomor Perkara

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