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