Re: [firebase-br] Formatar Data / Número

[marcelo luiz stefaniak - teflamar]

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