LOCAL llRollBack BEGIN TRANSACTION IF NOT llRollBack AND NOT TableUpdate(1,.F.,"Customer") llRollBack = .T. ENDIF IF NOT llRollBack AND NOT TableUpdate(1,.F.,"Invoice") llRollBack = .T. ENDIF IF NOT llRollBack AND NOT TableUpdate(1,.F.,"InvLines") llRollBack = .T. ENDIF IF llRollBack ROLLBACK * and if you want to TableRevert(.t.,"Customer") TableRevert(.t.,"Invoice") TableRevert(.t.,"InvLines") ELSE END TRANSACTION ENDIF