Ayuda no encuantro el ERROR
hola a todos donde cometo el error:
function TFRMFacturacion.VerificaRepite2(codigo :string):Double; var xx: Double; begin IBDSArtFactura2.Active:=true; IBDSArtFactura2.First; xx:=0; while not IBDSArtFactura2.Eof do begin if(IBDSArtFactura2CODARTICULO.AsString = codigo)then begin xx:=xx+IBDSArtFactura2CANTIDAD.AsFloat; end; IBDSArtFactura2.Next; end; VerificaRepite2:=xx; end; y me tira un error " is not a valid floating point value" QUE ????? AYUDA POR FAVOR |
Cita:
dos cosas, por favor usa bloques de sintaxis para cuándo postees código. y séría ideal que indicaras en que línea ocurre el error. |
Perdon por la improlijidad
El error lo tira cuando devuelvo el dato ' VerificaRepite2:=xx; ' aqui
pero me lo tira cuado el número es un integer, es decir, xx = 1 y no cuando xx = 1,3 . No se si soy claro cuando devuelve el dato ya calculado. como hago para si suma Integer devuelva si error y cuando sume float tambien. gracias |
Si fuera como dices, el mensaje obetnido sería este:
error '1' is not a valid floating point value pero el mensaje no usa comillas dobles (tipográficas) sino las comillas simples de delphi con el valor del campo dentro. El error dice que algun registro está vacío, es decir, no tiene nada, ni siquiera un cero patatero. Es típico cuando dejas el campo "cantidad" sin rellenar y se guarda un valor nulo (null). La solución según tu código:
Otra forma de hacerlo:
Por supuesto la tabla debe estar guardada (que no esté en edición). |
La franja horaria es GMT +2. Ahora son las 17:24:32. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi