+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : اعادة موضوع استعادة منتج للمستودع (/showthread.php?tid=21957)
اعادة موضوع استعادة منتج للمستودع - hannileo - 01-10-17
السلام عليكم ورحمة الله وبركاته ,,,
اخوتي الكرام الموضوع تم نشره سابقاً دون تفاعل
تحياتي للاستاذ امير الزعبي على جهوده فقط حاول مساعدتي ولكن نظراً لوقته احببت نشر المووضع بطريقة اوضح قليلاً
المثال موجود بالمشاركة 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 مرات متكررة وضغطت على زر ارجاع فانه يقوم بارجاع قطعة واحدة الى المستودع
مع حذف جميع المنتجات المضافة من نفس النوع
ارجو منكم مساعدتي ولكم جزيل الشكر
RE: اعادة مووضع استعادة منتج للمستودع - hannileo - 02-10-17
السلام عليكم
استاذ امير اشكرك من كل قلبي واخيراً حلت المشكلة
وبالضبط هذا مااريده ولكن تظهر عندي سالة خطأ كما في الصورة عند الضغط مرتين دبل كليك على list view اثناء التشغيل (يعني اضغط اول مرة دبل كليك وبعدها دبل كليك )
حتى تظهر الرسالة وفي الحقيقة انني استخدمت on error resume next فاختفت لكن هل يوجد حل افضل من هذه الدالة لانني لا احب استخدامها كثيراً في البرنامج
شكرا لك وسلمت يداك وبارك الله بك وجعلها في ميزان حسناتك
RE: اعادة موضوع استعادة منتج للمستودع - hannileo - 02-10-17
(02-10-17, 01:15 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله و بركاته
حياك الله اخي هاني
بالفعل واجهتني هذه المشكلة ، لكن اخي الحبيب كما ذكرت لك في ردي الاخير على رسالتك بأنه لا بد من اعادة صياغة الكود المكتوب في المشروع اذكر بعضها على سبيل المثال:
عندما نقوم باجراء عملية الحفظ مثلا يجب اولا ان نقوم باستدعاء الفنكشين الخاص بالاتصال بقاعدة البيانات و الفنكشن المذكور يحتاج الى اعادة صياغة ايضا .
بعد ذلك ينبغي التأكد بأن الاتصال بالجدول المراد فتحه باستعلام او اي اي اجراء آخر ان يكون قد تم اغلاقه
في مثل هذه الحالة نستخدم الاجراء الاتي :
PHP كود :
if rs.state = 1 then rs.close
كذلك الامر عند استدعاء كود الاتصال بقاعدة البيانات :
PHP كود :
if db.state = 1 then db.close
حتى نتيح الاتصال الجديد لكل عملية نقوم بها داخل المشروع
على الرحب و السعة
بارك الله بك استاذ امير
سوف اقوم باصلاحها انشالله وان واجهتني مشكلة ,سوف اعلمك بها
شكراً جزيلاً