Insercion de Dato y validacion posterior en Transccion

[ASAPLTDA]

Buenas noches Foristas,
Base de datos firebird 1.5
Delphi 5
Componentes sql-direct en modo firebird

En un sistema de inventarios estoy grabando una transaccion con los siguientes datos
codigo
lote
fechalote
cantidad

1. Inicio la transaccion de la base de datos (startransaction)
2. si no existe el lote creo el lote (insert)
3. valido si la transaccion es correcta, en la validacion se verifica si el lote existe
4. si existen errores de validacion cancelo la transaccion (rollback)
5. si no existen errores confirmo la transaccion (commit)

como pueden observar en un solo movimiento creo el lote y lo valido contra si mismo y el sistema informa que el lote no existe y rechaza el movimiento

Existe alguna forma de hacerlo diferente de grabar los lotes fuera de la transaccion ?

Estare atento a sus comentarios
Gracias por su apoyo