Visual Basic

SELECT 
  SUM((qty * Price) - (qty * InstantSavings))
  FROM ShoppingCart
  WHERE SessionID = @SessionID 
  AND Taxable=1

Dim pValue As Decimal = 0
Using context As New DBContext()

   Dim totals as what?
   pValue = _
   (
      From sc In context.ShoppingCart
      Where sc.SessionID = p_sessionID _
      And sc.Taxable = True
      Group sc By sc.SessionID Into totals()
      Select
     {
       total = totals.Sum(Function(m) (m.Qty * m.Price) - (m.Qty * m.InstantSavings))
     }
   )

  End Using

pls help !!!
USERID     TIMEINOUT         CHECKTYPE
120    1/2/2015 04:30:45 AM     I
120    1/2/2015 07:50:45 AM     O
120    1/2/2015 09:30:45 AM     I
120    1/2/2015 02:20:45 PM     O
120    1/2/2015 04:10:45 PM     I
120    1/2/2015 05:50:45 PM     O

135    1/2/2015 07:30:45 AM     I
135    1/2/2015 09:40:45 AM     O
135    1/2/2015 12:30:45 PM     I
135    1/2/2015 02:10:45 PM     O


output:
userID   date     timeIn        timeOut
120    1/2/2015  04:30:45      07:50:45
120    1/2/2015  09:30:45      02:20:45
120    1/2/2015  04:10:45      05:50:45
135    1/2/2015  07:30:45      09:40:45
135    1/2/2015  12:30:45      02:10:45

Using context as new DBContext()
Dim r = _
(
   From pi In context.ProductInfo
   Where pi.ProductID = p_Product_ID
   Select New productBulkTransfer With
  {
    .PartNumber = pi.PartNumber,
    ..... 30 more columns
  }
).SingleOrDefault()

Dim w As New PRODUCTINFO_RECYCLEBIN With
{
    .PartNumber = r.PartNumber,
    ..... 30 more columns
}

context.ProductInfo_RecycleBin.Add(w)
context.SaveChanges()

End Using

Dim CMD3 As New OleDb.OleDbCommand
SQL = "insert into reciptdetails" +
      "(Reciptid,Barcode,Itemcount,Itembuyprice,Itemsellprice)" +
      "values" +
      "(:0    ,:1    ,:2    ,:3    ,:4       )"
CMD3.Connection = Myconnection
CMD3.Transaction = Mytransaction
CMD3.CommandText = SQL
CMD3.Parameters.AddWithValue(":0", reciptid)
CMD3.Parameters.AddWithValue(":1", Barcode)
CMD3.Parameters.AddWithValue(":2", Itemcount)
CMD3.Parameters.AddWithValue(":3", BuyPrice)
CMD3.Parameters.AddWithValue(":4", SellPrice)
CMD3.ExecuteNonQuery()
CMD3.Dispose()

//Add up the total cost value = $163,315.23
m_totalCost += i.ExtCost

//Add up the total price value = $433,211.49
m_totalPrice += i.ExtPrice

//Add up the total margin value = $270,496.00
m_totalMargin += m_margin

//Add up the total cost value = $164.575.65
If (i.ExtCost > 0) Then
  m_totalCost = m_totalCost + i.ExtCost
ElseIf (i.ExtCost < 0) Then
  m_totalCost = m_totalCost - i.ExtCost
End If

//Add up the total price value = $437,101.63
If (i.ExtPrice > 0) Then
  m_totalPrice = m_totalPrice + i.ExtPrice
ElseIf (i.ExtPrice < 0) Then
  m_totalPrice = m_totalPrice - i.ExtPrice
End If