Purple_Envelop_Order_Site/app/models/POBO_OrderDetails.asp

<%
' Auto-generated POBO for table [OrderDetails]
' Generated on 7/28/2026 2:53:42 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 pBluePermitCity
    Private pBluePermitClass
    Private pBluePermitNumber
    Private pBluePrintPermit
    Private pBluePrintReturnAddress
    Private pBlueWantsQuote
    Private pContactName
    Private pFutureVoterStickerRolls
    Private pIVotedStickerRolls
    Private pMailingHasNonprofitStatus
    Private pMailingPickupDate
    Private pMailingPostageOption
    Private pMailingWantsService
    Private pMailingWantsSorting
    Private pMunicipality
    Private pOrderDetailID
    Private pOrderID
    Private pPhone
    Private pPurpleColorCodingBy
    Private pPurpleDeliveryDate
    Private pPurpleEnvelopeProvider
    Private pPurpleEnvelopeStock
    Private pPurpleExtraEnvelopeQty
    Private pPurplePrecinctCount
    Private pPurplePrintOption
    Private pPurplePrintStyle
    Private pPurpleTrackMIBallot
    Private pPurpleWantsBlueEnvelopes
    Private pPurpleWantsQuote
    Private pSecrecySleevesQty
    Private pSubmittedAt

    Private Sub Class_Initialize()
        pBlueDeliveryDate = Null
        pBlueEnvelopeProvider = Null
        pBluePermitCity = Null
        pBluePermitClass = Null
        pBluePermitNumber = Null
        pBluePrintPermit = False
        pBluePrintReturnAddress = False
        pBlueWantsQuote = False
        pContactName = Null
        pFutureVoterStickerRolls = 0
        pIVotedStickerRolls = 0
        pMailingHasNonprofitStatus = Null
        pMailingPickupDate = Null
        pMailingPostageOption = Null
        pMailingWantsService = False
        pMailingWantsSorting = False
        pMunicipality = Null
        pOrderDetailID = 0
        pOrderID = 0
        pPhone = Null
        pPurpleColorCodingBy = Null
        pPurpleDeliveryDate = Null
        pPurpleEnvelopeProvider = Null
        pPurpleEnvelopeStock = Null
        pPurpleExtraEnvelopeQty = 0
        pPurplePrecinctCount = 0
        pPurplePrintOption = Null
        pPurplePrintStyle = Null
        pPurpleTrackMIBallot = False
        pPurpleWantsBlueEnvelopes = False
        pPurpleWantsQuote = False
        pSecrecySleevesQty = 0
        pSubmittedAt = #1/1/1970#
        Properties = Array("BlueDeliveryDate","BlueEnvelopeProvider","BluePermitCity","BluePermitClass","BluePermitNumber","BluePrintPermit","BluePrintReturnAddress","BlueWantsQuote","ContactName","FutureVoterStickerRolls","IVotedStickerRolls","MailingHasNonprofitStatus","MailingPickupDate","MailingPostageOption","MailingWantsService","MailingWantsSorting","Municipality","OrderDetailID","OrderID","Phone","PurpleColorCodingBy","PurpleDeliveryDate","PurpleEnvelopeProvider","PurpleEnvelopeStock","PurpleExtraEnvelopeQty","PurplePrecinctCount","PurplePrintOption","PurplePrintStyle","PurpleTrackMIBallot","PurpleWantsBlueEnvelopes","PurpleWantsQuote","SecrecySleevesQty","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 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 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 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 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 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 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
%>