652 lines
27 KiB
VB.net
652 lines
27 KiB
VB.net
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
|