problemas con el el .Edit: qryCONSULTA.Edit

[tcp_ip_es]

Entiendo que una query no se puede editar ¿¿??? pero bueno tu error en el código puede ser porque cada vez que avanzas en el dataset no editas el registro.
Debería ser asi:

Código Delphi [-]
// qyCONSULTA.Edit;
dsCONSULTA.DataSet.Edit;
dsCONSULTA.DataSet.First;
while ( not dsCONSULTA.DataSet.Eof ) do begin
if (dsCONSULTA.DataSet.FieldByName('CANTIDAD').AsFloat <= 0) then begin
porcentaje := CalculoPorcentaje;
dsConsulta.Dataset.Edit;
dsCONSULTA.DataSet.FieldByName('CANTIDAD').Value := porcentaje * pUtilizado;
dsCONSULTA.DataSet.Post;
end;
dsCONSULTA.DataSet.Next;
end;

end;

aunque por lo que veo podrías hacer ese proceso con una consulta de actualización....

Saludos, Tony

[marcoszorrilla]

Código Delphi [-]
if (dsCONSULTA.DataSet.FieldByName('CANTIDAD').AsFloat <= 0) then begin
  dsConsulta.Edit
  porcentaje := CalculoPorcentaje;
  dsCONSULTA.DataSet.FieldByName('CANTIDAD').Value := porcentaje * pUtilizado;
  end;

Solamente ponla en modo edición si vas a reemplaza algo, las tres líneas anteriores que tienes con edit sobran.

La consulta es editable cuando no involucra más de una tabla, en cualqier caso puedes consultar la propiedad CanModify de la consulta para saber si es editable o no. no te olvides de poner RequestLive activado.

Un Saludo.

[McRose]

perfecto, funciona de manera excelente

gracias