Membuat AutoNumber+Tanggal ( No. Faktur Otomatis )

Select JUAL_MASTER && pilih tabel
Go Bottom && pilih record paling bawah
Count For !Empty(KODEFAKTUR) To A && hitung jumlah record yg kosong masukkan hasilnya ke A
If A=0 && jika nilai A = 0 alias gak ada data
Thisform.txtkodefaktur.Value='F'+Dtos(Date())+'01' && maka kodenya adalah= F+tanggal di conver menjadi caracter +01 exp:2010020201
Else
Go Bottom
vkode='1'+Right(KODEFAKTUR,2)
Thisform.txtkodefaktur.Value='F'+Dtos(Date())+Right(Str(Val(vkode)+1),2)
Endif

Selamat Mencoba From Redfox
lol!

» Lowongan PT.PLN (Persero) tanggal 12-26 Juli 2008
» Membuat prg hyperlink dgn vfp
» Membuat game tetris dengan vfp
» Membuat label mutar pada vfp
» Membuat text active title bar berjalan ala vfp