Trying to modify a Read-Only Field (ClientDataSet)

[[Al González]]

Empezado por Dclase

Cuando entra al bucle por primera vez edita el primer registo, pero el siguiente ya me dispara el mensaje de que no puede modificar..

Así sucede porque es hasta la segunda pasada del ciclo cuando, por alguna sentencia de tu código (que quizá dispara un CheckBrowseMode indirecto), se desencadena la llamada al método Post que intenta guardar la operación anterior.

El método Post, llama a InternalPost, el cual, en el caso de TClientDataSet, llama a su vez al método ModifyRecord de su interfaz DSCursor. Este método verifica que ninguno de los campos que estén marcados como de sólo lectura haya sufrido cambios. Si pasa esta validación, el registro es guardado en la memoria del conjunto de datos, de lo contrario arrojará la excepción "Trying to modify read-only field".

El origen del problema es que antes de la operación de guardado el campo en cuestión fue marcado como read only.

Dices que ya revisaste eso, pero ¿podrías mostrarnos cómo estás creando el objeto ClientDataSet2 y definiendo sus campos?

Saludos.

Al.

[Dclase]

Bueno, no se si en la forma en que lo utilizo sea la correcta, el ClientDataSet2, es un componente TClientDataSet que lo agrego en modo de diseño, lo conecto a un Provider el cual a su vez esta conectado a un TADODataSet (a este ultimo le paso un String con los campos k rekiero de una tabla en especifico), al activar el ClientDataSet, me trae los campos resultantes de la consulta, limpio la propiedad ProviderName, y ya tengo el ClientDataSet2 con los campos k requiero. Bueno y si vienen campos onla propiedad read-only = True, los cambio a False

Antes de trabajar con el ClientDataSet2 siempre lo limpio primero:

Código Delphi [-]
With ClientDataSet2 Do
Begin
   While IsEmpty = False Do
   Begin
      Delete;
   End;
End;

Luego entonces le inserto datos con Append;
y despues es que intento editarlo.

Siempre lo habia utilizado asi pero solo para modificar un registro a la vez y lo enviaba directamente a la tabla con ApplayUpdate(0), pero en este caso solo me interesa modificar en el CDS en memoria para fines de reporte.

[[Al González]]

Hola de nuevo Dclase.

Lo primero sería comentarte que hay una mejor manera de crear un TClientDataSet bajo una estructura de campos específica. Para ello puedes hacer uso de su propiedad FieldDefs y de su método CreateDataSet. La ayuda de Delphi viene con un buen ejemplo y seguramente en este foro encontrarás varios ejemplos más.

Allende de lo anterior, me llamó la atención esto que comentaste:

Empezado por Dclase

...el ClientDataSet2, es un componente TClientDataSet que lo agrego en modo de diseño, lo conecto a un Provider el cual a su vez esta conectado a un TADODataSet (a este ultimo le paso un String con los campos k rekiero de una tabla en especifico), al activar el ClientDataSet, me trae los campos resultantes de la consulta, limpio la propiedad ProviderName, y ya tengo el ClientDataSet2 con los campos k requiero. Bueno y si vienen campos con la propiedad ReadOnly = True, los cambio a False...

Hay que decir que cuando se cambia la propiedad ReadOnly de un campo perteneciente a un TClientDataSet que cargó sus datos mediante un objeto proveedor, tal cambio no tiene efecto sobre el cursor del conjunto de datos. El cursor es un objeto interno que manejan todos los conjuntos de datos cliente y dicho objeto contiene, entre muchos datos, una lista de descriptores de campos.

Estos descriptores son elementos que definen a cada uno de los campos del cursor, como su tipo, tamaño y si son de lectura y escritura o sólo lectura. Cuando el conjunto de datos es abierto, el cursor inicializa sus descriptores de campos con base en la información obtenida de parte del proveedor.

