>BEGIN TRANSACTION * Just in case we need to do something first (like get a new idnumber) > llPreError = THISFORM.PreEntryFunction() > IF !llPreError > llDataError = !TABLEUPDATE(.T.) > IF llDataError * fix the immedate table problems _dataenvironment.initialselectedalias() > IF !llPreError .AND. !llDataError * Maybe now we will send a message to someone > llPostError = THISFORM.PostEntryFunction() > ENDIF endif > ENDIF > IF llPreError .OR. llDataError .OR. llPostError * ? Do we need a Tablerevert() ? > ROLLBACK > Else && Everything is fine > END TRANSACTION ENDIF>