-mejora en autorizar redondeaba a entero

Ventas/CatAutorizacionLimites.aspx.vb

@@ -175,7 +175,7 @@ Partial Class Ventas_CatAutorizacionLimites
             '    e.Row.Cells(1).Text = "Inactivo"
             '    e.Row.Cells(1).ForeColor = Drawing.Color.Red
             '    e.Row.Cells(1).Font.Bold = True
-            'End If
+            'End If
         End If
     End Sub
 
@@ -192,7 +192,7 @@ Partial Class Ventas_CatAutorizacionLimites
         Dim Importe = gvRow.DataKey("Importe").ToDecimal()
         Dim CveEstatusAutorizacion As Integer = 1
 
-        Dim ObjVentas As New ClsVentas
+        Dim ObjVentas As New ClsVentas
         If ObjVentas.AutorizacionLimitesUpdate(CveAutorizacion, CveCliente, CveVendedor, Importe, CveEstatusAutorizacion) Then
             Alert("El límite de crédito fue autorizado.")
         End If