Versión 2.2.2

Se hace que la forma de pago y el iva se cojan siempre de la empresa y no del cliente. contratos y facturas....
Se mete forma de pago de las facturas en la lista de pagos y cobros para saber como se ha pagado

git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES2/trunk@26 40301925-124e-1c4e-b97d-170ad7a8785b

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
+//En alonso y sal no se coge la forma de pago ni el iva del contacto sino de la empresa
-       ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
+//    if FCliente.ID_FORMA_PAGO > 0 then
-    if FCliente.ID_TIPO_IVA > 0 then
+//       ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
-       ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
+//    if FCliente.ID_TIPO_IVA > 0 then
-    RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
+//       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;

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;
+//En alonso y sal no se coge la forma de pago ni el iva del contacto sino de la empresa
-    if FCliente.ID_TIPO_IVA > 0 then
+//    if FCliente.ID_FORMA_PAGO > 0 then
-       ID_TIPO_IVA := FCliente.ID_TIPO_IVA;
+//       ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
-    RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA;
+//    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

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
+    if FProveedor.ID_FORMA_PAGO > 0 then
-//       ID_FORMA_PAGO := FProveedor.ID_FORMA_PAGO;
+       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;

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;

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

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'

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);

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

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'

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);