18 lines
776 B
VB.net
18 lines
776 B
VB.net
|
Public Class frmclientes
|
||
|
|
|
||
|
|
Private Sub BTCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTCerrar.Click
|
||
|
|
Me.Close()
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Private Sub frmclientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||
|
|
Dim SQL As String
|
||
|
|
Dim clCmp As New clsComplejo
|
||
|
|
|
||
|
|
SQL = "SELECT idcliente as 'NUMERO DE CLIENTE',NIC 'NUMERO SOCIO' ,rtrim(ltrim(clientenom)) + ' ' + ltrim(rtrim(isnull(apaterno,''))) + ' ' + ltrim(rtrim(isnull(amaterno,''))) 'NOMBRE' "
|
||
|
|
SQL = SQL & " FROM cliente WHERE idcliente NOT IN (SELECT idcliente FROM kyc_datosgenerales)"
|
||
|
|
|
||
|
|
clCmp.fdtDataSetTabla(SQL)
|
||
|
|
Me.GRDClientes.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
End Class
|