Banyak cara dan teknik dapat kita lakukan untuk membuat penomoran transaksi secara otomatis, dari mulai penggunaan engine database sampai dengan penggunaan kode.
Disini kita akan sama-sama membuat kode tersebut.
Kebetulan function ini digunakan pada penggunaan mysql sebagai database
1. Buat sebuah table pada mysql dengan nama misal 'turutan' dengan format field: fom c(20), depan c(10), belakang n(10)
2. Isi table tersebut (bisa juga dibuatkan form inputan tersendiri) dengan data-data seperti :
fom depan belakang
----- ------- ------------
TTB TTB09 1
PO PO09 1
dst...
3. Buat 2 function berikut ini
FUNCTION NOURUTE
PARAMETERS XFOM
LAKUKAN([SELECT DEPAN,BELAKANG FROM TURUTAN WHERE FOM=?XFOM],'CURUT')
IF EMPTY(CURUT.DEPAN)
KATAKAN('URUTAN NOMOR UNTUK '+XFOM+' BELUM DIDEFINISIKAN')
LEPASKAN('CURUT')
RETURN '-'
ELSE
XNNO=ALLTRIM(CURUT.DEPAN)+'-'+ALLTRIM(STR(CURUT.BELAKANG))
LEPASKAN('CURUT')
RETURN XNNO
ENDIF
ENDFUNC
*---
FUNCTION NOURUTplus
PARAMETERS XFOM
IF LAKUKAN([UPDATE TURUTAN SET BELAKANG=BELAKANG+1 WHERE FOM=?XFOM])<1
KATAKAN('PENAMBAHAN NOMOR URUT '+XFOM+' GAGAL.')
RETURN 0
ELSE
RETURN 1
ENDIF
ENDFUNC
4. cara menggunakannya :
- pada main .prg koneksikan dulu dengan file .prg tempat menyimpan function-function kita
set proc to myproc
- form PO atau transaksi lainnya, pada init text1 (textbox untuk nomor transaksi)
this.value=nourute('PO') && ini untuk mengambil nomor terakhir transaksi PO
- pada tombol penyimpanan, jika proses penyimpanan sukses, tambahkan
nourutplus('PO')
maaf kalo ada yang salah
17 April 2009
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar