[hannileo]

السلام عليكم ورحمة الله وبركاته ,,,

اخوتي الكرام  الموضوع تم نشره سابقاً دون تفاعل


تحياتي للاستاذ امير الزعبي على جهوده فقط حاول مساعدتي ولكن نظراً لوقته احببت نشر المووضع بطريقة اوضح قليلاً 

المثال موجود بالمشاركة http://vb4arb.com/vb/showthread.php?tid=21899 



المشكلة كلها في زر استرجاع منتج بعد الضغط على رز Drop item 

كود :

Dim X As Boolean
rst.Open "Select * from tblsales", con, adOpenDynamic, adLockOptimistic
While rst.EOF = False
If lbltrans = rst!transid Then
X = True
End If
rst.MoveNext
Wend
rst.Close

If X = True Then
   rst.Open "Select * from sales", con, adOpenDynamic, adLockOptimistic
   While rst.EOF = False
   If lbltrans = rst!transid And rst!qty = lst.SelectedItem And rst!pdesc = lst.SelectedItem.SubItems(1) Then
   rst.Delete
   rst.Update
   lbltot = Val(lbltot) - lst.SelectedItem.SubItems(3)
   End If
   rst.MoveNext
   Wend
   rst.Close
   
   rst.Open "Select * from tblstocks", con, adOpenDynamic, adLockOptimistic
   While rst.EOF = False
   If pcode = rst!pcode Then
       rst!stocks = Val(rst!stocks) + lst.SelectedItem
       rst.Update
   End If
   rst.MoveNext
   Wend
   rst.Close
   Call reload
   
   cmddrop.Enabled = False
   
End If

المشكلة هي انني عندما اقوم بعمل فاتورة واختار اكثر من صنف 
واريد ارجاع صنف مكرر في الفاتورة 
فانه يقوم بارجاع الصنفين المشابهين معاً 
ولكن المشكلة الاكبر انه يقوم بارجاع الكمية لمنتج مرة واحدة 
 يعني لو اضفت المنتج بنفس الفاتورة 3 مرات متكررة وضغطت على زر ارجاع فانه يقوم بارجاع قطعة واحدة الى المستودع 
مع حذف جميع المنتجات المضافة من نفس النوع 

ارجو منكم مساعدتي ولكم جزيل الشكر