DBGrid-ClientDataSet problema con Bookmark

[ehdez82]

Hola tengo un dbgrid con selección multiple conectado a un clientdataset. Para procesar los registros seleccionados utilizo el siguiente código:

for i := 0 to DBGrid1.SelectedRows.Count - 1 do
  begin
    
    with DBGrid1.DataSource.DataSet do
    begin
      if not BookmarkValid(SMDBGrid1.SelectedRows[i]) then
         ShowMessage('el bookmark no es valido');
      Bookmark := SMDBGrid1.SelectedRows[i];
      Edit;
      FieldByName('ventaId').Value := ExtVentas.MaxId + 1;
      Post;
    end;

  end;

El problema es que cada vez que modifico algún valor en el dbgrid el bookmark para este registro se vuelve inválido.
¿Tiene la clase TClientDataSet algún procesamiento específico para los bookmark?
Gracias de antemano.
salu2.

[ehdez82]

Alguna idea.
Si antes de ejecutarse el código acurre algún cambio en los valores (edit y post) el bookmark para este registro se vuelve inválido.
No entiendo como el edit y el post pueden alterar los bookmark del clientdataset.
Trabajo con Delphi 2010.
gracias de antemano.
salu2.

[[Al González]]

Este "problema" con las marcas de un TClientDataSet ocurre desde versiones anteriores de Delphi (y quizá siempre ha estado).

He analizado el asunto en un par de ocasiones. Tras una llamada al método TCustomClientDataSet.InternalPost (llamado por el método TDataSet.Post), algo pasa en el interior del objeto interno DataSnap representado por la interfaz DSCursor del conjunto de datos cliente, que luego, cuando dicha interfaz es consultada en el interior del método TCustomClientDataSet.BookmarkValid, responde con un valor que posiblemente es equivocado.

En seguida ilustro un poco lo anterior con el código fuente de ambos métodos (Delphi 7).

Si ocurre la llamada que está subrayada en este método:

Código Delphi [-]
procedure TCustomClientDataSet.InternalPost;
begin
  inherited;
  if State = dsEdit then
    Check(FDSCursor.ModifyRecord(ActiveBuffer)) else
    Check(FDSCursor.InsertRecord(ActiveBuffer));
  if AggregatesActive then
    DoAggUpdates(State = dsEdit);
end;

Entonces la llamada que está subrayada en este otro devuelve un valor de DBERR_BOF, en lugar de DBERR_NONE:

Código Delphi [-]
function TCustomClientDataSet.BookmarkValid(Bookmark: TBookmark): Boolean;
begin
  Result := FDSCursor <> nil;
  if Result then
  begin
    CursorPosChanged;
    Result := (FDSCursor.MoveToBookmark(Bookmark) = DBERR_NONE) and
      (FDSCursor.GetCurrentRecord(nil) = DBERR_NONE);
  end;
end;

Esto con la marca que fue obtenida del registro antes de guardarlo.

Desconozco que hay detrás de este comportamiento, pero ahora que el código fuente de DataSnap está disponible en lenguaje Delphi, podría resultar interesante revisar qué sucede en el interior de los métodos ModifyRecord y GetCurrentRecord de la interfaz DSCursor. ¿No creen?

Un abrazo válido.

Al González.

[ehdez82]

Ante todo gracias Al González por la respuesta, muy clara por cierto. Me alegra saber que después de romperme la cabeza no era culpa de mi código (lo que normalmente ocurre).

Se me ocurre antes del edit coger todos los bookmarks del clientdataset y luego en el afterpost restituirlos. Sin embargo no veo métodos públicos que modifiquen el bookmark de los registros.

También hacer una clase que herede de TClientDataSet y así utilizar los métodos y propiedades protected. Sin embargo no tengo suficiente conocimiento sobre el funcionamiento de esta clase y me costaría un poco de trabajo una solución de este tipo.

Por favor si tienes alguna solución al problema o puedas darme cualquier tipo de orientación.

Es que es obligatorio este funcionamiento (dbgrid con selección múltiple y clientdataset) para la transacción que estoy haciendo.

Muchas gracias.
salu2.

[ehdez82]

Resuelto el problema.

Creé una lista donde pongo los números de registro de los que selecciono en el dbgrid. Actualizo la lista en cada selección.

Me gustaría una solución que trabaje con los bookmark, ya que es el mecanismo propuesto, pero con esto se cumple al funcionalidad.

gracias por la atención.
salu2.

[Jere_84]

