SIG/Prospectos/ProspectosG15.aspx.vb

Option Explicit On
Option Strict On

Imports Extensiones

Partial Class Prospectos_ProspectosG15
    Inherits ClsPaginas
    'Confinguración

    Private Property DTProspectosValores As Data.DataTable
        Get
            Return CType(ViewState("DTProspectosValores"), Data.DataTable)
        End Get
        Set(value As Data.DataTable)
            ViewState("DTProspectosValores") = value
        End Set
    End Property


    Private ReadOnly Property CveProspecto As Integer
        Get
            Return ViewState("CveProspecto").ToString.ToEntero
        End Get
    End Property

    Private ReadOnly Property CveProspectoSolicitud As Integer
        Get
            Return ViewState("CveProspectoSolicitud").ToString.ToEntero
        End Get
    End Property
    Private ReadOnly Property CveApoyoTipo As Integer
        Get
            Return ViewState("CveApoyoTipo").ToString.ToEntero
        End Get
    End Property
    Private ReadOnly Property CveClasificacion As Integer
        Get
            Return ViewState("CveClasificacion").ToString.ToEntero
        End Get
    End Property

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then

            DdlPaises.DataSource = GlobalDTGralPaises : DdlPaises.DataBind() : DdlPaises.SelectedValue = "1"
            DdlEscolaridad.DataSource = GlobalDTGralEscolaridades : DdlEscolaridad.DataBind()
            DdlEstadoCivil.DataSource = GlobalDTEstadoCivil : DdlEstadoCivil.DataBind()
            DdlResponsable.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlResponsable.DataBind()
            DdlProspectoClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlProspectoClasificacion.DataBind()

            ViewState("CveProspectoSolicitud") = -1
            Dim ObjEvento As New ClsProspectos

            If ObjEvento.GetProspectosEventos(-1, UsuarioActual.CveEmpresa) Then
                DdlEvento.DataSource = ObjEvento.DtResultados
            End If
            ObjEvento.Dispose()
            DdlEvento.DataBind()

            CargarSolicitudesTipos()
            CargarApoyosTipos()
            CargarSolicitudesEstatus()
            CargarProspectosApoyos()
            CargarApoyosTipos()
            'DdlMunicipios.DataSource = GlobalDTGralMunicipios : DdlMunicipios.DataBind()

            If UsuarioActual.CveRol <> 1023 Then TblVerificado.Visible = False

            If Request("CveProspecto") IsNot Nothing AndAlso IsNumeric(Request("CveProspecto")) AndAlso Request("CveProspecto").ToEntero > 0 Then
                ViewState("CveProspecto") = Request("CveProspecto")
                CargaDatos()
                'Configuración de Modalidad Update
                BtnGuardar.Text = "Guardar Cambios"
                LtlTitulo.Text = "Consulta del Prospecto:"

            Else
                CargaEstados(DdlEstados, DdlPaises.SelectedValue.ToEntero)
                DdlEstados.SelectedValue = "26"
                CargaMunicipios(DdlMunicipios, DdlEstados.SelectedValue.ToEntero) : DdlMunicipios.SelectedValue = "1919"
                DdlPromotor.DataSource = GlobalDTProspectosCoordinadores(DdlResponsable.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlPromotor.DataBind()
                DdlPromotor.Items.Insert(0, New ListItem("Seleccione", "-1"))
                RFVPromotor.InitialValue = "-1"

                ViewState("CveProspecto") = -1

            End If

        End If
    End Sub


    Private Sub CargaDatos()
        Dim ObjProspectos As New ClsProspectos
        If ObjProspectos.GetProspectos(CveProspecto, "-1", "-1", -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
            If ObjProspectos.DtResultados.Rows.Count > 0 Then
                TxtCveProspecto.Text = ObjProspectos.CveProspecto.ToString
                TxtApellidoPaterno.Text = ObjProspectos.ApellidoPaterno
                TxtApellidoMaterno.Text = ObjProspectos.ApellidoMaterno
                TxtNombres.Text = ObjProspectos.Nombres
                TxtFechaNacimiento.Text = ObjProspectos.FechaNacimiento.ToString
                TxtLugarNacimiento.Text = ObjProspectos.LugarNacimiento
                TxtCalle.Text = ObjProspectos.Calle
                TxtNumero.Text = ObjProspectos.Numero
                TxtNumeroInterior.Text = ObjProspectos.NumeroInterior
                TxtEntreCalle1.Text = ObjProspectos.EntreCalle1
                TxtIFE.Text = ObjProspectos.IFE
                TxtSeccion.Text = ObjProspectos.Seccion.ToString

                DdlEscolaridad.SelectedValue = ObjProspectos.CveEscolaridad.ToString

                DdlResponsable.SelectedValue = ObjProspectos.CveSupervisor.ToString

                CargaCoordinadores(DdlPromotor, ObjProspectos.CveSupervisor)
                'DdlPromotor.Items.Insert(0, New ListItem("Seleccione", "-1"))
                DdlPromotor.SelectedValue = ObjProspectos.CveCoordinador.ToString

                TxtColonia.Text = ObjProspectos.Colonia

                DdlPaises.DataSource = GlobalDTGralPaises : DdlPaises.DataBind() : DdlPaises.SelectedValue = "1"

                CargaEstados(DdlEstados, DdlPaises.SelectedValue.ToEntero)
                DdlEstados.SelectedValue = "26"
                DdlEstados.SelectedValue = ObjProspectos.CveEstado.ToString
                CargaMunicipios(DdlMunicipios, DdlEstados.SelectedValue.ToEntero)
                DdlMunicipios.SelectedValue = ObjProspectos.CveMunicipio.ToString

                DdlEscolaridad.SelectedValue = ObjProspectos.CveEscolaridad.ToString
                DdlEvento.SelectedValue = ObjProspectos.CveEvento.ToString

                TxtTelefono.Text = ObjProspectos.Telefono
                TxtCelular.Text = ObjProspectos.Celular
                'TxtFax.Text = ObjProspectos.Fax
                TxtCorreo.Text = ObjProspectos.Correo
                TxtDependientes.Text = ObjProspectos.Dependientes.ToString

                DdlVerificado.SelectedValue = ObjProspectos.FueAuditado.ToString
                TxtObservacionVerificacion.Text = ObjProspectos.ObservacionesVerificacion

                'TxtCveEstatus.Text = ObjProspectos.CveEstatus
                'TxtFechaIng.Text = ObjProspectos.FechaIng
                'TxtCveUsuario.Text = ObjProspectos.CveUsuario
                'TxtCveEmpresa.Text = ObjProspectos.CveEmpresa

                CargarSolicitudes(CveProspecto)
                If UsuarioActual.TienePermisoProceso(90) Then TdRespuesta.Visible = True Else TdRespuesta.Visible = False
                'Permiso Eliminar
                If UsuarioActual.TienePermisoProceso(78) Then BtnEliminar.Visible = True Else BtnEliminar.Visible = False

            End If
        End If
        ObjProspectos.Dispose()
    End Sub


    Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
        ddl.DataSource = GlobalDTGralEstados("-1", CvePais) : ddl.DataBind()
    End Sub

    Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
        ddl.DataSource = GlobalDTGralMunicipios("-1", CveEstado) : ddl.DataBind()
    End Sub

    Private Sub CargaCoordinadores(ddl As DropDownList, CveSupervisor As Integer)
        ddl.DataSource = GlobalDTProspectosCoordinadores(CveSupervisor, -1) : ddl.DataBind()
    End Sub



    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click

        Dim ObjProspectos As New ClsProspectos
        If CveProspecto = -1 Then
            Dim RetVal As Integer = ObjProspectos.AddProspectos(-1, TxtApellidoPaterno.Text.Trim, TxtApellidoMaterno.Text.Trim,
            TxtNombres.Text.Trim, TxtFechaNacimiento.Text.Trim.ToDate, TxtLugarNacimiento.Text.Trim, "", "", 0, TxtCalle.Text.Trim,
            TxtNumero.Text.Trim, TxtNumeroInterior.Text.Trim, TxtEntreCalle1.Text.Trim, "", TxtColonia.Text.Trim, -1, DdlMunicipios.SelectedValue.ToEntero,
            TxtTelefono.Text.Trim, TxtCelular.Text.Trim, "", "", TxtCorreo.Text.Trim, "", "", "", DdlEstadoCivil.SelectedValue.ToEntero, -1, DdlEscolaridad.SelectedValue.ToEntero, "", "", "",
            "", "", "", "", "", -1, "", "", "", "", "", False, "", "", "", "", -1, "", -1, DdlPromotor.SelectedValue.ToEntero, -1, TxtIFE.Text.Trim, TxtSeccion.Text.ToEntero, TxtDependientes.Text.ToEntero, DdlEvento.SelectedValue.ToEntero, TxtObservacionVerificacion.Text, DdlVerificado.SelectedValue.ToEntero, "", -1, -1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
            If RetVal > 0 Then
                ViewState("CveProspecto") = ObjProspectos.CveProspecto

                Alert("El Prospecto se guardó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Prospectos/CatProspectosG15.aspx"";")
            End If
        Else

            If ObjProspectos.UpdateProspectos(-1, TxtApellidoPaterno.Text.Trim, TxtApellidoMaterno.Text.Trim,
            TxtNombres.Text.Trim, TxtFechaNacimiento.Text.Trim.ToDate, TxtLugarNacimiento.Text.Trim, "", "", 0, TxtCalle.Text.Trim,
            TxtNumero.Text.Trim, TxtNumeroInterior.Text.Trim, TxtEntreCalle1.Text.Trim, "", TxtColonia.Text.Trim, -1.ToEntero, DdlMunicipios.SelectedValue.ToEntero,
            TxtTelefono.Text.Trim, TxtCelular.Text.Trim, "", "", TxtCorreo.Text.Trim, "", "", "", DdlEstadoCivil.SelectedValue.ToEntero, -1, DdlEscolaridad.SelectedValue.ToEntero, "", "", "",
            "", "", "", "", "", -1, "", "", "", "", "", False, "", "", "", "", -1, "", -1, DdlPromotor.SelectedValue.ToEntero, -1, TxtIFE.Text.Trim, TxtSeccion.Text.ToEntero, TxtDependientes.Text.ToEntero, DdlEvento.SelectedValue.ToEntero, TxtObservacionVerificacion.Text.Trim, DdlVerificado.SelectedValue.ToEntero, "", -1, -1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProspecto) Then

                UpDatos.Update()
                Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Prospectos/CatProspectosG15.aspx"";")
            End If
        End If

        ObjProspectos.Dispose()
    End Sub

    Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click

        Dim ObjProspectos As New ClsProspectos()
        If ObjProspectos.RemoveProspectos(CveProspecto) Then
            Alert("El Prospecto se Eliminó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Prospectos/CatProspectosG15.aspx""")
        End If
        ObjProspectos.Dispose()
    End Sub


    Protected Sub DdlPaises_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPaises.SelectedIndexChanged
        CargaEstados(DdlEstados, DdlPaises.SelectedValue.ToEntero)
        UPPEstados.Update()
        CargaMunicipios(DdlMunicipios, DdlEstados.SelectedValue.ToEntero)
        UPPMunicipios.Update()
    End Sub

    Protected Sub DdlEstados_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstados.SelectedIndexChanged
        CargaMunicipios(DdlMunicipios, DdlEstados.SelectedValue.ToEntero)
        UPPMunicipios.Update()
    End Sub

    Protected Sub DdlResponsable_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlResponsable.SelectedIndexChanged
        CargaCoordinadores(DdlPromotor, DdlResponsable.SelectedValue.ToEntero)

    End Sub



#Region "S O L I C I T U D E S"
    Private Sub CargarSolicitudesTipos()
        DdlSolicitudTipo.DataSource = GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa)
        DdlSolicitudTipo.DataBind()
    End Sub
    Private Sub CargarApoyosTipos()
        DdlApoyoTipo.DataSource = GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa)
        DdlApoyoTipo.DataBind()
    End Sub
    Private Sub CargarSolicitudesEstatus()
        DdlSolicitudEstatus.DataSource = GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa)
        DdlSolicitudEstatus.DataBind()
    End Sub
    Private Sub CargarSolicitudes(CveProspecto As Integer)
        Dim ObjSolicitudes As New ClsProspectos

        If CveProspecto > 0 Then
            If ObjSolicitudes.GetProspectosSolicitudes(CveProspecto, -1, -1, -1, UsuarioActual.CveEmpresa) Then
                GvSolicitudes.DataSource = ObjSolicitudes.DtResultados
            Else
                GvSolicitudes.DataSource = Nothing
            End If
        End If

        ObjSolicitudes.Dispose()
        GvSolicitudes.DataBind()
    End Sub
    Private Sub CargarSolicitudesApoyos()
        Dim ObjSolicitudesApoyos As New ClsProspectos

        If Request("CveProspectoSolicitud") IsNot Nothing AndAlso IsNumeric(Request("CveProspectoSolicitud")) AndAlso Request("CveProspectoSolicitud").ToEntero > 0 Then
            If ObjSolicitudesApoyos.GetProspectosSolicitudesApoyos(CveProspectoSolicitud, -1) Then
                GvApoyos.DataSource = ObjSolicitudesApoyos.DtResultados
            Else
                GvApoyos.DataSource = Nothing
            End If
        End If

        ObjSolicitudesApoyos.Dispose()
        GvApoyos.DataBind()
    End Sub
    Protected Sub CargaDatosProspectosSolicitudes()
        Dim ObjProspectosSolicitudes As New ClsProspectos

        If ObjProspectosSolicitudes.GetProspectosSolicitudes(CveProspecto, CveApoyoTipo, CveClasificacion, CveProspectoSolicitud, UsuarioActual.CveEmpresa) Then
            If ObjProspectosSolicitudes.DtResultados.Rows.Count > 0 Then
                TxtCanalizadorPor.Text = ObjProspectosSolicitudes.CanalizadorPor.ToString
                TxtEntregoSolicitud.Text = ObjProspectosSolicitudes.EntregoSolicitud.ToString
                TxtDescripcion.Text = ObjProspectosSolicitudes.Descripcion.ToString
                DdlSolicitudTipo.SelectedValue = ObjProspectosSolicitudes.CveSolicitudTipo.ToString
                DdlApoyoTipo.SelectedValue = ObjProspectosSolicitudes.CveApoyoTipo.ToString
                DdlClasificacion.SelectedValue = ObjProspectosSolicitudes.CveClasificacion.ToString
                DdlSolicitudEstatus.SelectedValue = ObjProspectosSolicitudes.CveSolicitudEstatus.ToString

                Tab.ActiveTabIndex = 3
            End If
        End If
        ObjProspectosSolicitudes.Dispose()

    End Sub
    Private Sub CargarProspectosApoyos()
        DdlProspectoApoyo.DataSource = GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa)
        DdlProspectoApoyo.DataBind()
    End Sub
