client/FrmAvisos.vb

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