Hola Cadetill
Aqui te envio una muestra:
La instruccion Table1.gotokey no la ejecuta porque no encuentra nada en el FindKey
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Active:=True;
Table1.IndexFieldNames:='EMPRES;CLCODI';
if Table1.FindKey([001,116])then
Table1.gotoKey
end;
Quizas el problema se encuentre en que tanto EMPRES como CLCODI forman un solo indice en el AS400( Un fichero logico ), y no se puede acceder como si fuesen dos indices, ( creo yo, pero no estoy muy seguro).
No obstante, ahora voy a probar mandando SQL's, a ver que tal de velocidad, pues ni la lectura secuencial, (While), ni los filtros son practicos para el software que estoy desarrollando.
Si encuentras o averiguas algo, comentamelo.
Un millon de gracias....Javier
|