Hola amigos tengo un zquery conectado a un debgrid. Y tengo 2 combobox: el primero dice cuit(de tipo entero) y nombre(string) y otro combo que dice empieza con y luego es parte de, la idea es que al colocar cuit se filtre de izquierda a derecha si se seleeciona empieza con, pero si se pone es parte de son todos los registros que coincidad en cualquier parte de la cadena de caracteres con lo introducido en el Edit. Esto funciona perfectamente para el nombre pero no para el cuil.
Código Delphi
[-]procedure TForm6.EfiltroChange(Sender: TObject);
begin
if (CBFiltro.ItemIndex=0) then
begin
if (CBTB.ItemIndex=0) then
begin
with ClientModule1.qclientes do
begin
Filter:='nombreyape like '''+Efiltro.Text+'*''';
Filtered:=True;
end;
end
else
if (CBTB.ItemIndex=1) then
begin
with ClientModule1.qclientes do
begin
Filter:='nombreyape like '+ QuotedStr('*' + Efiltro.Text + '*');
Filtered:=True;
end;
end;
end
else
begin
if (CBTB.ItemIndex=0) then
begin
with ClientModule1.qclientes do
begin
Filter:='CUIT like '''+Efiltro.Text+'*''';
Filtered:=True;
end;
end
else
if (CBTB.ItemIndex=1) then
begin
with ClientModule1.qclientes do
begin
Filter:='CUIT like ''*'+Efiltro.Text+ '*''' ;
Filtered:=True;
end;
end;
end;
end;