diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
index 9d266557c..e23ddf41d 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
@@ -29,7 +29,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
     End Sub
 
     Public Sub CargaCombos()
-        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 22)
         DdlAlmacen.DataBind()
         DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
 
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index d85e92bbb..4366af744 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -13,7 +13,11 @@ Partial Class Inventarios_KardexAlmacen
             TxtFechaF.Text = Now.ToShortDateString
             CargaCombos()
             ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
-            pnlOrden.Visible = UsuarioActual.CveEmpresa = 141
+            pnlOrden.Visible = False
+            If UsuarioActual.CveEmpresa = 141 Then
+                pnlOrden.Visible = True
+                DdlOrden.SelectedValue = 2
+            End If
             If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
             ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
         End If
diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx
index d23679560..372c52348 100644
--- a/Ventas/ClientesAbonar.aspx
+++ b/Ventas/ClientesAbonar.aspx
@@ -238,7 +238,7 @@
                         <asp:CheckBox Text=" Seguir Registrando Pagos" ID="ChkSeguirRegistrando" CssClass="md-checksd" runat="server" />
                     </td>
                     <td style="text-align: left; width: 9%">
-                        <asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="false" CssClass="md-checksd" runat="server" />
+                        <asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="true" CssClass="md-checksd" runat="server" />
                         <br />
                         <asp:Label ID="LblValidaCeuntaTipoTransaccion" runat="server" Visible="false" ForeColor="Red"></asp:Label>
                     </td>
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index a9c503494..b50c93038 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -333,12 +333,7 @@ Partial Class Ventas_ClientesAbonar
                     ElseIf CveMoneda = -1 Then
                         TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
                         TxtTCDolares.Text = GlobalTipoCambio(Fecha).FormatoNumero(4)
-                        TxtTC.Text = GlobalTipoCambio(Fecha).FormatoNumero(4)
-                    End If
-
-                    If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
-                        ChkComplementoPago.Visible = True
-                        'ChkComplementoPago.Checked = True
+                        TxtTC.Text = GlobalTipoCambio(Fecha).FormatoNumero(4)
                     End If
 
                     If UsuarioActual.TienePermisoProceso(209) Or UsuarioActual.TienePermisoProceso(204) Then