10-07-18, 12:51 PM
اخى ملهم عندى مشكلة انى لما استدعى الفاتورة من البحث لا تظهر فى شاشة المشتريات لا راس الفاتورة ولا تفاصيلها مع العلم انى استخدم dataset واستخدم access 2007 وقمت بالعمل مثلما ما شرحت فى البرنامج مع تغيير فى اسماء قاعدة البيانات
10-07-18, 12:51 PM
10-07-18, 03:39 PM
(10-07-18, 04:06 AM)ملهمـ كتب : [ -> ]اجتهد أخي الكريم واكتب الكود وحدك
الحمد لله انا معاك درس بدرس اخلي ملهم واكتب كل شئ لوحدي
وبارك الله فيك مرة اخري وفي ميزان حسناتك
10-07-18, 03:45 PM
(08-07-18, 10:07 PM)ملهمـ كتب : [ -> ]عدنا بعد فترة من الغياب
الدرس الرابع والعشرين : استخراج متوسط السعر
أتمنى أن اجد الدعم منكم على صفحتي في اليوتيوب
السلام عليكم أخي ملهم
بارك الله فيك على ما تقدمه في الدورة
بالنسبة لمتوسط سعر الشراء فالطريقة المتبعة غير صحيحة
انت تستخدم طريقة المتوسط الحسابي وهذا غير صحيح
المطلوب متوسط سعر الشراء للكمية المتوفرة حاليا
حسب طريقتك لو كان لديك صنف اشتريت منه 100 قطعة بسعر 10 دينار مثلا
ثم بعت هذه الكمية كلها على فواتير او فاتورة واحدة لا يهم
المهم اصبحت الكمية الان 0
ثم اشتريت كمية اخرى بسعر جديد وفي هذه الحالة ستحسب المتوسط من جدول سطور المشتريات (تفاصيل فواتير المشتريات)
ستنتج عندك قيمة متوسط خاطئة
اما طريقة الحساب الصحيحة ( التي يستخدمها المحاسبون )
متوسط سعر التكلفة =
(سعر الشراء القديم × الكمية المتوفرة في المخزن قبل عملية الشراء) + (شعر الشراء الجديد × الكمية الجديدة)
------------------------------------------ تقسيم ----------------------------------
(الكمية الموجودة في مخزن + الكمية الجديدة)
هناك مواضيع قديمة في المنتدى تناقش هذه العملية
تحياتي
10-07-18, 04:01 PM
مشكور على المشاركة أخي محمد
10-07-18, 06:02 PM
(10-07-18, 12:51 PM)atef_020 كتب : [ -> ]اخى ملهم عندى مشكلة انى لما استدعى الفاتورة من البحث لا تظهر فى شاشة المشتريات لا راس الفاتورة ولا تفاصيلها مع العلم انى استخدم dataset واستخدم access 2007 وقمت بالعمل مثلما ما شرحت فى البرنامج مع تغيير فى اسماء قاعدة البيانات
لم ترد اخى ملهم على سوالى
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 وقمت بالعمل مثلما ما شرحت فى البرنامج مع تغيير فى اسماء قاعدة البيانات
لم ترد اخى ملهم على سوالى
ضع الكود أخي الكريم
11-07-18, 06:46 AM
11-07-18, 04:01 PM
بالضبط
المهم ان لا تدخل الكميات المباعة في العملية الحسابية حتى لا تغير الناتج
الحسابات تكون فقط على الكمية "المتاحة للبيع"
https://www.arabstutors.com/inventory-sy...erage.html
https://egyaccountant.blogspot.com/2016/...-cost.html
https://egyaccountant.blogspot.com/2017/...ost_2.html
المهم ان لا تدخل الكميات المباعة في العملية الحسابية حتى لا تغير الناتج
الحسابات تكون فقط على الكمية "المتاحة للبيع"
https://www.arabstutors.com/inventory-sy...erage.html
https://egyaccountant.blogspot.com/2016/...-cost.html
https://egyaccountant.blogspot.com/2017/...ost_2.html
11-07-18, 11:50 PM
(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
13-07-18, 07:16 AM
كود :
val('" & CODE_ & "')"قم بالتعديل إلى :
كود :
'" & CODE_ & "'