Error al activar Indice Secundario

[marcoszorrilla]

No tengo tiempo de leerme todo, pero intuyo que el fallo se debe al hecho de que la tabla es detalle de otra.

Supongo que tienes tabla A relacionada con otra B y quieres cambiar el índice activo de la tabla relacionada con lo cual no funcionará la propiedad Master-Detai.

Yo crearía un nuevo Ttable y en este que no está relacionada con nada cambiaría el índice activo sin ningún problema......

Ya nos dirás.

Un Saludo.

[jhonalone]

Gracias, Marcos, una vez más por tu desinteresada y eficiente ayuda.

Estoy convencido de que tienes razón, (¡como siempre!).

Lo que necesito conseguir es un filtrado de la tabla detalle por fechas en tiempo de ejecución, para sacar de aquí ciertos valores-resumen basados en el resto de campos.

Te ruego que me orientes, si tienes alguna otra idea que no sea recorrer toda la tabla, (pues puede llegar a ser muy extensa en número de registros).

No sé si sería muy lenta la ejecución del programa si hubiera que duplicar la tabla detalle y reindexarla. Además tampoco sé como hacerlo, aunque supongo que podría aprenderlo.

La tercera opción sería mantener un duplicado de la tabla detalle con el índice por fechas. Aunque esta opción sería la última que me gustaria implementar, pues dado que las tablas Paradox tienden a fallar, multiplicaríamos esta posibilidad. Y, aunque el programa realiza copias de seguridad diarias, desearía no tener que utilizarlas nunca.

No sé qué hacer. Tú ¿qué me aconsejarías?

Siempre agradecido.
Un Saludo.

[marcoszorrilla]

Creo que no me has entendido bien. No se trata de tener 2 tablas detalle sino dos Ttable que son el componente de conexión con las tablas uno de ellos tendría relación maestro/detalle y el otro no, este segundo se usaría para el filtrado, pero ahora que explicas más lo que quieres, sería mejor en vez de utilizar un segundo Ttable utilizar un Tquery y en este utilizando SQL extraer los datos.

Código Delphi [-]
Var
dIni,dFin:TDate;
Begin
..
Query1.Sql.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select * from MiTabla');
Query1.Sql.Add('Where Fecha between :F1 And :F2');
Query1.ParamByName(F1).AsDate:=dIni;
Query1.ParamByName(F2).AsDate:=dFin;
Query1.Open;

Esta consulta le pones un TDataSource y a éste por ejemplo le conectas con una rejilla para ver el resultado, dIni y dFin que son variables de tipo fecha habrá que capturarlas antes de realizar la consulta.

Un Saludo.

[jhonalone]

GRACIAS, de nuevo, Marcos.

Soy muy novato en tablas, disculpa las barbaridades que pueda decir.

Nunca he utilizado un TQuery, pero voy a hacerte caso y lo voy a estudiar y utilizar. Ya te contaré.

Surgen algunas dudas.
1.-¿Necesito mantener el índice "Por fechas" en la base detalle para usar el TQuery?
2.-¿Cómo accedo a los registros del intervalo de fechas seleccionado, para obtener sumas y proporciones?
3.-¿La tabla de referncia del TQuery, se especifica en tiempo de ejecución, no en la fase de disaño?

GRACIAS, otra vez, me pongo con el TQuery?
Un saludo.

[jhonalone]

Hola, otra vez.

Estoy intentando instaurar el TQuery como te comenté.

Pero no me compila las siguientes líneas. (Uso Delphi 7)

Código Delphi [-]
Query1.Sql.Close;  // He tenido que cambiar por Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select * from MiTabla');
Query1.Sql.Add('Where Fecha between :F1 And :F2');
Query1.ParamByName(F1).AsDate:=dIni; // "Undeclared identifier: 'F1' "
Query1.ParamByName(F2).AsDate:=dFin; // "Undeclared identifier: 'F2' " 
Query1.Open;

No sé si D7 no admite estos comandos...

Respecto a mis 3 preguntas.

la númro 1 no tengo ni idea.
las otras dos, creo que las tengo solucionadas, aunque como no he podido compilarlo, no estoy seguro.

Si alguien sabe sacarme de mis apuros, muchas gracias, si no, seguiremos peleando.

Saludos a todos.

[jhonalone]

Yo mismo me respondo.
Faltaban los apóstrofos (')

Código Delphi [-]
Query1.Sql.Close;  // He tenido que cambiar por Query1.Close;Query1.Sql.Clear;Query1.Sql.Add('Select * from MiTabla');Query1.Sql.Add('Where Fecha between :F1 And :F2');Query1.ParamByName('F1').AsDate:=dIni;Query1.ParamByName('F2').AsDate:=dFin; Query1.Open;

Bien, he conseguido compilar el código, pero no consigo listar el contenido.
Ya os contaré.
Saludos.

[jhonalone]

Hola de nuevo.
Perdonad que el código saliera en una línea, pero no me explico por qué. Sólo hice copiar y pegar entre los corchetes de código.

!! SOLUCIONADO !!

Con este código:

Código Delphi [-]
dIni:=StrToDate(FechaDesde.Text);
dFin:=StrToDate(FechaHasta.Text);
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select * from Actos.DB');
Query1.Sql.Add('Where FechCitaActo between :F1 And :F2');
Query1.ParamByName('F1').AsDate:=dIni;
Query1.ParamByName('F2').AsDate:=dFin;
Query1.Open;

Siempre estamos aprendiendo.
Lo más importante de este post es lo que me dijo Marcos:
"Supongo que tienes tabla A relacionada con otra B y quieres cambiar el índice activo de la tabla relacionada con lo cual no funcionará la propiedad Master-Detai."



GRACIAS A MARCOS QUE FUE QUIEN ME PUSO EN EL CAMINO.
SALUDOS PARA TODO EL FORO.