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