I keep getting an error code for line 27 and 37. I copied this
directly from the book and even downloaded the source code and still
come up with these 2 errors in Chapter 7

Error 1 'items' is not a member of 'ShoppingCart'.
C:\Websites\PPQ\skeleton\App_Code\StoredShoppingCa rt.vb 27
16 C:\...\skeleton\

Error 2 Argument not specified for parameter 'ItemPrice'
of 'Public Sub Update(MenuItemID As Integer, ItemSize As String,
itemName As String, ItemPrice As Decimal, Quantity As Integer)'.
C:\Websites\PPQ\skeleton\App_Code\StoredShoppingCa rt.vb 37
9 C:\...\skeleton\


Here is my code below:

Imports Microsoft.VisualBasic
Imports System.Collections.Generic


Public Class StoredShoppingCart


Public Shared Function Read() As ShoppingCart

Return FetchCart()

End Function


Public Shared Function Update(ByVal DeliveryCharge As Decimal) As Integer

Dim cart As ShoppingCart = StoredShoppingCart.FetchCart()

cart.DeliveryCharge = DeliveryCharge

End Function

Public Shared Function ReadItems() As List(Of CartItem)

Dim cart As ShoppingCart = StoredShoppingCart.FetchCart()

Return cart.items (THIS IS LINE 27)


End Function


Public Shared Function UpdateItem(ByVal MenuItemID As Integer, ByVal ItemSize As String, ByVal Quantity As Integer) As Integer

Dim cart As ShoppingCart = StoredShoppingCart.FetchCart()

cart.Update(MenuItemID, ItemSize, Quantity) (THIS IS LINE 37)

End Function


Public Shared Function DeleteItem(ByVal MenuItemID As Integer, ByVal ItemSize As String) As Integer

Dim cart As ShoppingCart = StoredShoppingCart.FetchCart()

cart.Delete(MenuItemID, ItemSize)

End Function


Public Shared Function InsertItem(ByVal MenuItemID As Integer, ByVal ItemName As String, ByVal ItemSize As String, ByVal Quantity As Integer, ByVal ItemPrice As Decimal) As Integer

Dim cart As ShoppingCart = StoredShoppingCart.FetchCart()

cart.Insert(MenuItemID, ItemSize, ItemName, ItemPrice, Quantity)

End Function




Private Shared Function FetchCart() As ShoppingCart


Dim cart As ShoppingCart = _
DirectCast(HttpContext.Current.Session("Cart"), ShoppingCart)


If cart Is Nothing Then
cart = New ShoppingCart()
HttpContext.Current.Session("Cart") = cart
End If

Return cart

End Function


End Class

Hello.

I am not familiar with this book but I think I can point you in the right direction as to why you are getting these errors.

First and foremost, checkout the errata: http://www.wrox.com/WileyCDA/WroxTit...Cd-ERRATA.html

Are any of your errors listed there?

Next, I can explain to why you are getting the errors but not necessarily how to fix them since I don't have a copy of the code at hand. The examples below *should* be able to set you on the right path to some degree.

Your error on line 37 says:

Error 2 Argument not specified for parameter 'ItemPrice'
of 'Public Sub Update(MenuItemID As Integer, ItemSize As String,
itemName As String, ItemPrice As Decimal, Quantity As Integer)'.
C:\Websites\PPQ\skeleton\App_Code\StoredShoppingCa rt.vb 37
9 C:\...\skeleton\


What the compiler is telling you is the the Update method expects n number of parameters but you have not supplied values for the parameter ItemPrice (the forth parameter) and, subsequently, you haven't provided a value for Quantity.

In your UpdateItem function you do this:

You would, as the code is wrote, need to do something like this:

This will remove the error from your application, however, you are passing in 0 for the ItemPrice and quantity which, as one might imagine, is undesirable.

Your second error seems related to the ShoppingCart class not having an 'Items' property. It would look something like this:


Let me know if I can be of further assistance!

hth.
-Doug

__________________
===============================================
Doug Parsons
Wrox online library: Wrox Books 24 x 7
Did someone here help you? Click on their post!
"Easy is the path to wisdom for those not blinded by themselves."
===============================================