MEMBER PROCEDURE save

 MEMBER PROCEDURE save IS
  BEGIN
    IF id IS NULL THEN RETURN; END IF;

    UPDATE client_campaign
    SET    status_id     = SELF.Status,
           campaign_next = SELF.NextDate,
           campaign_end  = SELF.EndDate,
           campaign_step = SELF.State
    WHERE  campaign_id = SELF.ID;
  END save;