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] - 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