[عبدالرحمن بشري عمر]

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

[اسامه الهرماوي]

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

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

[new_programer]

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

[محمد كريّم]

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

[asemshahen5]

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

[محمد كريّم]

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

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


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

[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
السلام عليكم شباب ان استعملت هذه الكود لكين المشكلة انه يسترجع من جميع اعمدة الكمية وكذالك تكون الاضافة في جميع اعمدة الكمية في المخزن

[اسامه الهرماوي]

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