IF llValid AND llRevertall <> .T.
END TRANSACTION
ELSE
ROLLBACK
*!* Do a tablerevert() for the tables in rtablelist
*!*THE ERROR OCCURS HERE ON THE SECOND PASS (FIRST CHILD TABLE)
FOR i = 1 TO ALEN(this.paAlias, 1)
TABLEREVERT(.T., this.paAlias[i])
ENDFOR
ENDIF
<\PRE>
This code says that if llValid is true and llrevertall is not true END TRANSACTION should be executed. Therefore any time llRevertAll is .T. the END TRANSACTION will NOT be executed even if the tableupdates were successful. I think this code should be;
IF llValid
END TRANSACTION
ELSE
ROLLBACK
IF llRevertAll
*!* Do a tablerevert() for the tables in rtablelist
*!*THE ERROR OCCURS HERE ON THE SECOND PASS (FIRST CHILD TABLE)
FOR i = 1 TO ALEN(this.paAlias, 1)
TABLEREVERT(.T., this.paAlias[i])
ENDFOR
ENDIF
ENDIF
<\PRE>