Ayuda - ejecución no lineal

[Cañones]

Hola a todos.
Primero no se bien si ese sería el titulo del problema ya que no se bien cual es el problema pero si que es lo que pasa.
Tengo una aplicación en Delphi 6 y con una base Firebird 2.
El tema es el siguiente, algunos procedimientos si los corro paso a paso funcionan perfectos por ejemplo:
Cerrar un turno, verifica si esto es posible, luego hace un insert en la BD para marcar el cierre del turno, después creo el formulario que tiene el QR3, luego lo muestro, paso unos parámetros para la impresión, y termino con la impresión del reporte.
Bueno, si a este procedimiento lo hago con el modo trace into y como voy viendo que va pasando se ejecuta a la perfección, pero se lo ejecuto normal (F9) este procedimiento falla, el reporte me sale impreso de un modo que parece que los parámetros no le llegaron, por lo que supongo que no alcanza a realizar el insert que ya se crea el QR3 y se manda a imprimir.

Si quieren copio el código tal cual lo tengo, pero me pasa en otros procedimientos, como en el formulario de ABMs que crea y muestra a un form para ingreso de datos. Estos dos tienen en el onKeyPress si la tecla es ESC que se cierre sin hacer nada. Si estoy en el formulario para ingreso de datos y presiono escape se cierra el formulario de ingresos de datos y el form de ABMs también se sierra, pero si lo hago paso a paso nada de esto ocurre, todo el funcionamiento es normal.

No busque nada en el foro porque no tengo idea de cómo se llama este problema ni de que puede ser. Si alguien sabe que me diga y me pongo a investigar.
Desde ya muchísimas gracias a todos.

[[coso]]

Si, mejor copia el codigo. Por lo que creo entender, tu crees que se envia al preview antes que se haga el nuevo registro. Es eso no? Supongo que postearas los cambios del nuevo registro antes de llamar al preview...

[Cañones]

Código Delphi [-]
begin
  sMesa:=tcPresupuestos.Tabs[tcPresupuestos.TabIndex]; //tabcontrol
  iIdPresupuesto:=dmPresupuestos.idPresupuestoMesa(sMesa); // devuelve el numero de id de esa mesa
  dmPresupuestos.buscarPresupuestoPorId(iIdPresupuesto);
  FCerrarPresupuesto:=TfrmCerrarPresupuesto.Create(self); // formulario de cierre
  try
    if FCerrarPresupuesto.ShowModal = mrOK then
      begin
      dmPresupuestos.cerrarPresupuesto(iIdPresupuesto);
      if FCerrarPresupuesto.cantidadCopias > 0 then
        // aca hago la impresion si es que las copias son mas de una
        begin
        cant:=FCerrarPresupuesto.cantidadCopias;
        RepPresupuesto:=TfrmQRPresupuesto.Create(self);
        RepPresupuesto.imprimir(iIdPresupuesto,cant);
        RepPresupuesto.Free;
        end;
      tcPresupuestos.Tabs.Delete(tcPresupuestos.TabIndex);
      end;
  finally
    FCerrarPresupuesto.Free;
  end;
end;

[[coso]]

si bueno...me referia a codigo que se pueda entender. Con este solo se puede intuir.

[Cañones]

No se a que te referis.
Decime bien que queres saber y te lo explico en detalle.
Gracias por tu tiempo.

[[coso]]

con este codigo que muestras no se puede arreglar nada...Si puedes poner o adjuntar comprimido los procedimientos donde aparecen cosas como 'select * ...' o QuickRep1.Preview quiza se te pueda ayudar mejor.

[Cañones]

Hola a todos.
Bueno, solucioné el problema y acá va lo que estaba pasando.
En cuanto al problema con la impresión era porque tenia mal configurado el Transsaction y con la ayuda de un profesor lo configuro para que funcione correctamente.
El otro problema que tenia con los formularios, era porque en el formulario llamado por el de AMBs tenia programado el evento onKeypress y el formulario ABMs tenia el evento onKeyup por esto se cerraban los dos.
Eso es todo y gracias por su tiempo a todos.
Saludos.