13-12-18, 08:19 PM
(آخر تعديل لهذه المشاركة : 13-12-18, 08:22 PM {2} بواسطة محمد اسماعيل.)
السلام عليكم
قمت بانشاء وظيفة لاضافة سريال نمبر لكل فاتورة بيع
السريال يعتمد علي قيمة ثابتة مثلا 50 او we مثلا
وبعد ذالك يضاف رقم 1 ويجمع علي اخر رقم لكل فاتورة يتم طباعتها
يبقي اول قيمة لاول فاتورة 501 و 502 و 503 وهكذا مع شرط وجود رقم 50 اول الفاتورة
يبقي اول قيمة لاول فاتورة we1 و we2 و we3 وهكذا مع شرط وجود رقم 50 اول الفاتورة
استخدمت الوظيفة كالاتي ظلت تعمل الي قيمة 5010 وتوقفت عن التزايد عند القيمة 5010 لا اعلم ما سبب وقوف الوظيفة عن العمل اذا كانت تعمل في البدايةبدون مشاكل
قمت بانشاء وظيفة لاضافة سريال نمبر لكل فاتورة بيع
السريال يعتمد علي قيمة ثابتة مثلا 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
