Stuff

Imports System.Data.SqlClient

Friend Class Invoices

    Public Shared Function AddInvoice(ByVal MemberID As Integer, _
                                      ByVal CreditCardNumber As String, _
                                      ByVal PaymentTypeID As Integer, _
                                      ByVal GST As Decimal, _
                                      ByVal SubTotal As Decimal) As Integer
        Dim DBConnection As New SqlConnection(DBConnect)
        Dim myCommand As New SqlCommand("AddInvoice", DBConnection)

        ' To capture returned value from stored procedure
        Dim InvoiceNumber As Integer = -1

        myCommand.CommandType = CommandType.StoredProcedure

        ' Supply required parameters
        myCommand.Parameters.Add("@MemberID", SqlDbType.Int).Value = MemberID
        myCommand.Parameters.Add("@CreditCardNumber", SqlDbType.VarChar).Value = CreditCardNumber
        myCommand.Parameters.Add("@PaymentTypeID", SqlDbType.Int).Value = PaymentTypeID
        myCommand.Parameters.Add("@GST", SqlDbType.Decimal).Value = GST
        myCommand.Parameters.Add("@SubTotal", SqlDbType.Decimal).Value = SubTotal

        DBConnection.Open()

        Try
            ' Execute stored procedure and get returned value
            InvoiceNumber = myCommand.ExecuteScalar
        Finally
            DBConnection.Close()
        End Try
        Return InvoiceNumber
    End Function
End Class