Komunitas Informatika Aneuk Nanggröe

Dengan Agama hidup menjadi terarah, dengan Ilmu hidup menjadi mudah dan dengan seni hidup menjadi indah..!!
 
IndeksPortalFAQPencarianPendaftaranLogin

Share | 
 

 Membuat AutoNumber+Tanggal ( No. Faktur Otomatis )

Go down 
PengirimMessage
redik
Play Group


Male
Jumlah posting : 2
Age : 30
Lokasi : Banda Aceh
Registration date : 23.06.09

PostSubyek: Membuat AutoNumber+Tanggal ( No. Faktur Otomatis )   Sun Feb 07, 2010 11:52 pm

afro


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!
Kembali Ke Atas Go down
Lihat profil user http://redhamunandar.blogspot.com
 
Membuat AutoNumber+Tanggal ( No. Faktur Otomatis )
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» About tambal ban otomatis
» [Blender] How to Cellshading
» (ASK) Bensin buat si ninin
» Custom Sticker di Depok
» Ban untuk harian bagusnya apa ya...?

Permissions in this forum:Anda tidak dapat menjawab topik
Komunitas Informatika Aneuk Nanggröe :: General Category :: Pemrograman :: FoxPro-
Navigasi: