(Resolvido) Máscara para Máscara para metro quadrado e c*bico e e val

[Mesfistofeles]

Boa tarde amigos.

Estou fazeno uma rpotina que multiplíca valores que são inseridos no dbedit acontece que:

1º No que gera o valor por exemplo "R$:16,20" O CAMPO OTAL MOSTRA 1.620,00 SEGUE ABAIXO O CÓDIGO:

Begin

datamodule2.adoitenvalortotal.ascurrency :=

datamodule2.adoitenquant.ascurrency *

datamodule2.adoitenvalorunit.ascurrency;

end;

end.

S: Também gostaria que quando o suario colocasse uma medida por exemplo 0,45 pudesse saisse assim:

0,45 M² MAS ACONTECE QUE O USUÁRIO SÓ ESTA CONSEGUINDO COLOCAR ASSIM NO CAMPO DO DBEDIT:

"45" (Sem 0 e sem vírgula) o código é parecido com o de cima:

Begin

datamodule2.adoitenmetroquadrado.ascurrency :=

datamodule2.adoitenlarfura.ascurrency *

datamodule2.adoitencomprimento.ascurrency;

end;

end.

[Micheus]

Mesfistofeles, perguntinhas básicas...

- qual banco de dados você está usando?

- qual o tipo de dados que você usou no banco para este campo?

- voce adicionou os campos ao dataset. você mexeu na propriedade Currency do field?

- voce colocou alguma formatação na propriedade DisplayFormat?

- está usando o método OnGetText de algum destes fields?

- a "diferença" de duas casas está sendo visualizada na tela do seu projeto ou quando você confere o valor no banco?

Editado Março 11, 2009 por Micheus

[Mesfistofeles]

Mesfistofeles, perguntinhas básicas...

- qual banco de dados você está usando?

- qual o tipo de dados que você usou no banco para este campo?

- voce adicionou os campos ao dataset. você mexeu na propriedade Currency do field?

- voce colocou alguma formatação na propriedade DisplayFormat?

- está usando o método OnGetText de algum destes fields?

- a "diferença" de duas casas está sendo visualizada na tela do seu projeto ou quando você confere o valor no banco?

boa tarde.

Banco de dados ACCESS

Tipo de dados numerico

sim coloquei currency no field

não coloquei nenhuma formatação no Display Format

Nada de OngetText

As diferenças sim estão sendo visualizadas

[Micheus]

Estou fazeno uma rpotina que multiplíca valores que são inseridos no dbedit acontece que:

1º No que gera o valor por exemplo "R$:16,20" O CAMPO OTAL MOSTRA 1.620,00 SEGUE ABAIXO O CÓDIGO:

Mesfistofeles, observei que este efeito ocorre no próprio MSAccess (o gerenciador do banco) quando ao invés de usar como separador de decimais a vírgula, usei o ponto.

Banco de dados ACCESS

Tipo de dados numerico

sim coloquei currency no field

Só para constar, no MSAcces o equivalente ao tipo currency (valor monetário) seria o tipo Moeda.

No Delphi, usando um TADOTable oo campo Moeda é "traduzido" em um TBCDField:

Declaração no Access => No Delphi (Field)

Moeda => TBCDField

Numérico - Duplo => TFloatField

Numérico - Simples => TBCDField

Numérico - Decimal => TFloatField

Eu criei uma pequena aplicação para testar este comportamento que você postou e não observei o problema.

Utilizei um TADOConnection com provider: Microsoft.Jet.OLEDB.4.0; No banco, os campos VlrUnitario e VlrTotal do tipo Moeda e o campo QtdTotal do tipo Numero - Duplo; Coloquei um DBGrid para monitorar os dados no TADOTable; Dois TDBEdit para editar os campos VlrUnitario e QtdTotal e um TDBText para observar o valor VlrTotal; Não foi utilizada qualquer formatação; No evento OnChange dos campos multiplicados o resultado era atribuido ao total. (se quiser vê-la, envie-me seu e-mail por MP)

Abraços

[Mesfistofeles]

Boa tarde Micheus.

Muito obrigado o problema era que no access estava como número mesmo coloquei moeda e resolveu!

Valeu