>>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() ? Why of course we do.... that is why I am the silly one!!! Thank you very much. Ric >> ROLLBACK >> Else && Everything is fine >> END TRANSACTION >ENDIF>>