Así pues, si el conjunto de datos que es servido por el proveedor (el TADODataSet en tu caso) viene con un campo cuya propiedad ReadOnly es True, el respectivo descriptor en el interior del cursor cliente quedará marcado con un atributo de sólo lectura (constante fldAttrReadOnly). Algo curioso de este atributo es que solamente tiene efecto en las modificaciones, pero no en las inserciones de registros (por ello has podido agregar filas, pero no cambiarlas).

Viendo tu caso, me dediqué un rato a investigar y hacer pruebas de cómo se podría quitar ese atributo del descriptor, considerando que este es un objeto interno de la propiedad interfaz DSCursor del conjunto de datos.

La clave está en llamar al método SetProp de esa interfaz con una constante que no aparece en Delphi (al menos no hasta la versión 7), pero que al parecer existe en MIDAS desde hace tiempo: curpropFLD_MAKERW; además de proporcionar el número de campo en cuestión.

Creé esta rutina que sirve para quitar el atributo de sólo lectura de un campo, tanto a nivel de la propiedad ReadOnly como a nivel de su respectivo descriptor en el interior del cursor:

Código Delphi [-]
Type
  TClientDataSetAccess = Class (TClientDataSet);
Procedure MakeReadWrite (Const Field :TField);
Begin
  Field.ReadOnly := False;

  With TClientDataSetAccess (Field.DataSet As TClientDataSet) Do
    Check (DSCursor.SetProp (CURProp (4) { curpropFld_MakeRW },
      Field.FieldNo));
End;

// Ejemplo de uso
procedure TForm1.Button1Click(Sender: TObject);
begin
  MakeReadWrite (CDS.FieldByName ('Numero'));
end;

Hice la prueba y funciona, el conjunto de datos cliente permite hacer y guardar modificaciones hechas sobre campos que venían marcados como de sólo lectura.

Lo anterior puede sernos útil en algún momento, pero no está demás recordarle a Dclase mi sugerencia de usar el método CreateDataSet, ya que además de emplear menos memoria de programa, no tendrá que hacer consulta alguna a la base de datos.

Saludos a FGarcia, por quien supe que existía la constante curpropFld_MakeRW.

Un abrazo.

Al González.

[Dclase]

Gracias [Al González] utilicé la propiedad FieldDefs para crear los campos y el CreateDataSet para crear mi set de datos como me dijiste y asi me ha funcionado bien. Pero Tambien veo interesante lo del descriptor en el interior del cursor , no sabia que existia esa parte del ClientDataSet ni esas propiedades y referencias internas.

Lo que si no me funcionó de tu codigo fue la variable (o atributo) "CURProp" en

Código Delphi [-]
........................
    Check (DSCursor.SetProp (CURProp (4) { curpropFld_MakeRW },
.......................

No se si porque no lo estoy poniendo donde va, o me falta agregar alguna libreria o algo por el estilo.

Gracias por tu aporte..

[[Al González]]

Empezado por Dclase

Gracias [Al González] utilicé la propiedad FieldDefs para crear los campos y el CreateDataSet para crear mi set de datos como me dijiste y asi me ha funcionado bien.

¡Estupendo!

Empezado por Dclase

Pero Tambien veo interesante lo del descriptor en el interior del cursor , no sabia que existia esa parte del ClientDataSet ni esas propiedades y referencias internas.

Lo que si no me funcionó de tu codigo fue la variable (o atributo) "CURProp" en

Código Delphi [-]
........................
    Check (DSCursor.SetProp (CURProp (4) { curpropFld_MakeRW },
.......................

No se si porque no lo estoy poniendo donde va, o me falta agregar alguna libreria o algo por el estilo.

Gracias por tu aporte..

De nada Dclase. La unidad de biblioteca (que no librería ) que habría que referir en el código es DSIntf. Ésta contiene la declaración de varias interfaces como IDSCursor, y muchos tipos de datos y constantes relacionados con ella.

Código Delphi [-]
Uses
  DSIntf;

Saludos.

Al González.