=SQLEXEC(THIS.oSqlconnection.nConnHandle,"BEGIN TRANSACTION supertrans")when you commit or rollback you provide the same transaction name in the command.
>=SQLEXEC(THIS.oSqlconnection.nConnHandle,"BEGIN TRANSACTION") >THIS.oFromWarehouse.Dotransfer() >THIS.oToWarehouse.Dotransfer() >THIS.UpdateCounters() >THIS.Makexfer() >THIS.AddVelocity() >IF THIS.lSuccess > =SQLEXEC(THIS.oSqlconnection.nConnHandle,"COMMIT TRANSACTION") >ELSE > =SQLEXEC(THIS.oSqlconnection.nConnHandle,"ROLLBACK TRANSACTION") >ENDIF >