>>BeginTrans() >>= SQLEXEC( This.DataSource, "BEGIN TRANSACTION" ) >> >>CommitTrans() >>= SQLEXEC( This.DataSource, "COMMIT" ) >> >>RollbackTrans() >>= SQLEXEC( This.DataSource, "ROLLBACK" ) >> >>SaveTrans() >>* loop thru each CA object >>* dump into a Collection oCursors >> >>llCommit = .T. >> >>FOR EACH loCursor IN oCursors >> IF NOT loCursor.Save() >> llCommit = .F. >> ENDIF >>ENDFOR >> >>IF llCommit >> This.CommitTrans() >>ELSE >> This.RollBackTrans() >>ENDIF >> >>>>