Public Class FrmDocChk Private Sub RDBvigente_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint End Sub Private Sub RDBExento_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha10.Click End Sub Private Sub BTActuaizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTActuaizar.Click Try Dim Classcom As New clsComplejo Dim Sql As String 'Acta Constitutiva Call InsertaDocumento(1, clsVaribles.IDCliente, Me.TXT0FechaId.Text, Me.RDBExento, Me.RDBvigente) 'Poderes Call InsertaDocumento(2, clsVaribles.IDCliente, Me.TXT0FechaId2.Text, Me.RDBExento2, Me.RDBvigente2) 'RFC Call InsertaDocumento(3, clsVaribles.IDCliente, Me.TXT0FechaId3.Text, Me.RDBExento3, Me.RDBvigente3) 'Identificaciones de los Representantes Call InsertaDocumento(4, clsVaribles.IDCliente, Me.TXT0FechaId4.Text, Me.RDBExento4, Me.RDBvigente4) 'Identificaciones de los Personas Autorizadas a celebrar Operaciones Call InsertaDocumento(5, clsVaribles.IDCliente, Me.TXT0FechaId5.Text, Me.RDBExento5, Me.RDBvigente5) 'Identificaciones de los Personas Autorizadas a cofirmar Operaciones Call InsertaDocumento(6, clsVaribles.IDCliente, Me.TXT0FechaId6.Text, Me.RDBExento6, Me.RDBvigente6) 'Comprobante de Domicilio Call InsertaDocumento(7, clsVaribles.IDCliente, Me.TXT0FechaId7.Text, Me.RDBExento7, Me.RDBvigente7) 'Carta con instrucciones de liquidacion estandard (No Obligatorio) Call InsertaDocumento(8, clsVaribles.IDCliente, Me.TXT0FechaId8.Text, Me.RDBExento8, Me.RDBvigente8) 'Contrato Marco para Celebrar Operaciones de Mercado de Dinero Call InsertaDocumento(9, clsVaribles.IDCliente, Me.TXT0FechaId9.Text, Me.RDBExento9, Me.RDBvigente9) 'Contrato Marco para Celebrar Operaciones de Derivadas Call InsertaDocumento(10, clsVaribles.IDCliente, Me.TXT0FechaId10.Text, Me.RDBExento10, Me.RDBvigente10) 'Estados Financieros Call InsertaDocumento(11, clsVaribles.IDCliente, Me.TXT0FechaId11.Text, Me.RDBExento11, Me.RDBvigente11) 'Estructura Accionaria Call InsertaDocumento(12, clsVaribles.IDCliente, Me.TXT0FechaId12.Text, Me.RDBExento12, Me.RDBvigente12) 'Constancia del Resultado de la Entrevista Personal con el Cliente Call InsertaDocumento(13, clsVaribles.IDCliente, Me.TXT0FechaId13.Text, Me.RDBExento13, Me.RDBvigente13) 'Constancia del Resultado de la Visita para Corroborar los Datos Call InsertaDocumento(14, clsVaribles.IDCliente, Me.TXT0FechaId14.Text, Me.RDBExento14, Me.RDBvigente14) Call InsertaDocumento(15, clsVaribles.IDCliente, Me.TXT0FechaId15.Text, Me.RDBExento15, Me.RDBvigente15) Call InsertaDocumento(16, clsVaribles.IDCliente, Me.TXT0FechaId16.Text, Me.RDBExento16, Me.RDBvigente16) 'VALIDA LA FECHA DE VERIFICACION 'If Fver <> "" Then ' If Classcom.ObtenFecha(CDate(Now()), "dd/mm/yyyy") <> Classcom.ObtenFecha(CDate(Fver), "dd/mm/yyyy") Then ' clsVaribles.blnActualizaFecha = True ' DTPfecha_vigencia.Value = Fver ' Else ' clsVaribles.blnActualizaFecha = False ' End If 'Else ' clsVaribles.blnActualizaFecha = False 'End If MsgBox("Operacion Satisfactoria") Catch ex As Exception End Try End Sub Public Sub InsertaDocumento(ByVal lngINDocumento As Long, ByVal lngINidcliente As Long, ByVal strINFechaID As String, ByVal RBExento As RadioButton, ByVal RBVigente As RadioButton) Dim Classcom As New clsComplejo Dim Sql As String Try If Classcom.BuscaDatos("SELECT 1 FROM KYC_CHECKLIST WHERE idcliente = " & lngINidcliente & " AND Id_DoctoCheckList = " & lngINDocumento) Then Sql = "UPDATE KYC_CHECKLIST SET " If strINFechaID = "" Then Sql = Sql & "FECHA_VIGENCIA = NULL," Else Sql = Sql & "FECHA_VIGENCIA = CONVERT(DATETIME,'" & Classcom.ObtenFecha(strINFechaID, "yyyymmdd") & "',112)," End If If RBExento.Checked = False And RBVigente.Checked = False Then Sql = Sql & "CUMPLE = 0" Else Sql = Sql & "CUMPLE = 1" End If Sql = Sql & " WHERE idcliente = " & lngINidcliente & " AND Id_DoctoCheckList = " & lngINDocumento Classcom.sbInserta(Sql) Else Sql = "INSERT INTO KYC_CHECKLIST (idcliente,Id_DoctoCheckList,FECHA_VIGENCIA,CUMPLE)" Sql = Sql & " VALUES (" Sql = Sql & lngINidcliente & "," & lngINDocumento & "," If strINFechaID = "" Then Sql = Sql & "NULL," Else Sql = Sql & "CONVERT(DATETIME,'" & Classcom.ObtenFecha(strINFechaID, "yyyymmdd") & "',112)," End If If RBExento.Checked = False And RBVigente.Checked = False Then Sql = Sql & "0" Else Sql = Sql & "1" End If Sql = Sql & ")" Classcom.sbInserta(Sql) End If Catch ex As Exception MessageBox.Show("Error en Insercion del Documento : " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End Try End Sub Private Sub RDBvigente_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente.CheckedChanged If RDBvigente.Checked = True Then Panel1.Visible = True Else Panel1.Visible = False End If End Sub Private Sub RDBExento_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBExento.CheckedChanged If RDBExento.Checked = True Then Panel1.Visible = False TXT0FechaId.Text = "" End If End Sub Private Sub RDBvigente2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente2.CheckedChanged If RDBvigente2.Checked = True Then Panel4.Visible = True Else Panel4.Visible = False End If End Sub Private Sub RDBExento2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBExento2.CheckedChanged If RDBExento2.Checked = True Then Panel4.Visible = False TXT0FechaId2.Text = "" End If End Sub Private Sub RDBvigente3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente3.CheckedChanged If RDBvigente3.Checked = True Then Panel6.Visible = True Else Panel6.Visible = False End If End Sub Private Sub RDBExento3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBExento3.CheckedChanged If RDBExento3.Checked = True Then Panel6.Visible = False TXT0FechaId3.Text = "" End If End Sub Private Sub RDBvigente4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente4.CheckedChanged If RDBvigente4.Checked = True Then Panel8.Visible = True Else Panel8.Visible = False End If End Sub Private Sub RDBExento4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBExento4.CheckedChanged If RDBExento4.Checked = True Then Panel8.Visible = False TXT0FechaId4.Text = "" End If End Sub Private Sub RDBvigente5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente5.CheckedChanged If RDBvigente5.Checked = True Then Panel10.Visible = True Else Panel10.Visible = False End If End Sub Private Sub RDBExento5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBExento5.CheckedChanged If RDBExento5.Checked = True Then Panel10.Visible = False TXT0FechaId5.Text = "" End If End Sub Private Sub RDBvigente6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente6.CheckedChanged If RDBvigente6.Checked = True Then Panel12.Visible = True Else Panel12.Visible = False End If End Sub Private Sub RDBExento6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBExento6.CheckedChanged If RDBExento6.Checked = True Then Panel12.Visible = False TXT0FechaId6.Text = "" End If End Sub Private Sub RDBvigente7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente7.CheckedChanged If RDBvigente7.Checked = True Then Panel14.Visible = True Else Panel14.Visible = False End If End Sub Private Sub RDBExento7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBExento7.CheckedChanged If RDBExento7.Checked = True Then Panel14.Visible = False TXT0FechaId7.Text = "" End If End Sub Private Sub RDBvigente8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente8.CheckedChanged If RDBvigente8.Checked = True Then Panel16.Visible = True Else Panel16.Visible = False End If End Sub Private Sub RDBExento8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBExento8.CheckedChanged If RDBExento8.Checked = True Then Panel16.Visible = False TXT0FechaId8.Text = "" End If End Sub Private Sub RDBvigente9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente9.CheckedChanged If RDBvigente9.Checked = True Then Panel18.Visible = True Else Panel18.Visible = False End If End Sub Private Sub RDBExento9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBExento9.CheckedChanged If RDBExento9.Checked = True Then Panel18.Visible = False TXT0FechaId9.Text = "" End If End Sub Private Sub RDBvigente10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente10.CheckedChanged If RDBvigente10.Checked = True Then Panel20.Visible = True Else Panel20.Visible = False End If End Sub Private Sub RDBExento10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBExento10.CheckedChanged If RDBExento10.Checked = True Then Panel20.Visible = False TXT0FechaId10.Text = "" End If End Sub Private Sub RDBvigente11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente11.CheckedChanged If RDBvigente11.Checked = True Then Panel22.Visible = True Else Panel22.Visible = False End If End Sub Private Sub RDBExento11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBExento11.CheckedChanged If RDBExento11.Checked = True Then Panel22.Visible = False TXT0FechaId11.Text = "" End If End Sub Private Sub RDBvigente12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente12.CheckedChanged If RDBvigente12.Checked = True Then Panel24.Visible = True Else Panel24.Visible = False End If End Sub Private Sub RDBExento12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBExento12.CheckedChanged If RDBExento12.Checked = True Then Panel24.Visible = False TXT0FechaId12.Text = "" End If End Sub Private Sub BTFecha_Click(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 BTFecha2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha2.Click Dim FormaFecha As New FrmCal FormaFecha.ShowDialog() TXT0FechaId2.Text = clsVaribles.FechaComodin End Sub Private Sub BTFecha3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha3.Click Dim FormaFecha As New FrmCal FormaFecha.ShowDialog() TXT0FechaId3.Text = clsVaribles.FechaComodin End Sub Private Sub BTFecha4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha4.Click Dim FormaFecha As New FrmCal FormaFecha.ShowDialog() TXT0FechaId4.Text = clsVaribles.FechaComodin End Sub Private Sub BTFecha5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha5.Click Dim FormaFecha As New FrmCal FormaFecha.ShowDialog() TXT0FechaId5.Text = clsVaribles.FechaComodin End Sub Private Sub BTFecha6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha6.Click Dim FormaFecha As New FrmCal FormaFecha.ShowDialog() TXT0FechaId6.Text = clsVaribles.FechaComodin End Sub Private Sub BTFecha7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha7.Click Dim FormaFecha As New FrmCal FormaFecha.ShowDialog() TXT0FechaId7.Text = clsVaribles.FechaComodin End Sub Private Sub BTFecha8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha8.Click Dim FormaFecha As New FrmCal FormaFecha.ShowDialog() TXT0FechaId8.Text = clsVaribles.FechaComodin End Sub Private Sub BTFecha9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha9.Click Dim FormaFecha As New FrmCal FormaFecha.ShowDialog() TXT0FechaId9.Text = clsVaribles.FechaComodin End Sub Private Sub BTFecha10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha10.Click Dim FormaFecha As New FrmCal FormaFecha.ShowDialog() TXT0FechaId10.Text = clsVaribles.FechaComodin End Sub Private Sub BTFecha11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha11.Click Dim FormaFecha As New FrmCal FormaFecha.ShowDialog() TXT0FechaId11.Text = clsVaribles.FechaComodin End Sub Private Sub BTFecha12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha12.Click Dim FormaFecha As New FrmCal FormaFecha.ShowDialog() TXT0FechaId12.Text = clsVaribles.FechaComodin End Sub Private Sub BTCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTCancelar.Click Dim Classcom As New clsComplejo Dim Nic As Object 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 Verificacion 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 Dim FechaHoy As String FechaHoy = ClassComodin.ObtenFecha(Now().Date, "yyyymmdd") ClassComodin.sbInserta("UPDATE KYC_CHECKLIST SET FECHA_PRORROGA = convert(datetime,'" & FechaHoy & "',112) WHERE idcliente = " & clsVaribles.IDCliente) Nic = Classcom.BuscaValores("no_cuenta", "cuenta", " idcliente = " & clsVaribles.IDCliente) If Not IsDBNull(Nic) Then ClassAud.RT_Auditoria(clsVaribles.varUsuario, 3, 1, "Consulta de Checklist de cliente: " & Nic) ' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 101, My.Computer.Name, "Checklist", "Cambio Fecha Verificacion para el Cliente " & Nic) Else ClassAud.RT_Auditoria(clsVaribles.varUsuario, 3, 1, "Actualización de Checklit de cliente: " & Nic) ' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 101, My.Computer.Name, "Checklist", "Cambio Fecha Verificacion para el Cliente " & clsVaribles.IDCliente) End If 'FIN AUDITORIA End If Me.Close() Else Me.Close() End If Else End If End Sub Private Sub FrmDocChk_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try Dim Classcom As New clsComplejo Dim Classcom2 As New clsComplejo Dim SQL As String Dim I As Long Dim FechaComodin As Date 'contestacion de preguntas '2 If Classcom2.BuscaDatos("SELECT 1 FROM KYC_APODERADO WHERE idcliente = " & clsVaribles.IDCliente & " AND (poderesespeciales <> 0 or poderesgenerales <> 0)") Then RDBExento2.Checked = True Else RDBExento2.Checked = False End If '4 Classcom2 = New clsComplejo If Classcom2.BuscaDatos("SELECT 1 FROM KYC_APODERADO WHERE idcliente = " & clsVaribles.IDCliente) Then RDBExento4.Checked = True Else RDBExento4.Checked = False End If '9 '4 mercado de dinero Classcom2 = New clsComplejo If Classcom2.BuscaDatos("SELECT 1 FROM kyc_usoproducto WHERE idcliente = " & clsVaribles.IDCliente & " AND producto4 <> 0") Then RDBExento9.Checked = True Else RDBExento9.Checked = False End If '10 '4 mercado de dinero Classcom2 = New clsComplejo If Classcom2.BuscaDatos("SELECT 1 FROM kyc_usoproducto WHERE idcliente = " & clsVaribles.IDCliente & " AND producto12 <> 0") Then RDBExento10.Checked = True Else RDBExento10.Checked = False End If '11 '12 derivados Classcom2 = New clsComplejo If Classcom2.BuscaDatos("SELECT 1 FROM kyc_usoproducto WHERE idcliente = " & clsVaribles.IDCliente & " AND producto12 <> 0") Then RDBExento11.Checked = True Else RDBExento11.Checked = False End If '12 Classcom2 = New clsComplejo If Classcom2.BuscaDatos("SELECT 1 FROM kyc_estructuraCorporativa WHERE idcliente = " & clsVaribles.IDCliente) Then RDBExento12.Checked = True Else RDBExento12.Checked = False End If SQL = "SELECT * FROM KYC_CHECKLIST WHERE idcliente = " & clsVaribles.IDCliente Classcom.fdtDataSet(SQL) If Classcom.ds.Tables(0).Rows.Count <> 0 Then If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("Fecha_prorroga")) Then FechaComodin = "01/01/1900" DTPfecha_vigencia.Value = FechaComodin Else FechaComodin = Classcom.ds.Tables(0).Rows(I).Item("Fecha_prorroga") DTPfecha_vigencia.Value = FechaComodin End If For I = 0 To Classcom.ds.Tables(0).Rows.Count - 1 Select Case Classcom.ds.Tables(0).Rows(I).Item("Id_DoctoCheckList") Case Is = 1 If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia")) Then TXT0FechaId.Text = "" If Classcom.ds.Tables(0).Rows(I).Item("cumple") = 1 Then RDBExento.Checked = True Else 'RDBExento.Checked = False End If Else TXT0FechaId.Text = Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia") RDBvigente.Checked = True End If Case Is = 2 'PODERES If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia")) Then TXT0FechaId2.Text = "" If Classcom.ds.Tables(0).Rows(I).Item("cumple") = 1 Then RDBExento2.Checked = True Else 'If Classcom2.BuscaDatos("SELECT 1 FROM KYC_APODERADO WHERE idcliente = " & clsVaribles.IDCliente & " AND poderesespeciales <> 0 or poderesgenerales <> 0") Then ' RDBExento2.Checked = True 'Else ' RDBExento2.Checked = False 'End If End If Else TXT0FechaId2.Text = Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia") RDBvigente2.Checked = True End If Case Is = 3 If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia")) Then TXT0FechaId3.Text = "" If Classcom.ds.Tables(0).Rows(I).Item("cumple") = 1 Then RDBExento3.Checked = True Else 'RDBExento3.Checked = False End If Else TXT0FechaId3.Text = Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia") RDBvigente3.Checked = True End If Case Is = 4 'apoderados If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia")) Then TXT0FechaId4.Text = "" If Classcom.ds.Tables(0).Rows(I).Item("cumple") = 1 Then RDBExento4.Checked = True Else 'If Classcom2.BuscaDatos("SELECT 1 FROM KYC_APODERADO WHERE idcliente = " & clsVaribles.IDCliente) Then ' RDBExento4.Checked = True 'Else ' RDBExento4.Checked = False 'End If End If Else TXT0FechaId4.Text = Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia") RDBvigente4.Checked = True End If Case Is = 5 If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia")) Then TXT0FechaId5.Text = "" If Classcom.ds.Tables(0).Rows(I).Item("cumple") = 1 Then RDBExento5.Checked = True Else RDBExento5.Checked = False End If Else TXT0FechaId5.Text = Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia") RDBvigente5.Checked = True End If Case Is = 6 If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia")) Then TXT0FechaId6.Text = "" If Classcom.ds.Tables(0).Rows(I).Item("cumple") = 1 Then RDBExento6.Checked = True Else RDBExento6.Checked = False End If Else TXT0FechaId6.Text = Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia") RDBvigente6.Checked = True End If Case Is = 7 If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia")) Then TXT0FechaId7.Text = "" If Classcom.ds.Tables(0).Rows(I).Item("cumple") = 1 Then RDBExento7.Checked = True Else 'RDBExento7.Checked = False End If Else TXT0FechaId7.Text = Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia") RDBvigente7.Checked = True End If Case Is = 8 If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia")) Then TXT0FechaId8.Text = "" If Classcom.ds.Tables(0).Rows(I).Item("cumple") = 1 Then RDBExento8.Checked = True Else RDBExento8.Checked = False End If Else TXT0FechaId8.Text = Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia") RDBvigente8.Checked = True End If Case Is = 9 Classcom2 = New clsComplejo 'operaciones mercado de dinero If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia")) Then TXT0FechaId9.Text = "" If Classcom.ds.Tables(0).Rows(I).Item("cumple") = 1 Then RDBExento9.Checked = True Else 'If Classcom2.BuscaDatos("SELECT 1 FROM kyc_usoproducto WHERE idcliente = " & clsVaribles.IDCliente & " AND producto4 <> 0") Then ' RDBExento9.Checked = True 'Else ' RDBExento9.Checked = False 'End If End If Else TXT0FechaId9.Text = Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia") RDBvigente9.Checked = True End If Case Is = 10 Classcom2 = New clsComplejo If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia")) Then TXT0FechaId10.Text = "" If Classcom.ds.Tables(0).Rows(I).Item("cumple") = 1 Then RDBExento10.Checked = True Else 'If Classcom2.BuscaDatos("SELECT 1 FROM kyc_usoproducto WHERE idcliente = " & clsVaribles.IDCliente & " AND producto12 <> 0") Then ' RDBExento10.Checked = True 'Else ' RDBExento10.Checked = False 'End If End If Else TXT0FechaId10.Text = Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia") RDBvigente10.Checked = True End If Case Is = 11 Classcom2 = New clsComplejo If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia")) Then TXT0FechaId11.Text = "" If Classcom.ds.Tables(0).Rows(I).Item("cumple") = 1 Then RDBExento11.Checked = True Else 'If Classcom2.BuscaDatos("SELECT 1 FROM kyc_usoproducto WHERE idcliente = " & clsVaribles.IDCliente & " AND producto4 <> 0") Then ' RDBExento11.Checked = True 'Else ' RDBExento11.Checked = False 'End If End If Else TXT0FechaId11.Text = Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia") RDBvigente11.Checked = True End If Case Is = 12 Classcom2 = New clsComplejo If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia")) Then TXT0FechaId12.Text = "" If Classcom.ds.Tables(0).Rows(I).Item("cumple") = 1 Then RDBExento12.Checked = True Else 'If Classcom2.BuscaDatos("SELECT 1 FROM kyc_estructuraCorporativa WHERE idcliente = " & clsVaribles.IDCliente) Then ' RDBExento12.Checked = True 'Else ' RDBExento12.Checked = False 'End If End If Else TXT0FechaId12.Text = Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia") RDBvigente12.Checked = True End If Case Is = 13 If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia")) Then TXT0FechaId13.Text = "" If Classcom.ds.Tables(0).Rows(I).Item("cumple") = 1 Then RDBExento13.Checked = True Else RDBExento13.Checked = False End If Else TXT0FechaId13.Text = Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia") RDBvigente13.Checked = True End If Case Is = 14 If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia")) Then TXT0FechaId14.Text = "" If Classcom.ds.Tables(0).Rows(I).Item("cumple") = 1 Then RDBExento14.Checked = True Else RDBExento14.Checked = False End If Else TXT0FechaId14.Text = Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia") RDBvigente14.Checked = True End If Case Is = 15 If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia")) Then TXT0FechaId15.Text = "" If Classcom.ds.Tables(0).Rows(I).Item("cumple") = 1 Then RDBExento15.Checked = True Else RDBExento15.Checked = False End If Else TXT0FechaId15.Text = Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia") RDBvigente15.Checked = True End If Case Is = 16 If IsDBNull(Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia")) Then TXT0FechaId16.Text = "" If Classcom.ds.Tables(0).Rows(I).Item("cumple") = 1 Then RDBExento16.Checked = True Else RDBExento16.Checked = False End If Else TXT0FechaId16.Text = Classcom.ds.Tables(0).Rows(I).Item("fecha_vigencia") RDBvigente16.Checked = True End If End Select Next If Classcom.ObtenFecha(FechaComodin, "yyyymmdd") <> Classcom.ObtenFecha(Now().Date, "yyyymmdd") Then clsVaribles.blnActualizaFecha = True Else clsVaribles.blnActualizaFecha = False End If Else FechaComodin = "01/01/1900" DTPfecha_vigencia.Value = FechaComodin If Classcom.ObtenFecha(FechaComodin, "yyyymmdd") <> Classcom.ObtenFecha(Now().Date, "yyyymmdd") Then clsVaribles.blnActualizaFecha = True Else clsVaribles.blnActualizaFecha = False End If End If 'SELECCIONA LA FECHA DE VERIFICACION Catch ex As Exception End Try End Sub Private Sub BTFecha13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha13.Click Dim FormaFecha As New FrmCal FormaFecha.ShowDialog() TXT0FechaId13.Text = clsVaribles.FechaComodin End Sub Private Sub BTFecha14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha14.Click Dim FormaFecha As New FrmCal FormaFecha.ShowDialog() TXT0FechaId14.Text = clsVaribles.FechaComodin End Sub Private Sub RDBvigente13_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente13.CheckedChanged If RDBvigente13.Checked = True Then Panel42.Visible = True Else Panel42.Visible = False End If End Sub Private Sub RDBExento13_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBExento13.CheckedChanged If RDBExento13.Checked = True Then Panel42.Visible = False TXT0FechaId13.Text = "" End If End Sub Private Sub RDBvigente14_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente14.CheckedChanged If RDBvigente14.Checked = True Then Panel39.Visible = True Else Panel39.Visible = False End If End Sub Private Sub RDBExento14_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBExento14.CheckedChanged If RDBExento14.Checked = True Then Panel39.Visible = False TXT0FechaId14.Text = "" End If End Sub Private Sub BTCancelar_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles BTCancelar.DragOver End Sub Private Sub BTFecha15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha15.Click Dim FormaFecha As New FrmCal FormaFecha.ShowDialog() TXT0FechaId15.Text = clsVaribles.FechaComodin End Sub Private Sub RDBvigente15_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente15.CheckedChanged If RDBvigente15.Checked = True Then Panel45.Visible = True Else Panel45.Visible = False End If End Sub Private Sub RDBvigente16_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBvigente16.CheckedChanged If RDBvigente16.Checked = True Then Panel48.Visible = True Else Panel48.Visible = False End If End Sub Private Sub BTFecha16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFecha16.Click Dim FormaFecha As New FrmCal FormaFecha.ShowDialog() TXT0FechaId16.Text = clsVaribles.FechaComodin End Sub End Class