diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas
index 66be4d5..0f0b30e 100644
--- a/Source/Modulos/Articulos/Controller/uArticulosController.pas
+++ b/Source/Modulos/Articulos/Controller/uArticulosController.pas
@@ -428,6 +428,8 @@ begin
   if (AArticulo.Proveedores.DataTable.State in dsEditModes) then
       AArticulo.Proveedores.DataTable.Post;
 
+//  showmessage(FloatToStr(AArticulo.DESCUENTO));      
+
   if Length(AArticulo.DESCRIPCION) = 0 then
     raise Exception.Create('Debe indicar al menos la descripción de este artículo.');
 
@@ -435,6 +437,7 @@ begin
   AArticulo.Edit;
   try
 	  AArticulo.USUARIO := AppFactuGES.UsuarioActivo.UserName;
+    AArticulo.PRECIO_NETO := AArticulo.PRECIO_COSTE - ((AArticulo.PRECIO_COSTE * AArticulo.DESCUENTO)/100);
     Result := True;
   finally
     AArticulo.Post;
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
index 4dee1d3..799ffea 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas	
@@ -813,7 +813,7 @@ begin
   if not EsCadenaVacia(AAsuntoEMail) then
     AAsunto := AAsuntoEMail
   else
-    AAsunto := 'Pedido ' + APresupuesto.REFERENCIA;
+    AAsunto := 'Presupuesto ' + APresupuesto.REFERENCIA;
 
   ShowHourglassCursor;
   Application.ProcessMessages;