formateo de Dato en Dbgrid

[BPL]

Hola a todos

Trabajo con Delphi 7
tengo una dbgrid y necesito condicionar el formato
Si el dato es > 0, darle el sgte formato "0.0000" de lo contario dejarlo en blanco,
pero nose como llegar a cambiar formato, si he llegado a cambiar el color
pero el formato no he podido....

me imagino que debo trabajar con el evento
dbgriddrawcolumncell....
o estoy equivocada???

muchas gracias de antemano....

[[Caral]]

Hola
Me imagino que en el evento onChange del dataset asociado al campo.
Saludos

[[Chris]]

Para hacer lo que quieres, el objeto TField proporciona el evento OnGetText. Tienes que crear un evento del tipo TFieldGetTextEvent. Luego asignalo a la propiedad del campo al que quieres cambiar el formato después que el dataset contenedor sea abierto. En el evento TFieldGetTextEvent que hayas creado escribirás el código en donde proporcionaras el formato que tendrá tu campo.

Saludos,
Chris

[ecfisa]

Hola BPL.

Coincido con Chris en el evento a capturar.

El código que te pongo, lo podés asignar a cualquier campo numérico:

Código Delphi [-]
procedure TForm.FieldGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  if TField(Sender).Value > 0 then
    Text:= FormatFloat('0.0000',TField(Sender).Value);
end;

Podés asignarlo con doble click sobre el evento del campo asociado o mediante código:

Código Delphi [-]
   TuTabla.FieldByName('Puntos').OnGetText:= FieldGetText;
   // o si el campo está declarado:
   TuTablaTuCampo.OnGetText:= FieldGetText;

Saludos.

[BPL]

gracias ChHris y Ecfisa, ver el codigo me sirvio un poco mas, pero igual algo debo estar haciendo malo, porque no logro compilar, me reclama que faltan parametros, y a simple vista si me faltan, pero no logro llegar a lo correcto.

me podrian ayudad un poquito mas.....

[ecfisa]

Hola de nuevo.

No especificás mcuho hacerca del error..., pero será sobre el evento OnGetText no ?

De ahora en más me voy a referir al campo involucrado como: tuCampo.

1) Hacé doble click sobre la tabla involucrada, eso te abre el editor de campos.
2) Hacé click con botón derecho del mouse y elegí: Add all fields de la ventana emergente.
3) Hacé click sobre tuCampo.
4) En el Object Inspector hacé click sobre la pestaña Events.
5) Hacé doble click sobre el evento OnGetText.
6) Te va a haber creado el esqueleto del procedimiento y dejado en el editor de Delphi de este modo:

Código Delphi [-]
procedure TForm1.Table1TuCampoGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin

end;

Dentro de él, pegá el siguiente código:

Código Delphi [-]
  if TField(Sender).Value > 0 then
    Text:= FormatFloat('0.0000',TField(Sender).Value);

Saludos.

[Loviedo]

Has probado con la propiedad DisplayFormat?.
Yo la uso y me funciona.
Saludos.

[BPL]

Chicos,
Haber parece que mi error fue no explicarme bien,

estoy trabjando con una SQL (creada en tiempo de ejecucion)
el resultado de esta SQL, la muestro en una dbgrid,
uno de los campos es Espesor.
Ahora lo que necesito es que "solo" cuando el dato es mayor a 0 lo formatee asi "0.0000" de lo contario no muestre nada.

por el minuto lo estoy haciendo con el displayformat despues de abrir la SQL

" (FieldByName('Espesor') AS TFloatField).DisplayFormat := '#.####' "
pero el problema es que me muestra de esta manera .010 y necesita que se muestre completa 0.0100 pero si no hay dato no muestra nada......
por eso yo creo que va mas por el onDrawColumnCell, ya que el formato no es para toda la columna de una vez sino personalizada para cada dato...

espero me hallan logrando entender ahora....

gracias por la atencion prestada...y espero que me siguan ayudando.,...

[Loviedo]

