Se presentan truncados los importes en un DBDrid

[Juan Quintana]

Va de nuevo, espero que cumpla ya lo de los tags............... gracias

Código Delphi [-]
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, Grids, DBGrids, StdCtrls;
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);

begin
   query1.SQL.Clear;
   query1.SQL.Add(
class='sql'><div class="frame_codigo_sql">Código SQL [-]<div id="sql_div_6a330dacbac28" class="texto_codigo_sql">
''>select movinom.idtrab, idafecta, importe, paterno,materno,nombre '>from movinom,trabajador

'); query1.SQL.Add(

class='sql'><div class="frame_codigo_sql">Código SQL [-]<div id="sql_div_6a330dacbad07" class="texto_codigo_sql">
class='quotesql'>'where movinom.idtrab=35 and anodenom=2012 and numdenom=1 and movinom.idtrab=trabajador.idtrab'
div>div>

); query1.Open; end; end.

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