jortega/client
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
master
client/FrmDoctosCh.vb

779 lines
31 KiB
VB.net
Raw Permalink Normal View History

Primera carga de Minds Cliente para el proyecto de blackrock
2019-07-05 13:43:55 -05:00
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
<System.Diagnostics.DebuggerStepThrough()> 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<EFBFBD>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<EFBFBD>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("<EFBFBD>Deseas salir de CheckList?", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
If clsVaribles.blnActualizaFecha Then
If MessageBox.Show("<EFBFBD>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<EFBFBD>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<43>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
Reference in New Issue Copy Permalink