#End Region
    Protected Sub BtnAgregarSolicitud_Click(sender As Object, e As EventArgs) Handles BtnAgregarSolicitud.Click


        If BtnAgregarSolicitud.Text = "Agregar Nueva" Then
            BorrarCampos()
            BtnAgregarSolicitud.Text = "Agregar"
            Exit Sub
        End If

        Dim ObjSolicitudes As New ClsProspectos
        If CveProspectoSolicitud = -1 And CveProspecto <> -1 Then
            If ObjSolicitudes.AddProspectosSolicitudes(CveProspecto, DdlApoyoTipo.SelectedValue.ToEntero, TxtCanalizadorPor.Text.Trim, TxtEntregoSolicitud.Text.Trim, TxtFechaSolicitud.Text.Trim.ToDate, TxtDescripcion.Text.Trim, "", DdlClasificacion.SelectedValue.ToEntero, DdlSolicitudTipo.SelectedValue.ToEntero, 9, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                ViewState("CveProspectoSolicitud") = ObjSolicitudes.CveProspectoSolicitud
                UpSolicitudes.Update()
                Alert("La Solicitud se guardó correctamente.", TipoMensaje.MsgInformacion)
                If ObjSolicitudes.GetProspectosSolicitudes(CveProspecto, -1, -1, -1, UsuarioActual.CveEmpresa) Then
                    GvSolicitudes.DataSource = ObjSolicitudes.DtResultados
                Else
                    GvSolicitudes.DataSource = Nothing
                End If
                GvSolicitudes.DataBind()
            End If

        Else
            GvSolicitudes.DataSource = Nothing
            Alert("Debe Guardar el prospecto o seleccionarlo de la lista.", TipoMensaje.MsgAdvertencia)
            'If ObjSolicitudes.UpdateProspectosSolicitudes(CveProspecto, TxtCanalizadorPor.Text.Trim, TxtEntregoSolicitud.Text.Trim, TxtFechaSolicitud.Text.Trim.ToDate, TxtDescripcion.Text.Trim, TxtObservaciones.Text, DdlSolicitudTipo.SelectedValue.ToEntero, DdlSolicitudEstatus.SelectedValue.ToEntero, CveProspectoSolicitud) Then
            '    UpSolicitudes.Update()
            '    Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
            '    If ObjSolicitudes.GetProspectosSolicitudes(CveProspecto, -1, -1, -1, UsuarioActual.CveEmpresa) Then
            '        GvSolicitudes.DataSource = ObjSolicitudes.DtResultados
            '    Else
            '        GvSolicitudes.DataSource = Nothing
            '    End If
            '    GvSolicitudes.DataBind()
            'End If
        End If
        BorrarCampos()
        ObjSolicitudes.Dispose()
    End Sub
    Protected Sub BtnAgregarRespuesta_Click(sender As Object, e As EventArgs) Handles BtnAgregarRespuesta.Click
        Dim ObjSolicitudes As New ClsProspectos
        If CveProspectoSolicitud <> -1 And CveProspecto <> -1 Then


            If ObjSolicitudes.UpdateProspectosSolicitudesRespuesta(TxtObservaciones.Text, DdlSolicitudEstatus.SelectedValue.ToEntero, CveProspectoSolicitud) Then
                UpSolicitudes.Update()
                Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
                If ObjSolicitudes.GetProspectosSolicitudes(CveProspecto, -1, -1, -1, UsuarioActual.CveEmpresa) Then
                    GvSolicitudes.DataSource = ObjSolicitudes.DtResultados
                Else
                    GvSolicitudes.DataSource = Nothing
                End If
                GvSolicitudes.DataBind()
            End If
        End If
        BorrarCampos()
        ObjSolicitudes.Dispose()
    End Sub

    'Protected Sub BtnNuevaSolicitud_Click(sender As Object, e As EventArgs) Handles BtnNuevaSolicitud.Click
    '    If CveProspectoSolicitud > -1 Then
    '        ViewState("CveProspectoSolicitud") = -1
    '        Response.Redirect("/Prospectos/Solicitudes/CatProspectosSolicitudes.aspx?CveProspecto=" & CveProspecto & "")
    '        Tab.TabIndex = 3
    '    End If
    'End Sub
    Private Sub BorrarCampos()
        TxtCanalizadorPor.Text = ""
        DdlApoyoTipo.SelectedValue = "19"
        TxtDescripcion.Text = ""
        TxtEntregoSolicitud.Text = ""
        TxtFechaSolicitud.Text = ""
        DdlSolicitudEstatus.SelectedIndex = -1
        TxtObservaciones.Text = ""
        DdlSolicitudTipo.SelectedIndex = -1
        DdlSolicitudEstatus.SelectedValue = "6"
    End Sub
    Protected Sub GvSolicitudes_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvSolicitudes.RowCommand
        Dim ObjProsp As New ClsProspectos
        If e.CommandName = "Carga" Then
            If ObjProsp.GetProspectosSolicitudes(-1, -1, -1, e.CommandArgument.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
                ViewState("CveProspectoSolicitud") = e.CommandArgument.ToString.ToEntero
                TxtCanalizadorPor.Text = ObjProsp.CanalizadorPor
                TxtEntregoSolicitud.Text = ObjProsp.EntregoSolicitud
                TxtFechaSolicitud.Text = ObjProsp.FechaSolicitud.ToString
                TxtDescripcion.Text = ObjProsp.Descripcion
                TxtObservaciones.Text = ObjProsp.Observaciones
                DdlSolicitudTipo.SelectedValue = ObjProsp.CveSolicitudTipo.ToString
                DdlClasificacion.SelectedValue = ObjProsp.CveClasificacion.ToString
                DdlApoyoTipo.SelectedValue = ObjProsp.CveApoyoTipo.ToString
                DdlSolicitudEstatus.SelectedValue = ObjProsp.CveSolicitudEstatus.ToString
                BtnAgregarSolicitud.Text = "Agregar Nueva"
                'ViewState("CveProspectoSolicitud") = -1

                UpAgregarSolicitud.Update()

                RegistraScript("$find('CPESolicitud').expandPanel();")
            End If
            PnlApoyos.Visible = False

        Else

        End If
        If e.CommandName = "CargaApoyoSolicitud" Then
            Dim Gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, ImageButton).BindingContainer, GridViewRow)
            GvSolicitudes.SelectedIndex = Gvr.RowIndex
            ViewState("CveProspectoSolicitud") = e.CommandArgument.ToString.ToEntero
            If ObjProsp.GetProspectosSolicitudesApoyos(e.CommandArgument.ToString.ToEntero, -1) Then
                TxtCantidad.Text = ""
                'TxtImporte.Text = ""
                PnlApoyos.Visible = True
                UppApoyos.Update()
                LblTituloApoyo.Text = Gvr.FCLinkButton("LnkSolicitud").Text
                GvApoyos.DataSource = ObjProsp.DtResultados
                GvApoyos.DataBind()
            End If

            ObjProsp.Dispose()
        End If
    End Sub

    Protected Sub LnkApoyoAgregar_Click(sender As Object, e As EventArgs) Handles LnkApoyoAgregar.Click

        Dim ObjApoyo As New ClsProspectos

        If ObjApoyo.AddProspectosSolicitudesApoyos(CveProspectoSolicitud, DdlProspectoApoyo.SelectedValue.ToEntero, TxtCantidad.Text.ToDouble, 0, 1) Then

            GvApoyos.DataSource = ObjApoyo.DtResultados
            GvApoyos.DataBind()
            Alert("Apoyo Agregado", TipoMensaje.MsgInformacion)
        End If

        ObjApoyo.Dispose()
    End Sub

    Protected Sub GvSolicitudes_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvSolicitudes.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            If e.Row.RowIndex = 0 Then
                e.Row.Cells(0).Width = Unit.Pixel(65)
                e.Row.Cells(1).Width = Unit.Pixel(300)
                e.Row.Cells(2).Width = Unit.Pixel(100)
                e.Row.Cells(3).Width = Unit.Pixel(80)
                e.Row.Cells(4).Width = Unit.Pixel(50)
            End If

            If e.Row.DBCampo("Apoyos").ToEntero > 0 Then
                'e.Row.FCImageButton("ImgFlag").ImageUrl = "/Imagenes/flag_green.png"
                e.Row.FCImageButton("ImgFlag").ToolTip = String.Format("Apoyos:{0}", e.Row.DBCampo("Apoyos"))
            End If

        End If
    End Sub

    Protected Sub GvApoyos_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvApoyos.RowDeleting

        Dim ObjApoyo As New ClsProspectos

        If ObjApoyo.RemoveProspectosSolicitudesApoyos(e.Keys("CveProspectoSolicitudApoyo").ToString.ToEntero) Then

            GvApoyos.DataSource = ObjApoyo.DtResultados
            GvApoyos.DataBind()
            Alert("Apoyo Eliminado", TipoMensaje.MsgInformacion)
        End If

        ObjApoyo.Dispose()
    End Sub

End Class