BEGIN TRANSACTION Select tabela1 =TableUpdate(1,.T.) FLUSH Select tabela2 =TableUpdate(1,.T.) FLUSH Select tabela3 =TableUpdate(1,.T.) FLUSH IF TableUpdate(.T., .F., "Tabela1") ; and TableUpdate(.T., .F., "Tabela2") ; and TableUpdate(.T., .F., "Tabela3") END TRANSACTION ELSE ROLLBACK ENDIF&& Pergunto este código está certo ?