Una Ayudita consulta like y combobox

[[enecumene]]

Hola de nuevo compañeros del foro tengo aqui una duda tal como dice el titulo, he aqui el codigo:

Código Delphi [-]
procedure TFConsPed.Edit1Change(Sender: TObject);
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      ZPedido.Filtered := False;
      If Combobox1.Text = 'Pedido' then Filtro := 'no_ped Like ''' +Edit1.Text+ '*'''
         else If Combobox1.Text = 'Trámite' then Filtro := 'tramite_no Like '''  +Edit1.Text+   '*'''
            else If Combobox1.Text = 'Orden de Compra' then Filtro := 'oc_no_sigef Like '''  +Edit1.Text+   '*'''
               else If Combobox1.Text = 'Orden de Compra' then Filtro := 'oc_no_sigef1 Like '''  +Edit1.Text+   '*'''
                  else If Combobox1.Text = 'Orden de Compra' then Filtro := 'oc_no_sigef2 Like '''  +Edit1.Text+   '*'''
                     else If Combobox1.Text = 'Orden de Compra' then Filtro := 'oc_no_sigef3 Like '''  +Edit1.Text+   '*'''
                        else If Combobox1.Text = 'Carta Orden' then Filtro := 'co1 Like '''  +Edit1.Text+   '*'''
                           else If Combobox1.Text = 'Carta Orden' then Filtro := 'co2 Like '''  +Edit1.Text+   '*'''
                              else If Combobox1.Text = 'Carta Orden' then Filtro := 'co3 Like '''  +Edit1.Text+   '*'''
                                 else If Combobox1.Text = 'Carta Orden' then Filtro := 'co4 Like '''  +Edit1.Text+   '*'''
                                    else If Combobox1.Text = 'Status' then Filtro := 'status Like '''  +Edit1.Text+   '*''';
      ZPedido.Filter := Filtro;
      ZPedido.Filtered := True
   end
   else ZPedido.Filtered := False;
end;

el problema de eso es que si en el combobox selecciono Orden de Compra solo me busca en un solo campo ya que en la tabla existe cuatro campos para ordenes de compra, quisiera hacer que seleccionado en el combobox Orden de compra me busque en los cuatros campos existentes para ello. ojala me haya explicado bien sino diganmelo.

Saludos.

[[Caral]]

Hola
No entiendo muy bien pero aqui va una idea, tal vez te guie.

Código Delphi [-]
procedure TFConsPed.Edit1Change(Sender: TObject);
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      ZPedido.Filtered := False;
If Combobox1.Text = 'Pedido' then 
begin
Filtro := 'no_ped Like ''' +Edit1.Text+ '*'''
end
else If Combobox1.Text = 'Trámite' then
begin
Filtro := 'tramite_no Like '''  +Edit1.Text+   '*'''
end
else If Combobox1.Text = 'Orden de Compra' then 
begin
      Filtro := 'oc_no_sigef Like '''  +Edit1.Text+   '*'''
and Filtro := 'oc_no_sigef1 Like '''  +Edit1.Text+   '*'''
and Filtro := 'oc_no_sigef2 Like '''  +Edit1.Text+   '*'''
and Filtro := 'oc_no_sigef3 Like '''  +Edit1.Text+   '*'''
end
else If Combobox1.Text = 'Carta Orden' then 
begin
Filtro := 'co1 Like '''  +Edit1.Text+   '*'''
end
else If Combobox1.Text = 'Carta Orden' then 
begin
Filtro := 'co2 Like '''  +Edit1.Text+   '*'''
end
else If Combobox1.Text = 'Carta Orden' then 
begin
Filtro := 'co3 Like '''  +Edit1.Text+   '*'''
end
else If Combobox1.Text = 'Carta Orden' then 
begin
Filtro := 'co4 Like '''  +Edit1.Text+   '*'''
end
else If Combobox1.Text = 'Status' then 
begin
Filtro := 'status Like '''  +Edit1.Text+   '*'''
end
end;
      ZPedido.Filter := Filtro;
      ZPedido.Filtered := True
   end
   else ZPedido.Filtered := False;
