Como Gravar valores Monetarios ???
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
Curtidas 0
Respostas
Pauloroger
20/12/2007
txtValor.Text.Replace(´,´,´.´);
GOSTEI 0