Scrip powerbuilder

Jul

4

2014

Salam gan pendatang baru nih..
Saya mau tanya gan, gimana sih penulisan scip untuk membuat penomoran otomatis lebih dari 1 digit atau di kombinasi dengan huruf…trim’s gan

Kategori: PowerBuilder Ditanyakan oleh: [2 Grey Star Level]
Jawaban #1

Buat function
access : public, return type : integer, function name : wf_nour

atau di bypass saja

isi :

local variabel
string ls_kode,ls_bln,ls_thn,ls_nour,ls_nour1
date ld_tgl,ld_sotgl
datetime ldt_tgl

instance variabel
is_nour

dw_1.accepttext()
ls_kode = dw_1.object.kode[dw_1.getrow()]
ld_sotgl = date(dw_1.object.sotgl[dw_1.getrow()])
ld_tgl = date(today())

ls_bln = string(ld_tgl,’mm’)
ls_thn = string(ld_tgl,’yyyy’)

SELECT RIGHT(isnull(MAX(PJ_HUTANG.NOUR),’0000′),4)
INTO :ls_nour
FROM PJ_HUTANG
WHERE PJ_HUTANG.KODE =:ls_kode AND
MONTH(PJ_HUTANG.HUTRTGL) =:ls_bln AND
YEAR(PJ_HUTANG.HUTRTGL) =:ls_thn
COMMIT USING SQLCA;

if ls_nour = ‘9999’ then
is_nour = ‘A’+RIGHT(‘000’+(STRING(LONG(ls_nour)+ 1)),3)
elseif LEFT(ls_nour,1) = ‘A’ and ls_nour ‘A999’ then
ls_nour1 = right(ls_nour,1)
is_nour = ‘A’+RIGHT(‘000’+(STRING(LONG(ls_nour1)+1)),3)
elseif ls_nour = ‘A999’ then
is_nour = ‘B’+RIGHT(‘000’+(STRING(LONG(ls_nour)+ 1)),3)
elseif LEFT(ls_nour,1) = ‘B’ and ls_nour ‘B999’ then
ls_nour1 = right(ls_nour,1)
is_nour = ‘B’+RIGHT(‘000’+(STRING(LONG(ls_nour1)+ 1)),3)
else
is_nour = RIGHT(‘0000’+(STRING(LONG(ls_nour)+ 1)),4)
end if

return 1 // jk di bypass jangan di pakai

semoga membantu

Answers Dijawab Oleh: hsk354 [4 Grey Star Level] 13 October 2014
Jawaban #2

[url=http://www.pokerkeren.com]Agen Permainan Games Judi Kartu Poker Online | Poker Keren[/url]
[img]http://www.indojpg.com/images/659oke2.jpg[/img]

[url=http://www.pokerkeren.com]POKERKEREN.COM[/url] Kini Hadir untuk semua pecinta permainan Kartu Poker Online yang khususnya berada di INDONESIA,
Kami mengunakan Sistem Berteknologi Baru dan Server Berkecepatan Tinggi yang akan membuat Permainan Poker Anda Lebih Seru dan Menarik bersama teman-teman Anda maupun Saingan Anda.
Cukup lakukan Login dan Langsung bermain Tanpa Download.
[url=http://www.pokerkeren.com]POKERKEREN.COM[/url] Mengunakan sistem Enkripsi Server yang Tinggi sehingga menjamin Semua Keamanan Data para Members.

Answers Dijawab Oleh: jualbeli [4 Grey Star Level] 29 October 2014

Jawab Pertanyaan

Anda harus Log In untuk menjawab pertanyaan.

Belum bergabung? Daftar Sekarang »