ProveedoresAbonar Descuento escalonado

Bancos/ProveedoresAbonar.aspx.vb

@@ -315,6 +315,10 @@ Partial Class Bancos_ProveedoresAbonar
                 LnkExcelSolicitud.Visible = True
             End If
 
+            If UsuarioActual.CveRol = 1 Then
+                GvCxP.Columns(11).Visible = True
+            End If
+
         End If
     End Sub
 
@@ -533,6 +537,10 @@ Partial Class Bancos_ProveedoresAbonar
                     e.Row.FCCheckBox("Chk").Enabled = False
                 End If
 
+                e.Row.FCTextBox("TxtDescuento").Attributes.Add("onkeyup", $"calculaDescuentoEscalonado({e.Row.DBCampo("Saldo")},{e.Row.FCTextBox("TxtDescuento").ClientID},{e.Row.FCTextBox("TxtAbonar").ClientID})")
+            Else
+                e.Row.FCTextBox("TxtDescuento").Visible = False
+
             End If
         End If
     End Sub
@@ -1354,12 +1362,12 @@ Partial Class Bancos_ProveedoresAbonar
             DdlProsepago.Visible = False
             TxtOtrosImportes.Visible = True
             TxtTotal.Visible = True
-            GvCxP.Columns(12).Visible = True
+            GvCxP.Columns(13).Visible = True
         Else
             DdlProsepago.Visible = False
             TxtOtrosImportes.Visible = False
             TxtTotal.Visible = False
-            GvCxP.Columns(12).Visible = False
+            GvCxP.Columns(13).Visible = False
             TxtOtrosImportes.Text = ""
             TxtTotal.Text = ""
             RegistraScript("$get('TxtImporte').value = FormatoNumero(SumaValores(), 2);")