Ayuda en anidación de transacciones

[crcmartell]

Les mando el procedimiento donde tengo las transacciones, aqui una tabla depende de la otra, ya que es su llave foranea, lo que pasa que al ejecutar ese procedimiento tarda un poco, es por eso que mando el código para que me ayuden a mejorar el rendimiento.

Saludos.

Código Delphi [-]
procedure TFrmCreditos.Grabar_credito;
begin
  LimpiarConsulta;
  Tabla.Add('creditos');
  If Modifica Then
  Begin
    Try
      With Valores Do
      Begin
        Add('folio = ' + QuotedStr(Trim(seFolio.Text))+ ',');
        Add('sedesol = ' + QuotedStr(Trim(seSedesol.Text)) + ',');
        Add('no_mens = ' + QuotedStr(Trim(sePagos.Text)) + ',');
        Add('monto_mens = ' + QuotedStr(Trim(seMonto.Text)) + ',');
        Add('login = ' + QuotedStr(Trim(Login)) + ',');
        Add('beneficiario = ' + QuotedStr(Trim(seSoli.Text)) + ',');
        Add('banco = ' + IntToStr(scCuentas.KeyValue));
      End;
      Condicion.Add('credito = ' + QuotedStr(Trim(seCredito.Text)));
      If Not Modificar(Tabla, Valores, Condicion) Then
        SkMesg.MessageDlg('El registro no pudo ser guarado en la BD', mtWarning, [mbOK], 0);
      Modifica := False;
    Except
      SkMesg.MessageDlg('No se pudo modificar el credito', mtWarning, [mbOK], 0);
    End
  End
  Else
  Begin
    Try
      LimpiarConsulta;
      Tabla.Add('creditos');
      Campos.Add('GEN_ID(creditos_gen, 0)');
      If Not Consultar(Tabla, Campos, Condicion, Grupo, Orden, False, DM.qBuscar) Then
      Begin
        SkMesg.MessageDlg(DM.qBuscar.FieldByName('GEN_ID').AsString, mtWarning, [mbOK], 0);
        Exit;
      End;
      LimpiarConsulta;
      Tabla.Add('creditos');
      With Campos Do
      Begin
        Add('folio, sedesol, programa, pie, no_mens, monto_mens, fec_posesion,');
        Add('login, beneficiario, cap_cre, banco, activo');
      End;
      With Valores Do
      Begin
        Add(QuotedStr(Trim(seFolio.Text)) + ',');
        Add(QuotedStr(Trim(seSedesol.Text)) + ',');
        Add(IntToStr(scPrograma.KeyValue) + ',');
        Add(IntToStr(0) + ',');
        Add(QuotedStr(Trim(sePagos.Text)) + ',');
        Add(QuotedStr(Trim(seMonto.Text)) + ',');
        Add(QuotedStr(FormatDateTime('mm/dd/yyyy', sdPosesion.Date)) + ',');
        Add(QuotedStr(Trim(Login)) + ',');
        Add(QuotedStr(Trim(seSoli.Text)) + ',');
        Add(QuotedStr(FormatDateTime('mm/dd/yyyy hh:mm:ss', Now)) + ',');
        Add(IntToStr(scCuentas.KeyValue) + ',');
        Add(QuotedStr('O'));
      End;
      If Not Insertar(Tabla, Campos, Valores) Then
        SkMesg.MessageDlg('El registro no pudo ser guardado en la BD', mtWarning, [mbOk], 0);
      Try
        LimpiarConsulta;
        Tabla.Add('mejoramiento');
        Campos.Add('paquete, credito, tipo_paquete');
        With Valores Do
        Begin
          Add(IntToStr(scPaquete.KeyValue) + ',');
          Add(QuotedStr(IntToStr(DM.qBuscar.FieldByName('GEN_ID').AsInteger + 1)) + ',');
          If srAmplia.Checked Then
            Add(QuotedStr(Trim('A')))
          Else
            Add(QuotedStr(Trim('P')));
        End;
        If Not Insertar(Tabla, Campos, Valores) Then
          SkMesg.MessageDlg('El registro no pudo ser guardado en la BD', mtWarning, [mbOk], 0);
        seCurp.SetFocus;
      Except
        SkMesg.MessageDlg('No se pudo guardar el credito', mtWarning, [mbOK], 0)
      End
    Except
      SkMesg.MessageDlg('No se pudo guardar el pie de casa', mtWarning, [mbOK], 0)
    End
  End;
  DM.qCreditos.Close;
  DM.qCreditos.Transaction.Active := False;
  Limpiar(False);

[jachguate]

Hola.

En primer lugar, bienvenid@ al clubdelphi. Te recomiendo la lectura de la guía de estilo, donde están plasmadas las reglas que rigen estos foros, y que son de carácter obligatorio.

He editado tu mensaje para añadir la etiqueta [delphi], razón por la que ahora ves que se respeta la indentación y se resalta la sintaxis. Te recomiendo pulsar al botón de editar en tu mensaje para ver la manera en que se usa.

Luego comento que me parece que tu pregunta es un poco vaga. Es poco probable que alguien se tome la molestia de entender lo que hace tu código, con la poca información que das. Sobre todo después de que la pregunta, según se entiende, nada tiene que ver con el título del hilo.

En el futuro te recomiendo hacer preguntas mas específicas.

Finalmente te comento que la ejecución de la aplicación paso a paso puede ayudarte a ver donde se está tardando tu proceso, que supongo que el tema de la "optimización" viene por que pretendés reducir el tiempo que tarda.

Hasta luego.