Ver Mensaje Individual
  #1  
Antiguo 11-11-2014
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Reputación: 12
giulichajari Va por buen camino
No puedo filtrar enteros

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;
Responder Con Cita