63 lines
1.9 KiB
VB.net
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 |