Dbf+cdx

[ricmar]

Hola marcoszorrilla.

> ...puede que estemos hablando de ¿Conta Minus? Conta -

Pues si, mas o menos

El caso es que dentro del SQL Explorer, si miro el alias que apunta al directorio de los ficheros, puedo ver que los ficheros del programa de contabilidad los identifica como FOX26, mientras que los que yo he creado los identifica como dBaseIV. En el programa cuando utilizo las tablas con tTable, tengo puesto como Table type: ttDefault, pero en el Query no puedo cambiarlo ?¿

De hecho, hace cosas raras.

Tengo una procedure que va haciendo querys para comprobar unos datos, pues bien, depende como le dá, funciona o se queda "colgado" y no he sido capaz de aislar el problema. Supongo que debe ser problema de los índices. Un trozo del código (extremadamente mejorable):

ListBox2.Items.Clear;
with DataModul.Query1 do
begin
SQL.Clear;
SQL.Add('select subcta from diario where asien = :NUMAS ');

for index := 0 to LisBox1.Items.Count-1 do
begin
Close; // Cierra Query
Params[0].AsInteger := StrToInt(ListBox1.Items[index]);
Open;
First;

while not eof do
begin
.....
Next;
end;
end;
end;

Pues debugueando me pasa que a veces se queda colgado en el Open. !¿?


No se. Empiezo a estar un poco "mosca".

Saludos y gracias por haber contestado.

P.D.

En la previsualización del mensaje veo que no respeta los espacios en la indentación del código.