Re: [firebase-br] Formatar Data / Número
marcelo luiz stefaniak - teflamar
marcelo em teflamar.com.br
Qui Maio 11 11:44:22 -03 2006
a rotina abaixo formata uma ibquery,
dá para melhorar bastante essa rotina, mas tá funcionando.
procedure tdm.formata_query1;
var i : integer;
wcampo:string;
begin
dm.query1.FieldDefs.clear;
for i := 0 to dm.query1.FieldCount - 1 do
begin
if not dm.query1.Fields[i].IsNull then
begin
//wsize:=dm.query1.fieldbyname(dm.query1.Fields[I].FieldName).DataSize;
//dm.query1.fielddefs.Add(dm.query1.fields[i].fieldname,dm.query1.fieldbyname(wcampo).DataType,wsize,false);
wcampo:=lowercase(dm.query1.Fields[i].FieldName);
if dm.query1.fieldbyname(wcampo).DataType=ftfloat then
tfloatfield(dm.query1.FieldByName(wcampo)).displayformat:='###,###,##0.00';
if dm.query1.fieldbyname(wcampo).DataType=ftbcd then
tfloatfield(dm.query1.FieldByName(wcampo)).displayformat:='###,###,##0.00';
if dm.query1.fieldbyname(wcampo).DataType=ftinteger then
tfloatfield(dm.query1.FieldByName(wcampo)).displayformat:='###,###,##0';
if (wcampo='pagador') or (wcampo='exportador') then
dm.query1.FieldByName(wcampo).editmask:='!99\.999\.999\/9999\-99;0;_';
end;
end;
end;
----- Original Message -----
From: "Fábio Henrique Beccaria Sampaio" <fabiohbsampaio em gmail.com>
To: "FireBase" <lista em firebase.com.br>
Sent: Thursday, May 11, 2006 7:23 AM
Subject: [firebase-br] Formatar Data / Número
Galera, estou desenvolvendo um software com DELPHI / FIREBIRD 1.5 e preciso
formatar número (0,00) e data (dd/mm/yyyy) dentro da select. Acho que é o
tal das UDFs.
Alguns amigos ja me passaram algumas dicas, mais ainda não consegui fazer.
Alguem poderia me enviar um exemplo (banco + fonte) no meu e-mail
fabiohbsampaio em gmail.com
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.392 / Virus Database: 268.5.6/336 - Release Date: 10/05/2006
Mais detalhes sobre a lista de discussão lista