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.

[[enecumene]]

El error me sale al momento de digitar:

'Syntax error near "ORoc_no_sigef2"'

y el error es que me esta poniendo el OR delante del campo "ORoc_no_sigef2".

Saludos.

[[Delphius]]

Enecumene, modifique el código! Noté que tenía errores menores... no se habrá sido eso.

[[Delphius]]

Ummm creo saber... ¡despues de cada OR debe ir un espacio! ¡que tonto soy! Es decir que el problema está en que el filter debebría quedar así:

algo LIKE algun_contenido* OR algo LIKE algun_otro_contenido* ...

pero queda asi:

...algun_contenido* ORalgo LIKE ...

Prueba añadiendo espacio a cada OR.

Saludos,

[[enecumene]]

Hola Delphius los errores menores lo habia corregido pero aun asi el error me sigue saliendo.

Saludos

[[Delphius]]

Pues no te sabria decir... a juzgar por lo que dice el error... pareciera ser que se debe al concatenamiento. Puede que exista algun ' de más y/o que le falte. un showmessage del filtro puede que ayude... usar quotestr() es recomendable para evitar lios como estos.

Debido a la hora que es (0:21 am) no estoy con todas las pilas y se me hace dificil razonar demasiado... lamento no poder ayudarte mucho.

Saludos,

[[enecumene]]

Delphius, Al contrario, yo agradezco muchissimo que uses tu tiempo para poder ayudarme, estamos en las mismas, estoy casi durmiendome, tu ayuda vale mucho para mi aunque no se haya resuelto el asunto pues te aseguro que tu esfuerzo no fue en vano.

Yo hare un ultimo intento, tratare de hacerlo con querys como ya me habias comentado anteriormente, bueno, sin mas por el momento que pases buenas noches y que dios te acompañe.

Saludos.

[[eduarcol]]

A ver tu dices que si le das un espacio a cada OR te sigue saliendo el error??
quedaria algo 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;

fijate que despues de los OR y antes de la comilla simple hay un espacio en blanco

[[enecumene]]

Hey Excelente Eduarcol, Ahora si Funciona, muchas gracias a ti, Delphius, y a Caral tambien, ahora me funciona de pelos, de NUevo Gracias.

Saludos.