client/FrmCartas.vb

652 lines
27 KiB
VB.net
Raw Normal View History

Public Class FrmCartas
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents BTCerrar As System.Windows.Forms.Button
Friend WithEvents GrdBusqueda As System.Windows.Forms.DataGrid
Friend WithEvents BTOtros As System.Windows.Forms.Button
Friend WithEvents BTAutorizacion2 As System.Windows.Forms.Button
Friend WithEvents BTBajas As System.Windows.Forms.Button
Friend WithEvents ChkClientes As System.Windows.Forms.CheckedListBox
Friend WithEvents BTSel As System.Windows.Forms.Button
Friend WithEvents BTGen As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.BTSel = New System.Windows.Forms.Button()
Me.ChkClientes = New System.Windows.Forms.CheckedListBox()
Me.BTGen = New System.Windows.Forms.Button()
Me.BTCerrar = New System.Windows.Forms.Button()
Me.GrdBusqueda = New System.Windows.Forms.DataGrid()
Me.BTOtros = New System.Windows.Forms.Button()
Me.BTAutorizacion2 = New System.Windows.Forms.Button()
Me.BTBajas = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Panel1.SuspendLayout()
CType(Me.GrdBusqueda, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel1.Controls.Add(Me.BTSel)
Me.Panel1.Controls.Add(Me.ChkClientes)
Me.Panel1.Controls.Add(Me.BTGen)
Me.Panel1.Controls.Add(Me.BTCerrar)
Me.Panel1.Controls.Add(Me.GrdBusqueda)
Me.Panel1.Controls.Add(Me.BTOtros)
Me.Panel1.Controls.Add(Me.BTAutorizacion2)
Me.Panel1.Controls.Add(Me.BTBajas)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Location = New System.Drawing.Point(8, 8)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(728, 448)
Me.Panel1.TabIndex = 0
'
'BTSel
'
Me.BTSel.BackColor = System.Drawing.Color.MidnightBlue
Me.BTSel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BTSel.ForeColor = System.Drawing.Color.White
Me.BTSel.Location = New System.Drawing.Point(359, 416)
Me.BTSel.Name = "BTSel"
Me.BTSel.Size = New System.Drawing.Size(131, 24)
Me.BTSel.TabIndex = 36
Me.BTSel.Text = "Seleccionar Todo"
Me.BTSel.UseVisualStyleBackColor = False
'
'ChkClientes
'
Me.ChkClientes.ForeColor = System.Drawing.Color.MidnightBlue
Me.ChkClientes.FormattingEnabled = True
Me.ChkClientes.Location = New System.Drawing.Point(29, 148)
Me.ChkClientes.Name = "ChkClientes"
Me.ChkClientes.Size = New System.Drawing.Size(676, 259)
Me.ChkClientes.TabIndex = 35
'
'BTGen
'
Me.BTGen.BackColor = System.Drawing.Color.MidnightBlue
Me.BTGen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BTGen.ForeColor = System.Drawing.Color.White
Me.BTGen.Location = New System.Drawing.Point(496, 416)
Me.BTGen.Name = "BTGen"
Me.BTGen.Size = New System.Drawing.Size(104, 24)
Me.BTGen.TabIndex = 34
Me.BTGen.Text = "Generar"
Me.BTGen.UseVisualStyleBackColor = False
'
'BTCerrar
'
Me.BTCerrar.BackColor = System.Drawing.Color.MidnightBlue
Me.BTCerrar.ForeColor = System.Drawing.Color.White
Me.BTCerrar.Location = New System.Drawing.Point(616, 416)
Me.BTCerrar.Name = "BTCerrar"
Me.BTCerrar.Size = New System.Drawing.Size(96, 24)
Me.BTCerrar.TabIndex = 33
Me.BTCerrar.Text = "Cerrar"
Me.BTCerrar.UseVisualStyleBackColor = False
'
'GrdBusqueda
'
Me.GrdBusqueda.BackColor = System.Drawing.Color.AliceBlue
Me.GrdBusqueda.BackgroundColor = System.Drawing.Color.White
Me.GrdBusqueda.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.GrdBusqueda.CaptionText = "Resultados"
Me.GrdBusqueda.DataMember = ""
Me.GrdBusqueda.FlatMode = True
Me.GrdBusqueda.HeaderBackColor = System.Drawing.Color.WhiteSmoke
Me.GrdBusqueda.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.GrdBusqueda.Location = New System.Drawing.Point(20, 91)
Me.GrdBusqueda.Name = "GrdBusqueda"
Me.GrdBusqueda.PreferredColumnWidth = 200
Me.GrdBusqueda.PreferredRowHeight = 8
Me.GrdBusqueda.ReadOnly = True
Me.GrdBusqueda.Size = New System.Drawing.Size(696, 43)
Me.GrdBusqueda.TabIndex = 32
Me.GrdBusqueda.Visible = False
'
'BTOtros
'
Me.BTOtros.BackColor = System.Drawing.Color.MidnightBlue
Me.BTOtros.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BTOtros.ForeColor = System.Drawing.Color.White
Me.BTOtros.Location = New System.Drawing.Point(408, 112)
Me.BTOtros.Name = "BTOtros"
Me.BTOtros.Size = New System.Drawing.Size(104, 24)
Me.BTOtros.TabIndex = 31
Me.BTOtros.Text = "Otros Estatus"
Me.BTOtros.UseVisualStyleBackColor = False
Me.BTOtros.Visible = False
'
'BTAutorizacion2
'
Me.BTAutorizacion2.BackColor = System.Drawing.Color.MidnightBlue
Me.BTAutorizacion2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BTAutorizacion2.ForeColor = System.Drawing.Color.White
Me.BTAutorizacion2.Location = New System.Drawing.Point(288, 112)
Me.BTAutorizacion2.Name = "BTAutorizacion2"
Me.BTAutorizacion2.Size = New System.Drawing.Size(104, 24)
Me.BTAutorizacion2.TabIndex = 30
Me.BTAutorizacion2.Text = "Autorizacion"
Me.BTAutorizacion2.UseVisualStyleBackColor = False
Me.BTAutorizacion2.Visible = False
'
'BTBajas
'
Me.BTBajas.BackColor = System.Drawing.Color.MidnightBlue
Me.BTBajas.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BTBajas.ForeColor = System.Drawing.Color.White
Me.BTBajas.Location = New System.Drawing.Point(168, 112)
Me.BTBajas.Name = "BTBajas"
Me.BTBajas.Size = New System.Drawing.Size(104, 24)
Me.BTBajas.TabIndex = 29
Me.BTBajas.Text = "Bajas"
Me.BTBajas.UseVisualStyleBackColor = False
Me.BTBajas.Visible = False
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.White
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label1.Location = New System.Drawing.Point(168, 88)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(352, 16)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Selecciones el Estatus de los Clientes que desea ver:"
Me.Label1.Visible = False
'
'Label2
'
Me.Label2.BackColor = System.Drawing.Color.White
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label2.Location = New System.Drawing.Point(8, 8)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(712, 61)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Generacion de Cartas para Verificacion de Expedientes"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'FrmCartas
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(744, 469)
Me.Controls.Add(Me.Panel1)
Me.Name = "FrmCartas"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Panel1.ResumeLayout(False)
CType(Me.GrdBusqueda, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub BTCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTAutorizacion2.Click
Dim ClassCom As New clsComplejo
Dim strBusqueda As String
Dim SQLSuma As String
Dim VarTipoPersona As Long
Dim VarSumaDoc As Long
Dim Fila As DataRow
'autorizacion 2
strBusqueda = "SELECT x.idcliente,x.clientenom as Nombre,x.apaterno as 'A. Paterno', x.amaterno as 'A. Materno',x.domicilio as Calle ,"
strBusqueda = strBusqueda & " x.colonia as Colonia,"
strBusqueda = strBusqueda & " a.cp as CP,p.nombreplaza as Plaza,e.nombreestado as Estado,x.idcliente,x.tipopersona "
strBusqueda = strBusqueda & " FROM cliente x ,kyc_datosgenerales a, plaza p, estado e"
strBusqueda = strBusqueda & " WHERE isnull(x.id_plaza,0) = p.id_plaza AND a.id_estado = e.id_estado "
strBusqueda = strBusqueda & " AND a.idcliente = x.idcliente "
strBusqueda = strBusqueda & " AND a.id_estatusKYC = 6 "
strBusqueda = strBusqueda & " order by X.clientenom "
'strBusqueda = "SELECT cli.idcliente as 'Numero de Cliente',cli.clientenom as Nombre,cli.apaterno as 'Apellido Paterno',cli.amaterno as 'Apellido Materno'"
'strBusqueda = strBusqueda & " FROM CLIENTE cli,kyc_datosgenerales dat"
'strBusqueda = strBusqueda & " WHERE dat.id_estatusKYC = 10 "
'strBusqueda = strBusqueda & " AND dat.idcliente = cli.idcliente"
'strBusqueda = strBusqueda & " ORDER BY cli.CLIENTENOM"
ClassCom = New clsComplejo
ClassCom.fdtDataSetTabla(strBusqueda)
If ClassCom.ds.Tables(0).Rows.Count <> 0 Then
GrdBusqueda.DataSource = Nothing
GrdBusqueda.SetDataBinding(ClassCom.ds, "Tabla")
End If
End Sub
Private Sub BTCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTCerrar.Click
Me.Close()
End Sub
Private Sub BTActuaizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTBajas.Click
Dim ClassCom As New clsComplejo
Dim strBusqueda As String
Dim SQLSuma As String
Dim VarTipoPersona As Long
Dim VarSumaDoc As Long
Dim Fila As DataRow
'BAJA
strBusqueda = "SELECT x.idcliente,x.clientenom as Nombre,x.apaterno as 'A. Paterno', x.amaterno as 'A. Materno',x.domicilio as Calle ,"
strBusqueda = strBusqueda & " x.colonia as Colonia,"
strBusqueda = strBusqueda & " a.cp as CP,p.nombreplaza as Plaza,e.nombreestado as Estado,x.idcliente,x.tipopersona "
strBusqueda = strBusqueda & " FROM cliente x ,kyc_datosgenerales a, plaza p, estado e"
strBusqueda = strBusqueda & " WHERE isnull(x.id_plaza,0) = p.id_plaza AND a.id_estado = e.id_estado "
strBusqueda = strBusqueda & " AND a.idcliente = x.idcliente "
strBusqueda = strBusqueda & " AND a.id_estatusKYC = 7 "
strBusqueda = strBusqueda & " order by X.clientenom "
'strBusqueda = "SELECT cli.idcliente as 'Numero de Cliente',cli.clientenom as Nombre,cli.apaterno as 'Apellido Paterno',cli.amaterno as 'Apellido Materno'"
'strBusqueda = strBusqueda & " FROM CLIENTE cli,kyc_datosgenerales dat"
'strBusqueda = strBusqueda & " WHERE dat.id_estatusKYC = 7 "
'strBusqueda = strBusqueda & " AND dat.idcliente = cli.idcliente"
'strBusqueda = strBusqueda & " ORDER BY cli.CLIENTENOM"
ClassCom = New clsComplejo
ClassCom.fdtDataSetTabla(strBusqueda)
If ClassCom.ds.Tables(0).Rows.Count <> 0 Then
GrdBusqueda.DataSource = Nothing
GrdBusqueda.SetDataBinding(ClassCom.ds, "Tabla")
Else
GrdBusqueda.DataSource = Nothing
End If
End Sub
Private Sub BTActuaizar_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTBajas.MouseLeave
Dim Etiqueta As Button
Etiqueta = sender
Etiqueta.BackColor = System.Drawing.Color.MidnightBlue
End Sub
Private Sub BTCancelar_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTAutorizacion2.MouseLeave
Dim Etiqueta As Button
Etiqueta = sender
Etiqueta.BackColor = System.Drawing.Color.MidnightBlue
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTOtros.Click
Dim ClassCom As New clsComplejo
Dim strBusqueda As String
Dim SQLSuma As String
Dim VarTipoPersona As Long
Dim VarSumaDoc As Long
Dim Fila As DataRow
'otros
strBusqueda = "SELECT x.idcliente,x.clientenom as Nombre,x.apaterno as 'A. Paterno', x.amaterno as 'A. Materno',x.domicilio as Calle ,"
strBusqueda = strBusqueda & " x.colonia as Colonia,"
strBusqueda = strBusqueda & " a.cp as CP,p.nombreplaza as Plaza,e.nombreestado as Estado,x.idcliente,x.tipopersona "
strBusqueda = strBusqueda & " FROM cliente x ,kyc_datosgenerales a, plaza p, estado e"
strBusqueda = strBusqueda & " WHERE isnull(x.id_plaza,0) = p.id_plaza AND a.id_estado = e.id_estado "
strBusqueda = strBusqueda & " AND a.idcliente = x.idcliente "
strBusqueda = strBusqueda & " AND a.id_estatusKYC <> 6 and a.id_estatusKYC <> 7 "
strBusqueda = strBusqueda & " order by X.clientenom "
'strBusqueda = "SELECT cli.idcliente as 'Numero de Cliente',cli.clientenom as Nombre,cli.apaterno as 'Apellido Paterno',cli.amaterno as 'Apellido Materno'"
'strBusqueda = strBusqueda & " FROM CLIENTE cli,kyc_datosgenerales dat"
'strBusqueda = strBusqueda & " WHERE dat.id_estatusKYC <> 7 and dat.id_estatusKYC <> 10 "
'strBusqueda = strBusqueda & " AND dat.idcliente = cli.idcliente"
'strBusqueda = strBusqueda & " ORDER BY cli.CLIENTENOM"
ClassCom = New clsComplejo
ClassCom.fdtDataSetTabla(strBusqueda)
If ClassCom.ds.Tables(0).Rows.Count <> 0 Then
GrdBusqueda.DataSource = Nothing
GrdBusqueda.SetDataBinding(ClassCom.ds, "Tabla")
End If
End Sub
Private Sub Button1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTOtros.MouseLeave
Dim Etiqueta As Button
Etiqueta = sender
Etiqueta.BackColor = System.Drawing.Color.MidnightBlue
End Sub
Private Sub BTCerrar_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTCerrar.MouseLeave
Dim Etiqueta As Button
Etiqueta = sender
Etiqueta.BackColor = System.Drawing.Color.MidnightBlue
End Sub
Private Sub BTBajas_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BTBajas.MouseMove
Dim Etiqueta As Button
Etiqueta = sender
Etiqueta.BackColor = System.Drawing.Color.Blue
End Sub
Private Sub BTAutorizacion2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BTAutorizacion2.MouseMove
Dim Etiqueta As Button
Etiqueta = sender
Etiqueta.BackColor = System.Drawing.Color.Blue
End Sub
Private Sub BTOtros_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BTOtros.MouseMove
Dim Etiqueta As Button
Etiqueta = sender
Etiqueta.BackColor = System.Drawing.Color.Blue
End Sub
Private Sub BTCerrar_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BTCerrar.MouseMove
Dim Etiqueta As Button
Etiqueta = sender
Etiqueta.BackColor = System.Drawing.Color.Blue
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTGen.Click
' Dim ClassCom As clsComplejo
' Dim fechacomodin As String
' Dim fechacomodin1 As String
' Dim fechacomodin2 As String
' Dim NombreArchivo As String
' Dim FechaDia As String
' Dim FechaMes As String
' Dim FechaAno As String
' Dim Rp As Word.WdReplace
' Dim Wp As Word.WdFindWrap
' Dim NomCliente As String
' Dim i As Long
' Dim varClientes As Object
' Dim VarIDCliente As Long
' Dim VarDireccion As String
' Dim FileOutPut As String
' Dim varComodin As Object
' Dim varComodin2 As Object
' Dim strMes As String
' Dim Tiempo1 As Object
' Dim Tiempo2 As Object
' Dim TSpan As TimeSpan
' Dim DTInicio As DateTime
' Dim DtFinal As DateTime
' Dim lngVarConttador As Long
' FileOutPut = ""
' Dim ObjWord As Word.Application
' Try
' ClassCom = New clsComplejo
' varComodin2 = ClassCom.BuscaValores("rutadestino", "paramcartas", "")
' If IsDBNull(varComodin2) Then
' varComodin2 = ""
' End If
' If varComodin2 = "" Then
' MsgBox("No se ha Configurado la ruta Destino para los Documentos")
' Exit Sub
' End If
' 'For i As Integer = 0 To Lst0Importa.CheckedIndices.Count - 1
' ' SQLinsert = "INSERT INTO KYC_PaisImpExp (idcliente,id_pais,impexp) "
' ' SQLinsert = SQLinsert & " VALUES ( " & ClsVariables.VarIdCliente & "," & Lst0Importa.CheckedIndices(i) & "," & "2)"
' ' ClassCom.sbInserta(SQLinsert)
' 'Next
' ClassCom = New clsComplejo
' For i = 0 To ChkClientes.CheckedItems.Count - 1
' My.Application.DoEvents()
' ChkClientes.SelectedItem = i
' VarIDCliente = ClassCom.BuscaValores("idcliente", "CLIENTE", "CLIENTENOM = '" & ChkClientes.CheckedItems(i).ToString & "'")
' ClassCom = New clsComplejo
' If clsVaribles.TipoPersona = 2 Then
' NombreArchivo = CurDir() & "\" & "Prueba Carta Nueva Funcionalidad.doc"
' Else
' NombreArchivo = CurDir() & "\" & "Prueba Carta Nueva Funcionalidad.doc"
' End If
' ClassCom = New clsComplejo
' ObjWord = New Word.Application
' If ObjWord Is Nothing Then
' ObjWord = CreateObject("word.application")
' Else
' ObjWord = GetObject(, "word.application")
' End If
' ObjWord.Documents.Open(NombreArchivo, ReadOnly:=True)
' ObjWord.Selection.Find.ClearFormatting()
' ObjWord.Selection.Find.Replacement.ClearFormatting()
' ClassCom = New clsComplejo
' 'NOMBRE DEL CLIENTE
' varClientes = ""
' varClientes = ClassCom.BuscaValores("clientenom", "cliente", "idcliente = " & VarIDCliente)
' If IsDBNull(varClientes) Then
' varClientes = ""
' End If
' ClassCom.ReemplazaTexto(ObjWord, "<Nombre del Cliente>", varClientes)
' 'DIRECCION
' VarDireccion = ""
' VarDireccion = ClassCom.BuscaValores("isnull(domicilio,'') + ' ' + 'COLONIA ' + isnull(colonia,'')", "cliente", "idcliente = '" & VarIDCliente & "'")
' ClassCom.ReemplazaTexto(ObjWord, "<Direcci<63>n>", VarDireccion)
' 'DIA
' ClassCom.ReemplazaTexto(ObjWord, "<dia>", Microsoft.VisualBasic.Day(Now()))
' 'MES
' strMes = Microsoft.VisualBasic.MonthName(Microsoft.VisualBasic.Month(Now()), False)
' strMes = UCase(Mid(strMes, 1, 1)) & Mid(strMes, 2, Len(strMes))
' ClassCom.ReemplazaTexto(ObjWord, "<mes>", strMes)
' 'ANO
' ClassCom.ReemplazaTexto(ObjWord, "<ano>", Microsoft.VisualBasic.Year(Now()))
' ClassCom = New clsComplejo
' varComodin = ClassCom.BuscaValores("nic", "cuenta", "idcliente = " & VarIDCliente)
' If IsDBNull(varComodin) Then varComodin = ""
' FileOutPut = varComodin2 & "\ReqRef" & varComodin & ".doc"
' ObjWord.ActiveDocument.SaveAs(FileName:=FileOutPut)
' ObjWord.Documents.Close()
' ObjWord.Application.Quit()
' DTInicio = DateTime.Parse(Now())
'sig:
' DtFinal = DateTime.Parse(Now())
' lngVarConttador = DTInicio.Subtract(DtFinal).Duration.Seconds
' If lngVarConttador >= 5 Then
' Else
' GoTo sig
' End If
' Next
' MsgBox("Proceso Terminado")
' Catch ex As Exception
' MessageBox.Show("error en ClsComplejo; sbLlenaLista: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
' If Not ObjWord Is Nothing Then
' 'ObjWord.Documents.Close()
' ObjWord.Application.Quit()
' ObjWord = Nothing
' Exit Sub
' End If
' End Try
End Sub
Private Sub GrdBusqueda_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles GrdBusqueda.Navigate
End Sub
Private Sub GrdBusqueda_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles GrdBusqueda.Click
Dim Classcom As New clsComplejo
Try
clsVaribles.IDCliente = GrdBusqueda.Item(GrdBusqueda.CurrentRowIndex, 0)
clsVaribles.TipoPersona = Classcom.BuscaValores("tipopersona", "cliente", "idcliente = " & clsVaribles.IDCliente)
Catch ex As Exception
End Try
End Sub
Private Sub GrdBusqueda_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles GrdBusqueda.Move
If GrdBusqueda.DataSource <> Nothing Then
clsVaribles.IDCliente = GrdBusqueda.Item(GrdBusqueda.CurrentRowIndex, 0)
End If
End Sub
Private Sub FrmCartas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ClassCom As New clsComplejo
Dim strBusqueda As String
Dim SQLSuma As String
Dim VarTipoPersona As Long
Dim VarSumaDoc As Long
Dim Fila As DataRow
'autorizacion 2
'x.idcliente,
Try
If clsVaribles.lngFiltroIDCliente <> 0 Then
If clsVaribles.strSQL <> "" Then
ClassCom.LLenaCheckLisESP(ChkClientes, clsVaribles.strSQL, False, 1)
Else
strBusqueda = "SELECT x.clientenom as Nombre"
strBusqueda = strBusqueda & " FROM cliente x ,kyc_datosgenerales a,cuenta ct"
strBusqueda = strBusqueda & " WHERE a.idcliente = x.idcliente "
strBusqueda = strBusqueda & " and a.idcliente = ct.idcliente "
strBusqueda = strBusqueda & " and ct.no_cuenta = '" & clsVaribles.lngFiltroIDCliente & "'"
strBusqueda = strBusqueda & " order by X.clientenom "
End If
Else
strBusqueda = "SELECT x.clientenom as Nombre"
strBusqueda = strBusqueda & " FROM cliente x ,kyc_datosgenerales a"
strBusqueda = strBusqueda & " WHERE a.idcliente = x.idcliente "
strBusqueda = strBusqueda & " order by X.clientenom "
End If
If strBusqueda <> "" Then
ClassCom = New clsComplejo
ClassCom.fdtDataSet(strBusqueda)
If ClassCom.ds.Tables(0).Rows.Count <> 0 Then
'GrdBusqueda.DataSource = Nothing
'GrdBusqueda.SetDataBinding(ClassCom.ds, "Tabla")
ClassCom.LLenaCheckLis(ChkClientes, strBusqueda, False)
End If
End If
Catch ex As Exception
End Try
End Sub
Private Sub BTSel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTSel.Click
For i As Integer = 0 To ChkClientes.Items.Count - 1
ChkClientes.SetItemChecked(i, True)
Next
End Sub
Private Sub ChkClientes_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class