Purple_Envelop_Order_Site/app/models/POBO_OrderDetails.asp

<%
' Auto-generated POBO for table [OrderDetails]
' Generated on 8/4/2026 3:40:46 PM
' Generator: GenerateRepo.vbs v1.0
'
' Dependencies: core/helpers.asp (QuoteValue function)


Class POBO_OrderDetails
    ' Public array of all property names
    Public Properties

    Private pBlueDeliveryDate
    Private pBlueEnvelopeProvider
    Private pBlueHasNonprofitStatus
    Private pBlueNonprofitAuthCode
    Private pBluePermitCity
    Private pBluePermitClass
    Private pBluePermitNumber
    Private pBluePermitOwnership
    Private pBluePrintPermit
    Private pBluePrintReturnAddress
    Private pBlueWantsQuote
    Private pContactName
    Private pFutureVoterStickerRolls
    Private pIVotedStickerRolls
    Private pMailingEstimatedQuantity
    Private pMailingHasNonprofitStatus
    Private pMailingPickupDate
    Private pMailingPostageOption
    Private pMailingWantsService
    Private pMailingWantsSorting
    Private pMunicipality
    Private pOrderDetailID
    Private pOrderID
    Private pPhone
    Private pPurpleBlueProvider
    Private pPurpleBlueProviderOther
    Private pPurpleColorCodingBy
    Private pPurpleColorNames
    Private pPurpleDeliveryDate
    Private pPurpleEnvelopeProvider
    Private pPurpleEnvelopeStock
    Private pPurpleExtraEnvelopeQty
    Private pPurplePrecinctCount
    Private pPurplePrintOption
    Private pPurplePrintStyle
    Private pPurpleTrackMIBallot
    Private pPurpleWantsBlueEnvelopes
    Private pPurpleWantsQuote
    Private pSecrecySleevesQty
    Private pSpecialRequests
    Private pSubmittedAt

    Private Sub Class_Initialize()
        pBlueDeliveryDate = Null
        pBlueEnvelopeProvider = Null
        pBlueHasNonprofitStatus = Null
        pBlueNonprofitAuthCode = Null
        pBluePermitCity = Null
        pBluePermitClass = Null
        pBluePermitNumber = Null
        pBluePermitOwnership = Null
        pBluePrintPermit = False
        pBluePrintReturnAddress = False
        pBlueWantsQuote = False
        pContactName = Null
        pFutureVoterStickerRolls = 0
        pIVotedStickerRolls = 0
        pMailingEstimatedQuantity = 0
        pMailingHasNonprofitStatus = Null
        pMailingPickupDate = Null
        pMailingPostageOption = Null
        pMailingWantsService = Null
        pMailingWantsSorting = Null
        pMunicipality = Null
        pOrderDetailID = 0
        pOrderID = 0
        pPhone = Null
        pPurpleBlueProvider = Null
        pPurpleBlueProviderOther = Null
        pPurpleColorCodingBy = Null
        pPurpleColorNames = Null
        pPurpleDeliveryDate = Null
        pPurpleEnvelopeProvider = Null
        pPurpleEnvelopeStock = Null
        pPurpleExtraEnvelopeQty = 0
        pPurplePrecinctCount = 0
        pPurplePrintOption = Null
        pPurplePrintStyle = Null
        pPurpleTrackMIBallot = Null
        pPurpleWantsBlueEnvelopes = Null
        pPurpleWantsQuote = Null
        pSecrecySleevesQty = 0
        pSpecialRequests = Null
        pSubmittedAt = #1/1/1970#
        Properties = Array("BlueDeliveryDate","BlueEnvelopeProvider","BlueHasNonprofitStatus","BlueNonprofitAuthCode","BluePermitCity","BluePermitClass","BluePermitNumber","BluePermitOwnership","BluePrintPermit","BluePrintReturnAddress","BlueWantsQuote","ContactName","FutureVoterStickerRolls","IVotedStickerRolls","MailingEstimatedQuantity","MailingHasNonprofitStatus","MailingPickupDate","MailingPostageOption","MailingWantsService","MailingWantsSorting","Municipality","OrderDetailID","OrderID","Phone","PurpleBlueProvider","PurpleBlueProviderOther","PurpleColorCodingBy","PurpleColorNames","PurpleDeliveryDate","PurpleEnvelopeProvider","PurpleEnvelopeStock","PurpleExtraEnvelopeQty","PurplePrecinctCount","PurplePrintOption","PurplePrintStyle","PurpleTrackMIBallot","PurpleWantsBlueEnvelopes","PurpleWantsQuote","SecrecySleevesQty","SpecialRequests","SubmittedAt")
    End Sub

    Public Property Get PrimaryKey()
        PrimaryKey = "OrderDetailID"
    End Property

    Public Property Get TableName()
        TableName = "OrderDetails"
    End Property

    Public Property Get BlueDeliveryDate()
        BlueDeliveryDate = pBlueDeliveryDate
    End Property

    Public Property Let BlueDeliveryDate(val)
        On Error Resume Next
        If IsNull(val) Or Len(Trim(val & "")) = 0 Then
            pBlueDeliveryDate = Null
        Else
            pBlueDeliveryDate = CDate(val)
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.BlueDeliveryDate", "Invalid value for BlueDeliveryDate: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get BlueEnvelopeProvider()
        BlueEnvelopeProvider = pBlueEnvelopeProvider
    End Property

    Public Property Let BlueEnvelopeProvider(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pBlueEnvelopeProvider = CDbl(val)
        Else
            pBlueEnvelopeProvider = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.BlueEnvelopeProvider", "Invalid value for BlueEnvelopeProvider: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get BlueHasNonprofitStatus()
        BlueHasNonprofitStatus = pBlueHasNonprofitStatus
    End Property

    Public Property Let BlueHasNonprofitStatus(val)
        On Error Resume Next
        If IsNull(val) Then
            pBlueHasNonprofitStatus = Null
        Else
            pBlueHasNonprofitStatus = CBool(val)
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.BlueHasNonprofitStatus", "Invalid value for BlueHasNonprofitStatus: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get BlueNonprofitAuthCode()
        BlueNonprofitAuthCode = pBlueNonprofitAuthCode
    End Property

    Public Property Let BlueNonprofitAuthCode(val)
        On Error Resume Next
        pBlueNonprofitAuthCode = val ' kept as text - authorization codes may have leading zeros
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.BlueNonprofitAuthCode", "Invalid value for BlueNonprofitAuthCode: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get BluePermitCity()
        BluePermitCity = pBluePermitCity
    End Property

    Public Property Let BluePermitCity(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pBluePermitCity = CDbl(val)
        Else
            pBluePermitCity = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.BluePermitCity", "Invalid value for BluePermitCity: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get BluePermitClass()
        BluePermitClass = pBluePermitClass
    End Property

    Public Property Let BluePermitClass(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pBluePermitClass = CDbl(val)
        Else
            pBluePermitClass = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.BluePermitClass", "Invalid value for BluePermitClass: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get BluePermitNumber()
        BluePermitNumber = pBluePermitNumber
    End Property

    Public Property Let BluePermitNumber(val)
        On Error Resume Next
        pBluePermitNumber = val ' kept as text - permit numbers may have leading zeros
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.BluePermitNumber", "Invalid value for BluePermitNumber: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get BluePermitOwnership()
        BluePermitOwnership = pBluePermitOwnership
    End Property

    Public Property Let BluePermitOwnership(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pBluePermitOwnership = CDbl(val)
        Else
            pBluePermitOwnership = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.BluePermitOwnership", "Invalid value for BluePermitOwnership: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get BluePrintPermit()
        BluePrintPermit = pBluePrintPermit
    End Property

    Public Property Let BluePrintPermit(val)
        On Error Resume Next
        If IsNull(val) Then
            pBluePrintPermit = Null
        Else
            pBluePrintPermit = CBool(val)
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.BluePrintPermit", "Invalid value for BluePrintPermit: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get BluePrintReturnAddress()
        BluePrintReturnAddress = pBluePrintReturnAddress
    End Property

    Public Property Let BluePrintReturnAddress(val)
        On Error Resume Next
        If IsNull(val) Then
            pBluePrintReturnAddress = Null
        Else
            pBluePrintReturnAddress = CBool(val)
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.BluePrintReturnAddress", "Invalid value for BluePrintReturnAddress: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get BlueWantsQuote()
        BlueWantsQuote = pBlueWantsQuote
    End Property

    Public Property Let BlueWantsQuote(val)
        On Error Resume Next
        If IsNull(val) Then
            pBlueWantsQuote = Null
        Else
            pBlueWantsQuote = CBool(val)
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.BlueWantsQuote", "Invalid value for BlueWantsQuote: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get ContactName()
        ContactName = pContactName
    End Property

    Public Property Let ContactName(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pContactName = CDbl(val)
        Else
            pContactName = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.ContactName", "Invalid value for ContactName: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get FutureVoterStickerRolls()
        FutureVoterStickerRolls = pFutureVoterStickerRolls
    End Property

    Public Property Let FutureVoterStickerRolls(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pFutureVoterStickerRolls = CDbl(val)
        Else
            pFutureVoterStickerRolls = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.FutureVoterStickerRolls", "Invalid value for FutureVoterStickerRolls: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get IVotedStickerRolls()
        IVotedStickerRolls = pIVotedStickerRolls
    End Property

    Public Property Let IVotedStickerRolls(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pIVotedStickerRolls = CDbl(val)
        Else
            pIVotedStickerRolls = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.IVotedStickerRolls", "Invalid value for IVotedStickerRolls: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get MailingEstimatedQuantity()
        MailingEstimatedQuantity = pMailingEstimatedQuantity
    End Property

    Public Property Let MailingEstimatedQuantity(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pMailingEstimatedQuantity = CDbl(val)
        Else
            pMailingEstimatedQuantity = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.MailingEstimatedQuantity", "Invalid value for MailingEstimatedQuantity: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get MailingHasNonprofitStatus()
        MailingHasNonprofitStatus = pMailingHasNonprofitStatus
    End Property

    Public Property Let MailingHasNonprofitStatus(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pMailingHasNonprofitStatus = CDbl(val)
        Else
            pMailingHasNonprofitStatus = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.MailingHasNonprofitStatus", "Invalid value for MailingHasNonprofitStatus: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get MailingPickupDate()
        MailingPickupDate = pMailingPickupDate
    End Property

    Public Property Let MailingPickupDate(val)
        On Error Resume Next
        If IsNull(val) Or Len(Trim(val & "")) = 0 Then
            pMailingPickupDate = Null
        Else
            pMailingPickupDate = CDate(val)
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.MailingPickupDate", "Invalid value for MailingPickupDate: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get MailingPostageOption()
        MailingPostageOption = pMailingPostageOption
    End Property

    Public Property Let MailingPostageOption(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pMailingPostageOption = CDbl(val)
        Else
            pMailingPostageOption = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.MailingPostageOption", "Invalid value for MailingPostageOption: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get MailingWantsService()
        MailingWantsService = pMailingWantsService
    End Property

    Public Property Let MailingWantsService(val)
        On Error Resume Next
        If IsNull(val) Then
            pMailingWantsService = Null
        Else
            pMailingWantsService = CBool(val)
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.MailingWantsService", "Invalid value for MailingWantsService: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get MailingWantsSorting()
        MailingWantsSorting = pMailingWantsSorting
    End Property

    Public Property Let MailingWantsSorting(val)
        On Error Resume Next
        If IsNull(val) Then
            pMailingWantsSorting = Null
        Else
            pMailingWantsSorting = CBool(val)
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.MailingWantsSorting", "Invalid value for MailingWantsSorting: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get Municipality()
        Municipality = pMunicipality
    End Property

    Public Property Let Municipality(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pMunicipality = CDbl(val)
        Else
            pMunicipality = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.Municipality", "Invalid value for Municipality: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get OrderDetailID()
        OrderDetailID = pOrderDetailID
    End Property

    Public Property Let OrderDetailID(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pOrderDetailID = CDbl(val)
        Else
            pOrderDetailID = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.OrderDetailID", "Invalid value for OrderDetailID: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get OrderID()
        OrderID = pOrderID
    End Property

    Public Property Let OrderID(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pOrderID = CDbl(val)
        Else
            pOrderID = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.OrderID", "Invalid value for OrderID: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get Phone()
        Phone = pPhone
    End Property

    Public Property Let Phone(val)
        On Error Resume Next
        pPhone = val ' kept as text - avoids losing formatting/leading zeros
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.Phone", "Invalid value for Phone: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get PurpleBlueProvider()
        PurpleBlueProvider = pPurpleBlueProvider
    End Property

    Public Property Let PurpleBlueProvider(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pPurpleBlueProvider = CDbl(val)
        Else
            pPurpleBlueProvider = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.PurpleBlueProvider", "Invalid value for PurpleBlueProvider: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get PurpleBlueProviderOther()
        PurpleBlueProviderOther = pPurpleBlueProviderOther
    End Property

    Public Property Let PurpleBlueProviderOther(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pPurpleBlueProviderOther = CDbl(val)
        Else
            pPurpleBlueProviderOther = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.PurpleBlueProviderOther", "Invalid value for PurpleBlueProviderOther: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get PurpleColorCodingBy()
        PurpleColorCodingBy = pPurpleColorCodingBy
    End Property

    Public Property Let PurpleColorCodingBy(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pPurpleColorCodingBy = CDbl(val)
        Else
            pPurpleColorCodingBy = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.PurpleColorCodingBy", "Invalid value for PurpleColorCodingBy: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get PurpleColorNames()
        PurpleColorNames = pPurpleColorNames
    End Property

    Public Property Let PurpleColorNames(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pPurpleColorNames = CDbl(val)
        Else
            pPurpleColorNames = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.PurpleColorNames", "Invalid value for PurpleColorNames: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get PurpleDeliveryDate()
        PurpleDeliveryDate = pPurpleDeliveryDate
    End Property

    Public Property Let PurpleDeliveryDate(val)
        On Error Resume Next
        If IsNull(val) Or Len(Trim(val & "")) = 0 Then
            pPurpleDeliveryDate = Null
        Else
            pPurpleDeliveryDate = CDate(val)
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.PurpleDeliveryDate", "Invalid value for PurpleDeliveryDate: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get PurpleEnvelopeProvider()
        PurpleEnvelopeProvider = pPurpleEnvelopeProvider
    End Property

    Public Property Let PurpleEnvelopeProvider(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pPurpleEnvelopeProvider = CDbl(val)
        Else
            pPurpleEnvelopeProvider = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.PurpleEnvelopeProvider", "Invalid value for PurpleEnvelopeProvider: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get PurpleEnvelopeStock()
        PurpleEnvelopeStock = pPurpleEnvelopeStock
    End Property

    Public Property Let PurpleEnvelopeStock(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pPurpleEnvelopeStock = CDbl(val)
        Else
            pPurpleEnvelopeStock = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.PurpleEnvelopeStock", "Invalid value for PurpleEnvelopeStock: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get PurpleExtraEnvelopeQty()
        PurpleExtraEnvelopeQty = pPurpleExtraEnvelopeQty
    End Property

    Public Property Let PurpleExtraEnvelopeQty(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pPurpleExtraEnvelopeQty = CDbl(val)
        Else
            pPurpleExtraEnvelopeQty = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.PurpleExtraEnvelopeQty", "Invalid value for PurpleExtraEnvelopeQty: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get PurplePrecinctCount()
        PurplePrecinctCount = pPurplePrecinctCount
    End Property

    Public Property Let PurplePrecinctCount(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pPurplePrecinctCount = CDbl(val)
        Else
            pPurplePrecinctCount = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.PurplePrecinctCount", "Invalid value for PurplePrecinctCount: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get PurplePrintOption()
        PurplePrintOption = pPurplePrintOption
    End Property

    Public Property Let PurplePrintOption(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pPurplePrintOption = CDbl(val)
        Else
            pPurplePrintOption = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.PurplePrintOption", "Invalid value for PurplePrintOption: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get PurplePrintStyle()
        PurplePrintStyle = pPurplePrintStyle
    End Property

    Public Property Let PurplePrintStyle(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pPurplePrintStyle = CDbl(val)
        Else
            pPurplePrintStyle = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.PurplePrintStyle", "Invalid value for PurplePrintStyle: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get PurpleTrackMIBallot()
        PurpleTrackMIBallot = pPurpleTrackMIBallot
    End Property

    Public Property Let PurpleTrackMIBallot(val)
        On Error Resume Next
        If IsNull(val) Then
            pPurpleTrackMIBallot = Null
        Else
            pPurpleTrackMIBallot = CBool(val)
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.PurpleTrackMIBallot", "Invalid value for PurpleTrackMIBallot: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get PurpleWantsBlueEnvelopes()
        PurpleWantsBlueEnvelopes = pPurpleWantsBlueEnvelopes
    End Property

    Public Property Let PurpleWantsBlueEnvelopes(val)
        On Error Resume Next
        If IsNull(val) Then
            pPurpleWantsBlueEnvelopes = Null
        Else
            pPurpleWantsBlueEnvelopes = CBool(val)
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.PurpleWantsBlueEnvelopes", "Invalid value for PurpleWantsBlueEnvelopes: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get PurpleWantsQuote()
        PurpleWantsQuote = pPurpleWantsQuote
    End Property

    Public Property Let PurpleWantsQuote(val)
        On Error Resume Next
        If IsNull(val) Then
            pPurpleWantsQuote = Null
        Else
            pPurpleWantsQuote = CBool(val)
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.PurpleWantsQuote", "Invalid value for PurpleWantsQuote: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get SecrecySleevesQty()
        SecrecySleevesQty = pSecrecySleevesQty
    End Property

    Public Property Let SecrecySleevesQty(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pSecrecySleevesQty = CDbl(val)
        Else
            pSecrecySleevesQty = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.SecrecySleevesQty", "Invalid value for SecrecySleevesQty: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get SpecialRequests()
        SpecialRequests = pSpecialRequests
    End Property

    Public Property Let SpecialRequests(val)
        On Error Resume Next
        If IsNumeric(val) Then
            pSpecialRequests = CDbl(val)
        Else
            pSpecialRequests = val
        End If
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.SpecialRequests", "Invalid value for SpecialRequests: " & Err.Description
        End If
        On Error GoTo 0
    End Property

    Public Property Get SubmittedAt()
        SubmittedAt = pSubmittedAt
    End Property

    Public Property Let SubmittedAt(val)
        On Error Resume Next
        pSubmittedAt = CDate(val)
        If Err.Number <> 0 Then
            Err.Raise Err.Number, "POBO_OrderDetails.SubmittedAt", "Invalid value for SubmittedAt: " & Err.Description
        End If
        On Error GoTo 0
    End Property

End Class
%>