Filtrar Tabla con datos de otra Tabla

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

[Aleca]

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

por las dudas
que es BDATOS ??
TMPrimas ??

[Lenny]

BDATOS = DataSource
TMPRIMAS = Table3
TMPRIMASF = Table2

Cualquier otra pregunta estoy atento, muchas gracias por tu paciencia...

[Aleca]

Empezado por Lenny

BDATOS = DataSource
TMPRIMAS = Table3
TMPRIMASF = Table2

Cualquier otra pregunta estoy atento, muchas gracias por tu paciencia...

ahh, entonces seria así:
BDATOS.DataSet.Eof o (.First, etc)
BDATOS.DataSet.FieldByName('CAMPO').AsFloat
y si usas Tablas o Querys haces así
TMPRIMAS.Eof, TMPRIMAS.Next
TMPRIMAS.FieldByName('CAMPO').AsString por ejemplo.

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