Se presentan truncados los importes en un DBDrid

[Casimiro Noteví]

Amigo, tan difícil no es: Seleccionas todo el código y pulsas el botón, nada más
A ver, te lo corrijo...

[Casimiro Noteví]

Aquí está tu código del principio:

Código Delphi [-]
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, Grids, DBGrids, StdCtrls, n00o001;
type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Database1: TDatabase;
    Movinom: TTable;
    DataSource1: TDataSource;
    Query1: TQuery;
    DataSource2: TDataSource;
    Button1: TButton;
    Trabajador: TTable;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
 wimpo: double;
 xImpo:string;
begin
   query1.SQL.Clear;
   query1.SQL.Add('select movinom.idtrab, idafecta, importe, paterno,materno,nombre from movinom,trabajador ');
   query1.SQL.Add('where movinom.idtrab=35 and anodenom=2012 and numdenom=1 and movinom.idtrab=trabajador.idtrab');
   query1.Open;
   query1.First;
end;
end.

[Casimiro Noteví]

El query1.first sobra porque cuando se hace query1.open se va al primer registro.

TQuery creo que es de los componentes dbexpress, no los he usado mucho, creo que es así:

Código Delphi [-]
TFloatField(Query1.FieldbyName('Importe')).DisplayFormat := '###,###,##0';

Puedes ponerlo después del query1.open;


También puedes probar con:

Código Delphi [-]
TNumericField(Query1.FieldbyName('Importe')).DisplayFormat := ',0.00';

[Juan Quintana]

Gracias, lo voy a hacer y te digo

[Juan Quintana]

ya probe las 2 formas que me comentas, pero se sigue truncando;

no sera que la extraccion de los datos de la tabla sea la que me da el problema; aunque veo la tabla con el analizador de SQL y si estan los importes correctos,


Te lo agradezco de todas formas
Gracias

[Casimiro Noteví]

¿El campo de la tabla de qué tipo es?, es que si es integer entonces no puede tener decimales

[Juan Quintana]

El campo es TFloatField, asi me lo marca Delphi

Si veo el tipo de campo con el Analizador de SQL me marca Numeric (11, 2)

[Casimiro Noteví]

¿No tendrás puesta una máscara en el dbgrid?, pega un dbgrid nuevo y sólamente asóciale el datasource, no le toques nada más y... prueba.

[ElMug]

Empezado por Juan Quintana

El campo es TFloatField, asi me lo marca Delphi

Si veo el tipo de campo con el Analizador de SQL me marca Numeric (11, 2)

Segun se ve, diria que la data esta guarda como BCD (Binary Coded Decimal).

Investiga por ahi, y tal vez requieras convertir la data.