[novato_erick]

hola chicos he tenido ultimamente unos comportamientos extraños en el sistema el cual por medio del componente DBExpress realizo insersiones actualizaciones en firebird.

ultimamente e visto que en las multiples tablas que realizo una insersion de producto enviando el id del producto a varias tablas 10 mas o menos por lo general en dos de ellas falla la insersion.

este es mas o menos como lo manejo:

Código Delphi [-]
 trnIngresaArticulos := dmConecta.FBLINUXCONECTION.BeginTransaction;
try // inicia proceso
    funciones.CapIdArt;// funcion que captura un id de un generador reservando dicho id
    with dmLogicaArticulos.qIngresaArt do
      try
        ///ago insersiones
      finally
        ExecSql;
      end;
    //asi me la paso insertando en cada tabla
   with dmlogicaarticulo.qinsertaotracosa etc
     try
     ......
     finally
     ....
     end; 
     with dmLogicaArticulos.qArt_Marca do //pero a k es que tengo problemas en donde no se inserta los datos en ocasiones...
        try
          Close;
          sql.clear;
          sql.Add('insert into ARTXMARCA(ID_ARTICULO, ID_MARCA) ');
          sql.Add('values(:pId_Articulo, :pId_Marca)');
          parambyname('pId_Articulo').AsInteger := idArticulo;
          parambyname('pId_Marca').AsInteger := id_Marca;
        finally
          ExecSql;
        end;
    end;
 dmConecta.FBLINUXCONECTION.CommitFreeAndNil(trnIngresaArticulos);
    ShowMessage('Articulo Agregado Satisfactoriamente');
  except
    on e: exception do
    begin
      // ShowMessage('Articulo no Fue ingresado Correctamente');
      ShowMessage('Articulo no Fue ingresado Correctamente' + e.Message);
      dmConecta.FBLINUXCONECTION.RollbackFreeAndNil(trnIngresaArticulos);
      Raise;
    end;
  end;
  if Application.MessageBox('¿Desea Agregar Otro Articulo?', 'Confirmación',
    MB_ICONQUESTION OR MB_YESNO) = ID_NO then
  // Aqui confirmamos si seguimos mas registros o cerramos el form
  begin
    frmPrincipal.CerrarPestana;
  end
  else // si no cerramos limpiamos nuestros componentes y variables del form
  begin
    // componentes dentro del tab sheet1
    // cbxDeptosArt.clear;
    DtpFechaIngreso.DateTime := Now;
    eCodBarra.clear;
    mNombre.clear;
    cbxTallas.clear;
  end;

ah por supuesto la aplicacion la tienen 15 usuarios ingresando... repito no es todo momento...


Saludos