=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