|
Muchas Gracias por la atencion. ya intente por ese lado.
Mira, aqui esta el codigo que uso para desplegar los registros. Creo que al estar en el recorrido de la tabla inhibe cualquier intento de efectuar otra operacion. para terminarlo solo me queda con la opcion de PROGRAM RESER del menu RUN del DELPHI.
procedure TFPantallaExis.bIniciarClick(Sender: TObject);
var s:String;
begin
QExistencias.Close;
QExistencias.Open;
s := 'S';
while s = 'S' do begin
QExistencias.First;
while not(QExistencias.Eof) do begin
QExistencias.Next;
rutinas.Pausa(1);
end;
QExistencias.Requery;
end;
end;
|