Error el actualizar datos en tablas DBF

[Ñuño Martínez]

No creo que el error esté en tu código, o al menos no de forma directa. El error indica que el problema es la consulta a la tabla FoxPro, que es demasiado larga. Lo que no sé es porqué. A ver si algún otro forista con más experiencia con FoxPro puede ayudar.

[[Lepe]]

El problema es que si el locate no encuentra ese código, no se mueve por el dataset (no hay un tblact.Next) y estás en un bucle que mira si ha llegado al final, es decir, bucle infinito.

Si encuentra el registro, será muy raro que sea el último para que EOF sea True.

En plata, quita el bucle while y deja solo el locate.

Saludos

[river_1]

Señores ya pude encontrar el problema , al parecer el locate no funciono y puse un Query pero aun asi me ponia el error , lo que pasa es que el "Selec * from " me regresaba todos los campos de la tabla cuando yo solo quiero actualizar un solo campo y la consulta era bastante grande. La solucion fue la siguiente:

Código Delphi [-]
tblact.First;
 while not tblact.Eof do
  begin
   Consulta:='SELECT ccodigop01,cidunida01 FROM MGW10005 WHERE CCODIGOP01=''';
   Consulta:=Consulta +TRIM(TblActcodigo_pro.Value);
   Consulta:=Consulta +'''';
   qRYPROD.SQL.Clear;
   qRYPROD.SQL.ADD(consulta);
   qRYPROD.Active := TRUE;
   qRYPROD.Open;
   IF qRYPROD.RecordCount<>0 THEN
    BEGIN
     qRYPROD.Edit;
     qRYPRODcidunida01.Value:=TblActunidad_bas.Value;
     qRYPROD.Post;
    END;
     tblact.Next;
    end;
   SHOWMESSAGE('Proceso Terminado');

Si se dan cuenta solo me estoy trayendo los campos que necesito, asi me funciono muy bien el Post.
Gracias por su tiempo...