-- option strict on

Acumuladores/Tamaños.aspx.vb

@@ -114,7 +114,6 @@ Partial Class Acumuladores_Tamaños
     Protected Sub BtnAgregarTamanioModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarTamanioModal.Click
 
         Dim ObjAcum As New ClsAcumuladores
-
         Dim Cargo, Bonificacion, Compra, Puntos As Decimal
 
         Cargo = If(TxtCargo.Text.ToDecimal > 0, TxtCargo.Text.ToDecimal, -1)
@@ -123,8 +122,6 @@ Partial Class Acumuladores_Tamaños
         Puntos = If(TxtPuntos.Text.ToDecimal > 0, TxtPuntos.Text.ToDecimal, -1)
 
 
-
-
         If Not Actualizar Then
             If ObjAcum.TamañoAdd(TxtTamanio.Text, Cargo, Bonificacion, Compra, Puntos, DdlPS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
 
@@ -175,8 +172,8 @@ Partial Class Acumuladores_Tamaños
 
         Dim objAcum As New ClsAcumuladores
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
-        Dim CveCapacitador As Integer = GvRow.DataKey("CveTamaño")
+        Dim activo As Boolean = False
+        Dim CveCapacitador As Integer = GvRow.DataKey("CveTamaño").ToEntero
 
         If objAcum.TamañoRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then
             CargadatosGvTamanio()
@@ -197,12 +194,11 @@ Partial Class Acumuladores_Tamaños
     Public Sub Edit_ClickTamanio(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
 
         LtlTituloModalTamanio.Text = "Editar Tamaño"
         Actualizar = True
 
-        CveTamaño = GvRow.DataKey("CveTamaño")
+        CveTamaño = GvRow.DataKey("CveTamaño").ToEntero
 
         TxtTamanio.Text = GvRow.DataKey("Tamaño")
         TxtCargo.Text = GvRow.DataKey("Cargo").ToDecimal.ToString("###,###,###.00")