Kamis, 30 Agustus 2012
Automatic Nomor Faktur Baru
MEMBUAT NOMOR FAKTUR BERDASARKAN URUTAN TGL ( 01/12/2012/001)
Private Sub Auto()
Dim tgl As String
tgl = CStr(Date)
Dim Urutan As String * 14
Dim Hitung As Byte
With adojual.Recordset
'If .RecordCount = 0 Then
If .BOF Then
Urutan = tgl & "/" & "001"
Else
.MoveLast
Hitung = Val(Right(!nota, 3)) + 1
Urutan = tgl & "/" & Right("0000" & Hitung, 3)
End If
global_nota = Urutan
End With
End Sub
MEMBUAT NOMOR FAKTUR BERDASARKAN URUTAN NOMOR ( P001)
Private Sub Auto()
Dim Urutan As String * 4
Dim Hitung As Byte
With adopegawai.Recordset
If .BOF Then
Urutan = "P" & "001"
Else
.MoveLast
Hitung = Val(Right(!idpegawai, 3)) + 1
Urutan = "P" & Right("0000" & Hitung, 3)
End If
txtId.Text = Urutan
End With
End Sub
Langganan:
Posting Komentar (Atom)
Komentar ini telah dihapus oleh pengarang.
BalasHapusKomentar ini telah dihapus oleh pengarang.
BalasHapusKomentar ini telah dihapus oleh pengarang.
BalasHapusKomentar ini telah dihapus oleh pengarang.
BalasHapusKomentar ini telah dihapus oleh pengarang.
BalasHapusKomentar ini telah dihapus oleh pengarang.
BalasHapusPrivate Sub auto()
BalasHapuskon.Open()
Perintah.Connection = kon
Perintah.CommandType = CommandType.Text
perintah.CommandText = "select * from jual order by nota desc"
Perintah.ExecuteNonQuery()
rs = Perintah.ExecuteReader
Try
rs.Read()
If Not rs.HasRows Then
txtnota.Text = "NT001"
Else
txtnota.Text = rs.Item("nota")
txtnota.Text = Val(Microsoft.VisualBasic.Mid(txtnota.Text, 4, 3)) + 1
If Len(txtnota.Text) = 1 Then
txtnota.Text = "NT00" & txtnota.Text & ""
ElseIf Len(txtnota.Text) = 2 Then
txtnota.Text = "NT0" & txtnota.Text & ""
ElseIf Len(txtnota.Text) = 3 Then
txtnota.Text = "NT" & txtnota.Text & ""
End If
End If
Catch ex As Exception
End Try
kon.Close()
End Sub
Terimaksih sebelumnya sudah membalas pertanyaan saya, maaf magsud saya no urut yang berdasarkan tanggal mas yang pertama.
BalasHapusTutor no urut tanggal di vb net.
BalasHapus