PostgreSQL - Error en Transaccion

Estimados:
Desarrollo mi aplicacion en Visual FoxPro 9 y uso el sig codigo para actualizar varias tablas de una DB Postgresql. El problema es que cuando se producen errores lo mismo se insertan registos en las tablas y no deberia ser asi pues se ejecuta ROLLBACK. Me indican el error por favor?

=SQLSETPROP(MyConex,"Transactions",2)
***** Actualizando Tabla 1 *****
TxtSQL = 'Insert into tabla 1 (reg1,reg2,reg3) values (?val1,?val2,?val3)'
R1 = SQLEXEC(MyConex,TxtSQL)
***** Actualizando Tabla 2 *****
TxtSQL = 'Insert into tabla 2 (reg1,reg2,reg3) values (?val1,?val2,?val3)'
R2 = SQLEXEC(MyConex,TxtSQL)

IF R1>0 AND R2>0
=SQLCOMMIT(MyConex)
ELSE
=SQLROLLBACK(MyConex)
WAIT WINDOW 'Error grabando datos...'
ENDIF