|
could not convert variant of type (null) into type (string)
Bueno como me dice el error la variable no puede ser convertida si es null aca les dejo el codigo, estoy tratando de usar un TEdit y convertirlo a integer (que es el valor que la tabla guarda en ese campo)
Código Delphi [-]procedure Tfcantidad.BCokClick(Sender: TObject);
var
a: integer;
begin
a := StrToInt(Ecantidad.Text); if (strtoint(Ecantidad.Text)<=0)
then
begin
Application.MessageBox('El valor ingresado debe ser mayor a O', 'Drugstore',mb_yesno+mb_iconquestion);
end
else
a := fmodulo.tVentadetalle ['cantidad'];
fmodulo.tVentadetalle ['id_producto'] := fmodulo.tProductos ['id_producto'];
fmodulo.tVentadetalle['Precio_v'] := ( a * fmodulo.tProductos ['precio_vent']) ;
end;
__________________
We are told to remember the idea, not the man, because a man can fail. He can be caught, he can be killed and forgotten, but 400 years later, an idea can still change the world.
|