diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index 2907939..57eacf8 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Source/Lib/ApplicationBase.dcp b/Source/Lib/ApplicationBase.dcp
index 5c3267d..039f863 100644
Binary files a/Source/Lib/ApplicationBase.dcp and b/Source/Lib/ApplicationBase.dcp differ
diff --git a/Source/Lib/Base.dcp b/Source/Lib/Base.dcp
index 5da070d..d44ec6f 100644
Binary files a/Source/Lib/Base.dcp and b/Source/Lib/Base.dcp differ
diff --git a/Source/Lib/GUIBase.dcp b/Source/Lib/GUIBase.dcp
index 5deda21..9f550ce 100644
Binary files a/Source/Lib/GUIBase.dcp and b/Source/Lib/GUIBase.dcp differ
diff --git a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
index a91d81b..0a2bc31 100644
--- a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas	
+++ b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas	
@@ -348,11 +348,12 @@ begin
     TELEFONO := FCliente.TELEFONO_1;
     MOVIL := FCliente.MOVIL_1;
 
-    if FCliente.ID_FORMA_PAGO > 0 then
-       ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
-    if FCliente.ID_TIPO_IVA > 0 then
-       ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
-    RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
+//En alonso y sal no se coge la forma de pago ni el iva del contacto sino de la empresa
+//    if FCliente.ID_FORMA_PAGO > 0 then
+//       ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
+//    if FCliente.ID_TIPO_IVA > 0 then
+//       ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
+//    RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
 
 // En acana la ficha de cliente no tiene descuento aplicado por defecto
 //      DESCUENTO := FCliente.DESCUENTO;
diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
index 6d0e1fd..5412c0a 100644
--- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas	
+++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas	
@@ -334,11 +334,13 @@ begin
     CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
     PROVINCIA := FCliente.PROVINCIA;
     POBLACION := FCliente.POBLACION;
-    if FCliente.ID_FORMA_PAGO > 0 then
-       ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
-    if FCliente.ID_TIPO_IVA > 0 then
-       ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
-    RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
+
+//En alonso y sal no se coge la forma de pago ni el iva del contacto sino de la empresa
+//    if FCliente.ID_FORMA_PAGO > 0 then
+//       ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
+//    if FCliente.ID_TIPO_IVA > 0 then
+//       ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
+//    RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
 
     //Si el cliente tiene la contabilidad desactivada la factura que realizamos la desactivamos también.
     if (FCliente.IGNORAR_CONTABILIDAD = 1) then
diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
index 0dafadb..4d91c87 100644
--- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas	
+++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas	
@@ -357,8 +357,8 @@ begin
     CODIGO_POSTAL := FProveedor.CODIGO_POSTAL;
     PROVINCIA := FProveedor.PROVINCIA;
     POBLACION := FProveedor.POBLACION;
-//    if FProveedor.ID_FORMA_PAGO > 0 then
-//       ID_FORMA_PAGO := FProveedor.ID_FORMA_PAGO;
+    if FProveedor.ID_FORMA_PAGO > 0 then
+       ID_FORMA_PAGO := FProveedor.ID_FORMA_PAGO;
     if FProveedor.ID_TIPO_IVA > 0 then
        ID_TIPO_IVA := FProveedor.ID_TIPO_IVA;
 //    RECARGO_EQUIVALENCIA := FProveedor.RECARGO_EQUIVALENCIA;
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
index 7b5f51f..f3e9447 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas	
@@ -638,7 +638,7 @@ begin
   ShowHourglassCursor;
 
   // solicita por José Luís que el asunto del correo y el documento adunto sean igual que la referencia del pedido impreso
-  ATituloEnvio := 'Pedido ref.' + Copy(APedido.REF_CON_CLIENTE, 8, 6) + '-' + APedido.REF_VENDEDOR + '-' + APedido.NOMBRE_CLIENTE + '-' + APedido.DESCRIPCION_GENERAL;
+  ATituloEnvio := 'Pedido ref-' + Copy(APedido.REF_CON_CLIENTE, 8, 6) + '-' + APedido.REF_VENDEDOR + '-' + APedido.NOMBRE_CLIENTE + '-' + APedido.DESCRIPCION_GENERAL;
 
   AFicheroTMP := DarFicheroPDFTemporal(EscapeIllegalChars(ATituloEnvio));
   AReportController := TPedidosProveedorReportController.Create;
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm
index bd88652..d8b92b7 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm	
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm	
@@ -133,6 +133,9 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
             Kind = skSum
             Column = frViewRecibosCliente1.cxGridViewOTROS_GASTOS
           end>
+        inherited cxGridViewSUBCUENTA: TcxGridDBColumn
+          FooterAlignmentHorz = taRightJustify
+        end
       end
     end
     inherited frViewFiltroBase1: TfrViewFiltroBase
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
index 7e54975..ffd6774 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm	
+++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm	
@@ -227,6 +227,10 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
         Properties.Alignment.Horz = taRightJustify
         HeaderAlignmentHorz = taRightJustify
       end
+      object cxGridViewFORMA_PAGO_FACTURA: TcxGridDBColumn
+        Caption = 'Forma pago factura'
+        DataBinding.FieldName = 'FORMA_PAGO_FACTURA'
+      end
     end
     inherited cxGridLevel: TcxGridLevel
       Caption = 'Todos'
diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
index 0401a66..0030f3b 100644
--- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas	
+++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas	
@@ -62,6 +62,7 @@ type
     cxGridViewREFERENCIA_CONTRATO: TcxGridDBColumn;
     cxGridViewFECHA_PAGO: TcxGridDBColumn;
     cxGridViewSUBCUENTA: TcxGridDBColumn;
+    cxGridViewFORMA_PAGO_FACTURA: TcxGridDBColumn;
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
       ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
       out AStyle: TcxStyle);
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm
index 6034dda..60527fc 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm	
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm	
@@ -132,6 +132,9 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
             Kind = skSum
             Column = frViewRecibosProveedor1.cxGridViewOTROS_GASTOS
           end>
+        inherited cxGridViewSUBCUENTA: TcxGridDBColumn
+          FooterAlignmentHorz = taRightJustify
+        end
       end
     end
     inherited frViewFiltroBase1: TfrViewFiltroBase
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm
index 854fddc..5192591 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm	
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm	
@@ -163,6 +163,10 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
         Properties.Alignment.Horz = taRightJustify
         HeaderAlignmentHorz = taRightJustify
       end
+      object cxGridViewFORMA_PAGO_FACTURA: TcxGridDBColumn
+        Caption = 'Forma pago factura'
+        DataBinding.FieldName = 'FORMA_PAGO_FACTURA'
+      end
     end
     inherited cxGridLevel: TcxGridLevel
       Caption = 'Todos'
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas
index 43e8799..18ad80f 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas	
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas	
@@ -54,6 +54,7 @@ type
     cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn;
     cxGridViewFECHA_PAGO: TcxGridDBColumn;
     cxGridViewSUBCUENTA: TcxGridDBColumn;
+    cxGridViewFORMA_PAGO_FACTURA: TcxGridDBColumn;
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
       ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
       out AStyle: TcxStyle);
diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res
index 14fd7ae..b77ca13 100644
Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