IBDataset no guarda registros insertados y editados antes de commit

[Casimiro Noteví]

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 Noteví]

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.

[Casimiro Noteví]

Empezado por ecfisa

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

Creo que seguramente no es ese el proceso que realiza Tcmn. Pienso que después de grabar no edita, sino que hace otra cosa, sale del programa, etc. y luego en esa tabla abierta es cuando edita. Pero en ese caso estaría editando siempre sobre el registro primero de la misma.

[ecfisa]

Si Casimiro, es mucho más probable.

Pero como el código en el mensaje parecía una prueba concreta, se me pasó esa posibilidad.

La mala costumbre de presuponer...


Un saludo.

[Tcmn]

Empezado por Casimiro Notevi

Creo que seguramente no es ese el proceso que realiza Tcmn. Pienso que después de grabar no edita, sino que hace otra cosa, sale del programa, etc. y luego en esa tabla abierta es cuando edita. Pero en ese caso estaría editando siempre sobre el registro primero de la misma.

Los pasos para dar de alta los registros son los siguientes:
1.- Presionar boton "INICIAR MODIFICACIONES".
2.- Dar de alta los registros que se quieran y editar los mismos que se acaban de dar de alta asi como los que previamente existian en la tabla con un DBGrid y ademas un DbNavigator.
3.- Presionar boton "CONFIRMAR TODO". El cual ejecuta:

Código Delphi [-]
 
Transaccion.Commit;

o bien el boton "DESHACER TODO". Con la sentencia:

Código Delphi [-]
 
Transaccion.Rollback;

En escencia es lo que se hace. Espero ayude en esta controversia y confusion.