separadores de mil a una columna del dbgrid

[ingabraham]

hola,

necesito colocarle un formato con separadores de mil a una columna de un dbgrid
llamada total.

teniendo encuenta que la consulta puede variar y el numero de campos atravez del query . es algo como una consulta filtrada de campos.

gracias, espero k me entiendan

firebir 2.0 , delphi 7

[oesqueda]

1. Abres la base de datos.
2. Usas un ciclo for y determinas el tipo de campo
3. si es Currency, BCD, Float o Numerico pues, le agregas su propiedad DisplayFormat #,###,###,###,##0.00

Y ya

[ingabraham]

no te entendi.

[oesqueda]

Ok vamos siendo mas explicitos.

Eso que pides no va en el Grid a menos que el grid tenga eventos o propiedades que nos permitan editar, por ejemplo el TcxDBGrid, que es de un tercero y de paga.

Dime que version de delphi usas, que base de datos o componente de base de datos y que Grid es por favor

[ingabraham]

Empezado por oesqueda

Ok vamos siendo mas explicitos.

Eso que pides no va en el Grid a menos que el grid tenga eventos o propiedades que nos permitan editar, por ejemplo el TcxDBGrid, que es de un tercero y de paga.

Dime que version de delphi usas, que base de datos o componente de base de datos y que Grid es por favor

firebir 2.0 , delphi 7

[oesqueda]

Imagino que usas DBExpress o usas IBX?

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

Ya tu haces los cambios y lo adaptas a lo que necesitas, puedes agregar mas tipos de campos, etc.

[ingabraham]

Empezado por oesqueda

Imagino que usas DBExpress o usas IBX?

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

Ya tu haces los cambios y lo adaptas a lo que necesitas, puedes agregar mas tipos de campos, etc.

y si el campo es creado en una subconsulta, como se lo agrego.

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

[ecfisa]

ya imgabraham vera cual le satisface mejor no crees?

Totalmente de acuerdo, ahora que sabe que cast aplicar para obtener la propiedad DisplayFormat, que creo era la dificultad que dijo tener:

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

Saludos.

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

[ecfisa]

Hola ingabraham.

No parece haber ninguna cosa extraña en tu código, todo es correcto.

falta alguna uses, x que no me reconoce esto.

Puede ser que no tengas incluida la unit DB, ya que TFieldType está definido allí.

Ayuda de Delphi:

Unit

DB

Delphi syntax:

type TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString, ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd);

Fijate si falta la unit DB en la cláusula uses, por ahí es eso...

Saludos.

[ingabraham]

exacto era la uses DB.

companneros tambien encontre este procedure x alli.

Código Delphi [-]
Procedure TExportar.SetFormatoGrilla(Sender:TDBGrid);
Var
    Index:Integer;
Begin
     For Index:=0 To (Sender.FieldCount-1) Do
     Begin
           Try
              Case (Sender.Fields[Index].DataType) Of
                   ftInteger :TIntegerField(Sender.Fields[Index] ).DisplayFormat  :='#0';
                   ftFloat   :TFloatField( Sender.Fields[Index] ).DisplayFormat   :='###,##0.00';
                   ftDate   :TDatetimeField( Sender.Fields[Index] ).DisplayFormat:='dd/mm/yyyy';
              End;

           Except

           End;
     End;

End;