[محمد اسماعيل]

السلام عليكم 

قمت بانشاء وظيفة لاضافة سريال نمبر لكل فاتورة بيع 

السريال يعتمد علي قيمة ثابتة مثلا 50  او   we   مثلا  
وبعد ذالك يضاف رقم 1 ويجمع علي اخر رقم لكل فاتورة يتم طباعتها 
يبقي اول قيمة لاول فاتورة 501  و 502  و 503  وهكذا مع شرط وجود رقم 50 اول الفاتورة 
يبقي اول قيمة لاول فاتورة we1  و we2  و we3  وهكذا مع شرط وجود رقم 50 اول الفاتورة 
استخدمت الوظيفة كالاتي ظلت تعمل الي قيمة 5010 وتوقفت عن التزايد عند القيمة 5010 لا اعلم ما سبب وقوف الوظيفة عن العمل اذا كانت تعمل في البدايةبدون مشاكل

كود :

Public Function serial(ByVal ds As DataSet, ByVal tb As String, ByVal tbcode As String) As String
            Dim bignum As String = CType(ds.Tables(tb).Compute("Max(" & tbcode & ")", tbcode & " >= 0"), String)
       Dim mainval, mainvalB, result As String
       mainval = bignum.Substring(0, 2)
       mainvalB = bignum.Remove(0, 2)
       result = CStr(CLng(mainvalB) + 1)
       serial = mainval + result
   End Function