Fórum Dividir valores #279811
02/05/2005
0
: 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 quero fazer o seguinte tenho um arquivo que abastece os preços mas o que não consigo é tipo assim pegar na coluna fracionada se tiver acima de 1 produto ele tem que pegar o valor no arquivo.dbf e dividir..... por favor me ajudem é urgente
:arrow: Título alterado por oTTo. Removido: ´Dividir um valor sera que nimguem pode me ajudar é urgente´
Babu
Curtir tópico
+ 0