Una Ayudita consulta like y combobox

[[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,