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 )

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
redik
Play Group


Male
Jumlah posting : 2
Age : 28
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 )
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Hal-Hal yang dapat membuat kaum lelaki menangis
» About tambal ban otomatis
» Shadow Eyes = Flasher / Hazard / Flip-Flop 7 Mode Auto Sensor Sign (NEW..!!)
» sebenernya bagaimana sih? proses faktur jd STNK truk keluar plat?
» WTS SPION LIPAT OTOMATIS/AUTO RETRACTABLE MIRROR KIT XENIA/AVANZA, RUSH/TERIOS, INOVA DAN FORTUNER

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