* This is the class code that handles adding/saving/tableupdate for the buffered table DODEFAULT() * Default Values for this Appointment Type populated if Adding or Editing REPLACE ; AppointmentTypeSets.Rem_Code WITH THISFORM.RemarkCode, ; AppointmentTypeSets.ApptType WITH THISFORM.ApptType, ; AppointmentTypeSets.F_Red WITH THISFORM.F_Red, ; AppointmentTypeSets.F_Green WITH THISFORM.F_Green, ; AppointmentTypeSets.F_Blue WITH THISFORM.F_Blue, ; AppointmentTypeSets.B_Red WITH THISFORM.B_Red, ; AppointmentTypeSets.B_Green WITH THISFORM.B_Green, ; AppointmentTypeSets.B_Blue WITH THISFORM.B_Blue, ; AppointmentTypeSets.S_Offr WITH THISFORM.Office, ; AppointmentTypeSets.S_Coder WITH THISFORM.Room, ; AppointmentTypeSets.S_RmName WITH THISFORM.RoomName, ; AppointmentTypeSets.ChangedBy WITH THISFORM.cUserID * We are only Adding, not Editing, but DODEFAULT() sets the EditMode flag back to .T. IF THIS.Parent.EditMode = .T. * Only when adding do we populate the CreatedBy field REPLACE AppointmentTypeSets.CreatedBy WITH THISFORM.cUserID ENDIF * Got to have this to get rid of Uncommited Changes issue because of changed field values =TABLEUPDATE(.T.,.T.)