formateo de Dato en Dbgrid

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