asp-classic-unified-framework/app/models/POBO_HouseholderNames.asp

<%
' Auto-generated POBO for table [HouseholderNames]
' Generated on 1/17/2026 7:59:02 PM
' Generator: GenerateRepo.vbs v1.0
'
' Dependencies: core/helpers.asp (QuoteValue function)


Class POBO_HouseholderNames
    ' Public array of all property names
    Public Properties

    Private pCreated
    Private pHouseholdId
    Private pId
    Private pLetterReturned
    Private pName
    Private pReturnDate

    Private Sub Class_Initialize()
        pCreated = #1/1/1970#
        pHouseholdId = 0
        pId = 0
        pLetterReturned = 0
        pName = Null
        pReturnDate = #1/1/1970#
        Properties = Array("Created","HouseholdId","Id","LetterReturned","Name","ReturnDate")
    End Sub

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

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

    Public Property Get Created()
        Created = pCreated
    End Property

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

    Public Property Get HouseholdId()
        HouseholdId = pHouseholdId
    End Property

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

    Public Property Get Id()
        Id = pId
    End Property

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

    Public Property Get LetterReturned()
        LetterReturned = pLetterReturned
    End Property

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

    Public Property Get Name()
        Name = pName
    End Property

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

    Public Property Get ReturnDate()
        ReturnDate = pReturnDate
    End Property

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

End Class
%>