Pessoal me ajudem a dividir um valor numa base de dados

Delphi

30/04/2005

Pessoal não consigo fazer um divisão dos valores rodo o codigo a baixo e não da erro nenhum só que não divide o valor esperado ele atualizar o valor mas sem pegar o a quantidade fracionado

o que sera que estou fazendo de errado


  qAtualizar.ParamByName(´CODIGO´).AsString:= tbLer.FieldValues[´MED_BARRA´];
if  qAtualizar.ParamByName (´FRACAO´).AsInteger > 1 then
    qAtualizar.ParamByName(´VENDA´).AsCurrency:= tbLer.FieldValues[´MED_PCO1´] / qAtualizar.ParamByName(´ESTOQUE_FRACAO´).Value
    else
    qAtualizar.ParamByName(´VENDA´).AsCurrency:= tbLer.FieldValues[´MED_PCO1´];
    qAtualizar.ExecSQL;
    pro.Position := tbLer.RecNo;
  tbLer.Next;


me ajudem por favor



Babu

Babu

Curtidas 0

Respostas

Beppe

Beppe

30/04/2005

Vc tem certeza que está usando o divisor certo?


GOSTEI 0
POSTAR