Skip to main content

How To Set Auto Number Which Reset Daily Number

By
Below script is how to use an auto number using SQL database which support to reset auto number everyday. means record data will be reset to 001 when the day is changing.


Public Overridable Function SerialOrderId_AutoNum() As String
        MeDB.TutupKoneksi()
        DTS = New DataSet
        DTA = New  _
              SqlDataAdapter("SELECT SerialOrderId FROM SerialOrder_Table " & _
                             "WHERE YEAR(LEFT(SerialOrderId,8)) + MONTH(LEFT(SerialOrderId,8)) " & _
                             "+ DAY(LEFT(SerialOrderId,8)) = YEAR(GETDATE()) + MONTH(GETDATE()) + " & _
                             "DAY(GETDATE()) ORDER BY SerialOrderId ASC", MeDB.BukaKoneksi)
        DTA.Fill(DTS)
        If DTS.Tables(0).Rows.Count = 0 Then
            Return Format(Now.Date, "yyyyMMdd") & "0001"
        Else
            Dim KODE As String = Mid(DTS.Tables(0).Rows(DTS.Tables(0).Rows.Count - 1).Item(0), 4)
            Dim PLUS As String = Val(Microsoft.VisualBasic.Right(KODE, 4)) + 1
            If Len(PLUS) = 1 Then
                Return Format(Now.Date, "yyyyMMdd") & "000" & PLUS
            ElseIf Len(PLUS) = 2 Then
                Return Format(Now.Date, "yyyyMMdd") & "00" & PLUS
            ElseIf Len(PLUS) = 3 Then
                Return Format(Now.Date, "yyyyMMdd") & "0" & PLUS
            ElseIf Len(PLUS) = 4 Then
                Return Format(Now.Date, "yyyyMMdd") & "" & PLUS
            ElseIf Len(PLUS) = 5 Then
                Throw New Exception("OVERLOAD SEQUENCE ID")
            End If
        End If
        Return DTA.Fill(DTS)

    End Function

Comments

Post a Comment

Popular posts from this blog

CheckBox dalam DataGridView VB.Net

By
Pada saat membuat aplikasi (VB.Net) untuk materi skripsi, terbesit bagaimana cara baru untuk memberikan hak akses user secara dinamis pada sistem. setelah dicoba dengan tanya-tanya. akhirnya bisa mendapatkan cara itu... wah sesuatu banget dah.... inti dari posting ini hanya pada barisan kode berikut : Private Sub BtnSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSIMPAN.Click         Dim Y As String = Mid(CmbUSER.Text, 1, 7)         Dim iROW As Integer         Dim AKSES As String         For iROW = 0 To DGVSample.Rows.Count - 1             'AksesBox = Nama CheckBox yang ada di DatagridView             If DGVSample.Rows(iROW).Cells("AksesBox").Value Then                 AKSES = "1"             Else                 AKSES = "0"             End If             'Class Proses DML (Simpan Data)             xSIMPAN.SIMPAN_AKSES(Y, DGVSample.Rows(iROW).Cells(1).Value, AKSES)         N
1 comment
Read more

LDAP In VB.Net

By
hey there friends,  here is this i would like to share another simple code in developing an application in VB.Net by now i would like to share how the way to use a LDAP (Lightweight Directory Access Protocol). at the time i need to develop a system which needs to use login user using domain user (ex: peoplename@company.co.id) no longer using user level in database. it is so confused to me to make it real at the time, because i never make it before. but this is the way how i make it happened. just make a simple form as below : next level : add another reference in your visual studio project (System.DirectoryService.dll) next : make a new class Imports System Imports System.Text Imports System.Collections Imports System.Security.Principal Imports System.DirectoryServices Public Class LDAPControlClass     Private NamaDomain As String = "company.co.id"     Private MemberOf As New List(Of String)     Public Function LoginLDAP(ByVal Username
Post a Comment
Read more