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;