Filtrar Tabla con datos de otra Tabla

[Lenny]

Aun no funciona...

Sigo en lo que me dicen y aun no resulta... ya estoy perdiendo las esperanzas, esto seria el codigo (mas ordenado):

Código Delphi [-]

procedure TPRODUCCIONBG.Button1Click(Sender: TObject);
var
Filtro: String;
begin 
while not ZTable2.Eof do  begin
Filtro := Filtro + ' or COD_INTERNO = ' + ZTable2.FieldByName('COD_INTERNO').ASstring;
ZTable2.Next  
end;
ZTable1.Filter := filtro;
end;

Código Delphi [-]
procedure TPRODUCCIONBG.Button2Click(Sender: TObject);
var
  Filtro: String;
begin
  Filtro := '';
  while not ZTable2.Eof do
  begin
       Filtro := Filtro + ' or COD_INTERNO = ' + chr(39) + ZTable2.FieldByName('COD_INTERNO').ASstring + chr(39);
     ZTable2.Next
  end;
  ZTable1.filter := Filtro;
  ZTable1.Filtered := True;
end;

Muy agradesido por la ayuda hasta ahora... cualquier duda estare atento...

PD: El COD_INTERNO es ALFANUMERICO por si acaso...

[[Caral]]

Hola
Tal vez no entiendo pero pregunto:
Que hace la variable filtro si no contiene nada?.
aqui:
Filtro := Filtro no contiene nada, o por lo menos no lo veo el los ultimos codigos.
Saludos

[Lenny]

Teoricamente, segun lo que entendi "FILTRO" deveria guarda los componentes de la FORMULA (materias primas) almacenados en la TABLA2 (materias primas necesarias + cantidad necesaria) Previamente Filtrada desde la TABLA1 que contiene el nombre del producto a fabricar, para luego filtrar la TABLA3 (todas las materias primas + Stock) con el resultado de la TABLA2, la idea es que TABLA2 y TABLA3 muestren las mismas materias primas para ver si existe STOCK suficiente antes de generar el pedido y descuento correspondiente...
Tengo todo previamente listo, como generar el descuento, solo me falta esto... si hay otra forma diferente, bienvenido sean todas las sugerencias y ayuda posible!!!

Espero no enredar mas las cosas con la explicacion, ante cualquier duda estare atento...

Gracias por la paciencia...

[[Caral]]

Hola
Teoricamente estas equivocado.
Analicemos tu codigo:

Aqui generamos la variable filtro, Vacia:

Código Delphi [-]
procedure TPRODUCCIONBG.Button1Click(Sender: TObject);
var
Filtro: String;
begin

Aqui decimos que mientras la tabla2 no encuentre su final continue.
La variable filtro sigue estando vacia:

Código Delphi [-]
while not ZTable2.Eof do  begin

Aqui indicamos que filtro (vacio) es igual a Filtro (vacio) mas todo lo demas y que es igual al file Cod_interno de la tabla2 que por ningun lado la veo abierta (supongo se abrio antes):

Código Delphi [-]
Filtro := Filtro + ' or COD_INTERNO = ' + ZTable2.FieldByName('COD_INTERNO').ASstring;
ZTable2.Next

Aqui decimos que la tabla 1 es igual que filtro vacio.

Código Delphi [-]
end;
ZTable1.Filter := filtro;
end;

Ahora: que informacion sacaras de algo vacio?, nada.
Por lo tanto me imagino que dara un error de sintaxis.
Saludos

[Lenny]

Muchas gracias Caral, llego al depto y reviso paso a paso lo que me dices, tiene muchisima mas logica lo que tu me dices que lo que yo creo saber... Apenas lo revise te cuento como me fue...
Gracias!!!

[[Caral]]

Hola
El concepto de filtro es de logica y es muy sencillo.
Si quieres filtrar una tabla y ademas recorrerla para hacer la comparacion con otra tabla, primero tienes que recorrer las dos tablas, de ahi, crear dos filtros y hacer la comparación.
Si haces el recorrido de una y no de la otra, podras comparar los datos?, que crees?.
Ademas te falta algo basico y es activar el filtro, cosa que no estas haciendo.
Si te doy el codigo no aprenderas, intento que pienses en lo que te digo.
Si por ultimo no te sale, te doy un ejemplo, pero quiero que lo intentes.
Saludos

[Lenny]

Sigo desorientado... encuentro demasiado logico lo que dices pero aun no doy con la solucion, si podrias darme un ejemplo (no el codigo, tienes toda la razon en lo de aprender) estaria muy agradesido... esto me tiene de cabeza desde un par de dias y de tanto arbol ya no puedo ver el bosque...