client/FrmAvisos.vb

1866 lines
100 KiB
VB.net

Imports System.Xml
Imports System.IO
Public Class FrmAvisos
Private VIDAvisos As Integer = 0
Private Sub FrmAvisos_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim ColCheck As New DataGridViewCheckBoxColumn
CargaComboOrganismo()
CargaComboinstitucion()
CargaComboTipoVigencia()
CargaComboPaisU()
CargaComboPaisS()
CargaGridA("A")
DgvAvisos.Columns.Insert(23, ColCheck)
ColCheck.HeaderText = "ENVIADO"
ColCheck.Name = "enviado"
DgvAvisos.Refresh()
DgvAvisos.Columns(0).Visible = False
DgvAvisos.Columns(4).Visible = False
DgvAvisos.Columns(5).Visible = False
DgvAvisos.Columns(6).Visible = False
DgvAvisos.Columns(8).Visible = False
DgvAvisos.Columns(9).Visible = False
DgvAvisos.Columns(10).Visible = False
DgvAvisos.Columns(11).Visible = False
DgvAvisos.Columns(12).Visible = False
DgvAvisos.Columns(13).Visible = False
DgvAvisos.Columns(14).Visible = False
DgvAvisos.Columns(15).Visible = False
DgvAvisos.Columns(16).Visible = False
DgvAvisos.Columns(17).Visible = False
DgvAvisos.Columns(18).Visible = False
DgvAvisos.Columns(19).Visible = False
DgvAvisos.Columns(20).Visible = False
DgvAvisos.Columns(22).Visible = False
DgvAvisos.Columns(23).Visible = False
RDBUnificado.Checked = True
End Sub
Private Sub RDBUnificado_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RDBUnificado.CheckedChanged
If RDBUnificado.Checked Then
GRPDomicilioSeparado.Visible = False
GRPDomicilioUnificado.Visible = True
If CmbPaisU.SelectedIndex = -1 Then
CmbPaisU.SelectedIndex = 0
End If
End If
End Sub
Private Sub RDBSeparado_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RDBSeparado.CheckedChanged
If RDBSeparado.Checked Then
GRPDomicilioUnificado.Visible = False
GRPDomicilioSeparado.Visible = True
If CmbPaisS.SelectedIndex = -1 Then
CmbPaisS.SelectedIndex = 0
End If
End If
End Sub
Private Sub GRPDomicilioSeparado_Enter(sender As System.Object, e As System.EventArgs) Handles GRPDomicilioSeparado.Enter
End Sub
Private Sub CargaComboOrganismo()
Dim Classcom As New clsComplejo
Classcom.sbLlenaCombo("select Clave,CLAVE + ' ' + Nombre AS NOMBRE from IEF_CATORGANISMOS", Me.CmbOrg)
End Sub
Private Sub CargaComboinstitucion()
Dim Classcom As New clsComplejo
Classcom.sbLlenaCombo("select clave,CLAVE + ' ' + nombre AS NOMBRE from IEF_CATENTFIN", Me.CmbInst)
End Sub
Private Sub CargaComboTipoVigencia()
Dim Classcom As New clsComplejo
Classcom.sbLlenaCombo("select clave, nombre from IEF_TIPOVIGENCIA", Me.CmbVigencia)
End Sub
Private Sub CargaComboPaisU()
Dim Classcom As New clsComplejo
Classcom.sbLlenaCombo("select ISO AS CLAVE, PAIS AS NOMBRE from CAT_PAIS WHERE LEN(ISO) = 2", Me.CmbPaisU)
End Sub
Private Sub CargaComboPaisS()
Dim Classcom As New clsComplejo
Classcom.sbLlenaCombo("select ISO AS CLAVE, PAIS AS NOMBRE from CAT_PAIS WHERE LEN(ISO) = 2", Me.CmbPaisS)
End Sub
Private Sub CargaGridA(Estatus As String)
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Dim Parametros As New ArrayList
Dim DsDatos As New DataSet
Dim ColCheck As New DataGridViewCheckBoxColumn
Try
'LLENA GRID
'SQL = "SELECT DTDIAINHABIL, ID, DIA, MES, ANO FROM CAT_DIASINHABILES WHERE ANO = '" & Anio & "'"
SQL = "SELECT IDAVISO,ID_ORG_REGULADOR AS ORGANISMO,CLAVE_INSTITUCION AS INSTITUCION,FECHA_FIRMA AS ""FECHA FIRMA"",TIPO_VIGENCIA,INICIO_VIGENCIA,FIN_VIGENCIA,OBJETO_CONVENIO AS ""OBJETO DEL CONVENIO"",CLAVE_PAIS,UNIFICADO,DOMICILIO_UNIFICADO,CIUDAD_POBLACIONU,COLONIAU,CODIGO_POSTALU,ESTADO_PROVINCIAS,CODIGO_POSTALS,CIUDAD_POBLACIONS,COLONIAS,CALLES,NUM_EXTS,NUM_INTS,NOM_ENT_FIN_EXT AS ""ENTIDAD FINANCIERA EXTRANJERA"",ESTATUS FROM IEF_AVISOS WHERE ESTATUS = '" & Estatus & "'"
If ChkHistoria.Checked = True Then
SQL = SQL & " OR ESTATUS = 'E'"
End If
DsDatos = Classcom.fdtDataSet(SQL)
If DsDatos.Tables(0).Rows.Count >= 0 Then
DgvAvisos.DataSource = DsDatos.Tables(0)
If DsDatos.Tables(0).Rows.Count > 0 Then
DgvAvisos.CurrentCell = DgvAvisos.Rows(0).Cells("ORGANISMO")
DgvAvisos.Rows(0).Selected = True
End If
'DgvAvisos.Columns(0).Visible = False
'DgvAvisos.Columns(4).Visible = False
'DgvAvisos.Columns(5).Visible = False
'DgvAvisos.Columns(6).Visible = False
'DgvAvisos.Columns(8).Visible = False
'DgvAvisos.Columns(9).Visible = False
'DgvAvisos.Columns(10).Visible = False
'DgvAvisos.Columns(11).Visible = False
'DgvAvisos.Columns(12).Visible = False
'DgvAvisos.Columns(13).Visible = False
'DgvAvisos.Columns(14).Visible = False
'DgvAvisos.Columns(15).Visible = False
'DgvAvisos.Columns(16).Visible = False
'DgvAvisos.Columns(17).Visible = False
'DgvAvisos.Columns(18).Visible = False
'DgvAvisos.Columns(19).Visible = False
'DgvAvisos.Columns(20).Visible = False
'DgvAvisos.Columns(22).Visible = False
If Estatus = "C" Then
For Each row As DataGridViewRow In DgvAvisos.Rows
If row.Cells("ESTATUS").Value = "E" Then
row.Cells("ENVIADO").Value = True
End If
Next
End If
'If DgvAvisos.Rows.Count > 0 Then
' BtnEliminar.Enabled = True
' BtnGenerar.Enabled = True
' BtnEnviado.Enabled = True
' BtnGuardar.Enabled = True
'Else
' BtnEliminar.Enabled = False
' BtnGenerar.Enabled = False
' BtnEnviado.Enabled = False
' BtnGuardar.Enabled = False
'End If
End If
Catch ex As Exception
MessageBox.Show("Error al cargar llenar Grid" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub BtnGuardar_Click(sender As System.Object, e As System.EventArgs) Handles BtnGuardar.Click
Dim strSQLComodin As String
Dim liId As Integer
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
Dim Parametros As New ArrayList
Dim Exist As Boolean = False
Dim Sql As String = ""
Dim FechaGuardar As String = ""
Dim Fechaok As String = ""
Dim Unificado As String
Dim ClavePais As String
Dim Classcom As New clsComplejo
Dim DsDatos As New DataSet
'VALIDACION DE CAMPOS TO_DATE('" & FechaGuardar & "','dd/MM/yyyy')
Try
If RDBUnificado.Checked = True Then
Unificado = "1"
ClavePais = CmbPaisU.SelectedValue
End If
If RDBSeparado.Checked = True Then
Unificado = "0"
ClavePais = CmbPaisS.SelectedValue
End If
If VIDAvisos = 0 Then
Sql = "INSERT INTO IEF_AVISOS (IDAVISO,ID_ORG_REGULADOR,CLAVE_INSTITUCION,FECHA_FIRMA,TIPO_VIGENCIA,INICIO_VIGENCIA,FIN_VIGENCIA,OBJETO_CONVENIO,CLAVE_PAIS,UNIFICADO,DOMICILIO_UNIFICADO,CIUDAD_POBLACIONU,COLONIAU,CODIGO_POSTALU,ESTADO_PROVINCIAS,CODIGO_POSTALS,CIUDAD_POBLACIONS,COLONIAS,CALLES,NUM_EXTS,NUM_INTS,NOM_ENT_FIN_EXT,ESTATUS) " &
"SELECT ISNULL(MAX(IDAVISO),0) + 1,'" & CmbOrg.SelectedValue & "','" & CmbInst.SelectedValue & "',CONVERT(DATETIME,'" & DtpFechaConvenio.Value.ToString("dd-MM-yyyy") & "', 103) ,'" & CmbVigencia.SelectedValue & "',CONVERT(DATETIME,'" & DtpFechaIni.Value.ToString("dd-MM-yyyy") & "', 103),CONVERT(DATETIME,'" & DtpFechaFin.Value.ToString("dd-MM-yyyy") & "', 103)," &
"'" & TxtObjeto.Text.Replace("'", "''") & "','" & ClavePais & "','" & Unificado & "','" & TxtDomicilioU.Text.Replace("'", "''") & "','" & TxtCiudadU.Text.Replace("'", "''") & "','" & TxtColoniaU.Text.Replace("'", "''") & "','" & TxtCPU.Text.Replace("'", "''") & "','" & TxtEstadoS.Text.Replace("'", "''") & "','" & TxtCPS.Text.Replace("'", "''") & "','" & TxtCiudadS.Text.Replace("'", "''") & "','" & TxtColoniaS.Text.Replace("'", "''") & "','" & TxtCalleS.Text.Replace("'", "''") & "','" & TxtNumExtS.Text.Replace("'", "''") & "','" & TxtNumIntS.Text.Replace("'", "''") & "','" & TxtNombreEFE.Text.Replace("'", "''") & "','A' FROM IEF_AVISOS"
Else
Sql = "UPDATE IEF_AVISOS SET ID_ORG_REGULADOR='" & CmbOrg.SelectedValue & "',CLAVE_INSTITUCION='" & CmbInst.SelectedValue & "',FECHA_FIRMA=CONVERT(DATETIME,'" & DtpFechaConvenio.Value.ToString("dd-MM-yyyy") & "', 103),TIPO_VIGENCIA= '" & CmbVigencia.SelectedValue & "',INICIO_VIGENCIA=CONVERT(DATETIME,'" & DtpFechaIni.Value.ToString("dd-MM-yyyy") & "', 103),FIN_VIGENCIA=CONVERT(DATETIME,'" & DtpFechaFin.Value.ToString("dd-MM-yyyy") & "', 103),OBJETO_CONVENIO= '" & TxtObjeto.Text.Replace("'", "''") & "',CLAVE_PAIS= '" & ClavePais & "',UNIFICADO= '" & Unificado & "',DOMICILIO_UNIFICADO= '" & TxtDomicilioU.Text.Replace("'", "''") & "',CIUDAD_POBLACIONU= '" & TxtCiudadU.Text.Replace("'", "''") & "',COLONIAU='" & TxtColoniaU.Text.Replace("'", "''") & "',CODIGO_POSTALU= '" & TxtCPU.Text.Replace("'", "''") & "',ESTADO_PROVINCIAS= '" & TxtEstadoS.Text.Replace("'", "''") & "',CODIGO_POSTALS='" & TxtCPS.Text.Replace("'", "''") & "',CIUDAD_POBLACIONS= '" & TxtCiudadS.Text.Replace("'", "''") & "',COLONIAS= '" & TxtColoniaS.Text.Replace("'", "''") & "',CALLES='" & TxtCalleS.Text.Replace("'", "''") & "',NUM_EXTS='" & TxtNumExtS.Text.Replace("'", "''") & "',NUM_INTS='" & TxtNumIntS.Text.Replace("'", "''") & "',NOM_ENT_FIN_EXT='" & TxtNombreEFE.Text.Replace("'", "''") & "' WHERE IDAVISO= " & VIDAvisos
End If
ClassComodin.sbModifica2(Sql)
If VIDAvisos = 0 Then
Sql = "SELECT MAX(IDAVISO) FROM IEF_AVISOS"
DsDatos = Classcom.fdtDataSet(Sql)
VIDAvisos = DsDatos.Tables(0).Rows(0)(0)
End If
Sql = "DELETE FROM IEF_PERSONASAUT WHERE IDAVISO= " & VIDAvisos
ClassComodin.sbModifica2(Sql)
For Each row As DataGridViewRow In DgvPersonas.Rows
Sql = "INSERT INTO IEF_PERSONASAUT (IDAVISO,NOMBRE,AP_PAT,AP_MAT,RFC,CURP,CARGO,TIPO) " &
" VALUES (" & VIDAvisos & ",'" & row.Cells("NOMBRE").Value.ToString.Replace("'", "''") & "','" & row.Cells("APPAT").Value.ToString.Replace("'", "''") & "','" & row.Cells("APMAT").Value.ToString.Replace("'", "''") & "','" & row.Cells("RFC").Value.ToString.Replace("'", "''") & "','" & row.Cells("CURP").Value.ToString.Replace("'", "''") & "','','1')"
ClassComodin.sbModifica2(Sql)
Next
For Each row As DataGridViewRow In dgvPersonasE.Rows
Sql = "INSERT INTO IEF_PERSONASAUT (IDAVISO,NOMBRE,AP_PAT,AP_MAT,RFC,CURP,CARGO,TIPO) " &
" VALUES (" & VIDAvisos & ",'" & row.Cells("NOMBREE").Value.ToString.Replace("'", "''") & "','" & row.Cells("APPATE").Value.ToString.Replace("'", "''") & "','" & row.Cells("APMATE").Value.ToString.Replace("'", "''") & "','','','" & row.Cells("CARGOE").Value.ToString.Replace("'", "''") & "','2')"
ClassComodin.sbModifica2(Sql)
Next
If ChkHistoria.Checked = True Then
CargaGridA("C")
Else
CargaGridA("A")
End If
MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al grabar Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub DgvAvisos_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DgvAvisos.Click
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Dim Parametros As New ArrayList
Dim DsDatos As New DataSet
Dim DsDatosP As New DataSet
Dim DsDatosPE As New DataSet
Dim UltRen As Integer
Dim DT As New DataGridViewRow
Dim DTE As New DataGridViewRow
Try
If DgvAvisos.Rows.Count > 0 Then
Limpiar()
'LLENA GRID
'SQL = "SELECT DTDIAINHABIL, ID, DIA, MES, ANO FROM CAT_DIASINHABILES WHERE ANO = '" & Anio & "'"
SQL = "SELECT IDAVISO,ID_ORG_REGULADOR,CLAVE_INSTITUCION,FECHA_FIRMA,TIPO_VIGENCIA,INICIO_VIGENCIA,FIN_VIGENCIA,OBJETO_CONVENIO,CLAVE_PAIS,UNIFICADO,DOMICILIO_UNIFICADO,CIUDAD_POBLACIONU,COLONIAU,CODIGO_POSTALU,ESTADO_PROVINCIAS,CODIGO_POSTALS,CIUDAD_POBLACIONS,COLONIAS,CALLES,NUM_EXTS,NUM_INTS,NOM_ENT_FIN_EXT,ESTATUS FROM IEF_AVISOS WHERE IDAVISO = '" & DgvAvisos.CurrentRow.Cells("IDAVISO").Value & "'"
DsDatos = Classcom.fdtDataSet(SQL)
VIDAvisos = DsDatos.Tables(0).Rows(0)("IDAVISO")
CmbOrg.SelectedValue = DsDatos.Tables(0).Rows(0)("ID_ORG_REGULADOR")
CmbInst.SelectedValue = DsDatos.Tables(0).Rows(0)("CLAVE_INSTITUCION")
DtpFechaConvenio.Value = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("FECHA_FIRMA")), "", DsDatos.Tables(0).Rows(0)("FECHA_FIRMA"))
CmbVigencia.SelectedValue = "0" & DsDatos.Tables(0).Rows(0)("TIPO_VIGENCIA")
If CmbVigencia.SelectedValue = "02" Then
DtpFechaIni.Value = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("INICIO_VIGENCIA")), "", DsDatos.Tables(0).Rows(0)("INICIO_VIGENCIA"))
DtpFechaFin.Value = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("FIN_VIGENCIA")), "", DsDatos.Tables(0).Rows(0)("FIN_VIGENCIA"))
End If
TxtObjeto.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("OBJETO_CONVENIO")), "", DsDatos.Tables(0).Rows(0)("OBJETO_CONVENIO"))
TxtNombreEFE.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("NOM_ENT_FIN_EXT")), "", DsDatos.Tables(0).Rows(0)("NOM_ENT_FIN_EXT"))
If IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("UNIFICADO")), -1, DsDatos.Tables(0).Rows(0)("UNIFICADO")) = 1 Then
RDBUnificado.Checked = True
'Unificado = 0
ElseIf IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("UNIFICADO")), -1, DsDatos.Tables(0).Rows(0)("UNIFICADO")) = 0 Then
RDBSeparado.Checked = True
Else
RDBUnificado.Checked = False
RDBSeparado.Checked = False
GRPDomicilioUnificado.Visible = False
GRPDomicilioSeparado.Visible = False
End If
TxtDomicilioU.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("DOMICILIO_UNIFICADO")), "", DsDatos.Tables(0).Rows(0)("DOMICILIO_UNIFICADO"))
TxtCPU.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CODIGO_POSTALU")), "", DsDatos.Tables(0).Rows(0)("CODIGO_POSTALU"))
CmbPaisU.SelectedValue = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CLAVE_PAIS")), "", DsDatos.Tables(0).Rows(0)("CLAVE_PAIS"))
TxtCiudadU.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CIUDAD_POBLACIONU")), "", DsDatos.Tables(0).Rows(0)("CIUDAD_POBLACIONU"))
TxtColoniaU.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("COLONIAU")), "", DsDatos.Tables(0).Rows(0)("COLONIAU"))
TxtCalleS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CALLES")), "", DsDatos.Tables(0).Rows(0)("CALLES"))
TxtNumExtS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("NUM_EXTS")), "", DsDatos.Tables(0).Rows(0)("NUM_EXTS"))
TxtNumIntS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("NUM_INTS")), "", DsDatos.Tables(0).Rows(0)("NUM_INTS"))
TxtCPS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CODIGO_POSTALS")), "", DsDatos.Tables(0).Rows(0)("CODIGO_POSTALS"))
CmbPaisS.SelectedValue = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CLAVE_PAIS")), "", DsDatos.Tables(0).Rows(0)("CLAVE_PAIS"))
TxtEstadoS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("ESTADO_PROVINCIAS")), "", DsDatos.Tables(0).Rows(0)("ESTADO_PROVINCIAS"))
TxtCiudadS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CIUDAD_POBLACIONS")), "", DsDatos.Tables(0).Rows(0)("CIUDAD_POBLACIONS"))
TxtColoniaS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("COLONIAS")), "", DsDatos.Tables(0).Rows(0)("COLONIAS"))
If IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("ESTATUS")), "", DsDatos.Tables(0).Rows(0)("ESTATUS")) = "E" Then
DtpFechaConvenio.Enabled = False
CmbVigencia.Enabled = False
GbFechas.Enabled = False
TxtObjeto.Enabled = False
TxtNombreEFE.Enabled = False
GbP.Enabled = False
GbPE.Enabled = False
GbTD.Enabled = False
GRPDomicilioUnificado.Enabled = False
GRPDomicilioSeparado.Enabled = False
BtnGuardar.Enabled = False
BtnEliminar.Enabled = False
BtnEnviado.Enabled = False
BtnGenerar.Enabled = False
Else
DtpFechaConvenio.Enabled = True
GbFechas.Enabled = True
CmbVigencia.Enabled = True
TxtObjeto.Enabled = True
TxtNombreEFE.Enabled = True
GbP.Enabled = True
GbPE.Enabled = True
GbTD.Enabled = True
GRPDomicilioUnificado.Enabled = True
GRPDomicilioSeparado.Enabled = True
BtnGuardar.Enabled = True
BtnEliminar.Enabled = True
BtnEnviado.Enabled = True
BtnGenerar.Enabled = True
End If
SQL = "SELECT IDAVISO,NOMBRE,AP_PAT,AP_MAT,RFC,CURP,CARGO,TIPO FROM IEF_PERSONASAUT WHERE IDAVISO = '" & DgvAvisos.CurrentRow.Cells("IDAVISO").Value & "' AND TIPO = '1'"
DsDatosP = Classcom.fdtDataSet(SQL)
If DsDatosP.Tables(0).Rows.Count > 0 Then
For Each row As DataRow In DsDatosP.Tables(0).Rows
UltRen = DgvPersonas.Rows.Count
DT = New DataGridViewRow
DT.CreateCells(DgvPersonas)
DT.Cells(0).Value = row("NOMBRE")
DT.Cells(1).Value = row("AP_PAT")
DT.Cells(2).Value = row("AP_MAT")
DT.Cells(3).Value = row("RFC")
DT.Cells(4).Value = row("CURP")
DgvPersonas.Rows.Insert(UltRen, DT)
Next
End If
SQL = "SELECT IDAVISO,NOMBRE,AP_PAT,AP_MAT,RFC,CURP,CARGO,TIPO FROM IEF_PERSONASAUT WHERE IDAVISO = '" & DgvAvisos.CurrentRow.Cells("IDAVISO").Value & "' AND TIPO = '2'"
DsDatosPE = Classcom.fdtDataSet(SQL)
If DsDatosPE.Tables(0).Rows.Count > 0 Then
For Each row As DataRow In DsDatosPE.Tables(0).Rows
DTE = New DataGridViewRow
UltRen = dgvPersonasE.Rows.Count
DTE.CreateCells(dgvPersonasE)
DTE.Cells(0).Value = row("NOMBRE")
DTE.Cells(1).Value = row("AP_PAT")
DTE.Cells(2).Value = row("AP_MAT")
DTE.Cells(3).Value = row("CARGO")
dgvPersonasE.Rows.Insert(UltRen, DTE)
Next
End If
If CmbVigencia.SelectedValue = "02" Then
GbFechas.Visible = True
Else
GbFechas.Visible = False
End If
If ChkHistoria.Checked = False Then
BtnEnviado.Enabled = False
End If
End If
Catch ex As Exception
MessageBox.Show("Error de conexión" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub DgvAvisos_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DgvAvisos.CurrentCellChanged
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Dim Parametros As New ArrayList
Dim DsDatos As New DataSet
Dim DsDatosP As New DataSet
Dim DsDatosPE As New DataSet
Dim UltRen As Integer
Dim DT As New DataGridViewRow
Dim DTE As New DataGridViewRow
Try
If Not IsNothing(DgvAvisos.CurrentRow) Then
Limpiar()
'LLENA GRID
'SQL = "SELECT DTDIAINHABIL, ID, DIA, MES, ANO FROM CAT_DIASINHABILES WHERE ANO = '" & Anio & "'"
SQL = "SELECT IDAVISO,ID_ORG_REGULADOR,CLAVE_INSTITUCION,FECHA_FIRMA,TIPO_VIGENCIA,INICIO_VIGENCIA,FIN_VIGENCIA,OBJETO_CONVENIO,CLAVE_PAIS,UNIFICADO,DOMICILIO_UNIFICADO,CIUDAD_POBLACIONU,COLONIAU,CODIGO_POSTALU,ESTADO_PROVINCIAS,CODIGO_POSTALS,CIUDAD_POBLACIONS,COLONIAS,CALLES,NUM_EXTS,NUM_INTS,NOM_ENT_FIN_EXT,ESTATUS FROM IEF_AVISOS WHERE IDAVISO = '" & DgvAvisos.CurrentRow.Cells("IDAVISO").Value & "'"
DsDatos = Classcom.fdtDataSet(SQL)
VIDAvisos = DsDatos.Tables(0).Rows(0)("IDAVISO")
CmbOrg.SelectedValue = DsDatos.Tables(0).Rows(0)("ID_ORG_REGULADOR")
CmbInst.SelectedValue = DsDatos.Tables(0).Rows(0)("CLAVE_INSTITUCION")
DtpFechaConvenio.Value = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("FECHA_FIRMA")), "", DsDatos.Tables(0).Rows(0)("FECHA_FIRMA"))
CmbVigencia.SelectedValue = "0" & DsDatos.Tables(0).Rows(0)("TIPO_VIGENCIA")
If CmbVigencia.SelectedValue = "02" Then
DtpFechaIni.Value = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("INICIO_VIGENCIA")), "", DsDatos.Tables(0).Rows(0)("INICIO_VIGENCIA"))
DtpFechaFin.Value = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("FIN_VIGENCIA")), "", DsDatos.Tables(0).Rows(0)("FIN_VIGENCIA"))
End If
TxtObjeto.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("OBJETO_CONVENIO")), "", DsDatos.Tables(0).Rows(0)("OBJETO_CONVENIO"))
TxtNombreEFE.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("NOM_ENT_FIN_EXT")), "", DsDatos.Tables(0).Rows(0)("NOM_ENT_FIN_EXT"))
If IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("UNIFICADO")), -1, DsDatos.Tables(0).Rows(0)("UNIFICADO")) = 1 Then
RDBUnificado.Checked = True
'Unificado = 0
ElseIf IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("UNIFICADO")), -1, DsDatos.Tables(0).Rows(0)("UNIFICADO")) = 0 Then
RDBSeparado.Checked = True
Else
RDBUnificado.Checked = False
RDBSeparado.Checked = False
GRPDomicilioUnificado.Visible = False
GRPDomicilioSeparado.Visible = False
End If
TxtDomicilioU.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("DOMICILIO_UNIFICADO")), "", DsDatos.Tables(0).Rows(0)("DOMICILIO_UNIFICADO"))
TxtCPU.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CODIGO_POSTALU")), "", DsDatos.Tables(0).Rows(0)("CODIGO_POSTALU"))
CmbPaisU.SelectedValue = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CLAVE_PAIS")), "", DsDatos.Tables(0).Rows(0)("CLAVE_PAIS"))
TxtCiudadU.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CIUDAD_POBLACIONU")), "", DsDatos.Tables(0).Rows(0)("CIUDAD_POBLACIONU"))
TxtColoniaU.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("COLONIAU")), "", DsDatos.Tables(0).Rows(0)("COLONIAU"))
TxtCalleS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CALLES")), "", DsDatos.Tables(0).Rows(0)("CALLES"))
TxtNumExtS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("NUM_EXTS")), "", DsDatos.Tables(0).Rows(0)("NUM_EXTS"))
TxtNumIntS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("NUM_INTS")), "", DsDatos.Tables(0).Rows(0)("NUM_INTS"))
TxtCPS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CODIGO_POSTALS")), "", DsDatos.Tables(0).Rows(0)("CODIGO_POSTALS"))
CmbPaisS.SelectedValue = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CLAVE_PAIS")), "", DsDatos.Tables(0).Rows(0)("CLAVE_PAIS"))
TxtEstadoS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("ESTADO_PROVINCIAS")), "", DsDatos.Tables(0).Rows(0)("ESTADO_PROVINCIAS"))
TxtCiudadS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CIUDAD_POBLACIONS")), "", DsDatos.Tables(0).Rows(0)("CIUDAD_POBLACIONS"))
TxtColoniaS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("COLONIAS")), "", DsDatos.Tables(0).Rows(0)("COLONIAS"))
If IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("ESTATUS")), "", DsDatos.Tables(0).Rows(0)("ESTATUS")) = "E" Then
DtpFechaConvenio.Enabled = False
CmbVigencia.Enabled = False
GbFechas.Enabled = False
TxtObjeto.Enabled = False
TxtNombreEFE.Enabled = False
GbP.Enabled = False
GbPE.Enabled = False
GbTD.Enabled = False
GRPDomicilioUnificado.Enabled = False
GRPDomicilioSeparado.Enabled = False
BtnGuardar.Enabled = False
BtnEliminar.Enabled = False
BtnEnviado.Enabled = False
BtnGenerar.Enabled = False
Else
DtpFechaConvenio.Enabled = True
GbFechas.Enabled = True
CmbVigencia.Enabled = True
TxtObjeto.Enabled = True
TxtNombreEFE.Enabled = True
GbP.Enabled = True
GbPE.Enabled = True
GbTD.Enabled = True
GRPDomicilioUnificado.Enabled = True
GRPDomicilioSeparado.Enabled = True
BtnGuardar.Enabled = True
BtnEliminar.Enabled = True
BtnEnviado.Enabled = True
BtnGenerar.Enabled = True
End If
SQL = "SELECT IDAVISO,NOMBRE,AP_PAT,AP_MAT,RFC,CURP,CARGO,TIPO FROM IEF_PERSONASAUT WHERE IDAVISO = '" & DgvAvisos.CurrentRow.Cells("IDAVISO").Value & "' AND TIPO = '1'"
DsDatosP = Classcom.fdtDataSet(SQL)
If DsDatosP.Tables(0).Rows.Count > 0 Then
For Each row As DataRow In DsDatosP.Tables(0).Rows
UltRen = DgvPersonas.Rows.Count
DT = New DataGridViewRow
DT.CreateCells(DgvPersonas)
DT.Cells(0).Value = row("NOMBRE")
DT.Cells(1).Value = row("AP_PAT")
DT.Cells(2).Value = row("AP_MAT")
DT.Cells(3).Value = row("RFC")
DT.Cells(4).Value = row("CURP")
DgvPersonas.Rows.Insert(UltRen, DT)
Next
End If
SQL = "SELECT IDAVISO,NOMBRE,AP_PAT,AP_MAT,RFC,CURP,CARGO,TIPO FROM IEF_PERSONASAUT WHERE IDAVISO = '" & DgvAvisos.CurrentRow.Cells("IDAVISO").Value & "' AND TIPO = '2'"
DsDatosPE = Classcom.fdtDataSet(SQL)
If DsDatosPE.Tables(0).Rows.Count > 0 Then
For Each row As DataRow In DsDatosPE.Tables(0).Rows
DTE = New DataGridViewRow
UltRen = dgvPersonasE.Rows.Count
DTE.CreateCells(dgvPersonasE)
DTE.Cells(0).Value = row("NOMBRE")
DTE.Cells(1).Value = row("AP_PAT")
DTE.Cells(2).Value = row("AP_MAT")
DTE.Cells(3).Value = row("CARGO")
dgvPersonasE.Rows.Insert(UltRen, DTE)
Next
End If
End If
If CmbVigencia.SelectedValue = "02" Then
GbFechas.Visible = True
Else
GbFechas.Visible = False
End If
If ChkHistoria.Checked = False Then
BtnEnviado.Enabled = False
End If
Catch ex As Exception
MessageBox.Show("Error de conexión" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub DgvAvisos_DoubleClick(sender As Object, e As System.EventArgs) Handles DgvAvisos.DoubleClick
End Sub
Private Sub ChkHistoria_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChkHistoria.CheckedChanged
If ChkHistoria.Checked = True Then
BtnEnviado.Enabled = True
CargaGridA("C")
DgvAvisos.Columns("ENVIADO").Visible = True
Else
BtnEnviado.Enabled = False
CargaGridA("A")
DgvAvisos.Columns("ENVIADO").Visible = False
End If
Limpiar()
If DgvAvisos.Rows.Count > 0 Then
BtnEliminar.Enabled = True
Else
BtnEliminar.Enabled = False
End If
If DgvAvisos.Rows.Count > 0 Then
DgvAvisos.Rows(0).Cells(0).Selected = True
'BtnEliminar.Enabled = True
'BtnGenerar.Enabled = True
'BtnEnviado.Enabled = True
'BtnGuardar.Enabled = True
BtnEliminar.Enabled = False
BtnGenerar.Enabled = False
BtnEnviado.Enabled = False
BtnGuardar.Enabled = False
Else
BtnEliminar.Enabled = False
BtnGenerar.Enabled = False
BtnEnviado.Enabled = False
BtnGuardar.Enabled = False
End If
DgvAvisos_Click(Nothing, Nothing)
End Sub
Private Sub CmbVigencia_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CmbVigencia.SelectedIndexChanged
End Sub
Private Sub CmbVigencia_SelectionChangeCommitted(sender As Object, e As System.EventArgs) Handles CmbVigencia.SelectionChangeCommitted
If CmbVigencia.SelectedValue = "02" Then
GbFechas.Visible = True
Else
GbFechas.Visible = False
End If
End Sub
Private Sub BtnNuevo_Click(sender As System.Object, e As System.EventArgs) Handles BtnNuevo.Click
CargaGridAN("A")
If DgvAvisos.Rows.Count > 0 Then
DgvAvisos.CurrentRow.Selected = False
End If
ChkHistoria.Checked = False
BtnGuardar.Enabled = True
Limpiar()
DgvAvisos.ClearSelection()
TxtObjeto.Focus()
End Sub
Private Sub CmdAgregar_Click(sender As System.Object, e As System.EventArgs) Handles CmdAgregar.Click
Dim UltRen As Integer
Dim DT As New DataGridViewRow
Try
If TxtNombre.Text.Trim.Length = 0 Then
MsgBox("Debe Capturar un Nombre", MsgBoxStyle.OkOnly, "Mensaje")
Exit Sub
End If
If TxtApPat.Text.Trim.Length = 0 Then
MsgBox("Debe Capturar un Apellido Paterno o Cuatro Equis (XXXX)", MsgBoxStyle.OkOnly, "Mensaje")
Exit Sub
End If
If TxtApMat.Text.Trim.Length = 0 Then
MsgBox("Debe Capturar un Apellido Materno o Cuatro Equis (XXXX)", MsgBoxStyle.OkOnly, "Mensaje")
Exit Sub
End If
If TxtApPat.Text.Trim = "XXXX" And TxtApMat.Text.Trim = "XXXX" Then
MsgBox("Apellido Paterno o Materno solo uno puede contener XXXX", MsgBoxStyle.OkOnly, "Mensaje")
Exit Sub
End If
If TxtRFC.Text.Trim.Length = 0 Or TxtRFC.Text.Trim.Length < 13 Then
If TxtRFC.Text.Trim.Length = 0 Then
MsgBox("Debe Capturar el RFC", MsgBoxStyle.OkOnly, "Mensaje")
Exit Sub
End If
End If
If TxtCurp.Text.Trim.Length > 1 And TxtCurp.Text.Trim.Length < 18 Then
MsgBox("Debe Completar la CURP", MsgBoxStyle.OkOnly, "Mensaje")
Exit Sub
End If
If TxtCurp.Text.Trim.Length >= 10 And TxtRFC.Text.Trim.Length >= 10 Then
If TxtCurp.Text.Trim.Substring(4, 6) <> TxtRFC.Text.Trim.Substring(4, 6) Then
MsgBox("La fecha de RFC y CURP son distintas", MsgBoxStyle.OkOnly, "Mensaje")
Exit Sub
End If
End If
UltRen = DgvPersonas.Rows.Count
DT.CreateCells(DgvPersonas)
DT.Cells(0).Value = TxtNombre.Text
DT.Cells(1).Value = TxtApPat.Text
DT.Cells(2).Value = TxtApMat.Text
DT.Cells(3).Value = TxtRFC.Text
DT.Cells(4).Value = TxtCurp.Text
DgvPersonas.Rows.Insert(UltRen, DT)
TxtNombre.Text = ""
TxtApPat.Text = ""
TxtApMat.Text = ""
TxtRFC.Text = ""
TxtCurp.Text = ""
Catch Err As Exception
MsgBox(Err.Message)
End Try
End Sub
Private Sub CmdAgregarE_Click(sender As System.Object, e As System.EventArgs) Handles CmdAgregarE.Click
Dim UltRen As Integer
Dim DT As New DataGridViewRow
Try
If TxtNombreE.Text.Trim.Length = 0 Then
MsgBox("Debe Capturar un Nombre", MsgBoxStyle.OkOnly, "Mensaje")
Exit Sub
End If
If TxtApPatE.Text.Trim.Length = 0 Then
MsgBox("Debe Capturar un Apellido Paterno o Cuatro Equis (XXXX)", MsgBoxStyle.OkOnly, "Mensaje")
Exit Sub
End If
If TxtApMatE.Text.Trim.Length = 0 Then
MsgBox("Debe Capturar un Apellido Materno o Cuatro Equis (XXXX)", MsgBoxStyle.OkOnly, "Mensaje")
Exit Sub
End If
If TxtApPatE.Text.Trim = "XXXX" And TxtApMatE.Text.Trim = "XXXX" Then
MsgBox("Apellido Paterno o Materno solo uno puede contener XXXX", MsgBoxStyle.OkOnly, "Mensaje")
Exit Sub
End If
If TxtCargo.Text.Trim.Length = 0 Then
MsgBox("Debe Capturar un Cargo", MsgBoxStyle.OkOnly, "Mensaje")
Exit Sub
End If
UltRen = dgvPersonasE.Rows.Count
DT.CreateCells(dgvPersonasE)
DT.Cells(0).Value = TxtNombreE.Text
DT.Cells(1).Value = TxtApPatE.Text
DT.Cells(2).Value = TxtApMatE.Text
DT.Cells(3).Value = TxtCargo.Text
dgvPersonasE.Rows.Insert(UltRen, DT)
TxtNombreE.Text = ""
TxtApPatE.Text = ""
TxtApMatE.Text = ""
TxtCargo.Text = ""
Catch Err As Exception
MsgBox(Err.Message)
End Try
End Sub
Private Sub CmdQuitar_Click(sender As System.Object, e As System.EventArgs) Handles CmdQuitar.Click
If DgvPersonas.Rows.Count > 0 Then
DgvPersonas.Rows.Remove(DgvPersonas.CurrentRow)
End If
End Sub
Private Sub CmdQuitarE_Click(sender As System.Object, e As System.EventArgs) Handles CmdQuitarE.Click
If dgvPersonasE.Rows.Count > 0 Then
dgvPersonasE.Rows.Remove(dgvPersonasE.CurrentRow)
End If
End Sub
Private Sub BtnGenerar_Click(sender As System.Object, e As System.EventArgs) Handles BtnGenerar.Click
Dim fileSave As New SaveFileDialog
Dim File As String = Nothing
Dim Dia As String
Dim Mes As String
Dim Anio As String
'Vicente 03/06/2015 valida cuando es un registro nuevo y se quiere generar
If IsNothing(DgvAvisos.CurrentRow) Then
MsgBox("Es necesario seleccionar un aviso de la lista para poderlo generar", MsgBoxStyle.Exclamation)
Exit Sub
End If
Dia = Now.Day
Mes = Now.Month
Anio = Now.Year
Dia = Dia.PadLeft(2, "0")
Mes = Mes.PadLeft(2, "0")
If VALIDACIONES() Then
'fileSave.CheckFileExists = True
fileSave.Filter = "Archivos XML | *.XML"
fileSave.FileName = Dia & Mes & Anio & "_ACID.xml"
fileSave.Title = "Guardar Archivo"
File = fileSave.ShowDialog()
If File = 1 Then
AddData(fileSave.FileName)
ActualizaTipo()
MsgBox("Archivo de Aviso Generado", MsgBoxStyle.OkOnly, "Mensaje")
If ChkHistoria.Checked = True Then
BtnEnviado.Enabled = True
CargaGridA("C")
Else
BtnEnviado.Enabled = False
CargaGridA("A")
End If
End If
End If
End Sub
Private Function VALIDACIONES() As Boolean
Dim retval As Boolean = False
Dim dsData As New DataSet
Dim dsPersonas As New DataSet
Dim dsPersonasE As New DataSet
Dim Mensajes As String = Nothing
dsData = GetData()
dsPersonas = GetPersonas()
dsPersonasE = GetPersonasE()
'If dsData.Tables(0).Rows(0).Item("TIPO_VIGENCIA") = "2" Then
'If dsData.Tables(0).Rows(0).Item("INICIO_VIGENCIA").ToString.Length = 0 Then
'End If
'End If
If dsData.Tables(0).Rows(0).Item("OBJETO_CONVENIO").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR OBJETO DEL CONVENIO CELEBRADO" & Chr(13)
End If
If dsData.Tables(0).Rows(0).Item("NOM_ENT_FIN_EXT").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR NOMBRE DE LA ENTIDAD FINANCIERA EXTRANJERA" & Chr(13)
End If
If dsData.Tables(0).Rows(0).Item("UNIFICADO").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR TIPO DE DOMICILIO" & Chr(13)
Else
'Unificado = 1 Separado = 0
If dsData.Tables(0).Rows(0).Item("UNIFICADO") = 1 Then
If dsData.Tables(0).Rows(0).Item("DOMICILIO_UNIFICADO").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR DOMICILIO UNIFICADO" & Chr(13)
End If
If dsData.Tables(0).Rows(0).Item("CIUDAD_POBLACIONU").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR CIUDAD O POBLACION DOM. UNIFICADO" & Chr(13)
End If
If dsData.Tables(0).Rows(0).Item("CODIGO_POSTALU").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR CODIGO POSTAL DOM. UNIFICADO" & Chr(13)
End If
If dsData.Tables(0).Rows(0).Item("COLONIAU").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR COLONIA DOM. UNIFICADO" & Chr(13)
End If
Else
If dsData.Tables(0).Rows(0).Item("ESTADO_PROVINCIAS").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR ESTADO DOM. UNIFICADO" & Chr(13)
End If
If dsData.Tables(0).Rows(0).Item("CODIGO_POSTALS").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR CODIGO POSTAL DOM. SEPARADO" & Chr(13)
End If
If dsData.Tables(0).Rows(0).Item("CIUDAD_POBLACIONS").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR CIUDAD O POBLACION DOM. SEPARADO" & Chr(13)
End If
If dsData.Tables(0).Rows(0).Item("CALLES").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR CALLE DOM. SEPARADO" & Chr(13)
End If
If dsData.Tables(0).Rows(0).Item("NUM_EXTS").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR NUMERO EXTERIOR DOM. SEPARADO" & Chr(13)
End If
If dsData.Tables(0).Rows(0).Item("NUM_INTS").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR NUMERO INTERIOR DOM. SEPARADO" & Chr(13)
End If
If dsData.Tables(0).Rows(0).Item("COLONIAS").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR COLONIA DOM. SEPARADO" & Chr(13)
End If
End If
End If
For Each row As DataRow In dsPersonas.Tables(0).Rows
If row("NOMBRE").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR NOMBRE PERSONA AUTORIZADA" & Chr(13)
End If
If row("AP_PAT").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR APELLIDO PATERNO PERSONA AUTORIZADA" & Chr(13)
End If
If row("AP_MAT").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR APELLIDO MATERNO PERSONA AUTORIZADA" & Chr(13)
End If
Next
If dsPersonas.Tables(0).Rows.Count = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR NOMBRE PERSONA AUTORIZADA" & Chr(13)
Mensajes = Mensajes & "FALTA CAPTURAR APELLIDO PATERNO PERSONA AUTORIZADA" & Chr(13)
Mensajes = Mensajes & "FALTA CAPTURAR APELLIDO MATERNO PERSONA AUTORIZADA" & Chr(13)
Mensajes = Mensajes & "FALTA CAPTURAR RFC Y/O CURP" & Chr(13)
End If
For Each row As DataRow In dsPersonasE.Tables(0).Rows
If row("NOMBRE").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR NOMBRE PERSONA AUTORIZADA EXTRANJERA" & Chr(13)
End If
If row("AP_PAT").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR APELLIDO PATERNO PERSONA AUTORIZADA EXTRANJERA" & Chr(13)
End If
If row("AP_MAT").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR APELLIDO MATERNO PERSONA AUTORIZADA EXTRANJERA" & Chr(13)
End If
If row("CARGO").ToString.Length = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR CARGO PERSONA AUTORIZADA EXTRANJERA" & Chr(13)
End If
Next
If dsPersonasE.Tables(0).Rows.Count = 0 Then
Mensajes = Mensajes & "FALTA CAPTURAR NOMBRE PERSONA AUTORIZADA EXTRANJERA" & Chr(13)
Mensajes = Mensajes & "FALTA CAPTURAR APELLIDO PATERNO PERSONA AUTORIZADA EXTRANJERA" & Chr(13)
Mensajes = Mensajes & "FALTA CAPTURAR APELLIDO MATERNO PERSONA AUTORIZADA EXTRANJERA" & Chr(13)
Mensajes = Mensajes & "FALTA CAPTURAR CARGO PERSONA AUTORIZADA EXTRANJERA" & Chr(13)
End If
If Mensajes IsNot Nothing Then
MsgBox(Mensajes, MsgBoxStyle.Exclamation, "Mensaje")
Else
retval = True
End If
Return retval
End Function
Private Function CaracteresNoValidos(ByVal Cadena As String, ByVal TipoCarctPermitidos As Integer) As Boolean
Dim caracteresPermitidos As String
Dim Resultado As Boolean = False
Dim C As String = ""
Dim i As Integer
Select Case TipoCarctPermitidos
Case 1
caracteresPermitidos = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '.0123456789#-.,:/" & Convert.ToChar(8)
Case 2
caracteresPermitidos = "0123456789ABCDEFGHIJKLMNÑOPQRSTUVWXYZ_" & Convert.ToChar(8)
Case 3
caracteresPermitidos = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '." & Convert.ToChar(8)
Case 4
caracteresPermitidos = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789 ,.:/" & Convert.ToChar(8)
Case 5
caracteresPermitidos = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789&" & Convert.ToChar(8)
End Select
For i = 1 To Cadena.Length
C = Mid(Cadena, i, 1)
If (Not (caracteresPermitidos.Contains(C))) Then
Resultado = True
Exit For
End If
Next
Return Resultado
End Function
Private Sub AddData(NombreArchivo As String)
Dim dsData As New DataSet
Dim dsPersonas As New DataSet
Dim dsPersonasE As New DataSet
Dim NomArchivoXml As String
NomArchivoXml = NombreArchivo
Dim myXmlTextWriter As New XmlTextWriter(NomArchivoXml, System.Text.Encoding.UTF8)
myXmlTextWriter.Formatting = System.Xml.Formatting.Indented
myXmlTextWriter.WriteStartDocument()
dsData = GetData()
'Elemento Principal -------------------------------------------------------------------------
myXmlTextWriter.WriteStartElement("aviso")
myXmlTextWriter.WriteAttributeString("xmlns", "xsi", Nothing, "http://www.w3.org/2001/XMLSchema-instance")
myXmlTextWriter.WriteAttributeString("xmlns", "http://www.cnbv.gob.mx/recepcion/acid")
myXmlTextWriter.WriteAttributeString("xsi", "schemaLocation", Nothing, "http://www.cnbv.gob.mx/recepcion/acid acid.xsd")
'Entidad Emisora
myXmlTextWriter.WriteStartElement("clave_organismo_regulador")
myXmlTextWriter.WriteString(dsData.Tables(0).Rows(0).Item("ID_ORG_REGULADOR"))
myXmlTextWriter.WriteEndElement()
myXmlTextWriter.WriteStartElement("clave_institucion")
myXmlTextWriter.WriteString(dsData.Tables(0).Rows(0).Item("CLAVE_INSTITUCION"))
myXmlTextWriter.WriteEndElement()
myXmlTextWriter.WriteStartElement("fecha_firma")
myXmlTextWriter.WriteString(CDate(dsData.Tables(0).Rows(0).Item("FECHA_FIRMA")).ToString("yyyyMMdd"))
myXmlTextWriter.WriteEndElement()
myXmlTextWriter.WriteStartElement("tipo_vigencia")
If dsData.Tables(0).Rows(0).Item("TIPO_VIGENCIA") = "2" Then
myXmlTextWriter.WriteStartElement("vigencia_definida")
myXmlTextWriter.WriteElementString("clave_vigencia", "02")
myXmlTextWriter.WriteElementString("inicio_vigencia", CDate(dsData.Tables(0).Rows(0).Item("INICIO_VIGENCIA")).ToString("yyyymmdd"))
myXmlTextWriter.WriteElementString("fin_vigencia", CDate(dsData.Tables(0).Rows(0).Item("FIN_VIGENCIA")).ToString("yyyymmdd"))
myXmlTextWriter.WriteEndElement() 'vigencia_definida
Else
myXmlTextWriter.WriteStartElement("vigencia_indefinida")
myXmlTextWriter.WriteElementString("clave_vigencia", "01")
myXmlTextWriter.WriteEndElement() 'vigencia_indefinida
End If
myXmlTextWriter.WriteEndElement()
myXmlTextWriter.WriteStartElement("objeto_convenio")
myXmlTextWriter.WriteString(IIf(IsDBNull(dsData.Tables(0).Rows(0).Item("OBJETO_CONVENIO")), "", dsData.Tables(0).Rows(0).Item("OBJETO_CONVENIO")))
myXmlTextWriter.WriteEndElement()
dsPersonas = GetPersonas()
myXmlTextWriter.WriteStartElement("datos_institucion_credito")
For Each row As DataRow In dsPersonas.Tables(0).Rows
myXmlTextWriter.WriteStartElement("persona_autorizada_institucion_credito")
myXmlTextWriter.WriteElementString("nombre_persona_autorizada", row("NOMBRE"))
myXmlTextWriter.WriteElementString("apellido_paterno_persona_autorizada", row("AP_PAT"))
myXmlTextWriter.WriteElementString("apellido_materno_persona_autorizada", row("AP_MAT"))
If row("RFC").ToString.Trim.Length = 13 Then
myXmlTextWriter.WriteElementString("rfc", row("RFC"))
End If
If row("CURP").ToString.Trim.Length > 0 Then
myXmlTextWriter.WriteElementString("curp", IIf(IsDBNull(row("CURP")), "", row("CURP")))
End If
myXmlTextWriter.WriteEndElement() 'persona_autorizada_institucion_credito
Next
myXmlTextWriter.WriteEndElement() 'datos_institucion_credito
myXmlTextWriter.WriteStartElement("datos_entidad_financiera_extranjera")
dsPersonasE = GetPersonasE()
myXmlTextWriter.WriteElementString("nombre_entidad_financiera_extranjera", IIf(IsDBNull(dsData.Tables(0).Rows(0).Item("NOM_ENT_FIN_EXT")), "", dsData.Tables(0).Rows(0).Item("NOM_ENT_FIN_EXT")))
For Each row As DataRow In dsPersonasE.Tables(0).Rows
myXmlTextWriter.WriteStartElement("persona_autorizada_entidad_financiera_extranjera")
myXmlTextWriter.WriteElementString("nombre_persona_autorizada", row("NOMBRE"))
myXmlTextWriter.WriteElementString("apellido_paterno_persona_autorizada", row("AP_PAT"))
myXmlTextWriter.WriteElementString("apellido_materno_persona_autorizada", row("AP_MAT"))
myXmlTextWriter.WriteElementString("cargo_entidad_financiera_extranjera", IIf(IsDBNull(row("CARGO")), "", row("CARGO")))
myXmlTextWriter.WriteEndElement() 'persona_autorizada_entidad_financiera_extranjera
Next
myXmlTextWriter.WriteStartElement("domicilio_matriz")
myXmlTextWriter.WriteElementString("clave_pais", IIf(IsDBNull(dsData.Tables(0).Rows(0).Item("CLAVE_PAIS")), "", dsData.Tables(0).Rows(0).Item("CLAVE_PAIS")))
myXmlTextWriter.WriteStartElement("tipo_domicilio")
If dsData.Tables(0).Rows(0).Item("UNIFICADO") = 1 Then
myXmlTextWriter.WriteStartElement("unificado")
myXmlTextWriter.WriteElementString("domicilio_unificado", dsData.Tables(0).Rows(0).Item("DOMICILIO_UNIFICADO"))
myXmlTextWriter.WriteElementString("ciudad_poblacion", IIf(IsDBNull(dsData.Tables(0).Rows(0).Item("CIUDAD_POBLACIONU")), "", dsData.Tables(0).Rows(0).Item("CIUDAD_POBLACIONU")))
'If dsData.Tables(0).Rows(0).Item("COLONIAU").ToString.Trim.Length > 0 Then
myXmlTextWriter.WriteElementString("colonia", IIf(IsDBNull(dsData.Tables(0).Rows(0).Item("COLONIAU")), "", dsData.Tables(0).Rows(0).Item("COLONIAU")))
'End If
myXmlTextWriter.WriteElementString("codigo_postal", IIf(IsDBNull(dsData.Tables(0).Rows(0).Item("CODIGO_POSTALU")), "", dsData.Tables(0).Rows(0).Item("CODIGO_POSTALU")))
myXmlTextWriter.WriteEndElement() 'unificado
Else
myXmlTextWriter.WriteStartElement("separado")
myXmlTextWriter.WriteElementString("estado_provincia", IIf(IsDBNull(dsData.Tables(0).Rows(0).Item("ESTADO_PROVINCIAS")), "", dsData.Tables(0).Rows(0).Item("ESTADO_PROVINCIAS")))
myXmlTextWriter.WriteElementString("codigo_postal", IIf(IsDBNull(dsData.Tables(0).Rows(0).Item("CODIGO_POSTALS")), "", dsData.Tables(0).Rows(0).Item("CODIGO_POSTALS")))
myXmlTextWriter.WriteElementString("ciudad_poblacion", IIf(IsDBNull(dsData.Tables(0).Rows(0).Item("CIUDAD_POBLACIONS")), "", dsData.Tables(0).Rows(0).Item("CIUDAD_POBLACIONS")))
'If dsData.Tables(0).Rows(0).Item("COLONIAS").ToString.Trim.Length > 0 Then
myXmlTextWriter.WriteElementString("colonia", IIf(IsDBNull(dsData.Tables(0).Rows(0).Item("COLONIAS")), "", dsData.Tables(0).Rows(0).Item("COLONIAS")))
'End If
myXmlTextWriter.WriteElementString("calle", IIf(IsDBNull(dsData.Tables(0).Rows(0).Item("CALLES")), "", dsData.Tables(0).Rows(0).Item("CALLES")))
myXmlTextWriter.WriteElementString("numero_exterior", IIf(IsDBNull(dsData.Tables(0).Rows(0).Item("NUM_EXTS")), "", dsData.Tables(0).Rows(0).Item("NUM_EXTS")))
'If dsData.Tables(0).Rows(0).Item("NUM_INTS").ToString.Trim.Length > 0 Then
myXmlTextWriter.WriteElementString("numero_interior", IIf(IsDBNull(dsData.Tables(0).Rows(0).Item("NUM_INTS")), "", dsData.Tables(0).Rows(0).Item("NUM_INTS")))
'End If
myXmlTextWriter.WriteEndElement() 'separado
End If
myXmlTextWriter.WriteEndElement() 'tipo_domicilio
myXmlTextWriter.WriteEndElement() 'domicilio_matriz
myXmlTextWriter.WriteEndElement() 'datos_entidad_financiera_extranjera
'Cierra elemento Principal -------------------------------------------------------------------------
myXmlTextWriter.WriteEndElement() 'aviso
myXmlTextWriter.Flush()
myXmlTextWriter.Close()
End Sub
Private Function GetData() As DataSet
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Dim Parametros As New ArrayList
Dim DsDatos As New DataSet
Try
'LLENA GRID
'SQL = "SELECT DTDIAINHABIL, ID, DIA, MES, ANO FROM CAT_DIASINHABILES WHERE ANO = '" & Anio & "'"
SQL = "SELECT IDAVISO,ID_ORG_REGULADOR,CLAVE_INSTITUCION,FECHA_FIRMA,TIPO_VIGENCIA,INICIO_VIGENCIA,FIN_VIGENCIA,OBJETO_CONVENIO,CLAVE_PAIS,UNIFICADO,DOMICILIO_UNIFICADO,CIUDAD_POBLACIONU,COLONIAU,CODIGO_POSTALU,ESTADO_PROVINCIAS,CODIGO_POSTALS,CIUDAD_POBLACIONS,COLONIAS,CALLES,NUM_EXTS,NUM_INTS,NOM_ENT_FIN_EXT,ESTATUS FROM IEF_AVISOS WHERE IDAVISO = '" & DgvAvisos.CurrentRow.Cells("IDAVISO").Value & "'"
DsDatos = Classcom.fdtDataSet(SQL)
Return DsDatos
Catch ex As Exception
MessageBox.Show("Error de conexión" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Function
Private Function GetPersonas() As DataSet
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Dim Parametros As New ArrayList
Dim DsDatos As New DataSet
Try
'LLENA GRID
'SQL = "SELECT DTDIAINHABIL, ID, DIA, MES, ANO FROM CAT_DIASINHABILES WHERE ANO = '" & Anio & "'"
SQL = "SELECT IDAVISO,NOMBRE,AP_PAT,AP_MAT,RFC,CURP,CARGO,TIPO FROM IEF_PERSONASAUT WHERE IDAVISO = '" & DgvAvisos.CurrentRow.Cells("IDAVISO").Value & "' AND TIPO = '1'"
DsDatos = Classcom.fdtDataSet(SQL)
Return DsDatos
Catch ex As Exception
MessageBox.Show("Error de conexión" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Function
Private Function GetPersonasE() As DataSet
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Dim Parametros As New ArrayList
Dim DsDatos As New DataSet
Try
'LLENA GRID
'SQL = "SELECT DTDIAINHABIL, ID, DIA, MES, ANO FROM CAT_DIASINHABILES WHERE ANO = '" & Anio & "'"
SQL = "SELECT IDAVISO,NOMBRE,AP_PAT,AP_MAT,RFC,CURP,CARGO,TIPO FROM IEF_PERSONASAUT WHERE IDAVISO = '" & DgvAvisos.CurrentRow.Cells("IDAVISO").Value & "' AND TIPO = '2'"
DsDatos = Classcom.fdtDataSet(SQL)
Return DsDatos
Catch ex As Exception
MessageBox.Show("Error de conexión" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Function
Private Sub BtnEliminar_Click(sender As System.Object, e As System.EventArgs) Handles BtnEliminar.Click
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Dim Parametros As New ArrayList
Dim DsDatos As New DataSet
If DgvAvisos.RowCount > 0 Then
If MsgBox("Esta Seguro de Eliminar el Aviso Seleccionado", MsgBoxStyle.OkCancel, "Mensaje") = MsgBoxResult.Ok Then
SQL = "DELETE FROM IEF_AVISOS WHERE IDAVISO = '" & DgvAvisos.CurrentRow.Cells("IDAVISO").Value & "' "
DsDatos = Classcom.fdtDataSet(SQL)
Limpiar()
If ChkHistoria.Checked = True Then
CargaGridA("C")
Else
CargaGridA("A")
End If
End If
Else
MessageBox.Show("No hay información para eliminar")
End If
End Sub
Private Sub ActualizaTipo()
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Dim Parametros As New ArrayList
Dim DsDatos As New DataSet
SQL = "UPDATE IEF_AVISOS SET ESTATUS = 'C' WHERE IDAVISO = '" & DgvAvisos.CurrentRow.Cells("IDAVISO").Value & "' "
Classcom.sbModifica2(SQL)
End Sub
Private Sub ActualizaEnviado()
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Dim Parametros As New ArrayList
Dim DsDatos As New DataSet
SQL = "UPDATE IEF_AVISOS SET ESTATUS = 'E' WHERE IDAVISO = '" & DgvAvisos.CurrentRow.Cells("IDAVISO").Value & "' "
Classcom.sbModifica2(SQL)
End Sub
Private Sub Limpiar()
VIDAvisos = 0
CmbOrg.SelectedIndex = 0
CmbInst.SelectedIndex = 0
DtpFechaConvenio.Value = Now.Date
CmbVigencia.SelectedValue = "01"
DtpFechaIni.Value = Now.Date
DtpFechaFin.Value = Now.Date
TxtObjeto.Text = ""
TxtNombreEFE.Text = ""
RDBUnificado.Checked = True
RDBSeparado.Checked = False
TxtDomicilioU.Text = ""
TxtCPU.Text = ""
CmbPaisU.SelectedIndex = 0
TxtCiudadU.Text = ""
TxtColoniaU.Text = ""
TxtCalleS.Text = ""
TxtNumExtS.Text = ""
TxtNumIntS.Text = ""
TxtCPS.Text = ""
CmbPaisS.SelectedIndex = 0
TxtEstadoS.Text = ""
TxtCiudadS.Text = ""
TxtColoniaS.Text = ""
TxtNombre.Text = ""
TxtApPat.Text = ""
TxtApMat.Text = ""
TxtRFC.Text = ""
TxtCurp.Text = ""
TxtNombreE.Text = ""
TxtApPatE.Text = ""
TxtApMatE.Text = ""
TxtCargo.Text = ""
DgvPersonas.Rows.Clear()
dgvPersonasE.Rows.Clear()
'vog 03/06/2015
'DgvAvisos.Rows.Clear()
End Sub
Private Sub DtpFechaConvenio_ValueChanged(sender As System.Object, e As System.EventArgs) Handles DtpFechaConvenio.ValueChanged
Dim FechaHoy As Date
Dim FechaRecepcion As Date
FechaHoy = Now
FechaRecepcion = DtpFechaConvenio.Value
If FechaRecepcion > FechaHoy Then
MsgBox("La fecha de convenio no puede ser mayor a la fecha de hoy", MsgBoxStyle.Critical)
Exit Sub
End If
End Sub
Private Sub DtpFechaIni_ValueChanged(sender As System.Object, e As System.EventArgs) Handles DtpFechaIni.ValueChanged
Dim FechaHoy As Date
Dim FechaRecepcion As Date
FechaHoy = Now
FechaRecepcion = DtpFechaIni.Value
'If FechaRecepcion > FechaHoy Then
' MsgBox("La fecha de inicio no puede ser mayor a la fecha de hoy", MsgBoxStyle.Critical)
' Exit Sub
'End If
If DtpFechaIni.Value > DtpFechaFin.Value Then
MsgBox("La fecha de inicio no puede ser mayor a la fecha final", MsgBoxStyle.Critical)
DtpFechaIni.Value = DtpFechaFin.Value
Exit Sub
End If
End Sub
Private Sub DtpFechaFin_ValueChanged(sender As System.Object, e As System.EventArgs) Handles DtpFechaFin.ValueChanged
Dim FechaHoy As Date
Dim FechaRecepcion As Date
FechaHoy = Now
FechaRecepcion = DtpFechaIni.Value
'If FechaRecepcion > FechaHoy Then
' MsgBox("La fecha de recepción no puede ser mayor a la fecha de hoy", MsgBoxStyle.Critical)
' Exit Sub
'End If
If DtpFechaFin.Value < DtpFechaIni.Value Then
MsgBox("La fecha final no puede ser menor a la fecha inicio", MsgBoxStyle.Critical)
DtpFechaFin.Value = DtpFechaIni.Value
Exit Sub
End If
End Sub
Private Sub TxtObjeto_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtObjeto.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '." & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '.", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtObjeto_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtObjeto.TextChanged
If CaracteresNoValidos(TxtObjeto.Text, 3) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtObjeto.Text = ""
End If
End Sub
Private Sub TxtNombre_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtNombre.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '." & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '.", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtNombre_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtNombre.TextChanged
If CaracteresNoValidos(TxtNombre.Text, 3) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtNombre.Text = ""
End If
End Sub
Private Sub TxtApPat_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtApPat.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '." & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '.", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtApPat_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtApPat.TextChanged
If CaracteresNoValidos(TxtApPat.Text, 3) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtApPat.Text = ""
End If
End Sub
Private Sub TxtApMat_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TxtApMat.KeyDown
End Sub
Private Sub TxtApMat_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtApMat.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '." & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '.", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtApMat_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtApMat.TextChanged
If CaracteresNoValidos(TxtApMat.Text, 3) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtApMat.Text = ""
End If
End Sub
Private Sub TxtNombreE_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtNombreE.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '." & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '.", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtNombreE_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtNombreE.TextChanged
If CaracteresNoValidos(TxtNombreE.Text, 3) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtNombreE.Text = ""
End If
End Sub
Private Sub TxtApPatE_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtApPatE.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '." & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '.", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtApPatE_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtApPatE.TextChanged
If CaracteresNoValidos(TxtApPatE.Text, 3) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtApPatE.Text = ""
End If
End Sub
Private Sub TxtApMatE_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtApMatE.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '." & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '.", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtApMatE_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtApMatE.TextChanged
If CaracteresNoValidos(TxtApMatE.Text, 3) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtApMatE.Text = ""
End If
End Sub
Private Sub TxtCargo_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtCargo.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '." & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '.", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtCargo_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtCargo.TextChanged
If CaracteresNoValidos(TxtCargo.Text, 3) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtCargo.Text = ""
End If
End Sub
Private Sub TxtDomicilioU_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtDomicilioU.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '.0123456789#-.,:/" & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789 '.#-.,:/", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtDomicilioU_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtDomicilioU.TextChanged
If CaracteresNoValidos(TxtDomicilioU.Text, 1) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtDomicilioU.Text = ""
End If
End Sub
Private Sub TxtCPU_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtCPU.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ .0123456789,:/" & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789 '.,:/", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtCPU_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtCPU.TextChanged
If CaracteresNoValidos(TxtCPU.Text, 4) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtCPU.Text = ""
End If
End Sub
Private Sub TxtCiudadU_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtCiudadU.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ .0123456789#-,:/" & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789 '.#-,:/", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtCiudadU_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtCiudadU.TextChanged
If CaracteresNoValidos(TxtCiudadU.Text, 1) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtCiudadU.Text = ""
End If
End Sub
Private Sub TxtColoniaU_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtColoniaU.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '.0123456789#-,:/" & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789 '.#-,:/", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtColoniaU_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtColoniaU.TextChanged
If CaracteresNoValidos(TxtColoniaU.Text, 1) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtColoniaU.Text = ""
End If
End Sub
Private Sub TxtCalleS_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtCalleS.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789 ,.:/" & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789 '.:/", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtCalleS_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtCalleS.TextChanged
If CaracteresNoValidos(TxtCalleS.Text, 4) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtCalleS.Text = ""
End If
End Sub
Private Sub TxtNumExtS_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtNumExtS.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ .0123456789,:/" & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789 '.,:/", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtNumExtS_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtNumExtS.TextChanged
If CaracteresNoValidos(TxtNumExtS.Text, 4) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtNumExtS.Text = ""
End If
End Sub
Private Sub TxtNumIntS_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtNumIntS.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ .0123456789,:/" & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789 '.,:/", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtNumIntS_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtNumIntS.TextChanged
If CaracteresNoValidos(TxtNumIntS.Text, 4) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtNumIntS.Text = ""
End If
End Sub
Private Sub TxtCPS_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtCPS.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ .0123456789,:/" & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ .0123456789,:/", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtCPS_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles TxtCPS.MouseClick
End Sub
Private Sub TxtCPS_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtCPS.TextChanged
If CaracteresNoValidos(TxtCPS.Text, 4) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtCPS.Text = ""
End If
End Sub
Private Sub TxtEstadoS_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtEstadoS.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ .0123456789,:/" & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ .0123456789,:/", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtCiudadS_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtCiudadS.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ .0123456789#-,:/" & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789 '.-,:/", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtColoniaS_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtColoniaS.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '.0123456789#-,:/" & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789 '.#-,:/", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub DgvPersonas_DoubleClick(sender As Object, e As System.EventArgs) Handles DgvPersonas.DoubleClick
Dim Respuesta As String
If DgvPersonas.Rows.Count > 0 Then
Respuesta = MsgBox("¿ Desea eliminar el registro seleccionado ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question)
If Respuesta = vbNo Then Exit Sub
DgvPersonas.Rows.Remove(DgvPersonas.CurrentRow)
End If
End Sub
Private Sub dgvPersonasE_DoubleClick(sender As Object, e As System.EventArgs) Handles dgvPersonasE.DoubleClick
Dim Respuesta As String
If dgvPersonasE.Rows.Count > 0 Then
Respuesta = MsgBox("¿ Desea eliminar el registro seleccionado ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question)
If Respuesta = vbNo Then Exit Sub
dgvPersonasE.Rows.Remove(dgvPersonasE.CurrentRow)
End If
End Sub
Private Sub TxtRFC_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtRFC.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789&" & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789&", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtCurp_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtCurp.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789&" & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789&", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtNombreEFE_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TxtNombreEFE.KeyPress
' Lista con los caracteres que deseo permitir.
Dim caracteresPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '." & Convert.ToChar(8)
' Carácter presionado.
Dim c As Char = UCase(e.KeyChar)
' Si la tecla presionada no se encuentra en la matriz de caracteres permitidos, anulamos la tecla pulsada.
If (Not (caracteresPermitidos.Contains(c))) And Asc(e.KeyChar) <> 24 And Asc(e.KeyChar) <> 22 And Asc(e.KeyChar) <> 3 Then
MessageBox.Show("Carácter Invalido, Solo esta permitido los siguientes caracteres: ABCDEFGHIJKLMNÑOPQRSTUVWXYZ '.", "ERROR de escritura", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' Deshechamos el carácter
e.Handled = True
End If
End Sub
Private Sub TxtNombreEFE_TextChanged(sender As System.Object, e As System.EventArgs) Handles TxtNombreEFE.TextChanged
If CaracteresNoValidos(TxtNombreEFE.Text, 3) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtNombreEFE.Text = ""
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub TxtEstadoS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtEstadoS.TextChanged
If CaracteresNoValidos(TxtEstadoS.Text, 4) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtEstadoS.Text = ""
End If
End Sub
Private Sub TxtCiudadS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtCiudadS.TextChanged
If CaracteresNoValidos(TxtCiudadS.Text, 1) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtCiudadS.Text = ""
End If
End Sub
Private Sub TxtColoniaS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtColoniaS.TextChanged
If CaracteresNoValidos(TxtColoniaS.Text, 1) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtColoniaS.Text = ""
End If
End Sub
Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GbPE.Enter
End Sub
Private Sub DgvPersonas_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DgvPersonas.CellContentClick
End Sub
Private Sub CargaGridAN(ByVal Estatus As String)
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Dim Parametros As New ArrayList
Dim DsDatos As New DataSet
Try
'LLENA GRID
'SQL = "SELECT DTDIAINHABIL, ID, DIA, MES, ANO FROM CAT_DIASINHABILES WHERE ANO = '" & Anio & "'"
SQL = "SELECT IDAVISO,ID_ORG_REGULADOR AS ORGANISMO,CLAVE_INSTITUCION AS INSTITUCION,FECHA_FIRMA AS ""FECHA FIRMA"",TIPO_VIGENCIA,INICIO_VIGENCIA,FIN_VIGENCIA,OBJETO_CONVENIO AS ""OBJETO DEL CONVENIO"",CLAVE_PAIS,UNIFICADO,DOMICILIO_UNIFICADO,CIUDAD_POBLACIONU,COLONIAU,CODIGO_POSTALU,ESTADO_PROVINCIAS,CODIGO_POSTALS,CIUDAD_POBLACIONS,COLONIAS,CALLES,NUM_EXTS,NUM_INTS,NOM_ENT_FIN_EXT AS ""ENTIDAD FINANCIERA EXTRANJERA"",ESTATUS FROM IEF_AVISOS WHERE ESTATUS = '" & Estatus & "'"
If ChkHistoria.Checked = True Then
SQL = SQL & " OR ESTATUS = 'E'"
End If
DsDatos = Classcom.fdtDataSet(SQL)
If DsDatos.Tables(0).Rows.Count > 0 Then
DgvAvisos.CurrentRow.Selected = True
'DgvAvisos.Columns(0).Visible = False
'DgvAvisos.Columns(4).Visible = False
'DgvAvisos.Columns(5).Visible = False
'DgvAvisos.Columns(6).Visible = False
'DgvAvisos.Columns(8).Visible = False
'DgvAvisos.Columns(9).Visible = False
'DgvAvisos.Columns(10).Visible = False
'DgvAvisos.Columns(11).Visible = False
'DgvAvisos.Columns(12).Visible = False
'DgvAvisos.Columns(13).Visible = False
'DgvAvisos.Columns(14).Visible = False
'DgvAvisos.Columns(15).Visible = False
'DgvAvisos.Columns(16).Visible = False
'DgvAvisos.Columns(17).Visible = False
'DgvAvisos.Columns(18).Visible = False
'DgvAvisos.Columns(19).Visible = False
'DgvAvisos.Columns(20).Visible = False
'DgvAvisos.Columns(22).Visible = False
End If
Catch ex As Exception
MessageBox.Show("Error al cargar llenar Grid" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub TxtRFC_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles TxtRFC.MaskInputRejected
End Sub
Private Sub TxtRFC_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtRFC.TextChanged
If CaracteresNoValidos(TxtRFC.Text, 5) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtRFC.Text = ""
End If
End Sub
Private Sub TxtCurp_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles TxtCurp.MaskInputRejected
End Sub
Private Sub TxtCurp_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtCurp.TextChanged
If CaracteresNoValidos(TxtCurp.Text, 5) = True Then
MsgBox("Existen caracteres invalidos, verifique por favor", MsgBoxStyle.Exclamation)
TxtCurp.Text = ""
End If
End Sub
Private Sub DgvAvisos_RowLeave(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DgvAvisos.RowLeave
End Sub
Private Sub BtnEnviado_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnviado.Click
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Dim Parametros As New ArrayList
Dim DsDatos As New DataSet
If MsgBox("¿ Desea marcar el registro como enviado ?", MsgBoxStyle.OkCancel, "Mensaje") = MsgBoxResult.Ok Then
ActualizaEnviado()
If ChkHistoria.Checked = True Then
CargaGridA("C")
End If
End If
End Sub
Private Sub DgvAvisos_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DgvAvisos.SelectionChanged
'Dim Classcom As New clsComplejo
'Dim ClassCatalogos As New ClassCatalogos
'Dim SQL As String
'Dim FILA As DataRow
'Dim Parametros As New ArrayList
'Dim DsDatos As New DataSet
'Dim DsDatosP As New DataSet
'Dim DsDatosPE As New DataSet
'Dim UltRen As Integer
'Dim DT As New DataGridViewRow
'Dim DTE As New DataGridViewRow
'Try
' If Not IsNothing(DgvAvisos.CurrentRow) Then
' Limpiar()
' 'LLENA GRID
' 'SQL = "SELECT DTDIAINHABIL, ID, DIA, MES, ANO FROM CAT_DIASINHABILES WHERE ANO = '" & Anio & "'"
' SQL = "SELECT IDAVISO,ID_ORG_REGULADOR,CLAVE_INSTITUCION,FECHA_FIRMA,TIPO_VIGENCIA,INICIO_VIGENCIA,FIN_VIGENCIA,OBJETO_CONVENIO,CLAVE_PAIS,UNIFICADO,DOMICILIO_UNIFICADO,CIUDAD_POBLACIONU,COLONIAU,CODIGO_POSTALU,ESTADO_PROVINCIAS,CODIGO_POSTALS,CIUDAD_POBLACIONS,COLONIAS,CALLES,NUM_EXTS,NUM_INTS,NOM_ENT_FIN_EXT,ESTATUS FROM IEF_AVISOS WHERE IDAVISO = '" & DgvAvisos.CurrentRow.Cells("IDAVISO").Value & "'"
' DsDatos = Classcom.fdtDataSet(SQL)
' VIDAvisos = DsDatos.Tables(0).Rows(0)("IDAVISO")
' CmbOrg.SelectedValue = DsDatos.Tables(0).Rows(0)("ID_ORG_REGULADOR")
' CmbInst.SelectedValue = DsDatos.Tables(0).Rows(0)("CLAVE_INSTITUCION")
' DtpFechaConvenio.Value = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("FECHA_FIRMA")), "", DsDatos.Tables(0).Rows(0)("FECHA_FIRMA"))
' CmbVigencia.SelectedValue = "0" & DsDatos.Tables(0).Rows(0)("TIPO_VIGENCIA")
' If CmbVigencia.SelectedValue = "02" Then
' DtpFechaIni.Value = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("INICIO_VIGENCIA")), "", DsDatos.Tables(0).Rows(0)("INICIO_VIGENCIA"))
' DtpFechaFin.Value = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("FIN_VIGENCIA")), "", DsDatos.Tables(0).Rows(0)("FIN_VIGENCIA"))
' End If
' TxtObjeto.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("OBJETO_CONVENIO")), "", DsDatos.Tables(0).Rows(0)("OBJETO_CONVENIO"))
' TxtNombreEFE.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("NOM_ENT_FIN_EXT")), "", DsDatos.Tables(0).Rows(0)("NOM_ENT_FIN_EXT"))
' If IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("UNIFICADO")), -1, DsDatos.Tables(0).Rows(0)("UNIFICADO")) = 1 Then
' RDBUnificado.Checked = True
' 'Unificado = 0
' ElseIf IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("UNIFICADO")), -1, DsDatos.Tables(0).Rows(0)("UNIFICADO")) = 0 Then
' RDBSeparado.Checked = True
' Else
' RDBUnificado.Checked = False
' RDBSeparado.Checked = False
' GRPDomicilioUnificado.Visible = False
' GRPDomicilioSeparado.Visible = False
' End If
' TxtDomicilioU.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("DOMICILIO_UNIFICADO")), "", DsDatos.Tables(0).Rows(0)("DOMICILIO_UNIFICADO"))
' TxtCPU.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CODIGO_POSTALU")), "", DsDatos.Tables(0).Rows(0)("CODIGO_POSTALU"))
' CmbPaisU.SelectedValue = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CLAVE_PAIS")), "", DsDatos.Tables(0).Rows(0)("CLAVE_PAIS"))
' TxtCiudadU.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CIUDAD_POBLACIONU")), "", DsDatos.Tables(0).Rows(0)("CIUDAD_POBLACIONU"))
' TxtColoniaU.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("COLONIAU")), "", DsDatos.Tables(0).Rows(0)("COLONIAU"))
' TxtCalleS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CALLES")), "", DsDatos.Tables(0).Rows(0)("CALLES"))
' TxtNumExtS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("NUM_EXTS")), "", DsDatos.Tables(0).Rows(0)("NUM_EXTS"))
' TxtNumIntS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("NUM_INTS")), "", DsDatos.Tables(0).Rows(0)("NUM_INTS"))
' TxtCPS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CODIGO_POSTALS")), "", DsDatos.Tables(0).Rows(0)("CODIGO_POSTALS"))
' CmbPaisS.SelectedValue = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CLAVE_PAIS")), "", DsDatos.Tables(0).Rows(0)("CLAVE_PAIS"))
' TxtEstadoS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("ESTADO_PROVINCIAS")), "", DsDatos.Tables(0).Rows(0)("ESTADO_PROVINCIAS"))
' TxtCiudadS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("CIUDAD_POBLACIONS")), "", DsDatos.Tables(0).Rows(0)("CIUDAD_POBLACIONS"))
' TxtColoniaS.Text = IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("COLONIAS")), "", DsDatos.Tables(0).Rows(0)("COLONIAS"))
' SQL = "SELECT IDAVISO,NOMBRE,AP_PAT,AP_MAT,RFC,CURP,CARGO,TIPO FROM IEF_PERSONASAUT WHERE IDAVISO = '" & DgvAvisos.CurrentRow.Cells("IDAVISO").Value & "' AND TIPO = '1'"
' DsDatosP = Classcom.fdtDataSet(SQL)
' If DsDatosP.Tables(0).Rows.Count > 0 Then
' For Each row As DataRow In DsDatosP.Tables(0).Rows
' UltRen = DgvPersonas.Rows.Count
' DT = New DataGridViewRow
' DT.CreateCells(DgvPersonas)
' DT.Cells(0).Value = row("NOMBRE")
' DT.Cells(1).Value = row("AP_PAT")
' DT.Cells(2).Value = row("AP_MAT")
' DT.Cells(3).Value = row("RFC")
' DT.Cells(4).Value = row("CURP")
' DgvPersonas.Rows.Insert(UltRen, DT)
' Next
' End If
' SQL = "SELECT IDAVISO,NOMBRE,AP_PAT,AP_MAT,RFC,CURP,CARGO,TIPO FROM IEF_PERSONASAUT WHERE IDAVISO = '" & DgvAvisos.CurrentRow.Cells("IDAVISO").Value & "' AND TIPO = '2'"
' DsDatosPE = Classcom.fdtDataSet(SQL)
' If DsDatosPE.Tables(0).Rows.Count > 0 Then
' For Each row As DataRow In DsDatosPE.Tables(0).Rows
' DTE = New DataGridViewRow
' UltRen = dgvPersonasE.Rows.Count
' DTE.CreateCells(dgvPersonasE)
' DTE.Cells(0).Value = row("NOMBRE")
' DTE.Cells(1).Value = row("AP_PAT")
' DTE.Cells(2).Value = row("AP_MAT")
' DTE.Cells(3).Value = row("CARGO")
' dgvPersonasE.Rows.Insert(UltRen, DTE)
' Next
' End If
' If IIf(IsDBNull(DsDatos.Tables(0).Rows(0)("ESTATUS")), "", DsDatos.Tables(0).Rows(0)("ESTATUS")) = "E" Then
' DtpFechaConvenio.Enabled = False
' CmbVigencia.Enabled = False
' GbFechas.Enabled = False
' TxtObjeto.Enabled = False
' TxtNombreEFE.Enabled = False
' GbP.Enabled = False
' GbPE.Enabled = False
' GbTD.Enabled = False
' GRPDomicilioUnificado.Enabled = False
' GRPDomicilioSeparado.Enabled = False
' BtnGuardar.Enabled = False
' BtnEliminar.Enabled = False
' BtnEnviado.Enabled = False
' BtnGenerar.Enabled = False
' Else
' DtpFechaConvenio.Enabled = True
' GbFechas.Enabled = True
' CmbVigencia.Enabled = True
' TxtObjeto.Enabled = True
' TxtNombreEFE.Enabled = True
' GbP.Enabled = True
' GbPE.Enabled = True
' GbTD.Enabled = True
' GRPDomicilioUnificado.Enabled = True
' GRPDomicilioSeparado.Enabled = True
' BtnGuardar.Enabled = True
' BtnEliminar.Enabled = True
' BtnEnviado.Enabled = True
' BtnGenerar.Enabled = True
' End If
' End If
' If CmbVigencia.SelectedValue = "02" Then
' GbFechas.Visible = True
' Else
' GbFechas.Visible = False
' End If
' If ChkHistoria.Checked = False Then
' BtnEnviado.Enabled = False
' End If
'Catch ex As Exception
' MessageBox.Show("Error de conexión" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
'End Try
End Sub
Private Sub DgvAvisos_TabStopChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DgvAvisos.TabStopChanged
End Sub
End Class