F�rum Pessoal me ajudem a dividir um valor numa base de dados #279643

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

Curtir t�pico

+ 0

Responder

Posts

30/04/2005

Beppe

Vc tem certeza que est� usando o divisor certo?

Responder

Gostei + 0