IBDataset no guarda registros insertados y editados antes de commit

[Casimiro Noteví]

Empezado por Tcmn

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:

Ahí está el meollo de la cuestión, en el punto 2, ¿cómo está hecho exactamente?

[Tcmn]

Pues lo que puedo mencionar es que mas alla de poner el DBGrid y DBNavigator en el formulario, conectar la propiedad DataSource y poner nombre a las columnas para que fuera mas entendible no hice nada mas. Tal vez se me ha pasado algo porque ahorita volvi a hacer pruebas, pero si usare el commitretaining en cada AfterPost de las tablas.

[ecfisa]

Hola.

Ahora sí que estoy confundido...

Según el primer post usas:

Código Delphi [-]
  Tabla.Insert;
  tablaCAmpo1.Value:='ValorAl insertar Campo1';
  tablaCAmpo2.Value:='ValorAl insertar Campo2';
  tablaCAmpo3.Value:='ValorAl insertar Campo3';
  Tabla.Post;

y

Código Delphi [-]
  Tabla.Edit;
  tablaCAmpo2.Value:='Valor nuevo al Editar Campo2';{Modifico lo que hay en un campo}
  Tabla.Post;

Pero esto no es necesario si usás un TDBNavigator para realizar los ingresos y/o modificaciones sobre el TDBGrid.

Otra cosa,

1.- Presionar boton "INICIAR MODIFICACIONES".
2.-Dar de alta los registros que se quieran

Si usas un menu/boton/etc, que diga "INICIAR MODIFICACIONES" y allí le permites ingresar datos, vas a confundir al usario.

Tal vez viendo el código se pueda encontrar el problema.

Un saludo.

[Casimiro Noteví]

¿Y qué dataset estás usando?

[Tcmn]

Puros IBDataset

[Casimiro Noteví]

¿Y qué sqls tienes puesto?

[Tcmn]

selectSQL:

Código SQL [-]
select CLAVEU, CONSEC, FECHA, HORAMOVIM, MONTO, NUM_CONT,  NOMBREUSUARIO, CLAVE_ABONO_CONTROLDIARIO  from ABONOS where num_cont=:num_cont order by consec

RefreshSQL:

Código SQL [-]
select CLAVEU, CONSEC, FECHA, HORAMOVIM, MONTO, NUM_CONT, NOMBREUSUARIO, CLAVE_ABONO_CONTROLDIARIO from ABONOS where consec=:consec

ModifySQL:

Código SQL [-]
update abonos set CLAVEU=:ClaveU, CONSEC=:Consec,  MONTO=:Monto, NUM_CONT=:Num_Cont,  NOMBREUSUARIO=:NOMBREUSUARIO,  CLAVE_ABONO_CONTROLDIARIO=:CLAVE_ABONO_CONTROLDIARIO where consec=ld_consec

InsertSQL:

Código SQL [-]
insert into abonos  (CLAVEU, CONSEC, MONTO, NUM_CONT,  NOMBREUSUARIO, CLAVE_ABONO_CONTROLDIARIO) values (:CLAVEU, :CONSEC, :MONTO, :NUM_CONT, :NOMBREUSUARIO, :CLAVE_ABONO_CONTROLDIARIO)

DeleteSQL:

Código SQL [-]
delete from abonos where consec=ld_consec