client/frmclientes.vb

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