Sebelumnya marcode telah share cara
membuat nomor otomatis berdasarkan tanggal. Namun yang sekarang akan kita buat yaitu no faktur otomatis berdasarkan tanggal yang setiap hari mulai dari awal (ngerti gak maksud aneee!!! hahaha)
jadi gini, misalkan hari ini nofaktur kita mulai dengan format yyyyMMdd-001 (20150925-001) nah dalam satu hari kita melakukan transaksi sebanyak 150 jadi no fakturnya 20150925-150, pada saat esok hari akan dimulai dari 001 dikarenakan tanggal yang berbeda, yaitu menjadi 20150926-001
gimana mengerti maksudnya.. ok kita langsung saja ke prakteknya.. hehe
file yang kita pakai yaitu masih file yang kemarin
disini
silahkan edit pada bagian procedure kodenomor, ganti menjadi seperti berikut ini
Private Sub Kodenomor()
Dim NomOt As String = ""
'membuat variabel
Koneksi()
'melakukan koneksi
Try
CMD = New OleDbCommand("SELECT TOP 1 right(nomor,3) + 1 as nomor FROM tbnomor order by nomor desc ", CONN)
RD = CMD.ExecuteReader
'panggil nomor tertinggi kemudian tambahkan 1
If RD.Read Then
'jika data ada
Dim nomor1 As String
'buat variabel nomor1 utk menampung no tertinggi
nomor1 = RD!nomor
'tampung nomor tertinggi
CMD = New OleDbCommand("SELECT max(nomor) as nomax FROM tbnomor", CONN)
RD = CMD.ExecuteReader
'panggil nomor faktur terakhir
If RD.Read Then
'jika ada
Dim tanggal, nomor2 As String
'buat variabel
nomor2 = RD!nomax
'tampung no tertinggi di variabel nomor2
tanggal = Format(Date.Now, "yyyyMMdd")
'tampung tanggal sekarang di variabel tanggal
If Microsoft.VisualBasic.Left(nomor2, 8) <> tanggal Then
'jika tanggal yang diambil dari no tertinggi tidak sama dengan tanggal sekarang
NomOt = Format(Date.Now, "yyyyMMdd") & "-" & "001"
'tentukan no faktur dimulai 001
Else
'jika sama
'lakukan pengecekan 3 nomor terakhir
Select Case nomor1
Case Is <= 9
NomOt = Format(Date.Now, "yyyyMMdd") & "-" & "00" & nomor1
Case Is <= 99
NomOt = Format(Date.Now, "yyyyMMdd") & "-" & "0" & nomor1
End Select
End If
End If
Else
'tabel(kosong)
NomOt = Format(Date.Now, "yyyyMMdd") & "-" & "001"
End If
TextBox1.Text = NomOt
'tampilkan di textbox
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
oke diatas adalah perintahnya, dan sudah dijelaskan.. semoga mengerti
jika ingin file yang sudah jadi silahkan download
disini
About Me :
Saya Martin Purnansyah
Nama
Marcode adalah singkatan dari martin code, niat awal saya membuat website ini bertujuan untuk berbagi pengalaman yang saya dapat selama belajar pemrograman. Semoga situs
marcode.web.id kedepannya rutin membuat tutorial - tutorial baru. Salam Coding.. :)
