[kharbatha]

(12-11-21, 12:50 PM)mrfenix93 كتب : ممكن صورة الكود المستخدم

كود :

Public Sub Insert_By_ID_2()
       Dim x As Integer
       'Try
       If Con.State = 1 Then Con.Close()
       Con.Open()
       Dim cmd As New SqlCommand(" select  *  from View_Store  where  Prd_Code=@Prd_Code", Con)
       cmd.Parameters.Clear()
       cmd.Parameters.AddWithValue("@Prd_Code", SqlDbType.VarChar).Value = Prd_Code.Text
       Dim adp As New SqlDataAdapter(cmd)
       Dim dr As SqlDataReader
       dr = cmd.ExecuteReader
       If dr.HasRows Then
           While dr.Read
               For i As Integer = 0 To dgvSale.Rows.Count - 1
                   If dgvSale.Rows(i).Cells(1).Value = Prd_Code.Text Then
                       dgvSale(5, i).Value = dgvSale(5, i).Value + 1
                       dgvSale(6, i).Value = dgvSale(5, i).Value * dgvSale(4, i).Value
                       dgvSale(8, i).Value = dgvSale(5, i).Value * dgvSale(7, i).Value
                       Exit Sub
                   End If
               Next
               dgvSale.Rows.Add()
               x = dgvSale.Rows.Count - 1
               dgvSale(0, x).Value = dr("Prd_ID").ToString
               dgvSale(1, x).Value = dr("Prd_Code").ToString
               dgvSale(2, x).Value = dr("Prd_Name").ToString
               dgvSale(3, x).Value = dr("UnitName").ToString
               dgvSale(4, x).Value = dr("SellPrice").ToString
               dgvSale(7, x).Value = dr("BuyPrice").ToString
               dgvSale(5, x).Value = 1
               dgvSale(6, x).Value = dgvSale(5, x).Value * dgvSale(4, x).Value
               dgvSale(8, x).Value = dgvSale(5, x).Value * dgvSale(7, x).Value
               TXTQty.Text = dr("Qty").ToString
               TXTPrdLimit.Text = dr("PrdLimit").ToString
               If Val(TXTQty.Text) < Val(TXTPrdLimit.Text) Then
                   TXTQty.BackColor = Color.Red
                   MsgBox(" تنبيه الكمية الموجودة اقل من حد الطلب", 0, "")
               Else
                   TXTQty.BackColor = Color.White
               End If
           End While
           dr.Close()
           Con.Close()
       Else
           MsgBox("كود المنتج الذي قمت بادخاله غير موجود", 0, "")
       End If
       'Catch ex As Exception
       'Con.Close()
       'End Try
   End Sub