diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 3156bdd13..94e9995b4 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1044,9 +1044,9 @@ Public Class ClsContabilidad
 
         Dim Retorno As Boolean = False
 
-        'No modificar esta seccion bajo ninguna circunstancia
+        'No modificar esta seccion bajo ninguna circunstancia -- Empresa.CvePlataforma = 3 Or
         '*****************************************************
-        If Empresa.CvePlataforma = 3 Or (CveUsuario.Contiene(100, 1425) And Empresa.CveEmpresa = 1) Then
+        If (CveUsuario.Contiene(100, 1425) And Empresa.CveEmpresa = 1) Then
             Retorno = ContabilizarPrePolizaSIG(CvePrePoliza, CveUsuario, Empresa, Fecha, Concepto)
             Return Retorno
         End If
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 31c39936b..a9a546aa5 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -565,7 +565,7 @@ Partial Class Bancos_ProveedoresAbonar
 
                 Dim FiltroInv As String = ""
                 If UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
-                    Dim PorcentajeSaldo = e.Row.DBCampo("ImporteAlmacenPorcentaje").ToString.ToDouble + e.Row.DBCampo("ImporteServiciosPorcentaje").ToString.ToDouble
+                    Dim PorcentajeSaldo = e.Row.DBCampo("ImporteAlmacenPorcentaje").ToString.ToDouble + e.Row.DBCampo("ImporteServiciosPorcentaje").ToString.ToDouble + e.Row.DBCampo("ImporteDevolucionPorcentaje").ToString.ToDouble
                     Dim SaldoInv = (e.Row.DBCampo("Saldo").ToString.ToDouble * (PorcentajeSaldo / 100))
                     If UsuarioActual.Empresa.Funcionalidad(134) = "1" Then 'cuando es proporcional
                         FiltroInv = $"FnCambia({e.Row.FCCheckBox("Chk").ClientID},this,{SaldoInv},1,'{"El importe no debe exceder lo recibido en almacén"}',1);"
@@ -605,11 +605,17 @@ Partial Class Bancos_ProveedoresAbonar
                 End If
 
                 If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
-                    e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", String.Format("Importe Almacen: ${0} ({1}%) <br/> {2} <i>Importes <b>SIN</b> IVA</i>", e.Row.DBCampo("ImporteAlmacen"), e.Row.DBCampo("ImporteAlmacenPorcentaje"), If(e.Row.DBCampo("ImporteServicios").ToDouble > 0, String.Format("Importe Servicios: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteServicios"), e.Row.DBCampo("ImporteServiciosPorcentaje")), "")))
+                    Dim Str As New StringBuilder
+                    Str.AppendFormat("Importe Almacen: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje"))
+                    If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje"))
+                    If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje"))
+                    Str.AppendFormat(" <i> Importes <b> SIN</b> IVA</i>")
+
+                    e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString)
                     Select Case e.Row.DBCampo("EstatusInventario").ToEntero
                         Case 1
                             e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-o' aria-hidden='true'></i>"
-                            e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red
+                    e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red
                             If UsuarioActual.Empresa.Funcionalidad(134).ToEntero.Contiene(1, 2) Then ' si se recibió mercancía se paga lo proporcional
                                 If UsuarioActual.CveEmpresa = 72 Then
                                     If e.Row.DBCampo("Fecha").ToDate > "12/02/2017".ToDate Then
@@ -637,7 +643,7 @@ Partial Class Bancos_ProveedoresAbonar
                                 End If
 
                             End If
-                                Case 3
+                        Case 3
                             e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag' aria-hidden='true'></i>"
                             e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green
                         Case Else
@@ -649,7 +655,7 @@ Partial Class Bancos_ProveedoresAbonar
                     End If
                 End If
 
-                End If
+            End If
             If UsuarioActual.Empresa.Funcionalidad(306) = "1" And e.Row.DBCampo("AplicaNotaCredito").ToString = "True" Then
                 e.Row.FCCheckBox("Chk").Enabled = False
             End If