Public Class FrmDoctosCh 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 LBLCliente As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents LBLCuenta As System.Windows.Forms.Label Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents BTCerrar As System.Windows.Forms.Button Friend WithEvents BTApo As System.Windows.Forms.Button Friend WithEvents Panel4 As System.Windows.Forms.Panel Friend WithEvents BTCancelar As System.Windows.Forms.Button Friend WithEvents BTActuaizar As System.Windows.Forms.Button Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Panel3 As System.Windows.Forms.Panel Friend WithEvents RDBCopia As System.Windows.Forms.RadioButton Friend WithEvents Panel2 As System.Windows.Forms.Panel Friend WithEvents LSTDoctos As System.Windows.Forms.CheckedListBox Friend WithEvents TXTProrroga As System.Windows.Forms.TextBox Friend WithEvents RDBOriginal As System.Windows.Forms.RadioButton Friend WithEvents RDBExento As System.Windows.Forms.RadioButton Friend WithEvents RDBvigente As System.Windows.Forms.RadioButton Friend WithEvents Panel5 As System.Windows.Forms.Panel Friend WithEvents BTFecha As System.Windows.Forms.Button Friend WithEvents TXT0FechaId As System.Windows.Forms.TextBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents DTPfecha_vigencia As System.Windows.Forms.DateTimePicker Private Sub InitializeComponent() Me.LBLCliente = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.LBLCuenta = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() Me.LSTDoctos = New System.Windows.Forms.CheckedListBox() Me.BTCerrar = New System.Windows.Forms.Button() Me.BTApo = New System.Windows.Forms.Button() Me.Panel4 = New System.Windows.Forms.Panel() Me.Panel5 = New System.Windows.Forms.Panel() Me.BTFecha = New System.Windows.Forms.Button() Me.TXT0FechaId = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() Me.BTCancelar = New System.Windows.Forms.Button() Me.BTActuaizar = New System.Windows.Forms.Button() Me.TXTProrroga = New System.Windows.Forms.TextBox() Me.Label3 = New System.Windows.Forms.Label() Me.Panel3 = New System.Windows.Forms.Panel() Me.RDBCopia = New System.Windows.Forms.RadioButton() Me.RDBOriginal = New System.Windows.Forms.RadioButton() Me.Panel2 = New System.Windows.Forms.Panel() Me.RDBExento = New System.Windows.Forms.RadioButton() Me.RDBvigente = New System.Windows.Forms.RadioButton() Me.DTPfecha_vigencia = New System.Windows.Forms.DateTimePicker() Me.Label4 = New System.Windows.Forms.Label() Me.Panel1.SuspendLayout() Me.Panel4.SuspendLayout() Me.Panel5.SuspendLayout() Me.Panel3.SuspendLayout() Me.Panel2.SuspendLayout() Me.SuspendLayout() ' 'LBLCliente ' Me.LBLCliente.BackColor = System.Drawing.Color.White Me.LBLCliente.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LBLCliente.ForeColor = System.Drawing.Color.MidnightBlue Me.LBLCliente.Location = New System.Drawing.Point(0, 0) Me.LBLCliente.Name = "LBLCliente" Me.LBLCliente.Size = New System.Drawing.Size(424, 24) Me.LBLCliente.TabIndex = 2 Me.LBLCliente.Text = "CLIENTE" Me.LBLCliente.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'Label1 ' Me.Label1.BackColor = System.Drawing.Color.White Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, 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(424, 0) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(136, 24) Me.Label1.TabIndex = 3 Me.Label1.Text = "Numero de Cuenta" Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'LBLCuenta ' Me.LBLCuenta.BackColor = System.Drawing.Color.White Me.LBLCuenta.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LBLCuenta.ForeColor = System.Drawing.Color.MidnightBlue Me.LBLCuenta.Location = New System.Drawing.Point(556, 0) Me.LBLCuenta.Name = "LBLCuenta" Me.LBLCuenta.Size = New System.Drawing.Size(151, 24) Me.LBLCuenta.TabIndex = 4 Me.LBLCuenta.Text = "CUENTA" Me.LBLCuenta.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.LightSteelBlue Me.Panel1.Controls.Add(Me.LSTDoctos) Me.Panel1.Location = New System.Drawing.Point(8, 84) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(690, 230) Me.Panel1.TabIndex = 6 ' 'LSTDoctos ' Me.LSTDoctos.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.LSTDoctos.Location = New System.Drawing.Point(8, 8) Me.LSTDoctos.Name = "LSTDoctos" Me.LSTDoctos.Size = New System.Drawing.Size(678, 212) Me.LSTDoctos.TabIndex = 23 ' 'BTCerrar ' Me.BTCerrar.BackColor = System.Drawing.Color.MidnightBlue Me.BTCerrar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BTCerrar.ForeColor = System.Drawing.Color.White Me.BTCerrar.Location = New System.Drawing.Point(595, 364) Me.BTCerrar.Name = "BTCerrar" Me.BTCerrar.Size = New System.Drawing.Size(104, 32) Me.BTCerrar.TabIndex = 17 Me.BTCerrar.Text = "Cerrar" Me.BTCerrar.UseVisualStyleBackColor = False ' 'BTApo ' Me.BTApo.BackColor = System.Drawing.Color.MidnightBlue Me.BTApo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BTApo.ForeColor = System.Drawing.Color.White Me.BTApo.Location = New System.Drawing.Point(487, 366) Me.BTApo.Name = "BTApo" Me.BTApo.Size = New System.Drawing.Size(104, 32) Me.BTApo.TabIndex = 19 Me.BTApo.Text = "Apoderados" Me.BTApo.UseVisualStyleBackColor = False Me.BTApo.Visible = False ' 'Panel4 ' Me.Panel4.BackColor = System.Drawing.Color.White Me.Panel4.Controls.Add(Me.Panel5) Me.Panel4.Controls.Add(Me.BTCancelar) Me.Panel4.Controls.Add(Me.BTActuaizar) Me.Panel4.Controls.Add(Me.TXTProrroga) Me.Panel4.Controls.Add(Me.Label3) Me.Panel4.Controls.Add(Me.Panel3) Me.Panel4.Controls.Add(Me.Panel2) Me.Panel4.Location = New System.Drawing.Point(7, 321) Me.Panel4.Name = "Panel4" Me.Panel4.Size = New System.Drawing.Size(439, 79) Me.Panel4.TabIndex = 21 Me.Panel4.Visible = False ' 'Panel5 ' Me.Panel5.Controls.Add(Me.BTFecha) Me.Panel5.Controls.Add(Me.TXT0FechaId) Me.Panel5.Controls.Add(Me.Label2) Me.Panel5.Location = New System.Drawing.Point(169, 10) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(150, 57) Me.Panel5.TabIndex = 29 Me.Panel5.Visible = False ' 'BTFecha ' Me.BTFecha.Location = New System.Drawing.Point(97, 20) Me.BTFecha.Name = "BTFecha" Me.BTFecha.Size = New System.Drawing.Size(47, 25) Me.BTFecha.TabIndex = 25 Me.BTFecha.Text = ". . ." Me.BTFecha.UseVisualStyleBackColor = True ' 'TXT0FechaId ' Me.TXT0FechaId.Enabled = False Me.TXT0FechaId.Location = New System.Drawing.Point(7, 22) Me.TXT0FechaId.Name = "TXT0FechaId" Me.TXT0FechaId.Size = New System.Drawing.Size(85, 20) Me.TXT0FechaId.TabIndex = 24 ' 'Label2 ' Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue Me.Label2.Location = New System.Drawing.Point(6, 7) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(88, 16) Me.Label2.TabIndex = 23 Me.Label2.Text = "Fecha Vigencia" ' 'BTCancelar ' Me.BTCancelar.BackColor = System.Drawing.Color.MidnightBlue Me.BTCancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BTCancelar.ForeColor = System.Drawing.Color.White Me.BTCancelar.Location = New System.Drawing.Point(327, 41) Me.BTCancelar.Name = "BTCancelar" Me.BTCancelar.Size = New System.Drawing.Size(104, 32) Me.BTCancelar.TabIndex = 28 Me.BTCancelar.Text = "Cancelar" Me.BTCancelar.UseVisualStyleBackColor = False ' 'BTActuaizar ' Me.BTActuaizar.BackColor = System.Drawing.Color.MidnightBlue Me.BTActuaizar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.BTActuaizar.ForeColor = System.Drawing.Color.White Me.BTActuaizar.Location = New System.Drawing.Point(327, 7) Me.BTActuaizar.Name = "BTActuaizar" Me.BTActuaizar.Size = New System.Drawing.Size(104, 32) Me.BTActuaizar.TabIndex = 27 Me.BTActuaizar.Text = "OK" Me.BTActuaizar.UseVisualStyleBackColor = False ' 'TXTProrroga ' Me.TXTProrroga.Location = New System.Drawing.Point(439, 29) Me.TXTProrroga.Name = "TXTProrroga" Me.TXTProrroga.Size = New System.Drawing.Size(104, 20) Me.TXTProrroga.TabIndex = 26 Me.TXTProrroga.Text = "0" Me.TXTProrroga.Visible = False ' 'Label3 ' Me.Label3.Location = New System.Drawing.Point(439, 13) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(80, 16) Me.Label3.TabIndex = 25 Me.Label3.Text = "Prorroga" Me.Label3.Visible = False ' 'Panel3 ' Me.Panel3.Controls.Add(Me.RDBCopia) Me.Panel3.Controls.Add(Me.RDBOriginal) Me.Panel3.Location = New System.Drawing.Point(439, 52) Me.Panel3.Name = "Panel3" Me.Panel3.Size = New System.Drawing.Size(128, 32) Me.Panel3.TabIndex = 24 Me.Panel3.Visible = False ' 'RDBCopia ' Me.RDBCopia.Location = New System.Drawing.Point(72, 8) Me.RDBCopia.Name = "RDBCopia" Me.RDBCopia.Size = New System.Drawing.Size(56, 16) Me.RDBCopia.TabIndex = 1 Me.RDBCopia.Text = "Copia" ' 'RDBOriginal ' Me.RDBOriginal.Location = New System.Drawing.Point(8, 8) Me.RDBOriginal.Name = "RDBOriginal" Me.RDBOriginal.Size = New System.Drawing.Size(64, 16) Me.RDBOriginal.TabIndex = 0 Me.RDBOriginal.Text = "Original" ' 'Panel2 ' Me.Panel2.Controls.Add(Me.RDBExento) Me.Panel2.Controls.Add(Me.RDBvigente) Me.Panel2.Location = New System.Drawing.Point(7, 10) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(157, 56) Me.Panel2.TabIndex = 23 ' 'RDBExento ' Me.RDBExento.ForeColor = System.Drawing.Color.MidnightBlue Me.RDBExento.Location = New System.Drawing.Point(8, 32) Me.RDBExento.Name = "RDBExento" Me.RDBExento.Size = New System.Drawing.Size(127, 18) Me.RDBExento.TabIndex = 1 Me.RDBExento.Text = "Exento de Vigencia" ' 'RDBvigente ' Me.RDBvigente.ForeColor = System.Drawing.Color.MidnightBlue Me.RDBvigente.Location = New System.Drawing.Point(8, 8) Me.RDBvigente.Name = "RDBvigente" Me.RDBvigente.Size = New System.Drawing.Size(128, 20) Me.RDBvigente.TabIndex = 0 Me.RDBvigente.Text = "Fecha de Vigencia" ' 'DTPfecha_vigencia ' Me.DTPfecha_vigencia.Enabled = False Me.DTPfecha_vigencia.Location = New System.Drawing.Point(8, 55) Me.DTPfecha_vigencia.Name = "DTPfecha_vigencia" Me.DTPfecha_vigencia.Size = New System.Drawing.Size(224, 20) Me.DTPfecha_vigencia.TabIndex = 21 ' 'Label4 ' Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue Me.Label4.Location = New System.Drawing.Point(8, 38) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(229, 16) Me.Label4.TabIndex = 24 Me.Label4.Text = "Ultima Fecha de Verificacion" ' 'FrmDoctosCh ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.BackColor = System.Drawing.Color.WhiteSmoke Me.ClientSize = New System.Drawing.Size(704, 405) Me.ControlBox = False Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Panel4) Me.Controls.Add(Me.BTApo) Me.Controls.Add(Me.BTCerrar) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.LBLCuenta) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.LBLCliente) Me.Controls.Add(Me.DTPfecha_vigencia) Me.Name = "FrmDoctosCh" Me.Text = "Checklist de Documentacion" Me.Panel1.ResumeLayout(False) Me.Panel4.ResumeLayout(False) Me.Panel4.PerformLayout() Me.Panel5.ResumeLayout(False) Me.Panel5.PerformLayout() Me.Panel3.ResumeLayout(False) Me.Panel2.ResumeLayout(False) Me.ResumeLayout(False) End Sub #End Region Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTApo.Click End Sub Private Sub FrmDoctosCh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Classcom As New clsComplejo Dim Fila As DataRow Dim SQL As String Dim Fver As String Try If clsVaribles.IDCliente <> 0 Then 'llena datos del cliente If clsVaribles.TipoPersona = 1 Then SQL = "SELECT c.nombre + ' ' + c.apaterno + ' ' + c.amaterno as Nombre,cta.no_cuenta " ElseIf clsVaribles.TipoPersona = 2 Then SQL = "SELECT c.nombre as Nombre,cta.no_cuenta " End If SQL = SQL & " FROM Cliente c,cuenta cta" SQL = SQL & " WHERE c.idcliente = " & clsVaribles.IDCliente SQL = SQL & " AND c.idcliente = cta.idcliente" Classcom.fdtDataSet(SQL) If Classcom.ds.Tables(0).Rows.Count <> 0 Then Fila = Nothing Fila = Classcom.ds.Tables(0).Rows(0) LBLCliente.Text = Fila("Nombre") LBLCuenta.Text = Fila("no_cuenta") End If Fila = Nothing 'llena lista de documentos Classcom = New clsComplejo 'MessageBox.Show("BUSCA DOCTOS") SQL = "SELECT ID_DoctoCheckList clave,Nombre nombre " SQL = SQL & " FROM DoctosChecklist " SQL = SQL & " WHERE tipopersona in ( " & clsVaribles.TipoPersona & ",0)" SQL = SQL & " ORDER BY ID_DoctoCheckList " Classcom.fdtDataSet(SQL) If Classcom.ds.Tables(0).Rows.Count <> 0 Then 'MessageBox.Show("SI TRAE DOCTOS " & SQL) Classcom.sbLlenaLista(SQL, LSTDoctos) 'verifica los documentos que el cliente cumpla For i As Integer = 0 To LSTDoctos.Items.Count - 1 Fila = Classcom.ds.Tables(0).Rows(i) LSTDoctos.SetItemChecked(i, Classcom.VerificaCheckList(clsVaribles.IDCliente, Fila("clave"), Fver)) Next If Fver <> "" Then If Classcom.ObtenFecha(CDate(Now()), "yyyymmdd") <> Classcom.ObtenFecha(CDate(Fver), "yyyymmdd") Then clsVaribles.blnActualizaFecha = True DTPfecha_vigencia.Value = Fver Else clsVaribles.blnActualizaFecha = False End If Else clsVaribles.blnActualizaFecha = False End If Else 'MessageBox.Show("NO TRAE DOCTOS " & SQL) End If End If Catch ex As Exception MessageBox.Show("error en Lectura de la Forma; FrmDoctosCh_Load: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Sub BTActuaizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTActuaizar.Click Dim Classcom As New clsComplejo Dim strChk As String Dim Fila As DataRow Dim Valor As Integer Dim SQL As String Dim ClassAud As New ClassMyUtils Try SQL = "SELECT * " SQL = SQL & " FROM KYC_Checklist " SQL = SQL & " WHERE idcliente = " & clsVaribles.IDCliente SQL = SQL & " AND Id_DoctoCheckList = " & LSTDoctos.SelectedValue Classcom = New clsComplejo Classcom.fdtDataSet(SQL) If Classcom.ds.Tables(0).Rows.Count <> 0 Then strChk = "UPDATE KYC_Checklist SET " If TXT0FechaId.Text <> "" Then strChk = strChk & " fecha_vigencia = CONVERT(DATETIME,'" & Classcom.ObtenFecha(TXT0FechaId.Text, "yyyymmdd") & "',112) ," End If Valor = 0 If RDBvigente.Checked Then Valor = 1 Else Valor = 0 strChk = strChk & " vigente = " & Valor & "," Valor = 0 If RDBExento.Checked Then Valor = 1 Else Valor = 0 strChk = strChk & " exento = " & Valor & "," Valor = 0 If RDBOriginal.Checked Then Valor = 1 Else Valor = 0 strChk = strChk & " original = " & Valor & "," Valor = 0 If RDBCopia.Checked Then Valor = 1 Else Valor = 0 strChk = strChk & " copia = " & Valor & "," Valor = 0 If LSTDoctos.GetItemChecked(LSTDoctos.SelectedIndex) = True Then Valor = 1 Else Valor = 0 strChk = strChk & " cumple = " & Valor strChk = strChk & ", fecha_prorroga = convert(datetime,'" & DTPfecha_vigencia.Value.Date & "',103)" strChk = strChk & " WHERE idcliente = " & clsVaribles.IDCliente strChk = strChk & " AND Id_DoctoCheckList = " & LSTDoctos.SelectedValue Classcom.sbModifica2(strChk) ClassAud.RT_Auditoria(clsVaribles.varUsuario, 3, 1, "Actualización Checklist de IdCliente: " & clsVaribles.IDCliente) ' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 99, My.Computer.Name, "Minds Cliente", "Actualizacion de Documento " & LSTDoctos.Text & " para el Cliente " & clsVaribles.IDCliente) MessageBox.Show("Actualizacion Realizada con Exito ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) TXT0FechaId.Text = "" Else SQL = "INSERT INTO KYC_Checklist " SQL = SQL & " (idcliente,Id_DoctoCheckList,fecha_vigencia,vigente,exento,original,copia,fecha_prorroga,cumple,AUDUSRID,AUDMAQUINA,AUDFECHRA)" SQL = SQL & " VALUES (" SQL = SQL & clsVaribles.IDCliente & "," SQL = SQL & LSTDoctos.SelectedValue & "," If TXT0FechaId.Text <> "" Then SQL = SQL & " CONVERT(DATETIME,'" & Classcom.ObtenFecha(TXT0FechaId.Text, "yyyymmdd") & "',112) ," Else SQL = SQL & " NULL," End If Valor = 0 If RDBvigente.Checked Then Valor = 1 Else Valor = 0 SQL = SQL & Valor & "," Valor = 0 If RDBExento.Checked Then Valor = 1 Else Valor = 0 SQL = SQL & Valor & "," Valor = 0 If RDBOriginal.Checked Then Valor = 1 Else Valor = 0 SQL = SQL & Valor & "," Valor = 0 If RDBCopia.Checked Then Valor = 1 Else Valor = 0 SQL = SQL & Valor & "," Valor = 0 If LSTDoctos.GetItemChecked(LSTDoctos.SelectedIndex) = True = True Then Valor = 1 Else Valor = 0 SQL = SQL & Valor & ",'" & My.User.Name & "','" & My.Computer.Name & "',GETDATE())" Classcom.sbInserta(SQL) MessageBox.Show("Actualizacion Realizada con Exito ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) ClassAud.RT_Auditoria(clsVaribles.varUsuario, 3, 1, "Inserción Checklist de IdCliente: " & clsVaribles.IDCliente) ' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 100, My.Computer.Name, "Minds Cliente", "Alta de Documento " & LSTDoctos.Text & " para el Cliente " & clsVaribles.IDCliente) TXT0FechaId.Text = "" RDBvigente.Checked = False RDBExento.Checked = False RDBCopia.Checked = False RDBOriginal.Checked = False DTPfecha_vigencia.Value = Now() End If Panel4.Visible = False Catch ex As Exception MessageBox.Show("error en Boton Actualizar: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Sub BTCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTCancelar.Click Panel4.Visible = False End Sub Private Sub BTApo_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BTApo.MouseMove Dim Etiqueta As Button Etiqueta = sender Etiqueta.BackColor = System.Drawing.Color.Blue End Sub Private Sub BTCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTCerrar.Click 'FrmChekList.RDBMoral.Checked = True 'FrmChekList.Chart() If MessageBox.Show("¿Deseas salir de CheckList?", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then If clsVaribles.blnActualizaFecha Then If MessageBox.Show("¿Deseas Actualizar la Fecha de Varificacion para este Cliente?", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then 'AUDITORIA Dim ClassAud As New ClassMyUtils Dim varUser As Long Dim ClassComodin As New clsComplejo ClassComodin.sbInserta("UPDATE KYC_CHECKLIST SET FECHA_PRORROGA = GETDATE() WHERE idcliente = " & clsVaribles.IDCliente) ClassAud.RT_Auditoria(clsVaribles.varUsuario, 3, 1, "Inserción Checklist de IdCliente: " & clsVaribles.IDCliente) ' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 101, My.Computer.Name, "Checklist", "Cambio Feha Verificacion para el Cliente " & clsVaribles.IDCliente) 'FIN AUDITORIA End If Me.Close() Else Me.Close() End If Else End If 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 BTCancelar_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BTCancelar.MouseMove Dim Etiqueta As Button Etiqueta = sender Etiqueta.BackColor = System.Drawing.Color.Blue End Sub Private Sub BTActuaizar_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BTActuaizar.MouseMove Dim Etiqueta As Button Etiqueta = sender Etiqueta.BackColor = System.Drawing.Color.Blue End Sub Private Sub BTActuaizar_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTActuaizar.MouseLeave Dim Etiqueta As Button Etiqueta = sender Etiqueta.BackColor = System.Drawing.Color.MidnightBlue End Sub Private Sub BTCancelar_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTCancelar.MouseLeave Dim Etiqueta As Button Etiqueta = sender Etiqueta.BackColor = System.Drawing.Color.MidnightBlue End Sub Private Sub BTApo_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTApo.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 LSTDoctos_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LSTDoctos.Click Dim Classcom As New clsComplejo Dim strChk As String Dim Fila As DataRow If LSTDoctos.Items.Count <= 0 Then Exit Sub End If strChk = "SELECT * " strChk = strChk & " FROM KYC_Checklist " strChk = strChk & " WHERE idcliente = " & clsVaribles.IDCliente strChk = strChk & " AND Id_DoctoCheckList = " & LSTDoctos.SelectedValue Classcom.fdtDataSet(strChk) If Classcom.ds.Tables(0).Rows.Count <> 0 Then Fila = Classcom.ds.Tables(0).Rows(0) If Not IsDBNull(Fila("fecha_vigencia")) Then Me.TXT0FechaId.Text = Fila("fecha_vigencia") Else Me.TXT0FechaId.Text = "" End If If Not IsDBNull(Fila("vigente")) Then If (Fila("vigente") = 0) Then RDBvigente.Checked = False Else RDBvigente.Checked = True End If If Not IsDBNull(Fila("exento")) Then If (Fila("exento") = 0) Then RDBExento.Checked = False Else RDBExento.Checked = True End If If Not IsDBNull(Fila("original")) Then If (Fila("original") = 0) Then RDBOriginal.Checked = False Else RDBOriginal.Checked = True End If If Not IsDBNull(Fila("copia")) Then If Fila("copia") = 0 Then RDBCopia.Checked = False Else RDBCopia.Checked = True End If End If Panel4.Visible = True End Sub Private Sub LSTDoctos_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LSTDoctos.SelectedIndexChanged End Sub Private Sub LSTDoctos_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LSTDoctos.DoubleClick End Sub Private Sub BTCerrar_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTCerrar.Validated End Sub Private Sub LSTDoctos_EnabledChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles LSTDoctos.EnabledChanged End Sub Private Sub LSTDoctos_HandleDestroyed(ByVal sender As Object, ByVal e As System.EventArgs) Handles LSTDoctos.HandleDestroyed End Sub Private Sub LSTDoctos_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles LSTDoctos.Validated End Sub Private Sub LSTDoctos_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles LSTDoctos.ItemCheck If LSTDoctos.GetItemText(LSTDoctos.Items.Item(LSTDoctos.SelectedIndex)) = "Tarjeta de Firma (Crédito)" Then RDBOriginal.Checked = True End If End Sub Private Sub LSTDoctos_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles LSTDoctos.SelectedValueChanged End Sub Private Sub LSTDoctos_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles LSTDoctos.Validating End Sub Private Sub LSTDoctos_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles LSTDoctos.MouseEnter End Sub Private Sub LSTDoctos_BackColorChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles LSTDoctos.BackColorChanged End Sub Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha.Click Dim FormaFecha As New FrmCal FormaFecha.ShowDialog() TXT0FechaId.Text = clsVaribles.FechaComodin End Sub Private Sub RDBvigente_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente.CheckedChanged If RDBvigente.Checked = True Then Panel5.Visible = True Else Panel5.Visible = False End If End Sub Private Sub RDBExento_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBExento.CheckedChanged If RDBExento.Checked = True Then TXT0FechaId.Text = "" Panel5.Visible = False Else End If End Sub End Class