Autorizaciones, SI EL LIMITE ES 0, PERMITE AUTORIZAR

Ventas/CatAutorizacionLimites.aspx.vb

@@ -196,7 +196,8 @@ Partial Class Ventas_CatAutorizacionLimites
 
     Protected Sub LnkAutorizar_Click(sender As Object, e As EventArgs)
         Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-
+
+        Dim TipoAutorizacion = gvRow.DataKey("TipoAutorizacion").ToEntero()
         Dim CveAutorizacion = gvRow.DataKey("CveAutorizacion").ToEntero()
         Dim CveCliente = gvRow.DataKey("CveCliente").ToEntero()
         Dim CveVendedor = gvRow.DataKey("CveVendedor").ToEntero()
@@ -209,6 +210,8 @@ Partial Class Ventas_CatAutorizacionLimites
 
             Dim SaldoCliente = gvRow.DataKey("Saldo").ToDecimal()
             Dim LimiteCredito = gvRow.DataKey("LimiteCredito").ToDecimal()
+            'SI EL LIMITE ES 0, PERMITE AUTORIZAR
+            If LimiteCredito > 0 Then
                 Dim PorcentajeMaximoAutorizar As Decimal = 0.1
 
                 If UsuarioActual.PorcentajeMaximoAutorizacion > 0 Then