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


Nussbaum

Nussbaum

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.


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)+


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar