Cita:
Empezado por ManuelPerez
hola a todos donde cometo el error:
Código Delphi [-]
function TFRMFacturacion.VerificaRepite2(codigo :string)ouble;
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
|
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.