KCI-KANBAN/app/models/POBO_cards.asp

<%
Class POBO_cards
    Public Properties

    Private p_id
    Private p_board_id
    Private p_column_id
    Private p_swim_lane_id
    Private p_job_number
    Private p_job_name
    Private p_customer_name
    Private p_delivery_date
    Private p_quantity
    Private p_notes
    Private p_full_note
    Private p_position
    Private p_created_at
    Private p_created_by
    Private p_updated_at
    Private p_updated_by

    Private Sub Class_Initialize()
        p_id            = 0
        p_board_id      = 0
        p_column_id     = 0
        p_swim_lane_id  = 0
        p_job_number    = ""
        p_job_name      = ""
        p_customer_name = ""
        p_delivery_date = Null
        p_quantity      = ""
        p_notes         = ""
        p_full_note     = ""
        p_position      = 0
        p_created_at    = #1/1/1970#
        p_created_by    = ""
        p_updated_at    = #1/1/1970#
        p_updated_by    = ""
        Properties = Array("id","board_id","column_id","swim_lane_id","job_number","job_name","customer_name","delivery_date","quantity","notes","full_note","position","created_at","created_by","updated_at","updated_by")
    End Sub

    Public Property Get PrimaryKey() : PrimaryKey = "id"    : End Property
    Public Property Get TableName()  : TableName  = "cards" : End Property

    Public Property Get id()           : id            = p_id           : End Property
    Public Property Let id(v)          : p_id          = CDbl(v)        : End Property

    Public Property Get board_id()     : board_id      = p_board_id     : End Property
    Public Property Let board_id(v)    : p_board_id    = CDbl(v)        : End Property

    Public Property Get column_id()    : column_id     = p_column_id    : End Property
    Public Property Let column_id(v)   : p_column_id   = CDbl(v)        : End Property

    Public Property Get swim_lane_id() : swim_lane_id  = p_swim_lane_id : End Property
    Public Property Let swim_lane_id(v): p_swim_lane_id = CDbl(v)       : End Property

    Public Property Get job_number()   : job_number    = p_job_number   : End Property
    Public Property Let job_number(v)  : p_job_number  = CStr(v)        : End Property

    Public Property Get job_name()     : job_name      = p_job_name     : End Property
    Public Property Let job_name(v)    : p_job_name    = CStr(v)        : End Property

    Public Property Get customer_name()  : customer_name  = p_customer_name  : End Property
    Public Property Let customer_name(v) : p_customer_name = CStr(v & "")    : End Property

    Public Property Get delivery_date()  : delivery_date  = p_delivery_date  : End Property
    Public Property Let delivery_date(v)
        If IsDate(v) Then p_delivery_date = CDate(v) Else p_delivery_date = Null
    End Property

    Public Property Get quantity()  : quantity  = p_quantity       : End Property
    Public Property Let quantity(v) : p_quantity = CStr(v & "")    : End Property

    Public Property Get notes()  : notes  = p_notes       : End Property
    Public Property Let notes(v) : p_notes = CStr(v & "") : End Property

    Public Property Get full_note()  : full_note  = p_full_note       : End Property
    Public Property Let full_note(v) : p_full_note = CStr(v & "")     : End Property

    Public Property Get position()     : position      = p_position     : End Property
    Public Property Let position(v)    : p_position    = CDbl(v)        : End Property

    Public Property Get created_at()  : created_at   = p_created_at  : End Property
    Public Property Let created_at(v) : p_created_at = CDate(v)      : End Property

    Public Property Get created_by()  : created_by   = p_created_by  : End Property
    Public Property Let created_by(v) : p_created_by = CStr(v)       : End Property

    Public Property Get updated_at()  : updated_at   = p_updated_at  : End Property
    Public Property Let updated_at(v) : p_updated_at = CDate(v)      : End Property

    Public Property Get updated_by()  : updated_by   = p_updated_by  : End Property
    Public Property Let updated_by(v) : p_updated_by = CStr(v)       : End Property
End Class
%>