Se presentan truncados los importes en un DBDrid

[Juan Quintana]

Hola a todos, estoy incursionando en el uso de Delphi con la base de Datos SQL Server, pero al hacer un Query y presentar los resultados en un DBgrid, todos los importes mayores a 999.99 se presentan mal, por ejemplo el importe de 27346.73 se presenta solo como 27; el codigo que estoy usando es:

SQL.Clear;
SQL.Add('select movinom.idtrab, idafecta, importe, paterno,materno,nombre from movinom,trabajador '+
'where movinom.idtrab=35 and anodenom=2012 and numdenom=1 and movinom.idtrab=trabajador.idtrab');
Open;


Con este codigo se presentan correctamente todas las columnas exepto la de importe; que estare haciendo mal pues la base de datos si tiene los importes correctos.

Gracias

[kapcomx]

checate si en las propiedades del campo tienes en true la propiedad currency.
haber si con eso te sale bien ...

Saludos

[Juan Quintana]

Gracias, por contestarme

Pero no se como poner esa propiedad al campo, me puedes proporcionar un ejemplo

[Casimiro Notevi]

Empezado por Juan Quintana

...

Recuerda poner los tags al código fuente, ejemplo:



Gracias


Debes asignarla una máscara de presentación al campo, ejemplo:

Código Delphi [-]
query.fieldbyname('importe').displayformat := '###,##';

[Juan Quintana]

Debes asignarla una máscara de presentación al campo, ejemplo:

Código Delphi [-]
query.fieldbyname('importe').displayformat := '###,##';

Gracias

Cuando pongo la mascara me da error, el compilar no reconoce a displayformat

Estoy usando Delphi 7

[Casimiro Notevi]

Pon el código que estás usando, no tenemos bola de cristal

[Juan Quintana]

Perdon, soy nuevo en estar usando este estupendo Foro, envio el codigo que estoy usando

Gracias






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 Notevi]

Más arriba te he explicado cómo poner el código fuente