From 661a2bb56f8b8760789c7a2acafd67b7a6703fca Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Wed, 4 Mar 2020 11:14:14 -0700
Subject: [PATCH 1/3]

---
 Inventarios/KardexAlmacenHorizontal.aspx.vb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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

From b62f5388efea50b06579996873136ccb84790cd4 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Wed, 4 Mar 2020 11:19:30 -0700
Subject: [PATCH 2/3] -filtro tipo almacen

---
 Acumuladores/RepEntradasUsadosClientes.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

From b085b2c8521499fb702e3f40976a9880d6e4c4a1 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Wed, 4 Mar 2020 11:25:53 -0700
Subject: [PATCH 3/3] - se quito funcionalidad 520 al emitir complemento

---
 Ventas/ClientesAbonar.aspx    | 2 +-
 Ventas/ClientesAbonar.aspx.vb | 7 +------
 2 files changed, 2 insertions(+), 7 deletions(-)

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