<% 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 %>