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

[[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.

[alquimista_gdl]

Al,

Agradezco tu tiempo y tu disposición de asistir en este tema

Sobre tus observaciones:

"689349199046620201", si ... los ID de las tablas son bigInt (Int64 en Delphi). Y si, el registro existe en la tabla.

Las banderas de Provider para "regoper" están bien puestas en relación a "upWhereKeyOnly".

Saludos y que tengas buen viernes!
Guillermo

[[Al González]]

Empezado por Al González

Me gustaría seguir revisando esto con mayor detenimiento, pero no sólo de postear vive el hombre.

Empezado por alquimista_gdl

Saludos y que tengas buen viernes!

Olvidaba que la frase es muy usada para referirse a que también hay que dedicar tiempo al esparcimiento y muchas veces como sinónimo de irse de fiesta, pero en este caso me refiero a exprimir el escaso trabajo que ha caído en el changarro en lo que va del año.