4 replies to this topic

[luk2009]

estoy tratando de utilizar este evento y cuando presiono la columna cliente u otra cuyo nombre no sea similar en otra tabla funciona bien, pero si presiono una columna cuyo titulo es igual al de otra tabla me da un error 

delphi

procedure TFRQcentral.DBGrid1TitleClick(Column: TColumn);
 
 var
  ordenando: string;
 
begin
 ordenando := Column.FieldName;
 inicio:=formatdatetime('yyyymmdd' ,datetimepicker1.date);
 fin:=formatdatetime('yyyymmdd' ,datetimepicker2.date);
 if edcliente.Text <> '' then
     begin
       Dmmonitoreo.QCENTRAL.SQL.clear;
       Dmmonitoreo.QCENTRAL.SQL.Add('select * from  central left join acmsub on central.csid=acmsub.csid ');
       Dmmonitoreo.QCENTRAL.SQL.Add(' left JOIN evento ON CENTRAL.EVENTO = evento.Evento');
       Dmmonitoreo.QCENTRAL.SQL.Add(' where ' + 'ACMSUB.clientes LIKE ' +  quotedstr('%' + edcliente.Text + '%'));
       Dmmonitoreo.QCENTRAL.SQL.Add(' and CENTRAL.FECHAN between ' + quotedstr (inicio) + ' and ' + quotedstr(fin));
       Dmmonitoreo.QCENTRAL.SQL.Add(' order by ' + (ordenando));
       Dmmonitoreo.QCENTRAL.Open;
 
       if edcsid.text <> '' then
          begin
            Dmmonitoreo.QCENTRAL.SQL.clear;
            Dmmonitoreo.QCENTRAL.SQL.Add('select * from central left join acmsub on central.csid = acmsub.csid ');
            Dmmonitoreo.QCENTRAL.SQL.Add(' left JOIN evento ON CENTRAL.EVENTO = evento.Evento ');
            Dmmonitoreo.QCENTRAL.SQL.Add('  where CENTRAL.CSID like ' + QUOTEDSTR(EDCSID.TEXT + '%'));
            Dmmonitoreo.QCENTRAL.SQL.Add('    and CENTRAL.FECHAN between ' + quotedstr (inicio) + 'and' + quotedstr(fin));
            Dmmonitoreo.QCENTRAL.SQL.add( ' order by '+ (ordenando));
            Dmmonitoreo.QCENTRAL.Open;
          end;
       end;
end;

aunque por ejemplo la columna csid que es el codigo del cliente en la tabla acmsub y tambien en la tabla central, en el query sql les puso como alias csid y csid_1

Espero entiendan la pregunta

[enecumene]

El segundo IF deberí­a estar fuera del primer IF, yo lo harí­a así­:

delphi

procedure TFRQcentral.DBGrid1TitleClick(Column: TColumn);
 
 var
  ordenando: string;
 
begin
 ordenando := Column.FieldName;
 inicio:=formatdatetime('yyyymmdd' ,datetimepicker1.date);
 fin:=formatdatetime('yyyymmdd' ,datetimepicker2.date);
 if edcliente.Text <> '' then
     begin
       Dmmonitoreo.QCENTRAL.SQL.clear;
       Dmmonitoreo.QCENTRAL.SQL.Add('select * from  central left join acmsub on central.csid=acmsub.csid ');
       Dmmonitoreo.QCENTRAL.SQL.Add(' left JOIN evento ON CENTRAL.EVENTO = evento.Evento');
       Dmmonitoreo.QCENTRAL.SQL.Add(' where ' + 'ACMSUB.clientes LIKE ' +  quotedstr('%' + edcliente.Text + '%'));
       Dmmonitoreo.QCENTRAL.SQL.Add(' and CENTRAL.FECHAN between ' + quotedstr (inicio) + ' and ' + quotedstr(fin));
       Dmmonitoreo.QCENTRAL.SQL.Add(' order by ' + (ordenando));
       Dmmonitoreo.QCENTRAL.Open;
     end 
   else if edcsid.text <> '' then
          begin
            Dmmonitoreo.QCENTRAL.SQL.clear;
            Dmmonitoreo.QCENTRAL.SQL.Add('select * from central left join acmsub on central.csid = acmsub.csid ');
            Dmmonitoreo.QCENTRAL.SQL.Add(' left JOIN evento ON CENTRAL.EVENTO = evento.Evento ');
            Dmmonitoreo.QCENTRAL.SQL.Add('  where CENTRAL.CSID like ' + QUOTEDSTR(EDCSID.TEXT + '%'));
            Dmmonitoreo.QCENTRAL.SQL.Add('    and CENTRAL.FECHAN between ' + quotedstr (inicio) + 'and' + quotedstr(fin));
            Dmmonitoreo.QCENTRAL.SQL.add( ' order by '+ (ordenando));
            Dmmonitoreo.QCENTRAL.Open;
          end;
