[muaamar]

السلام عليكم.عندي برنامج مبيعات اريد توليد ارقام باركود مكونة من 9 ارقام ولكن المشكلة في توليد ارقام جديدة غير مخزنة مسبقا.انا بشتغل بالفيجوال بيسك دوت نيت وقاعدة البيانات سيكوال سيرفر

[Bibo2030]

اجعل الباركود مكون من التالى
كود الصنف
و كود كارت الصنف
و العام الحالى
و يتم تنفيذ ذلك من داخل الكود بكل سهوله

txtTemp.Text = txtCode.Text & cmbCode.Text & Now.Date.DayOfWeek & Now.Date.DayOfYear & My.Computer.Clock.LocalTime.Year "
If txtTemp.TextLength > 9 Then
Dim i As Integer = 9 - txtTemp.TextLength
txtBarcode.Text = Mid(txtTemp.Text, 1, 9)
End If