separadores de mil a una columna del dbgrid

[[maeyanes]]

Hola...

Si el resultado de la subconsulta es parte del DataSet que estás usando para obtener los datos, no tienes que hacer nada más.

Yo solo le quitaría que verifique si el campos es del tipo ftInteger ya que mayormente este tipo de datos no necesita formato de decimales.


Saludos...

[oesqueda]

Ampliemos el codigo:

Código Delphi [-]
var
  i:integer;
begin
for i := 0 to pred(dataset.fieldcount) do
  Case dataset.fields.fields[i].FieldType of
    ftInteger: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0';
    ftFloat, ftCurrency: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0.00';
  end; {case}
end;

Entero sin decimales, claro esta que faltan mas tipos de campos, pero ahi te dejo la idea para que lo completes.

[ingabraham]

Empezado por oesqueda

Ampliemos el codigo:

Código Delphi [-]
var
  i:integer;
begin
for i := 0 to pred(dataset.fieldcount) do
  Case dataset.fields.fields[i].FieldType of
    ftInteger: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0';
    ftFloat, ftCurrency: dataset.fields.fields[i].DisplayFormat := '#,###,###,###0.00';
  end; {case}
end;

Entero sin decimales, claro esta que faltan mas tipos de campos, pero ahi te dejo la idea para que lo completes.

FieldType
me dice que no lo reconoce, ni displayformt
lo probe utilizando un dataset

compañero pero yo mas que todo uso el query en mis consultas. como seria

[ecfisa]

Hola.

compañero pero yo mas que todo uso el query en mis consultas. como seria

Proba de este modo:

Código Delphi [-]
var
  i: Integer;
begin
  for i:= 0 to IBQuery1.FieldCount -1 do
    if IBQuery1.Fields[i].DataType in[ftFloat, ftCurrency, ftBCD] then
      TNumericField(IBQuery1.Fields[i]).DisplayFormat:= '#,###,###,###,##0.00';
end;

Saludos.

[oesqueda]

Sin animo a controversia, prefiero el Case, ya que asi acomodas como desees el formato segun el tipo, es mas rapido que un IF y para mi es mas claro en la lectura ademas.

Código Delphi [-]
var
  i: Integer;
begin
  for i:= 0 to IBQuery1.FieldCount -1 do
    Case IBQuery1.Fields[i].DataType of
      ftFloat, ftCurrency, ftBCD: NumericField(IBQuery1.Fields[i]).DisplayFormat :=  '#,###,###,###,##0.00';
      ftInteger: NumericField(IBQuery1.Fields[i]).DisplayFormat :=  '#,###,###,###,##0';
    end; {case}

Claro esta que es ya de cada quien

[ecfisa]

Hola oesqueda.

Lo que quise ejemplificar a ingabraham fue como acceder a la propiedad DisplayFormat desde la consulta y puse más énfasis en la simplicidad del código que en la eficiencia del mismo.

Aunque realmente, en un código que se ejecuta esporádicamente, para una cincuentena de campos como mucho y comparando dos o tres valores, no pareciera que el uso del case mejore significativamente la performance de la aplicación en este caso.

Saludos.

[oesqueda]

En tal caso mi estimado es a cuestion del programador, a mi me gusta mas el Case, ya imgabraham vera cual le satisface mejor no crees?

[ingabraham]

Empezado por ecfisa

Hola.

Proba de este modo:

Código Delphi [-]
var
  i: Integer;
begin
  for i:= 0 to IBQuery1.FieldCount -1 do
    if IBQuery1.Fields[i].DataType in[ftFloat, ftCurrency, ftBCD] then
      TNumericField(IBQuery1.Fields[i]).DisplayFormat:= '#,###,###,###,##0.00';
end;

Saludos.

donde coloco este codigo ahora me sale errror en ftfloat

y en tnumericfield.

[ecfisa]

Hola ingabraham.

Para disipar toda duda probé el código que te adjunté con la siguiente tabla:

Código SQL [-]
CREATE TABLE PRUTYPENUM(
  BIGNUM BIGINT,
  DECIMALNUM DECIMAL(15,3),
  DOBLEPRESNUM DOUBLE PRECISION,
  FLOATNUM FLOAT,
  INTEGERNUM INTEGER,
  NUMERICNUM NUMERIC(15,3),
  SMALLINTNUM SMALLINT
);

Como bién verás, contempla todos los tipos numéricos. Y no genera ningún tipo de error.

Revisé el hilo desde el principio y no has puesto una sóla línea de tu código. No está a nuestro alcance adivinar que es lo que estas haciendo.

Por que no nos simplificas un poco la tarea y nos pones: El tipo de campos que definiste en Firebird, la porción de código involucrado donde te genera el error, la línea donde se produce y "literalmente" el mensaje que te arroja.

Gracias.

[ingabraham]

tengo un bdgrid/ query y dataset conectado
utilizo delphi 7 y firebird 20

este es el bton que me muestra la consulta

Código Delphi [-]

    with DMDatos.IBMostrarDatos do
     begin
       SQL.Clear;
       SQL.Add(' Select  * From  CONTRATOS  ');
       Open;
     end;

ahora este codigo que me dan , cualquiera de los que me han dado. lo adiciono a continuacion de esto.

Código Delphi [-]
var
  i: Integer;
begin
  for i:= 0 to IBQuery1.FieldCount -1 do
    if IBQuery1.Fields[i].DataType in[ftFloat, ftCurrency, ftBCD] then
      TNumericField(IBQuery1.Fields[i]).DisplayFormat:= '#,###,###,###,##0.00';
end;

me muestra que no reconoce los tipos ftFloat, ftCurrency, ftBCD


falta alguna uses, x que no me reconoce esto.