Partial Class Prospectos_BuscadorBD
    Inherits ClsPaginas


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

            Me.Form.DefaultButton = BtnBusqueda.UniqueID
            TxtBusqueda.Focus()

        End If
    End Sub

    Protected Sub BtnBusqueda_Click(sender As Object, e As EventArgs) Handles BtnBusqueda.Click
        Dim Prosp As New ClsProspectos

        Dim Busqueda As String = TxtBusqueda.Text.Trim.ToUpper
        Busqueda = String.Format("%{0}%", Busqueda)
        Dim FNac As String = "-1"
        If TxtFNacimiento.Text <> "" Then FNac = TxtFNacimiento.Text

        If Prosp.GetProspectosBusqueda("-1", "-1", "-1", Busqueda, FNac, -1, -1, -1, -1) Then
            GvBusq.DataSource = Prosp.DtResultados
        End If

        Prosp.Dispose()
        GvBusq.DataBind()
    End Sub

End Class