[firebase-br] Ponto ou Virgula

[Jorge Henrique - América Móveis]

Bom, se o problema é só trocar a virgula pelo ponto na hora de montar um 
SQL. Então, aí vai...

function TrocaChar(Str, CharP, CharT: String): String;
var I: Integer;
begin
  Result:='';
  For I:=1 to Length(Str) do if (Str[I]=CharP) then Result:=Result+CharT 
else Result:=Result+Str[I];
end;

Se vc fizer:

procedure bla_bla_bla;
var S: String;
begin
  S:=TrocaChar('4,00',',','.');
end;

Então, S seria '4.00'. Aí vc pode montar seu SQL. Pq o correto é usar o 
ponto e não a virgula, isto é, não dá pra fazer o FB considerar a 
virgula no lugar do ponto em numeros.

[]´s
Jorge Henrique

Juvencio Leite escreveu:
> amigos, alguém sabe se o firebird suporta gravar pontos no lugar de virgula
> em tipos decimais? Explico: Eu monto o Sql de forma dinamica (uso delphi), e
> depois executo a query com a instrução Sql vejam:
>
>  UPDATE ESTOQUE SET
>  VL_CUSTO = 0.00,
>  VL_CUSTO_REAL = 0.00,
>  LUCRO = 4.00,
>  VL_T1 = 100.00,
>  VL_T2 = 200.00,
> DT_INVENTARIO = '4/10/2007',
> WHERE COD_SEQPROD = 1 AND EMPRESA = 2
>
> A questão se for montada sem a mudança no delphi de virgula por ponto
> ficaria assim:
>
>  UPDATE ESTOQUE SET
>  VL_CUSTO = 0,00,
>  VL_CUSTO_REAL = 0,00,
>  LUCRO = 4,00,
>  VL_T1 = 100,00,
>  VL_T2 = 200,00,
> DT_INVENTARIO = '4/10/2007',
> WHERE COD_SEQPROD = 1 AND EMPRESA = 2
>
> Assim ele não reconheceria os separadores alguem sabe o que e precisso fazer
> pra ser aceito atraves do Firebird? agradeço.
>   
> ------------------------------------------------------------------------
>
> No virus found in this incoming message.
> Checked by AVG Free Edition. 
> Version: 7.5.476 / Virus Database: 269.9.14/884 - Release Date: 2/7/2007 15:35
>