Firebird / IBDataSet: no modifica

[ecfisa]

Hola.

Después de haber agotado todas las pruebas y buscado sin encontrar respuesta, los vengo a molestar...
Me sucede algo extraño al querer modificar una columna con TIBDataSet,tanto con Firebird 2.1 como con 2.5.
Instalé este último por haber leído que solucionaba algunos problemas que el anterior tenía con IBX.

La declaración SQL es:

Código SQL [-]
  ANULADO SMALLINT DEFAULT 0 NOT NULL

El nombre del IBDataSet es tbRef y el campo almacena el valor cero o uno, cuando es igual a uno, el registro
se considera anulado.

El problema es que estando ya asignado el valor uno en el campo, no aplica la modificación.

Ya verifiqué que tbMaster, tbDetalle y tbRef entran al código que adjunto con State = dsEdit,
y tbRefANULADO.Value = 1.

La transacción:

readcommitted
rec_version
nowait

Pongo el código donde debería efectuarse la modificación:

Código Delphi [-]
procedure TfrMasterMod.btAceptaClick(Sender: TObject);
begin
  if MessageBox(Handle,'¿Desea aplicar los cambios?','CONSULTA', MB_YESNO +
     MB_ICONQUESTION + MB_DEFBUTTON1 + MB_APPLMODAL) = mrYes then
  begin
    ShowMessage(tbRefANULADO.AsString); (* valor mostrado: 1 *)
    if tbRef.State = dsEdit then
      tbRef.Post;
    tbDetalle.DataSource:= nil;   
    IBDatabase.ApplyUpdates([tbMaster, tbDetalle]);
    tbDetalle.DataSource:= dsMaster;
    IBTransaction.CommitRetaining;
    ShowMessage(tbRefANULADO.AsString); (* valor mostrado: 1 *)
    Close; 
  end;
end;

Cuando salgo de la aplicación y compruebo el valor de tbRefANUALDO, es igual a 0, es decir que no modificó el valor,
lo cuál es extraño por que muestra el valor 1 antes y después del CommitRetaining...
Sin embargo las modificaciones echas en tbMaestro o tbDetalle se efectúan sin problema.

No sé si atribuirlo a que tbMaestro/tbDetalle usan CachedUpdates (aunque no veo por que daría problemas),
o que haya algún problema con Firebird y los componentes IBX...

Si hay alguién a quién le haya sucedido lo mismo o pueda sugerirme algo, lo agradecería mucho.

Desde ya gracias por tomarse el tiempo de leer estas líneas.

Saludos.

[Casimiro Notevi]

Empezado por ecfisa

El nombre del IBDataSet es tbRef
State = dsEdit
tbRefANULADO.Value = 1

Código Delphi [-]
procedure TfrMasterMod.btAceptaClick(Sender: TObject);
begin
//  if MessageBox(Handle,'¿Desea aplicar los cambios?','CONSULTA', MB_YESNO +
//     MB_ICONQUESTION + MB_DEFBUTTON1 + MB_APPLMODAL) = mrYes then
//  begin
//    ShowMessage(tbRefANULADO.AsString); (* valor mostrado: 1 *)
//    if tbRef.State = dsEdit then 
  tbRef.Post;
//    tbDetalle.DataSource:= nil;
//    IBDatabase.ApplyUpdates([tbMaster, tbDetalle]);
//    tbDetalle.DataSource:= dsMaster;
  IBTransaction.CommitRetaining;
//    ShowMessage(tbRefANULADO.AsString); (* valor mostrado: 1 *)
//    Close;
//  end;
end;

No has puesto la sentencia SQL que ejecutas en el TIBDataset, suponiendo que esté bien, sólo debes hacer .post y .commit (o commitretaining).
¿Ese IBTransaction es de esa transacción?
Todo lo demás que has puesto no sirve para nada (para la grabación de ese tibdataset, se entiende)

[[José Luis Garcí]]

ecfisa, una pregunta has cambiado algo en la estructura de tu tabla, si es así te has acordado de modificar el Ibdataset?.

Te lo comento porque tuve un problema parecido y era que modifique un campo y agregue otro pero en el ibdataset, no lo modifique y claro problemas al canto,

[ecfisa]

Hola Casimirio, José Luís.

Casimiro:
Si es así, pero después de tanto probar, puse todas las líneas ante la impotencia de no poder solucionar lo evidente... Juro que revisé
hasta si había puesto unit con 'h'....
La sentencia de tbRef es:

Código Delphi [-]
   tbRef.SelectSQL.Text:= 'SELECT * FROM REFERENCIA where REFCLIENTE = :CLIENTE_ID';

Su propiedad DataSource es igual a dsClientes y el ID del cliente es el correcto al momento del Post.

Tambíen está en relación master/detail pero con CLIENTES:

Código SQL [-]
  ALTER TABLE REFERENCIA ADD FOREIGN KEY (REFCLIENTE) REFERENCES CLIENTES(CLIENTE_ID);

José Luís, hice modificaciónes y creo haber borrado las columnas y vuelto a incorporarlas... pero voy a probar nuevamente.

Gracias a ambos.

[ecfisa]

Hola de nuevo.

José Luís, indudablemente el árbol me tapó el bosque... era tál como sugeriste.
Por seguridad elimine el TIBDataSet , lo volví a configurar y ahora funciona bién.


Muchas gracias.

Saludos.

[[José Luis Garcí]]

ecfisa, me alegro que te funcionase, me sonaba a lo mismo, pero la próxima vez no hace falta que borres el Ibdataset, sólo hace falta, que tengas cerrado el proyecto cunado modifiques las tablas, una vez terminas, abres el proyecto en delphi, te vas al Ibdataset en cuestión, pulsas encima de el con el botón derecho del ratón, elijes dtaset editor, elijes el/los campo/s en (key Fields), los campos que quieres que te actualice en (Update Fields), aquí deberia aparecerte ya los campos nuevos y modificados*, luego pulsas en (Quote indentifiers) y por último en el botón (Generate SQL) y listo.

* si aún de esta manera no aparecen puedes quitarle el active al Ibdatabase y volverlo activar, recuerda después poner en active todos los IbdataSet y ibtable, salvo que los actives por código.

Espero no haberme enrollado y no pecar de presuntuoso , ya que no quiero dar clases ni lecciones , sólo pretendo ayudar.

[ecfisa]

No para nada, gracias José Luis.

Eso hice anteriormente con cambios en otros IBDataSet. Con este, pensé que lo había echo pero no... .
Creo que eliminarlo fue más una cuestión de revancha por el tiempo que me hizo renegar

Saludos y gracias nuevamente.

[Casimiro Notevi]

Empezado por ecfisa

[..] Creo que eliminarlo fue más una cuestión de revancha por el tiempo que me hizo renegar[..]

TIBdataset, la revancha!!!

[ecfisa]

Empezado por Casimiro Notevi

TIBdataset, la revancha!!!

De película!!

Saludos.