Orden by con items de un Listbox!!

[[Caral]]

No se me parece bien, cual es el problema.?
Saludos

[magnu9]

Solo que me gustaria conocer esto,

1- Puedes crear variables para los items que vas copiando de uno a otro, esto los mantiene en memoria hasta que se impriman.
2- Puedes crear una tabla temporal, pasar los items del listbox1 al 2 grabarlos en la tabla nueva y luego hacer lo que quieras con los datos, imprimirlos para luego borrarlos o mantenerlos con un numero o no se algo asi.

bueno eso lo averiguare..

Y gracias pues ya pude conseguir que en de un campo ya estoy pasandoles un texto. Bueno ahora a intentar conseguir lo que quiero...
Asi lo consegui.

Código Delphi [-]
 if Ordenar.ItemIndex = 0 then begin
         FreportCliente.qryCliente.SQL.Add(' Select  codcli,nomcli,apelcli, dircli, telcli,cedcli, fecha, estado, codzon, facturacredito, balcli, direc_envio From cliente ');
         FreportCliente.qryCliente.SQL.Add(' WHERE cliente.codcli >='''+(edCodigo1.Text)+''' AND cliente.codcli <= '''+(edCodigo2.Text)+'''');
        // FreportCliente.qryCliente.SQL.Add('OR (cliente.nomcli LIKE ''%'+edNombre1.Text+''' and cliente.nomcli LIKE ''%'+edNombre2.Text+''')');
         FreportCliente.qryCliente.SQL.Add(' ORDER BY '+ListBox1.Items[0]+' deSC');

[luisgutierrezb]

a ver si entendi bien, quieres ordenar la consulta por los campos que vas a seleccionar o a tener en el listbox2, yo usaria algo asi como:

Código Delphi [-]
Var
  Orden:String;
  I:Integer;
Begin
  // instrucciones
  For I:=0 To Listbox2.Items.Count -1 Do
  Begin
    Orden := Orden + ListBox2.Items[i]
    If I < Listbox2.Items.Count -1 then
      Orden := Orden + ','
  End;
  //Instrucciones
  FreportCliente.qryCliente.SQL.Add(' ORDER BY '+Orden+' deSC');

[magnu9]

Observen esto..

Código Delphi [-]
 FreportCliente.qryCliente.SQL.Add(' Select codcli,nomcli,apelcli, dircli, telcli,cedcli, fecha, estado, codzon, facturacredito, balcli, direc_envio From cliente ');


FreportCliente.qryCliente.SQL.Add(' WHERE cliente.codcli >='''+(edCodigo1.Text)+''' AND cliente.codcli <= '''+(edCodigo2.Text)+'''');

Osea si cambio a este codigo..... codcli es el codigo del cliente, nombre_cli nombre del cliente..

Código Delphi [-]
 FreportCliente.qryCliente.SQL.Add(' Select codcli,nomcli,apelcli, dircli, telcli,cedcli, fecha, estado, codzon, facturacredito, balcli, direc_envio From cliente ');
FreportCliente.qryCliente.SQL.Add(' WHERE cliente.NOMCLI >='''+(edNombre1.Text)+''' AND cliente.nombre_CLI <= '''+(edNombre2.Text)+'''');

con codcli todo bien, en cambio con nomcli nada.....

Nota: Con igual nombre si me hace el reporte.

[magnu9]

Solo me falta lo que son las fechas... ahhh y trato de buscarlos por sus balance pero me devuelve el error de "imposible conversion de tipo varchar a numerico"

Código Delphi [-]
procedure TrpCliente.btnAceptarClick(Sender: TObject);
//var orden: string;
 var m: integer;
begin
 m:= ListBox2.Items.Count;
  try
   FreportCliente:=TFreportCliente.Create(self);
      if Ordenar.ItemIndex = 0 then begin
         FreportCliente.qryCliente.SQL.Add(' Select  codcli,nomcli,apelcli, dircli, telcli,cedcli, fecha, estado, codzon, facturacredito, balcli, direc_envio From cliente ');
         FreportCliente.qryCliente.SQL.Add(' WHERE cliente.codcli >='''+(edCodigo1.Text)+''' AND cliente.codcli <= '''+(edCodigo2.Text)+'''');
       FreportCliente.qryCliente.SQL.Add('or (cliente.nomcli >='''+edNombre1.text+'%'' AND cliente.nomcli <= '''+edNombre2.text+'%'')');
      // FreportCliente.qryCliente.SQL.Add('or (cliente.balcli >='''+(edBalance1.Text)+'%'' AND cliente.balcli <='''+edBalance2.Text+'%'')');
 
         IF m=0 THEN
         FreportCliente.qryCliente.SQL.Add(' ORDER BY CODCLI DESC');
         IF m=1 THEN
         FreportCliente.qryCliente.SQL.Add(' ORDER BY '+ListBox2.Items[0]+'');
         IF m=2 THEN
         FreportCliente.qryCliente.SQL.Add(' ORDER BY '+ListBox2.Items[0]+','+ListBox2.Items[1]+'');
         IF m=3 THEN
         FreportCliente.qryCliente.SQL.Add(' ORDER BY '+ListBox2.Items[0]+','+ListBox2.Items[1]+','+ListBox2.Items[2]+'');
         IF m=4 THEN
         FreportCliente.qryCliente.SQL.Add(' ORDER BY '+ListBox2.Items[0]+','+ListBox2.Items[1]+','+ListBox2.Items[2]+','+ListBox2.Items[3]+'');
      end

[[Lepe]]

Sugerencia: añadir los "else" en las comparaciones if m=0 then ... else if m=1 then ..

Si m es igual a cero, después debe comprobar que m es distinto de 1,2,3 y 4 ya que no están anidados los "if". Si añades los "else", solo realizará una comprobación (m igual a cero) y después se salta los demás "else".

Saludos

[Guti13]

Magnu9 yo te recomendaría que hiciese lo siquiente que creo es mas claro y limpio en cuanto al código:

If listBox2.Items.Count>0 Then
Begin
Consulta.SQL.Add('Order by '+ListBox2.Items.CommaText)
End