منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله
كفية  ارجاع المواد  الي المخزن  كمردود بيع

(30-12-18, 11:15 PM)عبدالرحمن بشري عمر كتب : [ -> ]السلام عليكم ورحمة الله
كفية  ارجاع المواد  الي المخزن  كمردود بيع

اخي لن يحل هذه المشكلة الا انت ولاتحاول البحث في مواضيع
متعددة عن ذالك الامر..
وانت تحتاج الي كود الحذف والتعديل بنفس الوقت..وفي كود
التعديل اضف ليبل يظهر الكمية لهذة المادة واجعل كالاتي.
ليبل+تيكست .   اي .   كمية الصنف+الارجاع.
وجعل الحذ بال ID..تمام انا عملت مثل هذا المثال..

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

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

أعملها على مبدأ فاتورة المشتريات فقط غير الاسم الى مردود المبيعات .

(31-12-18, 05:55 PM)asemshahen5 كتب : [ -> ]أعملها على مبدأ فاتورة المشتريات فقط غير الاسم الى مردود المبيعات .

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


ام انك تقصد شيئا آخر قد فاتني اخي عاصم

على مبدأ فاتورة المشتريات أي في معادلة التسعير لا تدخل بسبب معامل البحث بتاع التسعير .

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

For i As Integer = 0 To DataGridVi.Rows.Count - 1
            DataGridVi.Rows(i).Cells(5).Value = TextBox1.Text
            If DataGridVi(5, DataGridVi.Rows(i).Index).Value > 0 Then
                Dim a As Integer = DataGridVi.Rows(i).Cells(5).Value
                Dim cmdup As New OleDb.OleDbCommand
                With cmdup
                    .Connection = con
                    .CommandType = CommandType.Text
                    .CommandText = "update salhos set t=t- " & a & "   where id = " & DataGridVi.Rows(i).Cells(0).Value & "  "
                    con.Open()
                    cmdup.ExecuteNonQuery()
                    con.Close()
                End With
            End If

        Next
السلام عليكم شباب ان استعملت هذه الكود لكين المشكلة انه يسترجع من جميع اعمدة الكمية وكذالك تكون الاضافة في جميع اعمدة الكمية في المخزن

اخي قلت لك لن يحل هذه المشكلة الا انت فانت
المصمم فابدأ بالعمل وان وقف امامك شي فاعضاء
المنتدي اوفياء ولا يبخلون..
وشكرا.