Código Delphi [-]
  with oClientDataSet do
  begin
    DisableControls;
    bmReg := Bookmark;
    try
      sPredAnt := FieldByName( 'Prede' ).AsString;
      if (sPredAnt = 'P') or Locate('Prede', 'P', []) then
      begin
        Edit;
        //FieldByName( 'ImagenPrede' ).Assign( TBitmap.Create );
        //FieldByName( 'Prede' ).AsVariant := null;
        Post;
      end;
      GotoBookMark(bmReg); -----> EDatabaseError: Record not found
    finally
     // Bookmark := bmReg;
      FreeBookMark(bmReg);

Si comento estas lineas el error no ocurre, pero los registros estan todos agregados en el ClientDataSet

Código Delphi [-]
        //FieldByName( 'ImagenPrede' ).Assign( TBitmap.Create );
        //FieldByName( 'Prede' ).AsVariant := null;

Estoy utilizando la versión de Delphi 2010, este código lo estoy migrando de un sistema anterior echo en Delphi 6, ahí funcionaba bien.
¿Alguien sabe que puedo hacer o utilizar?

Slds.

[[Al González]]

Hola Jere_84.

Aparentemente es un defecto exclusivo en Delphi 2010, y más concretamente de MIDAS. El siguiente es el reporte que alguien de la Comunidad hizo a Embarcadero: http://qc.embarcadero.com/wc/qcmain.aspx?d=78041

Hace más de dos años, cuando escribí esto:

Empezado por Al González

[...] ocurre desde versiones anteriores de Delphi (y quizá siempre ha estado).

[...] pero ahora que el código fuente de DataSnap está disponible en lenguaje Delphi, podría resultar interesante revisar qué sucede en el interior de los métodos ModifyRecord y GetCurrentRecord de la interfaz DSCursor [...]

estaba algo equivocado. En aquel entonces tenía poco tiempo de haber instalado la versión de prueba de Delphi 2010 y, como es normal, ésta me reemplazó el archivo MIDAS.dll. Un día, probando cierta funcionalidad de unos componentes que hacían uso de GoToBookmark, descubrí que Delphi 7 arrojaba el mismo error que se plantea en este hilo y en el que abriste recientemente. Observé que ocurría sólo cuando estaba de por medio la modificación de algún registro (como es tu caso), comprobándolo en Delphi 7 y Delphi 2010, llegando a la apresurada conclusión de que este defecto tenía ya muchos años.

Me precipité al pensar que el error podría estar tanto en la biblioteca MIDAS.dll de la versión 7 como en la de la versión 2010, cuando en realidad, y como queda plasmado en diversos testimonios, en versiones anteriores a la 2010 no ocurría (fue hace un año que encontré ese reporte de QualityCentral).

Por otro lado, la funcionalidad más interna de TClientDataSet (la DLL) está escrita en C++ y no en Delphi como llegué a creer a raíz de un comentario del fabricante.

Estar equivocado en aquello de las versiones no fue del todo desafortunado, porque aferrado en encontrar una solución me puse a revisar la estructura contenida en un TBookmark de MIDAS (DSBOOKMRK) más algo de aquellos fuentes en C++, consiguiendo un parche relativamente aceptable.

Pero bueno, según se lee en el mismo reporte, el error fue corregido desde las actualizaciones 2 y 3 de la versión 2010, aunque al parecer ya no se encuentran disponibles para ser descargadas. En mi opinión tienes varias opciones:

1. Actualizarte a una versión más reciente de Delphi.
2. Reemplazar el archivo MIDAS.dll por una versión más nueva.
3. Usar RecNo en lugar de GetBookmark y GoToBookmark (para el caso que planteas en el otro hilo podría ser suficiente).

Te recomiendo la opción 3 para salir del paso, y en cuanto puedas la opción 2. Tal vez escribiéndole a Embarcadero, alguien de ahí tenga a bien enviarte la merecida actualización sin tener que adquirir una licencia reciente. Otra forma de conseguir ese archivo sin tener que actualizar tu versión de Delphi sería descargando uno de los paquetes de prueba que actualmente hay disponibles. Con el MIDAS.dll de XE2, por ejemplo, no deberías tener ya ese problema (con la certeza de ser una DLL compatible hacia atrás).

Saludos cordiales.

Al González.

P.D. Les comparto lo que tengo ahora en los altavoces: http://www.youtube.com/watch?v=c_2Fp8wYKl8

[Casimiro Notevi]

Empezado por Al González

P.D. Les comparto lo que tengo ahora en los altavoces: http://www.youtube.com/watch?v=c_2Fp8wYKl8

Buenísimo

Entonces confirmas que ese problema con midas es sólo en la versión delphi 2010, ¿qué raro, no?