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

<%
' Auto-generated POBO for table [Households]
' Generator: GenerateRepo.vbs v1.0
'
' Dependencies: core/helpers.asp (QuoteValue function)


Class POBO_Households
    ' Public array of all property names
    Public Properties

    Private pAddress
    Private pDoNotCall
    Private pDoNotCallDate
    Private pDoNotCallNotes
    Private pDoNotCallPrivateNotes
    Private pId
    Private pIsBusiness
    Private pLatitude
    Private pLongitude
    Private pStreetName
    Private pStreetNumber
    Private pTerritoryId

    Private Sub Class_Initialize()
        pAddress = Null
        pDoNotCall = 0
        pDoNotCallDate = Null
        pDoNotCallNotes = Null
        pDoNotCallPrivateNotes = Null
        pId = 0
        pIsBusiness = 0
        pLatitude = Null
        pLongitude = Null
        pStreetName = Null
        pStreetNumber = 0
        pTerritoryId = 0
        Properties = Array("Address","DoNotCall","DoNotCallDate","DoNotCallNotes","DoNotCallPrivateNotes","Id","IsBusiness","Latitude","Longitude","StreetName","StreetNumber","TerritoryId")
    End Sub

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

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

    Public Property Get Address()
        Address = pAddress
    End Property

    Public Property Let Address(val)
        pAddress = val
    End Property

    Public Property Get DoNotCall()
        DoNotCall = pDoNotCall
    End Property

    Public Property Let DoNotCall(val)
        If IsNumeric(val) Then
            pDoNotCall = CLng(val)
        Else
            pDoNotCall = val
        End If
    End Property

    Public Property Get DoNotCallDate()
        DoNotCallDate = pDoNotCallDate
    End Property

    Public Property Let DoNotCallDate(val)
        If IsNull(val) Then
            pDoNotCallDate = Null
        ElseIf Trim(CStr(val)) = "" Then
            pDoNotCallDate = Null
        Else
            pDoNotCallDate = CDate(val)
        End If
    End Property

    Public Property Get DoNotCallNotes()
        DoNotCallNotes = pDoNotCallNotes
    End Property

    Public Property Let DoNotCallNotes(val)
        pDoNotCallNotes = val
    End Property

    Public Property Get DoNotCallPrivateNotes()
        DoNotCallPrivateNotes = pDoNotCallPrivateNotes
    End Property

    Public Property Let DoNotCallPrivateNotes(val)
        pDoNotCallPrivateNotes = val
    End Property

    Public Property Get Id()
        Id = pId
    End Property

    Public Property Let Id(val)
        If IsNumeric(val) Then
            pId = CLng(val)
        Else
            pId = val
        End If
    End Property

    Public Property Get IsBusiness()
        IsBusiness = pIsBusiness
    End Property

    Public Property Let IsBusiness(val)
        If IsNumeric(val) Then
            pIsBusiness = CLng(val)
        Else
            pIsBusiness = val
        End If
    End Property

    Public Property Get Latitude()
        Latitude = pLatitude
    End Property

    Public Property Let Latitude(val)
        pLatitude = val
    End Property

    Public Property Get Longitude()
        Longitude = pLongitude
    End Property

    Public Property Let Longitude(val)
        pLongitude = val
    End Property

    Public Property Get StreetName()
        StreetName = pStreetName
    End Property

    Public Property Let StreetName(val)
        pStreetName = val
    End Property

    Public Property Get StreetNumber()
        StreetNumber = pStreetNumber
    End Property

    Public Property Let StreetNumber(val)
        If IsNumeric(val) Then
            pStreetNumber = CLng(val)
        Else
            pStreetNumber = val
        End If
    End Property

    Public Property Get TerritoryId()
        TerritoryId = pTerritoryId
    End Property

    Public Property Let TerritoryId(val)
        If IsNumeric(val) Then
            pTerritoryId = CLng(val)
        Else
            pTerritoryId = val
        End If
    End Property

End Class
%>