diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 58a1b50f4..2f8659c84 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -2746,7 +2746,7 @@ Namespace Modelos
                 End If
 
                 'ContPAQ El movimiento 1 es el de Venta
-                If UsuarioActual.Empresa.Funcionalidad(200) = "1" And UsuarioActual.Empresa.UsaContabilidad = True And Not ErrorPrepoliza Then
+                If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso Not ErrorPrepoliza Then
                     If idCuentaContabilizacion > 0 Then
                         If ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa, ObjConta:=objContPaqi) Then
                         Else
diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs
index 6d93ef6e8..451c90e33 100644
--- a/Bancos/Devoluciones.aspx.cs
+++ b/Bancos/Devoluciones.aspx.cs
@@ -467,7 +467,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
         }
 
         //CONTABILIZA
-        if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad)
+        if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals(""))
         {
             if (IDCtaContableDevolucion > 0 && IDCtaContableBancos > 0)
             {
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index fe5ce8ef2..8f1ef4435 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -3049,7 +3049,7 @@ Partial Class Bancos_IE
 
                         'El movimiento 1 es el de Venta
                         'Conta SIG
-                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" And UsuarioActual.Empresa.UsaContabilidadSIG Then
+                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
                             If CveCuentaBeneficiario > 0 And CveCuentaConta > 0 Then
                                 If ObjMov.ContabilizarPrePolizaSIG(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
                                     IDPoliza = ObjMov.ContaIdPoliza
@@ -3067,7 +3067,7 @@ Partial Class Bancos_IE
                         End If
 
                         'Conta ContPAQ
-                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" And UsuarioActual.Empresa.UsaContabilidad Then
+                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
                             If IDCtaBeneficiario > 0 And IDCtaContable > 0 Then
                                 If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
                                     IDPoliza = ObjMov.ContaIdPoliza
diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs
index ee352f560..874e91841 100644
--- a/Bancos/PagoAcreedor.aspx.cs
+++ b/Bancos/PagoAcreedor.aspx.cs
@@ -527,7 +527,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
         }
 
         //CONTABILIZA
-        if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad)
+        if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals(""))
         {
             if (IDCtaContableAcreedor > 0 && IDCtaContableBancos > 0)
             {
@@ -801,7 +801,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
         }
 
         //CONTABILIZA
-        if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad)
+        if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") )
         {
             if (IDCtaContableAcreedor > 0 && IDCtaContableBancos > 0)
             {
diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs
index 73435bc66..661fd2abd 100644
--- a/Bancos/PagoDeudor.aspx.cs
+++ b/Bancos/PagoDeudor.aspx.cs
@@ -447,7 +447,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
         bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1");
         if (UsuarioActual.CveEmpresa == 119) AutoConta = false;
                    
-        if (AutoConta && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad)
+        if (AutoConta && MsgError.Equals(""))
         {
             //JJMQ:20190103: Cambio la siguiente linea porque esta validando siempre una complementaria aunque el movto sea dlls
             //if (IDCtaContableDeudorPrestamo > 0 && IDCtaContableBancosPrestamo > 0 && IDCtaContableBancosComplementariaPrestamo > 0 && IDCtaContableDeudorCompPrestamo > 0)
@@ -838,7 +838,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
                 bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1");
                 if (UsuarioActual.CveEmpresa == 119) AutoConta = false;
 
-                if (AutoConta && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad)
+                if (AutoConta && MsgError.Equals(""))
                 {
                     if (IDCtaContableDeudor > 0 && IDCtaContableBancos > 0)
                     {
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 683e35fd7..77d0c3498 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -3090,7 +3090,7 @@ Partial Class Bancos_PopIECompras
                                 End If
 
                                 'Conta ContPAQ
-                                If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" AndAlso UsuarioActual.Empresa.UsaContabilidad Then
+                                If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
                                     If idCuentaContabilizacion > 0 Then
                                         If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
                                             IdPoliza = ObjMov.ContaIdPoliza
diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 9715941cf..c19aea954 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -3390,7 +3390,7 @@ Partial Class Bancos_PopIEVentas
                                     End If
 
                                     'Conta ContPAQ
-                                    If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" AndAlso UsuarioActual.Empresa.UsaContabilidad Then
+                                    If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
                                         If idCuentaContabilizacion > 0 Then
 
                                             If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs
index 75491b8fa..60cd167ef 100644
--- a/Bancos/PrestamoPersonal.aspx.cs
+++ b/Bancos/PrestamoPersonal.aspx.cs
@@ -366,7 +366,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
         }
 
         //CONTABILIZA
-        if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad)
+        if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") )
         {
             if (IDCtaContablePrestamo > 0 && IDCtaContableBancos > 0)
             {
@@ -626,7 +626,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
         }
 
         //CONTABILIZA
-        if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") && UsuarioActual.Empresa.UsaContabilidad)
+        if (UsuarioActual.Empresa.Funcionalidad(200).Equals("1") && MsgError.Equals("") )
         {
             if (IDCtaContablePrestamo > 0 && IDCtaContableBancosPrestamo > 0)
             {
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 37a12c668..1f8d4b125 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -1823,7 +1823,7 @@ Partial Class Bancos_ProveedoresAbonar
                             End If
 
                             'Conta ContPAQ
-                            If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" And UsuarioActual.Empresa.UsaContabilidad Then
+                            If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
                                 If idCuentaContabilizacion > 0 Then
                                     If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjConta) Then
                                         ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb
index bbb322d80..7ccdbb882 100644
--- a/Bancos/Transferencias.aspx.vb
+++ b/Bancos/Transferencias.aspx.vb
@@ -412,7 +412,7 @@ Partial Class Bancos_Transferencias
                             End If
 
                             'Conta ContPAQ
-                            If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" AndAlso UsuarioActual.Empresa.UsaContabilidad Then
+                            If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
                                 If (IdCtaContableOrigen > 0 AndAlso IdCtaContableDestino > 0) OrElse (IdCtaContableDestino > 0 AndAlso Opcion = 1) Then
 
                                     If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, Fecha:=TxtFechaDocumento.Text) Then
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 268ef5444..ee9dc3df8 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -7009,7 +7009,7 @@ Partial Class Compras_Compras
                                             End If
 
                                             'Conta ContPAQ
-                                            If ObjContaAC IsNot Nothing AndAlso Not ErrorPrepoliza AndAlso Not ErrorPrepolizaDescuadre AndAlso UsuarioActual.Empresa.UsaContabilidad Then
+                                            If ObjContaAC IsNot Nothing AndAlso Not ErrorPrepoliza AndAlso Not ErrorPrepolizaDescuadre AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
                                                 If idCuentaContabilizacion > 0 Then
                                                     If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then
                                                         ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
@@ -8575,7 +8575,7 @@ Partial Class Compras_Compras
                         End If
 
                         'Conta ContPAQ
-                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" And ErrorMovtosCxP = 0 And UsuarioActual.Empresa.UsaContabilidad Then
+                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso ErrorMovtosCxP = 0 Then
                             If idCuentaContabilizacion > 0 Then
                                 If ObjConta.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
                                     alertaContabilizacion.AppendFormat("<a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={0}'>{1}<\a><br>", ObjConta.ContaIdPoliza, ObjConta.ContaFolio)
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index a419f00fb..5f9f37585 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -1295,7 +1295,7 @@ Partial Class Compras_ReembolsosComprobaciones
                     End If
 
                     'Conta ContPAQ AUTOMATICA
-                    If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError.Trim = "" AndAlso UsuarioActual.Empresa.UsaContabilidad Then
+                    If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError.Trim = "" Then
                         If CvePrePolizaIERegistrado > 0 Then
                             If IdCtaPersonal > 0 Or DdlCajaChica.Visible Then
                                 If IdCtaProveedor > 0 Then
diff --git a/Compras/RepNotasCredito.aspx.vb b/Compras/RepNotasCredito.aspx.vb
index 5605a94e5..c04fd2c3e 100644
--- a/Compras/RepNotasCredito.aspx.vb
+++ b/Compras/RepNotasCredito.aspx.vb
@@ -200,7 +200,7 @@ Partial Class Compras_RepNotasCredito
                     End If
                 End If
 
-                If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" And UsuarioActual.Empresa.UsaContabilidad Then
+                If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
                     If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
                         If MensajeAlert.ToString = "" Then
                             MensajeAlert.AppendFormat("Los siguientes movimientos fueron saldados correctamente: <br/>")
diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb
index 86983e786..50fd8aed0 100644
--- a/Compras/RepRembolsoComprobaciones.aspx.vb
+++ b/Compras/RepRembolsoComprobaciones.aspx.vb
@@ -198,7 +198,7 @@ Partial Class Compras_RepRembolsoComprobaciones
             Msg.AppendFormat("Se unificaron todas las compras con éxito")
         End If
 
-        If UsuarioActual.Empresa.UsaContabilidad AndAlso Not TieneError Then
+        If UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" AndAlso Not TieneError Then
             If ObjAC Is Nothing Then
                 TieneError = True
             End If
diff --git a/Inventarios/RepAlmacenCompras.aspx b/Inventarios/RepAlmacenCompras.aspx
index 9c4f2ba8b..cf906aac8 100644
--- a/Inventarios/RepAlmacenCompras.aspx
+++ b/Inventarios/RepAlmacenCompras.aspx
@@ -95,15 +95,18 @@
                         <td>
                             <asp:GridView ID="GvDatos" runat="server" data-sort="true" AutoGenerateColumns="False" EmptyDataText="No hay movimientos." ToolTip="Listado de Movimientos" CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
                                 <Columns>
-                                    <asp:HyperLinkField HeaderText="Folio Almacen" DataTextField="FolioAlmacen" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" ItemStyle-Width="7.5%" />
+                                    <asp:HyperLinkField HeaderText="Folio Almacen" DataTextField="FolioAlmacen" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" ItemStyle-Width="7.5%"  ItemStyle-HorizontalAlign="Left"/>
                                     <asp:BoundField HeaderText="Almacen" DataField="Almacen" ItemStyle-Width="20%" />
                                     <asp:BoundField HeaderText="Fecha Movto" DataField="FechaMovto" DataFormatString="{0:d}" ItemStyle-Width="7.5%" />
-                                    <asp:HyperLinkField HeaderText="Folio Compra" DataTextField="FolioCompra" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" ItemStyle-Width="7.5%" />
+                                    <asp:BoundField HeaderText="Total" DataField="TotalAlmacen" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
+                                    <asp:HyperLinkField HeaderText="Folio Compra" DataTextField="FolioCompra" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Left" />
                                     <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="15%" />
                                     <asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="20%" />
                                     <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
+                                    <asp:BoundField HeaderText="Descuentos" DataField="Descuentos" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
                                     <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
                                     <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
+                                    <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%" />
                                 </Columns>
                             </asp:GridView>
                         </td>
diff --git a/Inventarios/RepAlmacenCompras.aspx.vb b/Inventarios/RepAlmacenCompras.aspx.vb
index c52884fa1..8cf23b1a7 100644
--- a/Inventarios/RepAlmacenCompras.aspx.vb
+++ b/Inventarios/RepAlmacenCompras.aspx.vb
@@ -43,12 +43,15 @@ Partial Class Inventarios_RepAlmacenCompras
 #Region "   CARGA VALORES INICIALES   "
     Private Sub CargaPermisos()
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
-        GvDatos.Columns(6).Visible = TienePermisoImportes
+        GvDatos.Columns(3).Visible = TienePermisoImportes
         GvDatos.Columns(7).Visible = TienePermisoImportes
         GvDatos.Columns(8).Visible = TienePermisoImportes
+        GvDatos.Columns(9).Visible = TienePermisoImportes
+        GvDatos.Columns(10).Visible = TienePermisoImportes
+        GvDatos.Columns(11).Visible = TienePermisoImportes
 
         If TienePermisoImportes Then
-            CabeceraAlmacen.Width = "35%"
+            CabeceraAlmacen.Width = "36%"
             CabeceraCompra.Width = "65%"
         Else
             CabeceraAlmacen.Width = "45%"
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 01435d4c2..79ce2c26b 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -1538,7 +1538,7 @@ Partial Class Ventas_ClientesAbonar
                             End If
 
                             'Conta ContPAQ
-                            If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" AndAlso UsuarioActual.Empresa.UsaContabilidad Then
+                            If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
                                 If idCuentaContabilizacion > 0 Then
                                     If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
                                         IDPoliza = ObjMov.ContaIdPoliza
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 6566789d8..eb95bd40a 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6572,7 +6572,7 @@ Partial Class Ventas
                             AutoConta = False
                         End If
 
-                        If AutoConta And UsuarioActual.Empresa.UsaContabilidad = True Then
+                        If AutoConta Then
                             If idCuentaContabilizacion > 0 Then
                                 If ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then