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 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+'%'')');
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