Fórum Erro ao ter saldo estoque = 0 #318835

Utilizo esse procedimento para INSERIR valores na minha tab_entradas, ou seja.. dar entrada de QUANTIDADE no estoque.

O problema é quando tenho estoque com SALDO = 0 (zero) me acontece um erro no aplicativo... caso for diferente de zero (possuir estoque) funciona normalmente.


[b:4904be51ef]ERRO: ´´ is not a valid floating point value[/b:4904be51ef]
Mesmo com o erro me grava a entrada.. só nao atualiza meu SALDO do produto.

PODEM ME AJUDAR POR FAVOR?


// PROCEDIMENTO USADO

procedure TForm_Entradas.BtnOKClick(Sender: TObject);
var
dataCad : string;
ddata : TDate;
Begin

ddata := strtodateDef(Form_Menu.SBPrincipal.Panels[2].text,0);
if ddata > 0 then
dataCad := formatdatetime(´yyyy-mm-dd´,ddata)
else
dataCad := ´null´;




/////////////////////////// INSERE NA TABELA ENTRADAS
Begin

decimalseparator:=´.´; //DEFINE O SEPARADOR COMO . FICA 33.33 E NAO 33,33

QueryEntradas.Active := False;
QueryEntradas.SQL.Clear;
QueryEntradas.Sql.Add(´insert into tab_entradas (PRODUTO, COD_PRODUTO, UN, NF, PRECO_COMPRA, QTDE, FORNECEDOR, DATA_ENTRADA, ´+
´USUARIO, VIVO) values (´+´´´´+CBProduto.text+´´´´+´,´+´´´´+EdCod.text+´´´´+´,´+´´´´+EdUN.text+´´´´+´,´+´´´´+EdNF.text+´´´´+´,´+QuotedStr(FLOATTOSTR(EdValorUnit.VALUE))+´,´+QuotedStr(FLOATTOSTR(EdQtde.VALUE))+´,´+´´´´+CBFornecedor.text+´´´´+´,´+´´´´+dataCad+´´´´+´,´+´´´´+Form_Menu.SBPrincipal.Panels[0].Text+´´´´+´,´+´´´´+´S´+´´´)´);
QueryEntradas.ExecSql; //execucao final
MessageDLG(´OK.QUANTIDADE adicionada no Estoque.´,mtinformation, [mbok],0); //mensagem de OK
decimalseparator:=´,´;
End;



///////////////////VERIFICA SALDO ANTIGO DO PRODUTO


with QueryProdutos do
Begin
QueryProdutos.Close;
QueryProdutos.Sql.Clear;
QueryProdutos.Sql.text := ´select COD,PRODUTO,SALDO from tab_produtos where COD = ´+QuotedStr(EdCod.text)+´´;
QueryProdutos.Active := true;
End;


EDSaldoEstoqueAntigo.Text:=queryProdutos.FieldByname(´SALDO´).Asstring;

EdSAldoEstoqueNovo.Text:=floattostr(strtofloat(EDSAldoEstoqueAntigo.text)+ strtofloat(EDQtde.text));


with QueryProdutos do
Begin
decimalseparator:=´.´; //DEFINE O SEPARADOR COMO . FICA 33.33 E NAO 33,33
Close;
Sql.Clear;
Sql.text:= ´update tab_produtos Set SALDO = ´+QuotedStr(FLOATTOSTR(EdSAldoEstoqueNovo.VALUE))+´ where COD=´´´+edcod.text+´´´´;

ExecSql;
End;
decimalseparator:=´,´; //volta o separador para ,
//End

BtnCadastrar.Enabled := true;
BtnCancelar.Enabled := false;
CBFornecedor.Text := ´´;
CBFornecedor.Enabled := False;
CBProduto.Text := ´´;
CBProduto.Enabled := false;
EdUn.Clear;
EdQtde.Clear;
EdQtde.Enabled := false;
EdValorUnit.Clear;
EdValorUnit.Enabled := false;
EdNf.Clear;
EdNf.Enabled := false;
BtnOK.Enabled := false;

Form_Entradas.Close;



end;