IBDataset no guarda registros insertados y editados antes de commit

[Tcmn]

Hola tengo estoy haciendo un sistema con Delphi 6, Firebird 2.1, Componentes IBX en Windows XP Profesional.

Las tablas no hacen commit/commitretaining ni rollback/rollbackretaining en sus eventos sino que lo manejo con BitBtns para confirmar todos los cambios hechos a las tablas.

Me encontrado con algo curioso. Al insertar registros en la aplicacion cliente y despues modificar esos mismos registros previamente insertados sin hacer commit no me guarde el ultimo valor que puse en cierto campo sino el que puse al momento de insertar. Un ejemplo es el sig:

Inserto un registro:

 
Tabla.Insert;
tablaCAmpo1.Value:='ValorAl insertar Campo1';
tablaCAmpo2.Value:='ValorAl insertar Campo2';
tablaCAmpo3.Value:='ValorAl insertar Campo3';
Tabla.Post;

Ese mismo registro lo modifico despues:

 
Tabla.Edit;
tablaCAmpo2.Value:='Valor nuevo al Editar Campo2';{Modifico lo que hay en un campo}
Tabla.Post;

Despues hacemos commit:

Transaccion.Commit;

La logica dice que el Campo2 contiene la cadena "Valor nuevo al Editar Campo2" al registrarse los datos en la base de datos pero resulta que no. Lo que se guarda en la base de datos es lo que haya registrado en los campos al momento de dar de alta el registro, es decir, la cadena: "ValorAl insertar Campo2".

Espero me haya explicado. Esto ocurre con cualquier tabla(IBDataset) que tenga en mi aplicacion.

Nota: Cuando un registro se inserta, hago commit y despues modifico el mismo registro ahora si me registra los cambios que haga a ese registro.

Gracias de antemano por la ayuda que me puedan brindar.

[Casimiro Notevi]

Bueno, primero de todo, no deberías de trabajar de esa manera. Después de hacer .post hay que confirmar con commit/commitretaining

Y al hacer esto:

Código Delphi [-]
Tabla.Edit;
TablaCampo2.Value:='Valor nuevo al Editar Campo2';
Tabla.Post;

En teoría, estás editando el primer registro. Deberías posicionarte antes en el registro que vas a editar.

[Tcmn]

Lo que pasa es que es un formulario donde al entrar el usuario da de alta un registro como si fuera una factura con varios detalles, por lo que se confirma (Commit) hasta cuando se esta seguro de que procede la alta.

Los registros del detalle se insertan en un DBGrid por lo que a veces se dan de alta 3 o mas detalles y antes de confirmar (Commit) el operario llega a modificar uno de los registros del detalle como la descripcion o el monto.

Gracias por la atencion a este hilo.

[Casimiro Notevi]

Debes confirmar justo después de grabar. Si lo van a modificar después tan sólo tienes que buscar ese registro, lo presentas y que lo editen. Al terminar haces de nuevo .post y confirmas.

[Tcmn]

Ok. Pense que yo estaba mal en alguna configuracion de los IBX, y pues con eso de que tengo entendido que ya no se esta dando soporte a las actualizaciones de IBX para Firebird, creo que ya me tocara acostumbrar a trabajar asi, porque aparte busque en los foros, google, documentacion y no encontre nada relativo a esto.

Gracias

[ecfisa]

Hola.

Más allá de que la práctica aconsejada por Casimiro es la que creo correcta y siempre utilizo, me quedé con la duda...
Probando, encuentro que las líneas de Tcmn, con Delphi 7 e Firebird 2.5 funcionan correctamente.

Mi primera prueba fué con un TIBDataSet y todo correcto, luego pensé que podría ser un problema del TIBTable, componente que no había usado hasta hoy. Pero no, con ambos componentes el código funciona bién.

Usé este código en la prueba:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with IBDataSet1 do //IBTable1  do
  begin
    Insert;
    FieldByName('RAZON').AsString:= 'INSERTADO';
    FieldByName('CUIT').AsString:= '44444444444';
    FieldByName('DOMICILIO').AsString:= 'CCCCCCCCC';
    Post;
    ShowMessage(' ');
    Edit;
    FieldByName('RAZON').AsString:= 'MODIFICADO';
    FieldByName('CUIT').AsString:= '55555555555';
    FieldByName('DOMICILIO').AsString:= 'DDDDDDDDD';
    Post;
    IBTransaction1.CommitRetaining;
  end;
end;

Si el problema fueran los privilegios, Tcmn hubiera obtenido una excepción...

¿ Será debido a la versión de Delphi o Firebird ?


Un saludo.