[ahmedramzyaish]

كيف احصل على اخر سعر بيع لمنتج تم بيعه لعميل معين

مثلا تم بيع صنف 1 بمبلغ 20 ج فى فاتورة رقم 100
عند انشاء فاتورة جديدة لنفس العميل واختيار اسمة واختيار نفس الصنف يظهر عندى فى تكست بوكس اخر سعر تم بيع المنتج لة وهو 20ج

[DR.YASER]

السلام عليكم أخى ahmedramzyaish
الفكرة العامة للرد على تساؤلك هو (( LastRecord )) و باستخدام Where لـ كود العميل و المنتج
.. الموضوع ان شاء الله بسيط .. فقط ابدأ و لو وقف معك شئ ضعه هنا و نتابع معك

[ahmedramzyaish]

(21-05-20, 02:59 AM)DR.YASER كتب : السلام عليكم أخى ahmedramzyaish
الفكرة العامة للرد على تساؤلك هو (( LastRecord )) و باستخدام Where لـ كود العميل و المنتج
.. الموضوع ان شاء الله بسيط .. فقط ابدأ و لو وقف معك شئ ضعه هنا و نتابع معك

كود :

select Inv_Sub .exchange_price from Inv ,Inv_Sub where cust_id =185 and Inv_Sub.currency_from =500 and Inv_Sub .proc_id =81

انا كنت بجرب فى السيكول
exchange_price ده السعر المطلوب يظهر
cust_id رقم العميل
currency_from رقم الصنف
Inv_Sub .proc رقم الحركة
بس مش عارف

---

(21-05-20, 03:18 AM)ahmedramzyaish كتب :

(21-05-20, 02:59 AM)DR.YASER كتب : السلام عليكم أخى ahmedramzyaish
الفكرة العامة للرد على تساؤلك هو (( LastRecord )) و باستخدام Where لـ كود العميل و المنتج
.. الموضوع ان شاء الله بسيط .. فقط ابدأ و لو وقف معك شئ ضعه هنا و نتابع معك

كود :

select Inv_Sub .exchange_price from Inv ,Inv_Sub where cust_id =185 and Inv_Sub.currency_from =500 and Inv_Sub .proc_id =81

انا كنت بجرب فى السيكول
exchange_price  ده السعر المطلوب يظهر
cust_id  رقم العميل
currency_from  رقم الصنف
Inv_Sub .proc رقم الحركة
بس مش عارف

ارجوك لو ممكن تكتب لى الجملة الخاصة ب LastRecord بالمعطيات واسماء الجداول لان الموضوع مهم جدا لى

[DR.YASER]

حاااضر أخى ahmedramzyaish

---

كود :

cm.CommandText = "SELECT * FROM TABLE ORDER BY XX desc

---

و ممكن تضيف شرط باستخدام where .. و يفضل أن يكون XX حقل مسلسل و مفتاح أساسى ... لو وضعت كود و محتاج تكمل بس بلغنى هنا و كلنا معاك لا تقلق

[ahmedramzyaish]

PHP كود :

Dim da As New SqlDataAdapter("select exchange_price from Inv_Sub where currency_from=500 order by id desc ", conn)
        Dim dt As New DataTable
        da.Fill(dt)
        TextBox4.Text = ('dt') 


فى مشكلة
فى cm.CommandText مش عارف اضفها
مع العلم ان خبرتى ضعيفة
اشكرك جدااا اخى الكريم

[DR.YASER]

(21-05-20, 05:01 AM)ahmedramzyaish كتب :

PHP كود :

Dim da As New SqlDataAdapter("select exchange_price from Inv_Sub where currency_from=500 order by id desc ", conn)
        Dim dt As New DataTable
        da.Fill(dt)
        TextBox4.Text = ('dt') 


فى مشكلة
فى cm.CommandText مش عارف اضفها
مع العلم ان خبرتى ضعيفة
اشكرك جدااا اخى الكريم

و لا يهمك .. ضع الكود هنا ... نشغله و نصحح المشكلة  ان شاء الله

[ahmedramzyaish]

(21-05-20, 05:03 AM)DR.YASER كتب :

(21-05-20, 05:01 AM)ahmedramzyaish كتب :

PHP كود :

Dim da As New SqlDataAdapter("select exchange_price from Inv_Sub where currency_from=500 order by id desc ", conn)
        Dim dt As New DataTable
        da.Fill(dt)
        TextBox4.Text = ('dt') 


فى مشكلة
فى cm.CommandText مش عارف اضفها
مع العلم ان خبرتى ضعيفة
اشكرك جدااا اخى الكريم

و لا يهمك .. ضع الكود هنا ... نشغله و نصحح المشكلة  ان شاء الله

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

[عبد العزيز البسكري]

إضافة لما طرحه أخي الكريم ياسر بارك الله فيه و له

أظن و إذا كان فهمي صحيح للسؤال .. من الأفضل عدم التقيّد بسعلر معيّن بجملة الإستعلام

بدلا من كتابة Where Currency = 500

قد يتغير السعر في اليوم ربما لمرات عديدة

و لذلك من الأحسن إسناد السعر 500 إلى متغير عام

تحياتي

[ahmedramzyaish]

(21-05-20, 05:13 AM)عبد العزيز البسكري كتب :

إضافة لما طرحه أخي الكريم ياسر بارك الله فيه و له

أظن و إذا كان فهمي صحيح للسؤال .. من الأفضل عدم التقيّد بسعلر معيّن بجملة الإستعلام

بدلا من كتابة Where Currency = 500

قد يتغير السعر في اليوم ربما لمرات عديدة

و لذلك من الأحسن إسناد السعر 500 إلى متغير عام

تحياتي

نعم اكيد ولكن اجرب الكود

PHP كود :

Private Sub Button2_Click_3(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        cm.CommandText = ("select exchange_price from Inv_Sub where currency_from=500 order by id desc ", conn)


        'Dim da As New SqlDataAdapter("select exchange_price from Inv_Sub where currency_from=500 order by id desc ", conn)
        'Dim dt As New DataTable
        'da.Fill(dt)
        'TextBox4.Text = ('dt')
       
    End Sub 


[DR.YASER]

(21-05-20, 05:13 AM)عبد العزيز البسكري كتب :

إضافة لما طرحه أخي الكريم ياسر بارك الله فيه و له

أظن و إذا كان فهمي صحيح للسؤال .. من الأفضل عدم التقيّد بسعلر معيّن بجملة الإستعلام

بدلا من كتابة Where Currency = 500

قد يتغير السعر في اليوم ربما لمرات عديدة

و لذلك من الأحسن إسناد السعر 500 إلى متغير عام

تحياتي

أستاذنا الفاضل و أخى العزيز : عبد العزيز البسكري
فعلا ما تقوله هو رأى الخبراء .. لأن البيانات المتداولة داخل قواعد البيانات لا تحظى بثبات القيمة مطلقا