end;

Saludos

[[enecumene]]

Vale Caral, mira gracias por la molestia, pero ni me funciono. seguire buscando a ver si encuantro algo parecido, Gracias.

Saludos.

[[Delphius]]

Hola enecumene,

¿Tal vez asi?

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
var Filtro: string;
begin
 Filtro := '';
 if (Edit1.Text <> '')
    then begin
           Table1.Filtered := False;
           if ComboBox1.Text = 'Pedido'
              then Filtro := 'no_ped Like ''' +Edit1.Text+ '*''';
           if ComboBox1.Text = 'Trámite'
              then Filtro := 'tramite_no Like ''' +Edit1.Text+ '*''';
           if ComboBox1.Text = 'Orden de Compra'
              then begin
                     // si la condicion a buscar en varios campos
                     // debe cumplirse en todos poner AND
                     // yo asumí que deben ser OR
                     Filtro := 'oc_no_sigef1 Like ''' +Edit1.Text+ '*'' OR';
                     Filtro := Filtro + 'oc_no_sigef2 Like ''' +Edit1.Text+ '*'' OR';
                     Filtro := Filtro + 'oc_no_sigef3 Like ''' +Edit1.Text+ '*''';
                   end;
           if ComboBox1.Text = 'Carta Orden'
              then begin
                     Filtro := 'co1 Like '''  +Edit1.Text+   '*'' OR';
                     Filtro := Filtro + 'co2 Like '''  +Edit1.Text+   '*'' OR';
                     Filtro := Filtro + 'co3 Like '''  +Edit1.Text+   '*'' OR';
                     Filtro := Filtro + 'co4 Like '''  +Edit1.Text+   '*''';
                   end;
           if ComboBox1.Text = 'Status'
              then Filtro := 'status Like '''  +Edit1.Text+   '*''';
           Table1.Filter := Filtro;
           Table1.Filtered := true;
         end
    else Table1.Filtered := False;
end;

Si no te molesta... tengo algunas dudas con respecto a esta forma de anidar varios IF. Por lo menos a mi me resulta un poco molesto estar haciendo tantos anidamientos. Si se que la condición siempre se va a cumplir en algunos de ellos directamente pregunto por la parte verdadera (THEN)... total... no importa que siga evaluando, de cualquier manera en un IF entra y se cumple. Esto me evita a mi el molestoso "escalonado".

Por otro lado, el Filter está hecho para condiciones simples. Y Encadenar varias condiciones en el (como las del tipo Orden Compra) es forzar demasiado al componente.

Yo, en tu caso consideraría el uso de Querys. Por que:
1. Puedes de entrada traer solo lo necesario y te evitas cargar en memoria toda la tabla (algo que hace el TTable).
2. El uso de Query es más rápido.
3. Puedes hacer consultas de muy variadas formas. es más flexible que el TTable.

Saludos,

[[enecumene]]

Error:

---------------------------
Debugger Exception Notification
---------------------------
Project Sigesped.exe raised exception class TZParseError with message 'Syntax error near "ORoc_no_sigef2"'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

empezado por Delphius
Yo, en tu caso consideraría el uso de Querys. Por que:
1. Puedes de entrada traer solo lo necesario y te evitas cargar en memoria toda la tabla (algo que hace el TTable).
2. El uso de Query es más rápido.
3. Puedes hacer consultas de muy variadas formas. es más flexible que el TTable.

Sabes? no lo habia pensado antes el uso de querys hare un par de intentos a ver que me sale, luego te comento, gracias por tu ayuda.

Saludos.

[[Delphius]]

¿En que línea te salta error?
No estoy seguro de donde está el error... No manejo los componentes Zeos... bueno, creo que usas Zeos... porque veo ZPedidos y un TZParseError.

Puede que a pesar de no usar Zeos logre ver una solución.
Saludos,

EDITO: Vi que el código tenía unos errores menores... ¿será por eso? Modifique un poco el código... fijate si te sirve.