FieldByName('Espesor') AS TFloatField).DisplayFormat := '0.0000';
Me aparece 0,0010.
saludos.

[BPL]

pero cuando no existe dato me saldria 0.0
y es eso lo que precisamente no debe ocurrir,
insisto debe salir blanco nada....

[Loviedo]

Uso Firebird y tengo dos campos numericos (debe,haber), de tal modo que si uno de los campos no contiene nada no almacena 0, sino null. En el dbgrid el campo que tiene almacenado null, no aparece en el otro sí, según displayformat.
Saludos.

[BPL]

no en mi caso no pasa eso,
como antecedente yo trabajao con Delphi 7 + Advantage (motor)

pucha.....

[ecfisa]

Empezado por BPL

no en mi caso no pasa eso,
como antecedente yo trabajao con Delphi 7 + Advantage (motor)

pucha.....

BPL...

No importa si trabajas sobre un TTable o TQuery, en definitiva estamos hablando de un TField.
En el post puse un TTable como ejemplo, pero lo mismo vale para un TQuery.

Repetí los pasos que te puse sobre el TTable en el TQuery y me contás.

Saludos.

[BPL]

Ando super perdida, no entender nada...

mira aqui te muestro como lo escribi.....y mas abajito te explico...

Procedure GrillaDrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column:TColumn; State: TGridDrawState);
begin
if (Grilla.DataSource.DataSet['Espesor'] > 0 ) then begin
Grilla.DataSource.DataSet['Espesor'].OnGetText := qrCotDetalleEspesorGetText ;
end;

Procedure qrDetalleEspesorGetText(Sender:TField; var Text:string; DisplayText:Boolean) ;
Begin
if TField(sender).Value > 0 Then
Text := FormatFloat('0.0000',TField(Sender).Value) ;
end ;


en el evento DrawColumnCell de la Grilla (GrillaDrawColumnCell), aqui es la instancia en donde necesito evaluar el dato, por decir algo aqui se esta dibujando la grilla.
al compilar asi como esta escrito arriba, me reclama por falta de parametros en "qrCotDetalleEspesorGetText", que a simple vista si me faltan...
despues de alguna manera agrego los parametros que faltan, compilo y me sale el sgte msg de error

project sisventas.exe raised exception class EVariantInvalidOpError with message "Invalid variant operation'.

y lo otro que no logro entender, como replico lo que tu me explicas en el post, con respecto hacer click en tabla, add all fields, evento, onGetText, mi tabla o query no existe hasta que se ejecuta el programa....
igual trate de hacer algo pero no di.,....


pucha ojala no te aburras,,, y sigas tratando de explicarme....

[ecfisa]

No te preocupes, si me aburriera no estaría aca leyendo...

Olvidate por completo de la Grilla,este código no vá:

Código Delphi [-]
{
Procedure GrillaDrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column:TColumn; State: TGridDrawState);
begin
if (Grilla.DataSource.DataSet['Espesor'] > 0 ) then begin
Grilla.DataSource.DataSet['Espesor'].OnGetText := qrCotDetalleEspesorGetText ;
end;
}

En el Form donde tengas la Tabla o Query, hacé esto:

Código Delphi [-]
procedure TForm.Create(Sender: TObject);
begin
   Query1.FieldByName('Espesor').OnGetText:= FieldGetText;
   // o si es Table:
   Table1.FieldByName('Espesor').OnGetText:= FieldGetText;
end;

Ahora ya tenemos asignado el procedimiento FieldGetText al evento OnGetText del campo 'Espesor', así que escribimos el procedimiento:

Código Delphi [-]
procedure TForm.FieldGetText(Sender: TField; var Text: String;DisplayText: Boolean);
begin
  if TField(sender).Value > 0 Then
       Text := FormatFloat('0.0000',TField(Sender).Value) ;
end;

La asignación al evento OnGetText del campo 'Espesor' se produce cuando se crea el Form y ya está, no hay que asignarlo a cada dibujo de la Grilla.

Ante cualquier duda, escribí nuevamente.


Saludos.