OProject

class generalIncludes.tableObjects.OProject inherits generalIncludes.tableObjects.TableInterface:

    DEFINE PUBLIC PROPERTY ProjectDescription AS CHARACTER NO-UNDO
    GET.
    SET.

    DEFINE PUBLIC PROPERTY ID AS INTEGER NO-UNDO
    GET.
    SET.

    DEFINE PUBLIC PROPERTY Name AS CHARACTER NO-UNDO
    GET.
    SET.

    DEFINE  override  PUBLIC PROPERTY pkName AS CHARACTER NO-UNDO
    GET: return "ID". end.

    method  override  public integer getPrimaryKey():
        return ID.
    end method.


    method  override  public void setField(input f as character, input val as character):
        case f:
            when "ProjectDescription" then ProjectDescription = val.
            when "Name" then Name = val.
            otherwise MESSAGE "Value not good in OProject" VIEW-AS ALERT-BOX.
        end.
    end method.

    method  override  public void setField(input f as character, input val as integer):
        case f:
            when "ID" then ID = val.
            otherwise MESSAGE "Value not good in OProject" VIEW-AS ALERT-BOX.
        end.
    end method.

    method public override character toString():
        if ID > 0 then
            return "ID|" + string(ID) + "|Name|" + Name + "|ProjectDescription|" + ProjectDescription.
        else
            return "Name|" + Name + "|ProjectDescription|" + ProjectDescription.
    end method.

    constructor OProject():
    end constructor.

    constructor OProject(input ID as integer,input jobName as character,
                     input ProjectDescription as character):

        this-object:ID = ID.
        this-object:Name = jobName.
        this-object:ProjectDescription = ProjectDescription.

    end constructor.

    constructor OProject(input jobName as character,
                     input ProjectDescription as character):

        this-object:ID = -1.
        this-object:Name = jobName.
        this-object:ProjectDescription = ProjectDescription.

    end constructor.

end class.