تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
خصم الكميات الموجوده باكتر من تاريخ
#11
شكرا يا بشمهندس بالفعل نفذت المطلوب
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , WaeLx , WaeLx , asemshahen5
#12
شكرا لكل الاساتذه المحترمين الى ردوا بس لو حد دخل علشان يستفاد بشكل اعمق يلاقى حل لمشكله بتواجه كتير مننا 
الى هى عنوان الموضوع 
الفكره الى عايز اطبقها هو بمجرد استعلام عن الصنف واخر تاريخ 
يبقى لو الكميه اكبر من الكمية المباعه يبقى يعمل ابديت لو مساويه يحذف لو اكبر  ياخد القيمه المتبقيه ويعيد الاستعلام تانى 
الرجاء المساعده فى الكود علشان نقفل الموضوع بحل فى الاخر يفيد اى حد يدخل يقرى الموضوع
انا كاتب جزء من الكود وهى فى حالة انه اقل من الكميه وطالع معايا خطا
كود :
  For Each r As DataGridViewRow In dgvprodac.Rows
           Dim ad As Integer = Val(r.Cells(0).Value)
           Dim txP As String = Val(r.Cells(1).Value)
           Dim xt As Single = Val(r.Cells(2).Value)
           Dim txC As Integer = Val(r.Cells(3).Value)
           Dim cmd As OleDbCommand = New OleDbCommand("SELECT date_ex, sanf_kem from store WHERE ID_sanf =@pass ORDER BY  date_ex", con)
           cmd.Parameters.Add(New OleDbParameter("@pass", ad))
           If con.State = ConnectionState.Open Then
               con.Close()
           End If
           con.Open()
           Dim dr As OleDbDataReader = cmd.ExecuteReader
           While dr.Read()
               DateTimePicker1.Value = dr(0)
               TextBox5.Text = dr(1)
               con.Close()
               dr.Close()
               Exit While
           End While
           If Val(TextBox5.Text) > xt Then
               md.CommandText = String.Format(" UPDATE [store] SET [sanf_kem] = sanf_kem -{0}  WHERE [ID_sanf] = {1} and [date_ex] ={2}", xt, ad, dr(0))
               con.Open()
               md.ExecuteNonQuery()
               con.Close()
           End If
       Next
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , WaeLx , WaeLx , asemshahen5 , كريم عبودي
#13
(20-07-20, 03:15 AM)NABILWARSAW كتب : شكرا لكل الاساتذه المحترمين الى ردوا بس لو حد دخل علشان يستفاد بشكل اعمق يلاقى حل لمشكله بتواجه كتير مننا 
الى هى عنوان الموضوع 
الفكره الى عايز اطبقها هو بمجرد استعلام عن الصنف واخر تاريخ 
يبقى لو الكميه اكبر من الكمية المباعه يبقى يعمل ابديت لو مساويه يحذف لو اكبر  ياخد القيمه المتبقيه ويعيد الاستعلام تانى 
الرجاء المساعده فى الكود علشان نقفل الموضوع بحل فى الاخر يفيد اى حد يدخل يقرى الموضوع
انا كاتب جزء من الكود وهى فى حالة انه اقل من الكميه وطالع معايا خطا
كود :
  For Each r As DataGridViewRow In dgvprodac.Rows
           Dim ad As Integer = Val(r.Cells(0).Value)
           Dim txP As String = Val(r.Cells(1).Value)
           Dim xt As Single = Val(r.Cells(2).Value)
           Dim txC As Integer = Val(r.Cells(3).Value)
           Dim cmd As OleDbCommand = New OleDbCommand("SELECT date_ex, sanf_kem from store WHERE ID_sanf =@pass ORDER BY  date_ex", con)
           cmd.Parameters.Add(New OleDbParameter("@pass", ad))
           If con.State = ConnectionState.Open Then
               con.Close()
           End If
           con.Open()
           Dim dr As OleDbDataReader = cmd.ExecuteReader
           While dr.Read()
               DateTimePicker1.Value = dr(0)
               TextBox5.Text = dr(1)
               con.Close()
               dr.Close()
               Exit While
           End While
           If Val(TextBox5.Text) > xt Then
               md.CommandText = String.Format(" UPDATE [store] SET [sanf_kem] = sanf_kem -{0}  WHERE [ID_sanf] = {1} and [date_ex] ={2}", xt, ad, dr(0))
               con.Open()
               md.ExecuteNonQuery()
               con.Close()
           End If
       Next

السلام عليكم و رحمة الله و بركاته

يفضل وضع رسالة الخطأ حتى تتسنى المساعدة

و ربما الخطأ في هذه الجزئية

كود :
[sanf_kem] = sanf_kem -{0}


أنت تحتاجها تساوي صفر، فلم لا تجعلها صفر مباشرة؟

كود :
[sanf_kem] = 0
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#14
ده باراميتر مش صفر
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#15
(20-07-20, 06:50 PM)NABILWARSAW كتب : ده باراميتر مش صفر


عارف انه مش صفر و انه الباراميتر الاول (xt)

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

كود :
If Val(TextBox5.Text) > xt
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  عندما اقوم بالاستعلام عن تاريخ معين بواسطة SELECT لايقوم بتحديد نفس تاريخ اليوم moh61 1 403 13-08-23, 01:06 PM
آخر رد: تركي الحلواني
  [VB.NET] اريد طريقة حساب فرق بين تاريخ موجود في لست فيو وتاريخ الجهاز mac9 4 708 11-04-23, 10:23 AM
آخر رد: mac9
  [Acces2007] نشر تاريخ الشهر في أعمدة الداتا جريد فيو ابو ايمن شعيب 0 330 16-03-23, 07:13 PM
آخر رد: ابو ايمن شعيب
Rainbow [كود] حساب تاريخ +عدد ايام لتكون النتيجه بعد الحساب =تاريخ محمد مسافر 1 472 14-09-22, 12:05 AM
آخر رد: Taha Okla
  جملة الاستعلام عن بداية حالة من تاريخ الى تاريخ aftfm 3 679 01-09-22, 06:17 AM
آخر رد: جيولوجي مبتدئ
  ناتج تاريخ بين تاريخ اليوم و عدد ايام nabil.1710 3 761 28-08-22, 11:48 PM
آخر رد: asmarsou
  [VB.NET] تلوين خلية في الكرستال ريبورت وفق شرط تاريخ muaamar 0 558 13-08-22, 10:18 PM
آخر رد: muaamar

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم