jortega/client
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
298bea23d4
client/FrmDocChk.vb

915 lines
38 KiB
VB.net
Raw Normal View History

Primera carga de Minds Cliente para el proyecto de blackrock
2019-07-05 13:43:55 -05:00
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
Reference in New Issue Copy Permalink