Commit inicial Ventas Productivo

Prospectos/BuscadorBD.aspx.vb

@@ -0,0 +1,31 @@
+
+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