(Resolvido) campo numeric sqlserver 2005

[flavioavilela]

galera, gostaria apenas de uma explicação...

eu tenho no meu bd, que é em sqlserver 2005, um campo do tipo float... quando eu mando salvar no delphi, por exemplo, um valor 300,00 ele não aceita... ai tive estudando em uns foruns ai, e vi que para salvar isso que quero, teria que usar esse campo numeric.... seria isso mesmo??? e, como faço para poder formatar o campo que eu digitar, por exemplo, o valor 300 e ao receber ou perder o foco, ele formatar para 300,00 com cifrão ou sem cifrão????

desde já, agradeço a atenção de todos...

[Pirambu!]

flavioavilela, você pode dentro do banco SQLserver formatar o campo que vai receber o valor ficaria assim:

Valor decimal(10,2) default(0),

e no Delphi quando você abrir a tabela ou query selecione o Campo dentro da tabela ou query e var na propriedade: Corrency coloca como True. ver se isso ajuda. outra forma seria essa direto no Delphi

floatTostrF(CampoString,ffcurrency,10,2);

[flavioavilela]

certo... a parte do campo numeric entendi...

agora, só uma coisa... eu quero assim, por exemplo, o cara digita um valor em uma caixa texto, por exemplo:

Quantidade Valor Unitário Total

5 3 15

e sair

Quantidade Valor Unitário Total

5,0 3,00 15,00

ou seja, não estou buscando nada no bd.... o foco para na caixa texto, a pessoa digita um número e da enter, já sai configurado com a , e com os zeros.... eu tentei fazer esse esquema ai do FloatoStrF mas parece que não quis funcionar....

o que poderia ser feito???

[Micheus]

agora, só uma coisa... eu quero assim, por exemplo, o cara digita um valor em uma caixa texto, por exemplo:

Quantidade Valor Unitário Total

5 3 15

e sair

Quantidade Valor Unitário Total

5,0 3,00 15,00

flavioavilela, se você está usando DBEdit's para a edição (ou mesmo edição no DBGrid) basta que você formate a propriedade DisplayFormat do field (campo em seu dataset).

Para saber como usar a formatação corretamente (as opções), você pode selecionar esta propriedade na janela Object Inspector e teclar F1.

Para adiantar, quando você quer manter a quantidade de casas fixas você deve por "0" na posição desejada. Ex.:

5 => 0.0 => 5,0

3 => 0.00 => 3,00

1240 => #,##0.00 => 1.240,00 (o uso dos #, possibilita a formatação de milhar, do contrário o resultado seria 1240,00)

Observando que na máscara você usa a pontuação no formato americano (ponto como separador decimal). Se for acrescentar a moeda, basta preceder a máscara com ela: R$ #,##0.00

Abraços

[flavioavilela]

bom dia micheus, obrigado pela sua força em me ajudar, mas não funcionou...

eu estou utilizando um edit normal mesmo saca, da paleta standard e em seu evento OnExit estou fazendo assim:

procedure TFrmVendas_Balcao.EdtValor_VendaExit(Sender: TObject);

var

valor: double;

begin

valor:= StrToFloat(EdtValor_Venda.Text);

FormatFloat('#,##0.00', valor);

end;

e não está funcionando... já esperimentei colocar o FloatFloat('#,##0.00', StrtoFloat(Edtvalor_venda.text); mas não adiantou também...

[Micheus]

bom dia micheus, obrigado pela sua força em me ajudar, mas não funcionou...

eu estou utilizando um edit normal mesmo saca, da paleta standard e em seu evento OnExit estou fazendo assim:

procedure TFrmVendas_Balcao.EdtValor_VendaExit(Sender: TObject);
var
  valor: double;
begin
  valor:= StrToFloat(EdtValor_Venda.Text);
  FormatFloat('#,##0.00', valor);
end;

e não está funcionando... já esperimentei colocar o FloatFloat('#,##0.00', StrtoFloat(Edtvalor_venda.text); mas não adiantou também...

flavioavilela, você está no caminho certo, apenas está esquecendo o principal: atribuir o resultado da função FormatFloat de volta ao edit! Corrigindo...

procedure TFrmVendas_Balcao.EdtValor_VendaExit(Sender: TObject);
var
  valor: double;
begin
  valor:= StrToFloat(EdtValor_Venda.Text);
  EdtValor_Venda.Text := FormatFloat('#,##0.00', valor);
end;

Se você for usar este tipo de formatação em vários edits, então prefira torná-lo "genérico" para poder apenas atribuir este evento ao evento OnExit dos demais edits:

procedure TFrmVendas_Balcao.EdtValor_VendaExit(Sender: TObject);
var
  valor: double;
begin
  valor:= StrToFloat(TEdit(Sender).Text);
  TEdit(Sender).Text := FormatFloat('#,##0.00', valor);
end;

mas já lhe advirto que você deverá tratar erros, como text nulo ou com letras... ... e texto contendo o "." como separador de milhar. Deixo como sugestão:

procedure TFrmVendas_Balcao.EdtValor_VendaExit(Sender: TObject);
var
  Value :Double;
begin
  TEdit(Sender).Text := Trim(TEdit(Sender).Text);  // retira qualquer espaço desnecessário
// caso você aceite valor nulo, tire o comentário da linha a seguir:
//  if TEdit(Sender).Text <> '' then
// ou, caso o valor nulo deva ser entendido como zero, retire o comentário da linha a seguir
//  if TEdit(Sender).Text = '' then
//    TEdit(Sender).Text := '0';
  try
    Value := StrToFloat(StringReplace(TEdit(Sender).Text, '.', '', [rfReplaceAll]));
    TEdit(Sender).Text := FormatFloat('#,##0.00', Value);  // reformatamos o edit
  except
    on E:Exception do
    begin
      E.Message := Format('"%s" não é um valor válido!', [TEdit(Sender).Text]);
      TEdit(Sender).SetFocus;
      raise;
    end;
  end;
end;

Veja estes tópicos relacionados ao assunto deste tópico:

- Formatar Edits

- Formatar Variável Real

- Dividindo no Delphi

- Como faço para testar se um campo string é decimal?

Abraços

[flavioavilela]

funfou beleza meu amigão... vlw demais... só estou com outro probleminha.... deixei outro tópico aqui no forum rsrs... vlw