Fórum Como Gravar valores Monetarios ??? #66384
20/12/2007
0
Fala galera, eu uso uma ferramenta do Maikel Scheid para criar minhas classes de Manipulação de Dados em BDS 2006, porém não consigo incluir valores monetérios, vejam exemplo:
procedure TWebForm1.BtGravar_Click(sender: System.Object; e: System.EventArgs);
var
Entradas : TClasseEntradas;
begin
VerificaConexao;
Entradas := TClasseEntradas.Create;
Entradas.PID_MEMBRO := Convert.ToInt64(dpMembros.SelectedItem.Value);
Entradas.PDATA := txtData.Text;
Entradas.PID_ESCOLA := Convert.ToInt64(dpEscolas.SelectedItem.Value);
Entradas.PFORMA := dpForma.SelectedValue;
Entradas.POBS := txtOBS.Text;
Entradas.PVALOR := txtValor.Text;
Entradas.Salvar;
LblMensagem.Text := Entradas.RETORNO;
Não consegue gravar por exemplo 110,00 com virgula somente com ponto, alguem tema alguma luz ????
procedure TWebForm1.BtGravar_Click(sender: System.Object; e: System.EventArgs);
var
Entradas : TClasseEntradas;
begin
VerificaConexao;
Entradas := TClasseEntradas.Create;
Entradas.PID_MEMBRO := Convert.ToInt64(dpMembros.SelectedItem.Value);
Entradas.PDATA := txtData.Text;
Entradas.PID_ESCOLA := Convert.ToInt64(dpEscolas.SelectedItem.Value);
Entradas.PFORMA := dpForma.SelectedValue;
Entradas.POBS := txtOBS.Text;
Entradas.PVALOR := txtValor.Text;
Entradas.Salvar;
LblMensagem.Text := Entradas.RETORNO;
Não consegue gravar por exemplo 110,00 com virgula somente com ponto, alguem tema alguma luz ????
Pauloroger
Curtir tópico
+ 0
Responder
Posts
12/03/2009
Pauloroger
txtValor.Text.Replace(´,´,´.´);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)