Filtrar Tabla con datos de otra Tabla

[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...

[[Chris]]

Lo que tienes que hacer es crear una relación Maestro=Detalle. Para hacerlo, haz lo siguiente:
1. En la TABLA2 establece la propiedad MasterDataset al TDatasource asociado a TABLA1.
2. Nuevamente en TABLA2, establece la propiedad MasterField a "COD_INTERNO" (sin las comillas). COD_INTERNO me imagino que el el campo que indican la relación que tiene un producto con las materias primas.

Si tienes un problema, no dudes en comentarlo y dar la mayor información posible del problema.

Saludos,
Chris

[Aleca]

Empezado por 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...

tenes que declarar Filtro: TString;

Código Delphi [-]
procedure TPRODUCCIONBG.Change(Sender: TObject);
var
  Filtro: String;
begin
  Filtro := '';
  while not BDATOS.TMPRIMASF.Eof do
  begin
       Filtro := Filtro + ' or COD_INTERNO = ' + chr(39) + BDATOS.PRIMASF.FieldByName('NOMBRE_CAMPO').ASstring + chr(39);
     BDATOS.MPRIMASF.Next
  end;
    BDATOS.TMPRIMAS.filter := Filtro;
  BDATOS.TMPRIMAS.Filtered := True;
end;

a ver ahora.

[Lenny]

Estimados, e provado de las dos formas y las dos lansan el mismo error:

"Syntax Error"

Código Delphi [-]
procedure TPRODUCCIONBG.Button1Click(Sender: TObject);
var
Filtro: String;
begin
    while not BDATOS.TMPRIMASF.Eof do
  begin
    Filtro := Filtro + ' or COD_INTERNO = ' + BDATOS.TMPRIMASF.FieldByName('COD_INTERNO').ASstring;
    BDATOS.TMPRIMASF.Next
  end;
  BDATOS.TMPRIMAS.Filter := filtro;
end;

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

Lamento ser tan insistente... espero puedan ayudarme, de antemano gracias!!!