[atef_020]

اخى ملهم عندى مشكلة انى لما استدعى الفاتورة من البحث لا تظهر فى شاشة المشتريات لا راس الفاتورة ولا تفاصيلها مع العلم انى استخدم dataset واستخدم access 2007 وقمت بالعمل مثلما ما شرحت فى البرنامج مع تغيير فى اسماء قاعدة البيانات

[مفتاح القبائلي]

(10-07-18, 04:06 AM)ملهمـ كتب : اجتهد أخي الكريم واكتب الكود وحدك

الحمد لله انا معاك درس بدرس اخلي ملهم واكتب كل شئ لوحدي 

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

[محمد كريّم]

(08-07-18, 10:07 PM)ملهمـ كتب : عدنا بعد فترة من الغياب 

الدرس الرابع والعشرين : استخراج متوسط السعر 





أتمنى أن اجد الدعم منكم على صفحتي في اليوتيوب

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

حسب طريقتك لو كان لديك صنف اشتريت منه 100 قطعة بسعر 10 دينار مثلا
ثم بعت هذه الكمية كلها على فواتير او فاتورة واحدة لا يهم
المهم اصبحت الكمية الان 0
ثم اشتريت كمية اخرى بسعر جديد وفي هذه الحالة ستحسب المتوسط من جدول سطور المشتريات (تفاصيل فواتير المشتريات)
ستنتج عندك قيمة متوسط خاطئة

اما طريقة الحساب الصحيحة ( التي يستخدمها المحاسبون )
متوسط سعر التكلفة =
(سعر الشراء القديم × الكمية المتوفرة في المخزن قبل عملية الشراء) + (شعر الشراء الجديد × الكمية الجديدة)
------------------------------------------ تقسيم ----------------------------------
(الكمية الموجودة في مخزن + الكمية الجديدة)


هناك مواضيع قديمة في المنتدى تناقش هذه العملية
تحياتي

[ملهمـ]

مشكور على المشاركة أخي محمد

[atef_020]

(10-07-18, 12:51 PM)atef_020 كتب : اخى ملهم عندى مشكلة انى لما استدعى الفاتورة من البحث لا تظهر فى شاشة المشتريات لا راس الفاتورة ولا تفاصيلها مع العلم انى استخدم dataset واستخدم access 2007 وقمت بالعمل مثلما ما شرحت فى البرنامج مع تغيير فى اسماء قاعدة البيانات

لم ترد اخى ملهم على سوالى

[ملهمـ]

(10-07-18, 06:02 PM)atef_020 كتب :

(10-07-18, 12:51 PM)atef_020 كتب : اخى ملهم عندى مشكلة انى لما استدعى الفاتورة من البحث لا تظهر فى شاشة المشتريات لا راس الفاتورة ولا تفاصيلها مع العلم انى استخدم dataset واستخدم access 2007 وقمت بالعمل مثلما ما شرحت فى البرنامج مع تغيير فى اسماء قاعدة البيانات

لم ترد اخى ملهم على سوالى

ضع الكود أخي الكريم

[ملهمـ]

http://vb4arb.com/vb/showthread.php?tid=21305

[محمد كريّم]

بالضبط
المهم ان لا تدخل الكميات المباعة في العملية الحسابية حتى لا تغير الناتج
الحسابات تكون فقط على الكمية "المتاحة للبيع"
https://www.arabstutors.com/inventory-sy...erage.html

https://egyaccountant.blogspot.com/2016/...-cost.html
https://egyaccountant.blogspot.com/2017/...ost_2.html

[atef_020]

(10-07-18, 09:52 PM)ملهمـ كتب :

(10-07-18, 06:02 PM)atef_020 كتب :

(10-07-18, 12:51 PM)atef_020 كتب : اخى ملهم عندى مشكلة انى لما استدعى الفاتورة من البحث لا تظهر فى شاشة المشتريات لا راس الفاتورة ولا تفاصيلها مع العلم انى استخدم dataset واستخدم access 2007 وقمت بالعمل مثلما ما شرحت فى البرنامج مع تغيير فى اسماء قاعدة البيانات

لم ترد اخى ملهم على سوالى

ضع الكود أخي الكريم

دا الكود اخى الكريم 
مش عارف استدعى الفاتورة من البحث  لا تظهر فى شاشة المشتريات لا راس الفاتورة ولا تفاصيلها 

PHP كود :

Sub SHOW_DETAILES(ByVal CODE_ As String)
        '=========== ربط رأس الفاتورة =============
        Dim DT As New DataTable
        Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM SEL_HED WHERE BUYCODE = val('" & CODE_ & "')", con)
        DA.Fill(DT)
        If DT.Rows.Count = 0 Then
            MessageBox.Show("يرجى التأكد من رقم الفاتورة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            Dim DR = DT.Rows(0)
            TXTID.Text = DR!BUYCODE
            BUYTYPE.Text = DR!BUYTYPE
            TXTN_SUPL.Text = DR!SUPL
            DateTimePicker1.Value = DR!SEL_DATE
            TXTMan.Text = DR!SEL_MAN
            NOTES.Text = DR!NOTES
            TXT_TOTLA2.Text = DR!TOTAL
            TXTINVO.Text = DR!ID_INVO
            Quant.Text = DR!Total_QNT
            Dim DS As New DataSet

            '=========== ربط تفاصيل الفاتورة =============
            DA = New OleDb.OleDbDataAdapter("SELECT * FROM Sell_Detl WHERE BUYCODE =  val('" & CODE_ & "')", con)
            DS = New DataSet
            DA.Fill(DS)
            DT = DS.Tables(0)
            For I = 0 To DT.Rows.Count - 1
                dgv.Rows.Add()
                dgv.Rows(I).Cells(0).Value = DT.Rows(I).Item("code")
                dgv.Rows(I).Cells(1).Value = DT.Rows(I).Item("name")
                dgv.Rows(I).Cells(2).Value = DT.Rows(I).Item("price")
                dgv.Rows(I).Cells(3).Value = DT.Rows(I).Item("UNIT")
                dgv.Rows(I).Cells(4).Value = DT.Rows(I).Item("QTY")
                dgv.Rows(I).Cells(5).Value = DT.Rows(I).Item("Cost_Unit")
                dgv.Rows(I).Cells(6).Value = DT.Rows(I).Item("Total")
                dgv.Rows(I).Cells(7).Value = DT.Rows(I).Item("DS")
                dgv.Rows(I).Cells(8).Value = DT.Rows(I).Item("Tax")
                dgv.Rows(I).Cells(9).Value = DT.Rows(I).Item("Stock")
            Next
            BUTTDELETE.Enabled = True
            BUTTSAVE.Enabled = False

        End If
    End Sub 


[ملهمـ]

كود :

val('" & CODE_ & "')"

النوع نص وليس عدد صحيح
قم بالتعديل إلى :

كود :

'" & CODE_ & "'