Se presentan truncados los importes en un DBDrid

[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

[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_6653fe03eae58" 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_6653fe03eb02a" 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 Notevi]

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

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.