-- option strict on

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -80,29 +80,10 @@ Partial Class Acumuladores_CatFoliosGarantia
         objAcum.Dispose()
 
         UPGvFolioGarantia.DataBind()
-        UpGral.Update()
-
-        'CargaGvTamanioBitacora()
-
-    End Sub
-
-    'Private Sub CargaGvTamanioBitacora()
-
-    '    Dim objAcum As New ClsAcumuladores
-
-    '    If objAcum.TamañoBitacoraGet(UsuarioActual.Empresa.CveEmpresa) Then
-    '        GvBitacora.DataSource = objAcum.DtResultados
-    '    Else
-    '        GvBitacora.DataSource = Nothing
-    '    End If
-
-    '    objAcum.Dispose()
-
-    '    UpGvBitacora.DataBind()
-    '    UpGral.Update()
-
-
-    'End Sub
+        UpGral.Update()
+
+    End Sub
+
     Protected Sub BtnAgregarFolioGarantia_Click(sender As Object, e As EventArgs) Handles BtnAgregarFolioGarantia.Click
         LtlTituloModalFolioGarantia.Text = "Agregar Folio Garantía"
         BtnAgregarFolioGarantiaModal.Text = "Agregar"
@@ -180,8 +161,7 @@ Partial Class Acumuladores_CatFoliosGarantia
 
     Public Sub Remove_ClickFolioGarantia(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
-        Dim CveCapacitador As Integer = GvRow.DataKey("CveFolioGarantia")
+        Dim CveCapacitador As Integer = GvRow.DataKey("CveFolioGarantia").ToEntero
 
         Dim objAcum As New ClsAcumuladores
         If objAcum.FoliosGarantiaRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then
@@ -199,12 +179,9 @@ Partial Class Acumuladores_CatFoliosGarantia
     Public Sub Edit_ClickFolioGarantia(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = 0
-
         LtlTituloModalFolioGarantia.Text = "Editar Folio Garantía"
         Actualizar = True
-
-        CveFolioGarantia = GvRow.DataKey("CveFolioGarantia")
+        CveFolioGarantia = GvRow.DataKey("CveFolioGarantia").ToEntero
 
         TxtFolioGarantia.Text = GvRow.DataKey("FolioGarantia")
         DdlEstatusEditar.SelectedValueExist(GvRow.DataKey("CveEstatus"))
@@ -233,8 +210,8 @@ Partial Class Acumuladores_CatFoliosGarantia
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
-        CveFolioGarantia = GvRow.DataKey("CveFolioGarantia")
-        CveMovimiento = IIf(GvRow.DataKey("CveMovimiento") <> "", GvRow.DataKey("CveMovimiento"), -1)
+        CveFolioGarantia = GvRow.DataKey("CveFolioGarantia").ToEntero
+        CveMovimiento = If(GvRow.DataKey("CveMovimiento") <> "", GvRow.DataKey("CveMovimiento").ToEntero, -1)
         LblFolio.Text = GvRow.DataKey("FolioGarantia")
 
         Using ObjAcum As New ClsAcumuladores
@@ -252,9 +229,6 @@ Partial Class Acumuladores_CatFoliosGarantia
 
     End Sub
 
-
-
-
 #End Region
 
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)