Ayuda: "Record not found or changed by another user"

[alquimista_gdl]

Hola Al,

Gracias por la respuesta. Estoy viendo en el DataModule las propiedades del Provider y del ZQuery en lo que son los campos:

La propiedad SQL del ZQuery contiene:

Código SQL [-]
select * from regoper_part_v
  where regoper_id= :regoper_id
  order by rpp_numpartida

Dado que se trata de una vista y no una tabla, en el evento del Provider OnGetTableName, tengo:

Código Delphi [-]
procedure Tdm.DataSetProvider_RegOper_partGetTableName(Sender: TObject;
  DataSet: TDataSet; var TableName: String);
begin
  TableName:= 'regoper_part';
end;

Esta mecánica la uso en otras vistas, y me funciona bien. Lo diferente de los otros casos, es que en este que tengo problemas, el query tiene parámetos "where": where regoper_id= :regoper_id

En el Provider, el UpdateMode lo tengo como "upWhereKeyOnly", y he comprobado tanto en los campos del ZQuery como del ClientDataSet, que:

• Los campos de la tabla actualizables, tengan "[pfInUpdate]"
• Que los campos de la vista no actualizables, no tengan ninguna bandera
• Que el campo ID de la vista/tabla, tenga "[pfInUpdate,pfInWhere]"

En el enlace que me indicas, Bauhaus tenía el problema de que externamente se le estaba modificando el "upWhereKeyOnly" a "upWhereAll", más no entendí muy bien de qué manera podría rastrearse eso en el código.
Como comentaba, tengo otros 4 ZQueries en donde no tengo problema con el ApplyUpdates, excepto con este, que tiene un parámetro "where" en la sentencia SQL y que uso para agrupar los detalles asociados a una tabla maestro. Qué podrá ser?

Gracias,
Guillermo

[alquimista_gdl]

Como elemento adicional, y en caso de que pueda ayudar a que encontremos una pista del problema (esperando no confundir más):

En dxDBGrid en que muestro los registros de detalle, filtrados según el registro "master" o encabezado, al momento de seleccionar uno para modificar, sucede algo extraño:

1- Si es la primera vez que entro al grid y elijo un registro a modificar dentro de una forma con el mismo dataSource, se elige bien el registro y se muestra bien en la forma.
2- Si después, navegando en el grid, elijo visualmente otro registro a modificar, la forma toma otro registro distinto al elegido y al regresar al dbgrid, la lista parece volverse loca, ya que el cursor se reposiciona en el número de registro que elegí, pero mostrando el registro equivocado tomado por la forma. Si se hace repaint al dbGrid, se redibujan correctamente los datos.

Esto no sucede en los dbgrid en que no hay Params en el ZQuery.

Gracias

[[Al González]]

Hola de nuevo Guillermo.

Por lo que nos comentas, creo que sólo te falta la bandera pfInKey en el campo ID, ya que de otra manera, por tratarse del modo upWhereKeyOnly, no se tomaría en cuenta el campo.

En cuanto al comportamiento que mencionas de la rejilla, tal vez se trate de un problema aparte. Primero dinos cómo te funciona con la bandera pfInKey debidamente activada.

Saludos.

Al González.

[alquimista_gdl]

Hola Al,

Me he asegurado de que en el id de la tabla/view se tengan las banderas [pfInUpdate,pfInWhere,pfInKey] tanto en el ZQuery como en el ClientDataSet. ya están puestas, de hecho estaban en el ZQuery, y en el ClientDataSet solo faltaba el "pfInKey".
Lo volví a ejecutar y aún marca el error

[[Al González]]

OK, ¿podrías mostrarnos el contenido de la vista regoper_part_v? Esto para saber cómo estás obteniendo el campo ID.

[alquimista_gdl]

