03-07-18, 02:53 PM
03-07-18, 08:19 PM
فى هذه الحالة ارفق المشروع
حتى يتم الاطلاع على ما تقوم بكتابته واستخدامه
لتوضيح اين تقع المشكلة تماماً
تحياتى لك
وتمنياتى لك التوفيق
05-07-18, 11:17 AM
(03-07-18, 08:19 PM)elgokr كتب : [ -> ]فى هذه الحالة ارفق المشروعحتى يتم الاطلاع على ما تقوم بكتابته واستخدامهلتوضيح اين تقع المشكلة تماماً
تحياتى لكوتمنياتى لك التوفيق
ارسلت المشروع أكثر من مرة اخى الكريم
05-07-18, 01:22 PM
(05-07-18, 11:17 AM)atef_020 كتب : [ -> ](03-07-18, 08:19 PM)elgokr كتب : [ -> ]فى هذه الحالة ارفق المشروعحتى يتم الاطلاع على ما تقوم بكتابته واستخدامهلتوضيح اين تقع المشكلة تماماً
تحياتى لكوتمنياتى لك التوفيق
ارسلت المشروع أكثر من مرة اخى الكريم
الرجاء اعادة ارساله
فيبدو انه لم تصلنى اى رابط بعد او قد لم انتبه
من كثرة الاخرين فى الاستفسارات
فاتمنا اعادة ارسال الرابط مع ذكر رابط الموضوع
حتى انتبه انه يخص لك
فسامحنى على التاخير
تحياتى لك
17-07-18, 07:32 PM
(05-07-18, 01:22 PM)elgokr كتب : [ -> ](05-07-18, 11:17 AM)atef_020 كتب : [ -> ]والله اخى انا ارسلتة اكثر من 3 مرات(03-07-18, 08:19 PM)elgokr كتب : [ -> ]فى هذه الحالة ارفق المشروعحتى يتم الاطلاع على ما تقوم بكتابته واستخدامهلتوضيح اين تقع المشكلة تماماً
تحياتى لكوتمنياتى لك التوفيق
ارسلت المشروع أكثر من مرة اخى الكريم
الرجاء اعادة ارساله
فيبدو انه لم تصلنى اى رابط بعد او قد لم انتبهمن كثرة الاخرين فى الاستفسارات
فاتمنا اعادة ارسال الرابط مع ذكر رابط الموضوعحتى انتبه انه يخص لك
فسامحنى على التاخيرتحياتى لك
(05-07-18, 01:22 PM)elgokr كتب : [ -> ]والله اخى انا ارسلتة اكثر من 3 مرات(05-07-18, 11:17 AM)atef_020 كتب : [ -> ](03-07-18, 08:19 PM)elgokr كتب : [ -> ]فى هذه الحالة ارفق المشروعحتى يتم الاطلاع على ما تقوم بكتابته واستخدامهلتوضيح اين تقع المشكلة تماماً
تحياتى لكوتمنياتى لك التوفيق
ارسلت المشروع أكثر من مرة اخى الكريم
الرجاء اعادة ارساله
فيبدو انه لم تصلنى اى رابط بعد او قد لم انتبهمن كثرة الاخرين فى الاستفسارات
فاتمنا اعادة ارسال الرابط مع ذكر رابط الموضوعحتى انتبه انه يخص لك
فسامحنى على التاخيرتحياتى لك
18-07-18, 05:54 AM
(17-07-18, 07:32 PM)atef_020 كتب : [ -> ]والله اخى انا ارسلتة اكثر من 3 مرات
اغلب الاوقات تكون صندوق الرسائل لدى تجاوزت الحجم المسموح
لذلك قد لا تصل الرسالة او ما شبه ....
فالجرا اعادة ارسال الرسالة مجددى يحتى على رابط الموضوع هنا
حتى يتم الانتباه لمضمون الرسالة
تحياتى لك
18-07-18, 12:32 PM
(18-07-18, 05:54 AM)elgokr كتب : [ -> ](17-07-18, 07:32 PM)atef_020 كتب : [ -> ]والله اخى انا ارسلتة اكثر من 3 مرات
اغلب الاوقات تكون صندوق الرسائل لدى تجاوزت الحجم المسموحلذلك قد لا تصل الرسالة او ما شبه ....
فالجرا اعادة ارسال الرسالة مجددى يحتى على رابط الموضوع هناحتى يتم الانتباه لمضمون الرسالة
تحياتى لك
دا رابط الرسالة
الرسالة بعنوان رابط المشروع اخى الجوكر على الميديافير
18-07-18, 07:18 PM
تفضل اخى الكريم
كل ما عليك استبدال Sub الخاص بـ SHOW_DETAILES الموجود بالفورم FrSell بالكود التالى
كل ما عليك استبدال Sub الخاص بـ SHOW_DETAILES الموجود بالفورم FrSell بالكود التالى
كود :
Sub SHOW_DETAILES(ByVal CODE_)
'=========== ربط رأس الفاتورة =============
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
'Dim DS As New DataSet
Dim DT_ As New DataTable
DT_.Clear()
'=========== ربط تفاصيل الفاتورة =============
DA = New OleDb.OleDbDataAdapter("SELECT * FROM Sell_Detl WHERE BUYCODE = val('" & CODE_ & "')", con)
'DS = New DataSet
DA.Fill(DT_)
'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("Quant")
' 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")
' dgv.Rows(I).Cells(10).Value = DT.Rows(I).Item("Stock")
'Next
dgv.DataSource = DT_
dgv.Refresh()
BUTTDELETE.Enabled = True
BUTTSAVE.Enabled = False
End If
End Subوسامحنى لعدم وجود صورة لتاكيد الكود
بسبب لا استخدم الكريستال على الجهاز
ملحوظة: تاكد ان قيمة CODE_ هو رقم 20 بنائاً على قاعدة البيانات
حيث ان العامل بين الجدولين هو رقم 20 الموجود فى كل من الجدولين
حتى تتمكن من اختبار وعرض البيانات بصورة صحيحة
تحياتى لك
وتمنياتى لك التوفيق
19-07-18, 04:57 PM
والله اخى الكريم الجوكر انا اولا عاجز عن الشكر عن سعة صدرك وصبرك على
ولكن للاسف لم تظهر الفاتورة فى شاشة المشتريات
وهذه الملحوظة لم اعرف
ملحوظة: تاكد ان قيمة CODE_ هو رقم 20 بنائاً على قاعدة البيانات
حيث ان العامل بين الجدولين هو رقم 20 الموجود فى كل من الجدولين
حتى تتمكن من اختبار وعرض البيانات بصورة صحيحة
19-07-18, 10:11 PM
انت لديك كلاً من
1- جدول SEL_HED
2- جدول Sell_Detl
وكلاهما مرتبط بقيمة CODE_
وهى خاصة لكل من
1- Sell_Detl.BUYCODE
2- SEL_HED.BUYCODE
1- جدول SEL_HED
2- جدول Sell_Detl
وكلاهما مرتبط بقيمة CODE_
وهى خاصة لكل من
1- Sell_Detl.BUYCODE
2- SEL_HED.BUYCODE
فملاحظ ان فى قاعدة البيانات انك واضع
فى جدول الارقام 1 و 2 و 4 و 20
وفى جدول اخر 20 و 30 كمثال
فاذا قمت بعمل جلب بيانات الفاتورة وليكن رقم 1
فطبيعة الحال لا يوجد اى تفاصيل ليعرضها من الجدول الاخر
فلازم يكون العموال المشتركة لـ BUYCODE واحد
يعنى التشابق الذى وجته بين الجدولين هو رقم 20
لذلك قلت تاكد ان القيمة فى التجربة رقم 20 لتتاكد انه يعرض بيانات
تحياتى لك
وتمنياتى لك التوفيق