diff --git a/Ventas/CatAutorizacionLimites.aspx.vb b/Ventas/CatAutorizacionLimites.aspx.vb
index b02c3a4db..a20ae2377 100644
--- a/Ventas/CatAutorizacionLimites.aspx.vb
+++ b/Ventas/CatAutorizacionLimites.aspx.vb
@@ -95,8 +95,8 @@ Partial Class Ventas_CatAutorizacionLimites
     Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
         Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
 
-        Dim CveAutorizacion = gvRow.DataKey("CveAutorizacion").ToEntero()
-        Dim CveCliente = gvRow.DataKey("CveCliente").ToEntero()
+        Dim CveAutorizacion As Integer = gvRow.DataKey("CveAutorizacion").ToEntero()
+        Dim CveCliente As Integer = gvRow.DataKey("CveCliente").ToEntero()
 
         Dim ObjGral As New ClsVentas
         If ObjGral.RemoveAutorizacionLimite(CveAutorizacion, CveCliente) Then
@@ -208,19 +208,19 @@ 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()
+        Dim TipoAutorizacion As Integer = gvRow.DataKey("TipoAutorizacion").ToEntero()
+        Dim CveAutorizacion As Integer = gvRow.DataKey("CveAutorizacion").ToEntero()
+        Dim CveCliente As Integer = gvRow.DataKey("CveCliente").ToEntero()
+        Dim CveVendedor As Integer = gvRow.DataKey("CveVendedor").ToEntero()
         Dim CveEstatusAutorizacion As Integer = 1
 
-        Dim Importe = gvRow.DataKey("Importe").ToDecimal().RoundSQL(2)
+        Dim Importe As Decimal = gvRow.DataKey("Importe").ToDecimal().RoundSQL(2)
         'AUTORIZACION DE IMPORTE,
         'el cliente limite de 500, y saldo de 501. autorización que puede autorizar no puede ser mayor a 49 ( limite * 1.% - Saldo)
         If TipoAutorizacion = 1 Then
 
-            Dim SaldoCliente = gvRow.DataKey("Saldo").ToDecimal()
-            Dim LimiteCredito = gvRow.DataKey("LimiteCredito").ToDecimal()
+            Dim SaldoCliente As Decimal = gvRow.DataKey("Saldo").ToDecimal()
+            Dim LimiteCredito As Decimal = gvRow.DataKey("LimiteCredito").ToDecimal()
             'SI EL LIMITE ES 0, PERMITE AUTORIZAR
             If LimiteCredito > 0 Then
                 Dim PorcentajeMaximoAutorizar As Decimal = 0.1D
@@ -240,11 +240,11 @@ Partial Class Ventas_CatAutorizacionLimites
 
             'AUTORIZACION POR DIAS VENCIDOS
         ElseIf TipoAutorizacion = 2 Then
-            Dim DiasVencidos = gvRow.DataKey("DiasVencidos").ToEntero()
+            Dim DiasVencidos As Integer = gvRow.DataKey("DiasVencidos").ToEntero()
             If DiasVencidos > 0 Then
                 Dim DiasVencidosPermitidos As Integer = 5
 
-                Dim DiasVencidosAutorizacion = gvRow.DataKey("DiasVencidosAutorizacion").ToEntero()
+                Dim DiasVencidosAutorizacion As Integer = gvRow.DataKey("DiasVencidosAutorizacion").ToEntero()
 
                 If DiasVencidos > DiasVencidosAutorizacion Then
                     Alert($"No se puede autorizar, los días vencidos del cliente son mayores a la autorización. Dias Vencidos: {DiasVencidos:N0}", TipoMensaje.MsgAdvertencia)
@@ -273,10 +273,10 @@ Partial Class Ventas_CatAutorizacionLimites
     Protected Sub LnkRechazar_Click(sender As Object, e As EventArgs)
         Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
 
-        Dim CveAutorizacion = gvRow.DataKey("CveAutorizacion").ToEntero()
-        Dim CveCliente = gvRow.DataKey("CveCliente").ToEntero()
-        Dim CveVendedor = gvRow.DataKey("CveVendedor").ToEntero()
-        Dim Importe = gvRow.DataKey("Importe").ToDecimal()
+        Dim CveAutorizacion As Integer = gvRow.DataKey("CveAutorizacion").ToEntero()
+        Dim CveCliente As Integer = gvRow.DataKey("CveCliente").ToEntero()
+        Dim CveVendedor As Integer = gvRow.DataKey("CveVendedor").ToEntero()
+        Dim Importe As Decimal = gvRow.DataKey("Importe").ToDecimal()
         Dim CveEstatusAutorizacion As Integer = 3
 
         Dim ObjVentas As New ClsVentas
@@ -355,7 +355,7 @@ Partial Class Ventas_CatAutorizacionLimites
         StrFiltro.AppendFormat(",  Fecha Fin: {0}", fechaFin)
 
         'Oculta columnas en export sin afectar GridView en página
-        Dim tcols = GvDatos.Columns.Count
+        Dim tcols As Integer = GvDatos.Columns.Count
         GvDatos.HeaderRow.Cells(tcols - 2).Visible = False 'Autorizar/Rechazar
         GvDatos.HeaderRow.Cells(tcols - 1).Visible = False 'Eliminar