end;

Nota lo hice al vuelo, puede que haya errores pero los tiros andan por ahí­.

Saludos.

[luk2009]

Gracias por la rapida respuesta y aunque la consulta me funciona bien, siempre es bueno recibir correcciones

Pero el Problema es cuando quiero ordenar la tabla pasandole en valor de la variable ordenando la cual es igual
a column.fieldname.

Yo creo que el problema esta en que en el query tengo por lo menos dos tablas que tienen campos con nombres comunes, porque el error que me da es

'AMBIGUOS COLUMN NAME'

Como puedo solucionar esto?

gracias

[enecumene]

¿Por qué no en vez de usar Column.FieldName usar Column.Title.text?, deja ver si te hago un ejemplo para mañana.

Saludos

[luk2009]

Gracias Enecumene la idea era por ahi. Lo unico es que es column.title.caption y le puse varios if observa esto y dime si puedo mejorarlo. Gracias de nuevo

delphi

procedure TFRQcentral.DBGrid1TitleClick(Column: TColumn);
 
 var
  ordenando: string;
 
begin
  ordenando:=Column.Title.Caption;
  if ordenando= 'CSID' then
  ORDENANDO:=' CENTRAL.CSID '
ELSE
IF ORDENANDO = 'DETALLE' THEN
ORDENANDO:= ' CENTRAL.DETALLE '
ELSE
 
IF ORDENANDO = 'DETALLE1' THEN
orDENANDO:= ' evento.Detalle ' ;
 
 
 
//ordenando := Column.FieldName;
 inicio:=formatdatetime('yyyymmdd' ,datetimepicker1.date);
 fin:=formatdatetime('yyyymmdd' ,datetimepicker2.date);
 if edcliente.Text <> '' then
     begin
       Dmmonitoreo.QCENTRAL.SQL.clear;
       Dmmonitoreo.QCENTRAL.SQL.Add('select * from  central left join acmsub on central.csid=acmsub.csid ');
       Dmmonitoreo.QCENTRAL.SQL.Add(' left JOIN evento ON CENTRAL.EVENTO = evento.Evento');
       Dmmonitoreo.QCENTRAL.SQL.Add(' where ' + 'ACMSUB.clientes LIKE ' +  quotedstr('%' + edcliente.Text + '%'));
       Dmmonitoreo.QCENTRAL.SQL.Add(' and CENTRAL.FECHAN between ' + quotedstr (inicio) + ' and ' + quotedstr(fin));
       Dmmonitoreo.QCENTRAL.SQL.Add(' order by ' + (ordenando));
       Dmmonitoreo.QCENTRAL.Open;
       end
       else if edcsid.text <> '' then
          begin
            Dmmonitoreo.QCENTRAL.SQL.clear;
            Dmmonitoreo.QCENTRAL.SQL.Add('select * from central left join acmsub on central.csid = acmsub.csid ');
            Dmmonitoreo.QCENTRAL.SQL.Add(' left JOIN evento ON CENTRAL.EVENTO = evento.Evento ');
            Dmmonitoreo.QCENTRAL.SQL.Add('  where CENTRAL.CSID like ' + QUOTEDSTR(EDCSID.TEXT + '%'));
            Dmmonitoreo.QCENTRAL.SQL.Add('    and CENTRAL.FECHAN between ' + quotedstr (inicio) + 'and' + quotedstr(fin));
            Dmmonitoreo.QCENTRAL.SQL.add( ' order by '+ (ordenando));
            Dmmonitoreo.QCENTRAL.Open;
          end;
       end;
 
 
end.