Tengo una bd SQLite en la que hay definido varios campos decimales. Capturo los datos en las celdas de un DBGrid, el primer dato n�mero corresponde a un integer que captura sin problemas, estos aparecen en la celda del campo siguiente, lleva asociado un evento OnChange, ya que al introducir un n�mero da un mensaje diciendo que 12 no es un Float. Este es el c�digo.
procedure TfrmPedVen.ZqryLinPedvpesoChange(Sender: TField);
begin
if (dbgLinFac.DataSource.DataSet.FieldByName('bultos').AsInteger
null) and (dbgLinFac.DataSource.DataSet.FieldByName('peso').AsInteger
null) then
begin
dbgLinFac.DataSource.DataSet.FieldByName('cantidad').AsFloat :=
dbgLinFac.DataSource.DataSet.FieldByName('bultos').AsInteger *
dbgLinFac.DataSource.DataSet.FieldByName('peso').AsFloat;
dbgLinFac.DataSource.DataSet.FieldByName('precio').AsFloat :=
ZqryArt.FieldByName('pv').AsFloat;
dbgLinFac.DataSource.DataSet.FieldByName('importe').AsFloat :=
dbgLinFac.DataSource.DataSet.FieldByName('cantidad').AsFloat *
dbgLinFac.DataSource.DataSet.FieldByName('pv').AsFloat;
dbgLinFac.DataSource.DataSet.FieldByName('num_serie').AsString :=
cbxSerie.Text + edNum.Text;
end;
end;El error salta en la celda que captura el peso.
Saludos y muchas gracias.
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20130228/0fc382e5/attachment.html>
