No se habilita un ClientDataSet al Limpiarlo

[novato_erick]

Hola Chicos como han estado?

Bueno aprovecho para ver si me ayudan en un comportamiento que tiene el componente ClientDataSet que no he logrado corregir:

El usuario me ah comentado que mi tabla temporal trae registro que anteriormente a ingresado haciendo que dichos registros que no pertenece a ese nuevo registro estén dentro de una tabla que he denominado DETALLE_CPENDIENTE.

bueno en fin pensando corregir este problema hice esto en el Evento OnCloseQuery del Formulario:

Código Delphi [-]
        dmComprar.cdsDetallesComprasPendientesUser.DisableControls;
      try
        dmComprar.cdsDetallesComprasPendientesUser.EmptyDataSet;
      finally
        dmComprar.cdsDetallesComprasPendientesUser.EnableControls;
      end;

En teoria deberia me limpia pero en un evento que tengo en un dbgrid que me trae registros pendientes y quiero continuar dicho registro seleccionado me pasa que el ClientDataSet no hace nada está vacío.

Código Delphi [-]
procedure TfrmConsultaComprasPendiente.dbgComprasPendientesCellClick
  (Column: TColumn);
begin
  with dmComprar.qDetallesComprasPendientesUser do
    try
      Close;
      Params.parambyname('ID').AsInteger :=
        dmComprar.cdsComprasPendientesUserID_COMPRAPEN.AsInteger;
    finally
      Execsql;
    end;
  dmComprar.cdsDetallesComprasPendientesUser.Open; 
 
end;

No entiendo porque ese comportamiento


Saludos

Novato_erick

[[Al González]]

Es que te falta punto y coma.

[novato_erick]

Hola Algonzales


Me falta punto y coma?

[[AgustinOrtu]]

Yo la verdad no entendi nada

En el codigo del evento OnCellClick lo que yo leo es lo siguiente:

1. Cierras un query
2. De ese query, asignas al parametro Id el valor del campo UserID_COMPRAPEN del ClientDataSet cdsComprasPendientes
3. Ejecutas un sql ??? no entiendo el porque del bloque try-finally
4. Abres el ClientDataSet

a. No entiendo porque en 1 cierras el query. Como en 3 estas usando ExecSQL imagino que es una sentencia UPDATE o DELETE, en ese caso no necesitas cerrar el query. En realidad lo mas adecuado seria no usar un query, sino un command

b. No entiendo porque abres el ClientDataSet. En que momento se cierra?


---


Solo me queda adivinar, y es que como nunca cierras el ClientDataSet, entonces "no refresca". Yo agregaria un Close al ClientDataSet

[novato_erick]

Hola AustinOrtu

El bloque try finally

Delphi al limite.
Es lo que se llaman excepciones anidadas.

http://delphiallimite.blogspot.com/2...-y-ii.html?m=1

Al finalizar abro el dataset trayendo el conjunto de datos abriendolo.
Creo q a la final simplemente es controlar mi codigo.

Saludos...

[[AgustinOrtu]]

Hola de nuevo erick

Se como funcionan los bloque try-finally. En este caso mi duda era el porque el empleo del mismo.

Basicamente estas diciendo

1. Cerrar el DataSet
2. Asgino un parametro a un query

Si en 1 o 2 ocurre una excepcion, el finally se ejecuta siempre. Realmente ese es el efecto deseado?

Es decir, falla la asignacion del parametro, supongamos que el DataSet estaba cerrado. Pum, excepcion y se ejecuta el finally