09-07-24, 02:05 AM
السلام عليكم لدي فاتورة مبيعات وعند ادخال منتج عن طريق الباركود يظيف المنتج الى الداتا
عند اضافة منتج ثاني الى الباركود لا يتم اضافة المنتج الى داتا كرد فيو
Sub LoadCart()
Try
Dim i As Integer = 0
Dim total As Double = 0
DataGridView1.Rows.Clear()
cn.Open()
cm = New SqlCommand("SELECT * FROM tblCart AS r INNER JOIN tblProduct AS p ON r.CartProduct = ProductID INNER JOIN tblGeneric AS g ON p.ProductGeneric = GenericID INNER JOIN tblBrand AS b ON p.ProductBrand = BrandID INNER JOIN tblFromulation AS f ON p.ProductFromulation = FromulationID INNER JOIN tblClassification AS c ON p.ProductClassification = ClassificationID INNER JOIN tblType AS t ON p.ProductType = TypeID where CartInvoice like '" & lblInvoice.Text & "'", cn)
dr = cm.ExecuteReader
With dr.Read
i += 1
DataGridView1.Rows.Add(i, dr.Item("CartID").ToString, dr.Item("CartInvoice").ToString, dr.Item("GenericName").ToString, dr.Item("BrandName").ToString, dr.Item("FromulationName").ToString, dr.Item("ClassificationName").ToString, dr.Item("TypeName").ToString, dr.Item("ProductSalePrice").ToString, dr.Item("CartQuantity").ToString, Format(CDate(dr.Item("ProductDate").ToString), "yyyy/MM"), dr.Item("CartTotal").ToString)
total += CDbl(dr.Item("CartTotal").ToString)
End With
dr.Close()
cn.Close()
lblDisplayTotal.Text = Format(total, "#,##0")
Catch ex As Exception
cn.Close()
MsgBox(ex.Message, vbCritical)
End Try
End Sub
----------------------------------------
Sub AddTOCart()
Try
If txtQuantity.Text = String.Empty Or txtQuantity.Text = "0" Then Return
Dim CartDate As String = Now.ToString("yyyy/MM/dd")
cn.Open()
cm = New SqlCommand("insert into tblCart (CartInvoice,CartProduct,CartPrice,CartQuantity,CartDate,CartUser)values(@CartInvoice,@CartProduct,@CartPrice,@CartQuantity,@CartDate,@CartUser)", cn)
With FormSales
cm.Parameters.AddWithValue("CartInvoice", .lblInvoice.Text)
cm.Parameters.AddWithValue("CartProduct", lblPID.Text)
cm.Parameters.AddWithValue("CartPrice", CDbl(LblPrice.Text))
cm.Parameters.AddWithValue("CartQuantity", CInt(txtQuantity.Text))
cm.Parameters.AddWithValue("CartDate", CartDate)
cm.Parameters.AddWithValue("CartUser", StrUser)
cm.ExecuteNonQuery()
cn.Close()
cn.Open()
cm = New SqlCommand("update tblCart set CartTotal = CartPrice * CartQuantity where CartInvoice like '" & .lblInvoice.Text & "'", cn)
cm.ExecuteNonQuery()
cn.Close()
.txtSearch.Focus()
.txtSearch.SelectionStart = 0
.txtSearch.SelectionLength = .txtSearch.Text.Length
.LoadCart()
End With
Me.Dispose()
Catch ex As Exception
cn.Close()
MsgBox(ex.Message, vbCritical)
End Try
End Sub
-------------------------------------
حدث الاضافة
Private Sub txtQuantity_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtQuantity.KeyPress
Select Case Asc(e.KeyChar)
Case 13
AddTOCart()
Case 48 To 57
Case 8
Case Else
e.Handled = True
End Select
End Sub
عند اضافة منتج ثاني الى الباركود لا يتم اضافة المنتج الى داتا كرد فيو
Sub LoadCart()
Try
Dim i As Integer = 0
Dim total As Double = 0
DataGridView1.Rows.Clear()
cn.Open()
cm = New SqlCommand("SELECT * FROM tblCart AS r INNER JOIN tblProduct AS p ON r.CartProduct = ProductID INNER JOIN tblGeneric AS g ON p.ProductGeneric = GenericID INNER JOIN tblBrand AS b ON p.ProductBrand = BrandID INNER JOIN tblFromulation AS f ON p.ProductFromulation = FromulationID INNER JOIN tblClassification AS c ON p.ProductClassification = ClassificationID INNER JOIN tblType AS t ON p.ProductType = TypeID where CartInvoice like '" & lblInvoice.Text & "'", cn)
dr = cm.ExecuteReader
With dr.Read
i += 1
DataGridView1.Rows.Add(i, dr.Item("CartID").ToString, dr.Item("CartInvoice").ToString, dr.Item("GenericName").ToString, dr.Item("BrandName").ToString, dr.Item("FromulationName").ToString, dr.Item("ClassificationName").ToString, dr.Item("TypeName").ToString, dr.Item("ProductSalePrice").ToString, dr.Item("CartQuantity").ToString, Format(CDate(dr.Item("ProductDate").ToString), "yyyy/MM"), dr.Item("CartTotal").ToString)
total += CDbl(dr.Item("CartTotal").ToString)
End With
dr.Close()
cn.Close()
lblDisplayTotal.Text = Format(total, "#,##0")
Catch ex As Exception
cn.Close()
MsgBox(ex.Message, vbCritical)
End Try
End Sub
----------------------------------------
Sub AddTOCart()
Try
If txtQuantity.Text = String.Empty Or txtQuantity.Text = "0" Then Return
Dim CartDate As String = Now.ToString("yyyy/MM/dd")
cn.Open()
cm = New SqlCommand("insert into tblCart (CartInvoice,CartProduct,CartPrice,CartQuantity,CartDate,CartUser)values(@CartInvoice,@CartProduct,@CartPrice,@CartQuantity,@CartDate,@CartUser)", cn)
With FormSales
cm.Parameters.AddWithValue("CartInvoice", .lblInvoice.Text)
cm.Parameters.AddWithValue("CartProduct", lblPID.Text)
cm.Parameters.AddWithValue("CartPrice", CDbl(LblPrice.Text))
cm.Parameters.AddWithValue("CartQuantity", CInt(txtQuantity.Text))
cm.Parameters.AddWithValue("CartDate", CartDate)
cm.Parameters.AddWithValue("CartUser", StrUser)
cm.ExecuteNonQuery()
cn.Close()
cn.Open()
cm = New SqlCommand("update tblCart set CartTotal = CartPrice * CartQuantity where CartInvoice like '" & .lblInvoice.Text & "'", cn)
cm.ExecuteNonQuery()
cn.Close()
.txtSearch.Focus()
.txtSearch.SelectionStart = 0
.txtSearch.SelectionLength = .txtSearch.Text.Length
.LoadCart()
End With
Me.Dispose()
Catch ex As Exception
cn.Close()
MsgBox(ex.Message, vbCritical)
End Try
End Sub
-------------------------------------
حدث الاضافة
Private Sub txtQuantity_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtQuantity.KeyPress
Select Case Asc(e.KeyChar)
Case 13
AddTOCart()
Case 48 To 57
Case 8
Case Else
e.Handled = True
End Select
End Sub