select
`regoper_part`.`regoper_part_id` AS regoper_part_id`,
`regoper_part`.`regoper_id` AS `regoper_id`,
`regoper_part`.`proveedor_id` AS `proveedor_id`,
`proveedor`.`prv_rfc` AS `PRV_RFC`,
`proveedor`.`prv_nombre` AS `PRV_NOMBRE`,
`regoper_part`.`rpp_numpartida` AS `RPP_NUMPARTIDA`,
`regoper_part`.`rpp_numpoliza` AS `RPP_NUMPOLIZA`,
`regoper_part`.`rpp_numfactura` AS `RPP_NUMFACTURA`,
`regoper_part`.`rpp_mesfactura` AS `RPP_MESFACTURA`,
`regoper_part`.`rpp_iva` AS `RPP_IVA`,
`regoper_part`.`rpp_importe` AS `RPP_IMPORTE`,
`regoper_part`.`rpp_pendientespoliza` AS `RPP_PENDIENTESPOLIZA`

from (`regoper_part` left join `proveedor` on((`regoper_part`.`proveedor_id` = `proveedor`.`proveedor_id`)))

[alquimista_gdl]

Hola Al,

Creo que nos estamos yendo por la tangente. El problema no es actualizar un registro en "regoper_part_v", sino en la tabla padre: "regoper". El problema original viene del código inicialmente mostrado en el hilo (aquí un poco más legible):

Código Delphi [-]
    pe_regoper.z_DataSet.Edit;
    pe_regoper.TotalImporte:= 0;
    pe_regoper.TotalIVA:= 0;

    with pe_regoper.Partidas.z_dataSet do
    begin
      First;
      while not Eof do
      begin
        {00010}
        pe_regoper.TotalImporte:= pe_regoper.TotalImporte + pe_regoper.Partidas.Importe;
        {00013}
        pe_regoper.TotalIVA:= pe_regoper.TotalIVA + pe_regoper.Partidas.IVA;
        next;
      end;
    end;

    pe_regoper.z_dataSet.Post;

    if TClientDataSet( pe_regoper.z_dataSet ).ApplyUpdates(0) > 0 then
      TClientDataSet( pe_regoper.z_dataSet ).CancelUpdates;

Es en el ApplyUpdates que tengo el error ya mencionado. Ubiqué un ZSQLMonitor, y aquí está el código que genera para hacer la actualización:

Código SQL [-]
update `regoper` set `rop_totiva` = 4293.06005859375 where `regoper_id` = 689349199046620201

La verdad no veo problema; pero en fin, he aquí más datos. El Provider de regoper_v tiene el evento correspondiente:

Código Delphi [-]
procedure Tdm.DataSetProvider_regoperGetTableName(Sender: TObject;
  DataSet: TDataSet; var TableName: String);
begin
  TableName:= 'regoper';
end;

Y el SQL del ZQuery de regoper_v es:

Código SQL [-]
select * from regoper_v
order by cli_nombre

La vista consiste de:

Código SQL [-]
select `regoper`.`regoper_id` AS `regoper_id`,
`regoper`.`cliente_id` AS `cliente_id`,
`cliente`.`cli_rfc` AS `cli_rfc`,
`cliente`.`cli_nombre` AS `cli_nombre`,
`regoper`.`rop_fechainicial` AS `rop_fechainicial`,
`regoper`.`rop_fechafinal` AS `rop_fechafinal`,
`regoper`.`rop_cierre` AS `rop_cierre`,
`regoper`.`rop_totimporte` AS `rop_totimporte`,
`regoper`.`rop_totiva` AS `rop_totiva` 

from (`regoper` left join `cliente` on((`cliente`.`cliente_id` = `regoper`.`cliente_id`)))

[[Al González]]

Ahora veo que todo el tiempo te referías a la tabla maestra, me confundí cuando mencionaste también la tabla de partidas.

Pues la primera pregunta que salta es, ¿existe un registro en la tabla maestra con el ID 689349199046620201? Por cierto, sospechosamente largo. ¿Es un "Big Int"?

Me gustaría seguir revisando esto con mayor detenimiento, pero no sólo de postear vive el hombre. Tal vez mañana me dé algo de tiempo...

Saludos.