[atef_020]

للاسف لم تحل المشكلة

[elgokr]

فى هذه الحالة ارفق المشروع

حتى يتم الاطلاع على ما تقوم بكتابته واستخدامه

لتوضيح اين تقع المشكلة تماماً

تحياتى لك

وتمنياتى لك التوفيق

[atef_020]

(03-07-18, 08:19 PM)elgokr كتب :

فى هذه الحالة ارفق المشروع

حتى يتم الاطلاع على ما تقوم بكتابته واستخدامه

لتوضيح اين تقع المشكلة تماماً

تحياتى لك

وتمنياتى لك التوفيق

ارسلت المشروع أكثر من مرة اخى الكريم

[elgokr]

(05-07-18, 11:17 AM)atef_020 كتب :

(03-07-18, 08:19 PM)elgokr كتب :

فى هذه الحالة ارفق المشروع

حتى يتم الاطلاع على ما تقوم بكتابته واستخدامه

لتوضيح اين تقع المشكلة تماماً

تحياتى لك

وتمنياتى لك التوفيق

ارسلت المشروع أكثر من مرة اخى الكريم

الرجاء اعادة ارساله

فيبدو انه لم تصلنى اى رابط بعد او قد لم انتبه

من كثرة الاخرين فى الاستفسارات

فاتمنا اعادة ارسال الرابط مع ذكر رابط الموضوع

حتى انتبه انه يخص لك

فسامحنى على التاخير 

تحياتى لك

[atef_020]

(05-07-18, 01:22 PM)elgokr كتب :

(05-07-18, 11:17 AM)atef_020 كتب :

(03-07-18, 08:19 PM)elgokr كتب :

فى هذه الحالة ارفق المشروع

حتى يتم الاطلاع على ما تقوم بكتابته واستخدامه

لتوضيح اين تقع المشكلة تماماً

تحياتى لك

وتمنياتى لك التوفيق

ارسلت المشروع أكثر من مرة اخى الكريم

والله اخى انا ارسلتة اكثر من 3 مرات 

الرجاء اعادة ارساله

فيبدو انه لم تصلنى اى رابط بعد او قد لم انتبه

من كثرة الاخرين فى الاستفسارات

فاتمنا اعادة ارسال الرابط مع ذكر رابط الموضوع

حتى انتبه انه يخص لك

فسامحنى على التاخير 

تحياتى لك

---

(05-07-18, 01:22 PM)elgokr كتب :

(05-07-18, 11:17 AM)atef_020 كتب :

(03-07-18, 08:19 PM)elgokr كتب :

فى هذه الحالة ارفق المشروع

حتى يتم الاطلاع على ما تقوم بكتابته واستخدامه

لتوضيح اين تقع المشكلة تماماً

تحياتى لك

وتمنياتى لك التوفيق

ارسلت المشروع أكثر من مرة اخى الكريم

الرجاء اعادة ارساله

فيبدو انه لم تصلنى اى رابط بعد او قد لم انتبه

من كثرة الاخرين فى الاستفسارات

فاتمنا اعادة ارسال الرابط مع ذكر رابط الموضوع

حتى انتبه انه يخص لك

فسامحنى على التاخير 

تحياتى لك

والله اخى انا ارسلتة اكثر من 3 مرات 

[elgokr]

(17-07-18, 07:32 PM)atef_020 كتب : والله اخى انا ارسلتة اكثر من 3 مرات 

اغلب الاوقات تكون صندوق الرسائل لدى تجاوزت الحجم المسموح

لذلك قد لا تصل الرسالة او ما شبه ....

فالجرا اعادة ارسال الرسالة مجددى يحتى على رابط الموضوع هنا

حتى يتم الانتباه لمضمون الرسالة

تحياتى لك

[atef_020]

(18-07-18, 05:54 AM)elgokr كتب :

(17-07-18, 07:32 PM)atef_020 كتب : والله اخى انا ارسلتة اكثر من 3 مرات 

اغلب الاوقات تكون صندوق الرسائل لدى تجاوزت الحجم المسموح

لذلك قد لا تصل الرسالة او ما شبه ....

فالجرا اعادة ارسال الرسالة مجددى يحتى على رابط الموضوع هنا

حتى يتم الانتباه لمضمون الرسالة

تحياتى لك

رابط الرسالة

دا رابط الرسالة 

الرسالة بعنوان رابط المشروع اخى الجوكر على الميديافير

[elgokr]

تفضل اخى الكريم

كل ما عليك استبدال 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 الموجود فى كل من الجدولين

حتى تتمكن من اختبار وعرض البيانات بصورة صحيحة

تحياتى لك

وتمنياتى لك التوفيق

[atef_020]

والله اخى الكريم الجوكر انا اولا عاجز عن الشكر عن سعة صدرك وصبرك على 

ولكن للاسف لم تظهر الفاتورة فى شاشة المشتريات 

وهذه الملحوظة لم اعرف

 ملحوظة: تاكد ان قيمة CODE_ هو رقم 20 بنائاً على قاعدة البيانات

حيث ان العامل بين الجدولين هو رقم 20 الموجود فى كل من الجدولين

حتى تتمكن من اختبار وعرض البيانات بصورة صحيحة

[elgokr]

انت لديك كلاً من
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 لتتاكد انه يعرض بيانات

تحياتى لك

وتمنياتى لك التوفيق