Fórum Formatação de valor #332344
30/10/2006
0
Olá
Formatação de valor
DMClient.cdsEmpresas_Prod_Serv.CommandText:=´´;
DMClient.cdsEmpresas_Prod_Serv.Close;
DMClient.cdsEmpresas_Prod_Serv.CommandText:=
´update EMPRESAS_PRODUTOS_SERVICOS set QUANT_MES = ´+#39+CurrToStr(novoValor)+39+
´ where CODIGO_EMPRESA =´+codEmpresa+
´ and CODIGO_PROD_SERV =´+codProduto;
DMClient.cdsEmpresas_Prod_Serv.execute;
Na linha
´update EMPRESAS_PRODUTOS_SERVICOS set QUANT_MES = ´+39+CurrToStr(novoValor)+39+
como eu passo o valor c virgula, CurrToStr(novoValor)
Francisco
Formatação de valor
DMClient.cdsEmpresas_Prod_Serv.CommandText:=´´;
DMClient.cdsEmpresas_Prod_Serv.Close;
DMClient.cdsEmpresas_Prod_Serv.CommandText:=
´update EMPRESAS_PRODUTOS_SERVICOS set QUANT_MES = ´+#39+CurrToStr(novoValor)+39+
´ where CODIGO_EMPRESA =´+codEmpresa+
´ and CODIGO_PROD_SERV =´+codProduto;
DMClient.cdsEmpresas_Prod_Serv.execute;
Na linha
´update EMPRESAS_PRODUTOS_SERVICOS set QUANT_MES = ´+39+CurrToStr(novoValor)+39+
como eu passo o valor c virgula, CurrToStr(novoValor)
Francisco
Nussbaum
Curtir tópico
+ 0
Responder
Posts
30/10/2006
Pestana
Qual o tipo do campo QUANT_MES?
O valor da variavel ´novoValor´ está formatado?, ex.: ´x,xx´ mas ao atualizar no banco fica ´x´ (sem formatação).
Daonde foi pegou o valor da variavel novoValor? foi de um dos coponentes table ou query.
O valor da variavel ´novoValor´ está formatado?, ex.: ´x,xx´ mas ao atualizar no banco fica ´x´ (sem formatação).
Daonde foi pegou o valor da variavel novoValor? foi de um dos coponentes table ou query.
Responder
Gostei + 0
30/10/2006
Nussbaum
procedure TFrmDetEmpProdServ.SQLUpdate;
var
novoValor: Currency;
begin
novoValor:= StrToCurr(Edit1.Text);
codEmpresa:= DBText1.Caption;
codProduto:= DBText2.Caption;
DMClient.cdsEmpresas_Prod_Serv.CommandText:=´´;
DMClient.cdsEmpresas_Prod_Serv.Close;
DMClient.cdsEmpresas_Prod_Serv.CommandText:=
´update EMPRESAS_PRODUTOS_SERVICOS set QUANT_MES = ´+#39+CurrToStr(novoValor)+39+
//´update EMPRESAS_PRODUTOS_SERVICOS set QUANT_MES = ´+39+FloatToStrF(novoValor,FFnumber,12,2)+39+
´ where CODIGO_EMPRESA =´+codEmpresa+
´ and CODIGO_PROD_SERV =´+codProduto;
DMClient.cdsEmpresas_Prod_Serv.execute;
DMClient.cdsEmpresas_Prod_Serv.CommandText:=´´;
DMClient.cdsEmpresas_Prod_Serv.Close;
DMClient.cdsEmpresas_Prod_Serv.CommandText:=´select * From EMPRESAS_PRODUTOS_SERVICOS´;
DMClient.cdsEmpresas_Prod_Serv.Open;
end;
no componente cdsEmpresas_Prod_Serv em QUANT_MES DisplayFormat = ´#,0.00´
vi algo assim, mas não deu certo:
//´update EMPRESAS_PRODUTOS_SERVICOS set QUANT_MES = ´+FloatToStrF(novoValor,FFnumber,12,2)+
var
novoValor: Currency;
begin
novoValor:= StrToCurr(Edit1.Text);
codEmpresa:= DBText1.Caption;
codProduto:= DBText2.Caption;
DMClient.cdsEmpresas_Prod_Serv.CommandText:=´´;
DMClient.cdsEmpresas_Prod_Serv.Close;
DMClient.cdsEmpresas_Prod_Serv.CommandText:=
´update EMPRESAS_PRODUTOS_SERVICOS set QUANT_MES = ´+#39+CurrToStr(novoValor)+39+
//´update EMPRESAS_PRODUTOS_SERVICOS set QUANT_MES = ´+39+FloatToStrF(novoValor,FFnumber,12,2)+39+
´ where CODIGO_EMPRESA =´+codEmpresa+
´ and CODIGO_PROD_SERV =´+codProduto;
DMClient.cdsEmpresas_Prod_Serv.execute;
DMClient.cdsEmpresas_Prod_Serv.CommandText:=´´;
DMClient.cdsEmpresas_Prod_Serv.Close;
DMClient.cdsEmpresas_Prod_Serv.CommandText:=´select * From EMPRESAS_PRODUTOS_SERVICOS´;
DMClient.cdsEmpresas_Prod_Serv.Open;
end;
no componente cdsEmpresas_Prod_Serv em QUANT_MES DisplayFormat = ´#,0.00´
vi algo assim, mas não deu certo:
//´update EMPRESAS_PRODUTOS_SERVICOS set QUANT_MES = ´+FloatToStrF(novoValor,FFnumber,12,2)+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)