FOXPRO - Auto Numbering

Pembuatan Identifikasi Penomoran Transaksi Secara Otomatis dalam Programming Visual FoxPro 9.0

Tahap 1 :
Buatlah tabel, bisa tabel pree atau tabel di buat dalam database. Disain tabel seperti di bawah ini :

Nama Tabel Tbnota
Name type width Decimal

No_nota N 10 0

Tahap 2 :
Masukkan record kosong (blank)

Tahap 3 :
Buat Method baru dengan nama nomor

Tahap 4 :
Ketik prosedur ini pada method nomor

local a, b
public nota
nota=0
a='000000'

select tbnota
go top
nota=no_nota+1
b=alltrim(str(nota))
return left(a,6-len(b))+b)