-- option strict on

CRM/CatMetas.aspx.vb

@@ -1,6 +1,4 @@
-Imports System.Data
-Imports Extensiones
-
+Imports Extensiones
 
 Partial Class CRM_CatMetas
     Inherits ClsPaginas
@@ -116,22 +114,17 @@ Partial Class CRM_CatMetas
 
         Dim ObjCRM As New ClsCRM
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        CveMeta = GvRow.DataKey("CveMeta")
-
+        CveMeta = GvRow.DataKey("CveMeta").ToEntero
         If ObjCRM.RemoveMetas(CveMeta, UsuarioActual.CveEmpresa) Then
             CargadatosGvMeta()
-
             Alert("Meta eliminada Correctamente ", TipoMensaje.MsgInformacion)
         Else
             Alert("Ocurrió un error al Eliminar la Meta", TipoMensaje.MsgError)
         End If
 
         ObjCRM.Dispose()
-
         CargadatosGvMeta()
-
         CveMeta = -1
-
     End Sub
 
     Public Sub Edit_ClickMeta(sender As Object, e As EventArgs)
@@ -141,20 +134,14 @@ Partial Class CRM_CatMetas
         LtlTituloModalMeta.Text = "Editar Meta"
         BtnAgregarMetaModal.Text = "Actualizar"
         Actualizar = True
-
-        CveMeta = GvRow.DataKey("CveMeta")
-
-
+        CveMeta = GvRow.DataKey("CveMeta").ToEntero
         DdlVendedor.Items.Clear()
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, 1)
         DdlVendedor.DataBind()
         DdlVendedor.SelectedValueExist(GvRow.DataKey("CveVendedor").ToEntero)
-
         txtFechaI.Text = GvRow.DataKey("FechaI")
         txtFechaF.Text = GvRow.DataKey("FechaF")
-
-        TxtNumMeta.Text = GvRow.DataKey("NumMeta").ToEntero
-
+        TxtNumMeta.Text = GvRow.DataKey("NumMeta")
         TxtImporte.Text = GvRow.DataKey("Importe").ToDecimal.ToString("###,###,###.00")
 
         UpModalMeta.Update()