Gracias Hilmar

Mas tenho mais uma dúvida

Por favor analisem este código e comentem o que está bem e o que está mal .
Muito obrigado

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 ?
&& Pode ser melhorado ?
&& Muito obrigado