32 lines
888 B
VB.net
32 lines
888 B
VB.net
|
|
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
|