Filtrar Tabla con datos de otra Tabla

[Lenny]

Buenas, tengo una duda enorme.

Tengo dos tablas, TABLA1 contiene componentes de una formula (materias primas) y la TABLA2 tiene todos los componentes (materias primas) para crear los productos correspondientes. Cada vez que elijo un producto me muestra cuales son los componentes necesarios, ¿Como puedo "FILTRAR" la TABLA2 para que solo me muestre los componentes que se ven en la TABLA1??? es necesario sea asi, ya que desde hay necesito generar el descuento de STOCK de los componentes y varios productos comparten las mismas materias primas.

De antemano muchas gracias...

PD: Utilizo Delphi 2010, Zeos 7.0.0, MySQL

[Aleca]

como tenes organizadas las tablas, porque me parece que podrias poner una tercera.

[Lenny]

Tengo 3 Tablas:

Tabla1: Nombre Producto.
Tabla2: Formula Producto (Materias Primas) con las cantidades necesarias.
Tabla3: Materias Primas (Todas) con el STOCK disponible.

Cuando selecciono un producto (Tabla1) me muestra (Filtra) las materias primas necesarias para crear/fabricar aquel producto (Tabla2), hasta hay todo OK, pero el problema es que necesito que la Tabla3 me muestre solamente los productos que muestra la Tabla2 (que pueden ser uno o varios) para asi generar el descuento del STOCK restando desde la Tabla2 a la Tabla3, como varios productos comparten mismas materias primas deve ser asi... se entiende???.
es lo unico que me falta para poder cerrar esta parte del softy no doy con la solucion aun ...

Ante cualquier consulta, sugerencia o ayuda estare atento... mil gracias de antemano.

[Aleca]

podes recorrer la tabla dos e ir agregandole los productos con la clausala 'or'

Código Delphi [-]
  while not tabla2.Eof do
  begin
    Filtro := Filtro + ' or Producto = ' + tabla2Producto;
    Tabla2.Next
  end;
  tabla3.filter := filtro;

algo asi.Aunque la opcion filter no me gusta mucho, habria que armar un sql.

[Lenny]

Uuuuuuu te pasaste!!!! dejame provarlo y te cuento!!!!

lo de SQL seria muy interesante, pero la verdad, no se trabajar con SQL por eso trabajo solo con "CODIGO" como el que me acabas de dar... muchas gracias nuevamente, lo reviso y te cuento!!!

[Lenny]

Estimado, no me corre intento ejecutarlo asi:

Código Delphi [-]
procedure TPRODUCCIONBG.Change(Sender: TObject);
begin
  while not BDATOS.TMPRIMASF.Eof do
  begin
    Filtro := Filtro + ' or COD_INTERNO = ' + BDATOS.TMPRIMASF;
    BDATOS.MPRIMASF.Next
  end;
  BDATOS.TMPRIMAS.filter := Filtro;
end;

Me envia dos errores:

[DCC Error] PRODUCBG.pas(67): E2003 Undeclared identifier: 'Filtro'

[DCC Error] PRODUCBG.pas(67): E2015 Operator not applicable to this operand type

¿Que estoy haciendo mal?, gracias por la paciencia...