BeginTrans Visual FoxPro

 data.connection.BeginTrans

    lc_SQL = "insert into compras (pedido) values('123456')" 

If !F_INSERT(lc_SQL) 

    data.connection.RollbackTrans()

endif 

data.connection.CommitTrans()