[firebase-br] Fwd: Dica sobre Firebird

[Jeferson Oliveira]

Olá Marcos!

Estou encaminhado sua mensagem para a lista da Firebase para aumentar
suas chances de conseguir ajuda para resolução do seu problema.
Por hora não tenho qualquer sugestão a lhe dar.


---------- Forwarded message ----------
From: Marcos P. M. de Souza <sgtmarcos em yahoo.com.br>
Date: 14/10/2007 00:31
Subject: Dica sobre Firebird
To: jefersonfoliveira em gmail.com




Por favor me dê uma dica.

Estou tentando fazer um Insert num banco de dados Firebird com os
comandos abaixo:

      DM1.IBQ1.Close;
        DM1.IBQ1.SQL.Clear;
        DM1.IBQ1.SQL.Add('update PRODUTO set NOME=:P1, DESCRICAO=:P2,
CODUNI=:P3,CODCAT=:P4, ');
        DM1.IBQ1.SQL.Add('DATACADASTRO=:P5, PRECO='#39+Preco+#39',
QTD='#39+QTD+#39', QTDMIN='#39+QTDMin+#39',
PRECOCUSTO='#39+PrecoCusto+#39' ');
        DM1.IBQ1.SQL.Add(' where COD=:P10');
        DM1.IBQ1.ParamByName('P1').AsString:=Nome;
        DM1.IBQ1.ParamByName('P2').AsString:=Descricao;
        DM1.IBQ1.ParamByName('P3').AsString:=CODuni;
        DM1.IBQ1.ParamByName('P4').AsString:=CODcat;
        DM1.IBQ1.ParamByName('P5').AsString:=DataCadastro;
        DM1.IBQ1.ParamByName('P10').AsString:=COD;
        DM1.IBQ1.Open;

Não aparecem erros. Mas as casas decimais se multiplicam...Porque????????????
Os campos Preco, QTD, PRECOCUSTO e DTDMin são do tipo Float no Firebird 1.5.

Se tento inserir o valor "1,00" para qualquer uma valor ele aparece
como se tivesse inserido "100,00".
Se eu inserir "2,1" ele mostra depois como se fosse 210,00.
Ele multiplica tudo por 100.


Marcos P. M. de Souza
www.mpsoftwares.com
suporte em mpsoftwares.com