client/Busquedas/FrmBuscaListas.vb

63 lines
1.9 KiB
VB.net

Public Class FrmBuscaListas
Dim _lsNombre As String
Dim _lsApat As String
Dim _lsAmater As String
Dim _lsopen As String
Dim cliente As String
Dim refban As New DataTable
Public Sub New(ByVal nombre As String)
' Llamada necesaria para el diseñador.
InitializeComponent()
' Agregue cualquier inicialización después de la llamada a InitializeComponent().
_lsNombre = nombre
Me.Text = "Busqueda de Clientes por Nombre"
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
cliente = ""
'LLENA GRID
SQL = "spBuscaClientePorNombre '" & _lsNombre & "'"
ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
If ClassCatalogos.Classcom.ds.Tables(0).Rows.Count = 0 Then
Me.Text = 0
End If
' Me.Text = 1
' Busca datos de Ref ban. y comer del cliente
'If coneccion.consulta_listas(_lsNombre, _lsApat, _lsAmater) Then
' ' carga Grid
' refban = coneccion.lee_Listas
' DGRefBan.DataSource = refban
' If refban.Rows.Count = 0 Then
' Me.Text = 0
' End If
'End If
End Sub
Private Sub FrmBuscaListas_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub BtnCerrar_Click(sender As System.Object, e As System.EventArgs) Handles BtnCerrar.Click
Me.Close()
End Sub
Private Sub GridMaster_Click(sender As System.Object, e As System.EventArgs) Handles GridMaster.Click
End Sub
Private Sub GridMaster_DoubleClick(sender As Object, e As System.EventArgs) Handles GridMaster.DoubleClick
clsVaribles.lsClienteNombre = Me.GridMaster.Columns("CLAVE").Value
clsVaribles.lsClienteNombreT = Me.GridMaster.Columns("nombre").Value
Me.Close()
End Sub
End Class