Pasted

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.