*---Update/Insert BEGIN TRANSACTION IF llRollBack AND NOT TABLEUPDATE(.T., .F., "Sales") llRollBack = .T. ENDIF IF llRollBack AND NOT TABLEUPDATE(.T., .F., "SalesDetails") llRollBack = .T. ENDIF IF llRollBack AND NOT TABLEUPDATE(.T., .F., "Stock") llRollBack = .T. ENDIF .... IF llRollBack AERROR(laError) ROLLBACK TABLEREVERT(.T., "Sales") .... ELSE END TRANSACTION FLUSH ENDIF