ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Mostrar no Grid campo com 6 casas decimais

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
roque
Novato
Novato


Registrado: Quarta-Feira, 12 de Novembro de 2003
Mensagens: 4

MensagemEnviada: Qui Mar 04, 2010 11:20 am    Assunto: Mostrar no Grid campo com 6 casas decimais Responder com Citação

Bom dia estou dando manutenção em uma aplicação escrita no Delphi 7 estou usando TADOQUERY para consultar uma tabela no informix tenho um campo decimal (18,6) e preciso mostrar as 6 casas décimais, no entanto só mostram 4 casas. Já tentei formatação aumenttar o size e colocar na instrução CAST(ordem_sup.pre_unit_oc AS NUMERIC(18,6)) as pre_unit_oc
e nada.

Alguem tem alguma solução
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
rafmattos
Colaborador
Colaborador


Registrado: Quinta-Feira, 11 de Fevereiro de 2010
Mensagens: 3416
Localização: Campo Grande/MS

MensagemEnviada: Qui Mar 04, 2010 11:51 am    Assunto: Responder com Citação

no Field do seu componente em cima do campo. vai na Propriedade
DisplayFormat = '0.000000'
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail Visitar a homepage do Usuário MSN Messenger
pestana
Colaborador
Colaborador


Registrado: Sábado, 25 de Junho de 2005
Mensagens: 3147
Localização: Araras-SP

MensagemEnviada: Qui Mar 04, 2010 12:27 pm    Assunto: Responder com Citação

em tempo de execução:

Código:
query.open;
(query.FieldByName('nomeDoCampo') as TNumericField).DisplayFormat := '0.000000;'

_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
roque
Novato
Novato


Registrado: Quarta-Feira, 12 de Novembro de 2003
Mensagens: 4

MensagemEnviada: Qui Mar 04, 2010 12:50 pm    Assunto: Responder com Citação

meu eu tenho essa instrução dentro da query:
CAST(ordem_sup.pre_unit_oc AS NUMERIC(18,6))

e no open da query está
(qryPedItens_SUP.FieldByName('pre_unit_oc') as TNumericField).DisplayFormat := '0.000000';
como foi informado.
O problema é que não traz o valor dos 6 digistos depois da virgula. Exemplo:
o valor é 0,031115 e mostra 0,031100.
estou procurando alguma limitação do componente TADOQUERY pois não está trazendo mais de 4 casas decimais. Executando o select no banco mostra o valor completo.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
pestana
Colaborador
Colaborador


Registrado: Sábado, 25 de Junho de 2005
Mensagens: 3147
Localização: Araras-SP

MensagemEnviada: Qui Mar 04, 2010 2:11 pm    Assunto: Responder com Citação

retire este cast do select e deixe o campo formatado.
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
roque
Novato
Novato


Registrado: Quarta-Feira, 12 de Novembro de 2003
Mensagens: 4

MensagemEnviada: Qui Mar 04, 2010 6:33 pm    Assunto: Responder com Citação

Retirei o cast e nada o valor aparece 0,031100
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
pestana
Colaborador
Colaborador


Registrado: Sábado, 25 de Junho de 2005
Mensagens: 3147
Localização: Araras-SP

MensagemEnviada: Sex Mar 05, 2010 10:29 am    Assunto: Responder com Citação

Rapaz isso é muito estranho!

Não tenho nem ideia do que poderia ser, já que as possíveis causas foram descartadas.

Se eu encontrar alguma coisa que possa resolver o seu problema eu postarei!


Boa sorte.
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB