client/FrmDocChk.vb

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("<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 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<EFBFBD>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