diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
index 1a1907b9..9e5a4288 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas	
@@ -635,11 +635,10 @@ begin
   end;
 
   ShowHourglassCursor;
-  if not APedido.DESCRIPCION_GENERALIsNull then
-    ATituloEnvio := APedido.DESCRIPCION_GENERAL
-  else
-    ATituloEnvio := 'Pedido ' + APedido.REFERENCIA;
-    
+
+  // solicita por José Luís que el asunto del correo y el documento adunto sean igual que la referencia del pedido impreso
+  ATituloEnvio := Copy(APedido.REFERENCIA, 8, 8) + '-' + APedido.NOMBRE_CLIENTE + '-' + APedido.DESCRIPCION_GENERAL;
+
   AFicheroTMP := DarFicheroPDFTemporal(EscapeIllegalChars(ATituloEnvio));
   AReportController := TPedidosProveedorReportController.Create;
   try