منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعد في عمل فاتورة مبيعات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعد في عمل فاتورة مبيعات (/showthread.php?tid=28449)



مساعد في عمل فاتورة مبيعات - alshandodi - 03-02-19

انا قمت بعمل فاتورة مبيعات بطريقة خالد السعداني ولكن لم اجد الطريقة لانقاص الكمية من المخزن او ارجاع المنتج الى المخزن اتمنى من الاخوان مساعدتي


RE: مساعد في عمل فاتورة مبيعات - حريف برمجة - 03-02-19

إرجاع المنتج إلى المخزن تتم بزيادة الكمية الرجيعه للكمية السابقة والعكس .

الموضوع كله تعديل سجل بدلالة باركود المنتج .


RE: مساعد في عمل فاتورة مبيعات - alshandodi - 03-02-19

(03-02-19, 06:12 AM)حريف برمجة كتب : إرجاع المنتج إلى المخزن تتم بزيادة الكمية الرجيعه للكمية السابقة والعكس .

الموضوع كله تعديل سجل بدلالة باركود المنتج .

اخي لك جزيل الشكر والتقدير ولكن هل يمكنك بذلك تكوين الكود واعتذر منك


RE: مساعد في عمل فاتورة مبيعات - حريف برمجة - 05-02-19

هذا مثال عملته للفاتورة والتعامل معها من الداتاقريد فيو .

فاتورة من الداتاقريدفيو

اما سؤالك كما اخبرتك فقط عملية تعديل سجل برقم الباركود أو الآيدي الخاص بالمنتج .

كأنك تعمل تعديل لأي سجل .

اذا ما عرفت تعمله اخبرني وان شاء الله اعمله لك .


RE: مساعد في عمل فاتورة مبيعات - Emam emam - 07-02-19

تفضل أخي هذا كود إنقاص الكميه من المخزن 

PHP كود :
Using cmd2 As New OleDbCommand("update [Stored] set [Quantity] = [Quantity]-" TextBox1.Text " where [Product_Name]='" TextBox1.Text "'"connAccess2007)
 
                           connAccess2007.Open()
 
                           cmd2.ExecuteNonQuery()
 
                           connAccess2007.Close()
 
                       End Using 


وإذا أردت ارجاع الكميه الي المخزن استبدل علامة - بعلامة + كما يلي :

PHP كود :
Using cmd2 As New OleDbCommand("update [Stored] set [Quantity] = [Quantity]+" TextBox1.Text " where [Product_Name]='" TextBox1.Text "'"connAccess2007)
 
                           connAccess2007.Open()
 
                           cmd2.ExecuteNonQuery()
 
                           connAccess2007.Close()
 
                       End Using