anchor.diff:    :description "Set the domain object"
     (setf (businessobject dbas) bo))
   
  +(defmethod setcompany ((dbas DBAdapterService) company)
  +  (let ((dbobj (slot-value dbas 'dbobject))
  +	(row-id (slot-value company 'row-id)))
  +    ;; Set the company for the DBAdapterService
  +    (setf (slot-value dbas 'company) company)
  +    ;; Set the Tenant ID of the DB object
  +    (setf (slot-value dbobj 'tenant-id) row-id)))
  +
  +(defmethod setException ((dbas DBAdapterService) (ex Condition))
  +  :description "Set the exception for the Database Adapter Service"
  +  (setf (slot-value dbas 'exception) ex))
  +
   (defmethod  db-save ((dbas DBAdapterService))
     :description "Save the dbobject to the database"
  -  (clsql:update-records-from-instance (dbobject dbas)))
  +  ;; if the company is set for Database Adapter, only then we Save. 
  +  (if (company dbas) 
  +      (clsql:update-records-from-instance (dbobject dbas))))
  +
   
   (defmethod db-fetch ((dbas DBAdapterService) row-id)
     :description  "Fetch the DBObject based on row-id"
      (format nil "Will be implemented by the derivied class objects"))
   
  +(defmethod db-fetch-all (DBAdapterService)
  +  :description "Fetch records by COMPANY"
  +  (format nil "Will be implemented by the derivied class objects"))
  +
   (defmethod db-delete ((dbas DBAdapterService))
     :description "Will be implementd by the derived class objects"
  -  (format nil "Will be implemented by the derivied class objects"))
  +  (let ((dbobject (slot-value dbas 'dbobject)))
  +    (setf (slot-value dbobject 'deleted-state) "Y")
  +    (clsql:update-record-from-slot dbobject 'deleted-state)))
   
   (defmethod syncobjects ((dbas DBAdapterService))
     :description "Will be implementd by the derived class objects"
  
positive.code:    :initarg :responsemodel
     :accessor responsemodel)
    (exception
     :accessor exception
      :initarg :exception)))
  
  
  (defclass PresenterService ()
  
negative.code: ;;; Generic functions for DBAdapterService
  (defgeneric init (DBAdapterService BusinessObject)
    (:documentation "Set the domain object of the DBAdapterService"))
  (defgeneric setCompany (DBAdapterService company)
    (:documentation "Set the Company"))
  (defgeneric setException (DBAdapterService Exception)
    (:documentation "Set the Exception for the Database Adapter Service"))
  (defgeneric setDBObject (DBAdapterService dbobject)
    (:documentation "Set the DBObject"))
  (defgeneric db-save (DBAdapterService)
    (:documentation "Savte the domianobject to the database"))
  (defgeneric db-fetch (DBAdapterService row-id)
    (:documentation "Fetch the DBObject by row-id"))
  (defgeneric db-fetch-all (DBAdapterService)
    (:documentation "Fetch records by company"))
  (defgeneric db-delete (DBAdapterService)
    (:documentation "Delete the dbobject in the database"))
  (defgeneric Copy-BusinessObject-To-DBObject (DBAdapterService)
    (:documentation "Syncs the dbobject and the domainobject"))
  (defgeneric Copy-DbObject-To-BusinessObject (DBAdapterService)
    (:documentation "Syncs the DBobject to BusinessObject"))
  
  (defgeneric getbusinessobject (DBAdapterService)
    (:documentation "gets the domain object"))
  
  