client/Catalogos/FRMyTipoOperacion.vb

564 lines
23 KiB
VB.net
Raw Blame History

Public Class FRMyTipoOperacion
Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs)
Dim classcom As New clsComplejo
Dim strSQLComodin As String
Select Case e.Button.Text
Case "Agregar"
'pnlBotones.Visible = True
txtClave.Enabled = True
txtClave.ReadOnly = False
txtClave.Text = ""
txtNombre.Text = ""
'txtNombreIngles.Text = ""
'cmbOrganismo.Text = ""
clsVaribles.varProceso = "Agregar"
txtClave.Focus()
BtnOk.Enabled = True
'txtClave.Enabled = True
txtClave.Visible = False
txtNombre.Enabled = True
'Me.txtNombreIngles.Enabled = True
'Me.cmbOrganismo.Enabled = True
Me.chkActivo.Enabled = True
Case "Actualizar"
'VALIDACION DE CAMPOS
'If txtClave.Text = "" Then
' MessageBox.Show("Es Necesario Introducir el Numero del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Exit Sub
'End If
'If txtNombre.Text = "" Then
' MessageBox.Show("Es Necesario Introducir el Nombre del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Exit Sub
'End If
'If cmbOrganismo.Text = "" Then
' MessageBox.Show("Es Necesario Introducir el Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Exit Sub
'End If
''pnlBotones.Visible = False
'strSQLComodin = "UPDATE PAIS SET Id_Pais = " & TXTNumero.Text & " ,Id_Organismo = " & Me.cmbOrganismo.SelectedIndex & ""
'strSQLComodin = strSQLComodin & ",Nombre = '" & txtNombre.Text & "',NombreUs = '" & txtNombreIngles.Text & "',Activo = " & Me.chkActivo.CheckState
'strSQLComodin = strSQLComodin & " where ID_PAIS = " & TXTNumero.Text
'classcom.sbInserta(strSQLComodin)
''AUDITORIA
'Dim ClassAud As New ClassMyUtils
'Dim varUser As Long
'Dim ClassComodin As New clsComplejo
''varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 39, My.Computer.Name, "Minds Cliente", "Cambio de Pais CLAVE = " & TXTNumero.Text & " NOMBRE = " & txtNombre.Text)
''FIN AUDITORIA
'MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
'C1TrueDBGrid1.DataSource = Nothing
'clCmp.fdtDataSetTabla("spGridPais 0")
'Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid
'sbIniciaForma()
clsVaribles.varProceso = "Actualizar"
txtClave.Enabled = False
'txtClave.Visible = False
txtNombre.Enabled = True
'Me.txtNombreIngles.Enabled = True
'Me.cmbOrganismo.Enabled = True
Me.chkActivo.Enabled = True
BtnOk.Enabled = True
Case "Desactivar"
'If TXTNumero.Text = "" Then
' MessageBox.Show("Es Necesario Introducir el Numero del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Exit Sub
'End If
'pnlBotones.Visible = False
'strSQLComodin = "UPDATE pais SET ACTIVO = 0 where id_pais = " & TXTNumero.Text
'classcom.sbInserta(strSQLComodin)
''AUDITORIA
'Dim ClassAud As New ClassMyUtils
'Dim varUser As Long
'Dim ClassComodin As New clsComplejo
''varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 38, My.Computer.Name, "Minds Cliente", "Baja de Pais CLAVE = " & TXTNumero.Text & " NOMBRE = " & txtNombre.Text)
''FIN AUDITORIA
'MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
clsVaribles.varProceso = "Eliminar"
txtClave.Enabled = False
txtNombre.Enabled = False
'Me.txtNombreIngles.Enabled = False
'Me.cmbOrganismo.Enabled = False
'Me.chkActivo.Enabled = False
BtnOk.Enabled = True
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub FRMyTipoOperacion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
PnPais.Visible = False
Me.Text = "Tipo de Operaci<63>n"
Me.PnPais.Visible = True
DesHeader.Text = Me.Text
'LLENA GRID
'If clsVaribles.lbDemo = True Then Exit Sub
'SQL = "SELECT IdTipoOperacion CLAVE,TipoOperacion NOMBRE,ACTIVO,isnull(aliasID,' ') ALIAS FROM CAT_TIPOOPERACION ORDER BY TipoOperacion"
'SQL = "SELECT IdTipoOperacion CLAVE,TipoOperacion NOMBRE,ACTIVO, ' ' AS ALIAS FROM CAT_TIPOOPERACION ORDER BY TipoOperacion"
SQL = "sp_ConsultarTipoOperacion 0"
ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
Call ajustarColumnas()
txtClave.Focus()
txtClave.Enabled = False
txtNombre.Enabled = False
TXTAlias.Enabled = False
chkActivo.Enabled = False
BtnEditar.Enabled = False
ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
'Classcom.fdtDataSet(SQL)
End Sub
Private Sub GridMaster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GridMaster.Click
End Sub
Private Sub GridMaster_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridMaster.DoubleClick
'Recupero Datos del gird
Me.txtClave.Text = Me.GridMaster.Columns("CLAVE").Value
Me.txtNombre.Text = Me.GridMaster.Columns("Nombre").Value
Me.TXTAlias.Text = Me.GridMaster.Columns("Alias").Value
Me.chkActivo.Checked = Me.GridMaster.Columns("ACTIVO").Value
'Hago una consulta ala base de datos para recuperar la clasificacion del pais
txtClave.Enabled = False
txtNombre.Enabled = False
TXTAlias.Enabled = False
Me.chkActivo.Enabled = False
txtNombre.Focus()
Dim SQL As String = ""
txtClave.Enabled = False
BtnEditar.Enabled = True
ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
End Sub
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim classcom As New clsComplejo
Dim strSQLComodin As String
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
Select Case UCase(clsVaribles.varProceso)
Case Is = "AGREGAR"
txtClave.Enabled = True
'VALIDACION DE CAMPOS
'If txtClave.Text = "" Then
' MessageBox.Show("Es Necesario Introducir el Numero del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Exit Sub
'End If
If txtNombre.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Nombre ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'If cmbOrganismo.Text = "" Then
' MessageBox.Show("Es Necesario Introducir el Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Exit Sub
'End If
strSQLComodin = "SELECT Id_TipoOperacion FROM TIPOOPERACION WHERE NombreTipoOperacion = '" & txtNombre.Text & "'"
If classcom.BuscaDatos(strSQLComodin) Then
MessageBox.Show("Este Nombre del Tipo de Operacion ya Existe en el Catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
strSQLComodin = "INSERT INTO TIPOOPERACION (NombreTipoOperacion,Id_Catalogo,Activo) VALUES ("
strSQLComodin = strSQLComodin & "'" & txtNombre.Text & "',22," & Me.chkActivo.CheckState & ")"
classcom.sbInserta(strSQLComodin)
'AUDITORIA
'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 77, 1, txtNombre.Text)
' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 77, My.Computer.Name, "Minds Cliente", "ALTA DE TipoOperacion CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text)
'FIN AUDITORIA
MessageBox.Show("Operaci<EFBFBD>n Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case Is = "ACTUALIZAR"
'VALIDACION DE CAMPOS
If txtClave.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Numero del Tipo de Operacion ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If txtNombre.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Nombre del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'If cmbOrganismo.Text = "" Then
' MessageBox.Show("Es Necesario Introducir el Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Exit Sub
'End If
'pnlBotones.Visible = False
strSQLComodin = "UPDATE tipooperacion SET "
strSQLComodin = strSQLComodin & " NombreTipoOperacion = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState
strSQLComodin = strSQLComodin & " where Id_TipoOperacion = " & txtClave.Text
classcom.sbInserta(strSQLComodin)
'AUDITORIA
'Dim ClassAud As New ClassMyUtils
'Dim varUser As Long
'Dim ClassComodin As New clsComplejo
'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 78, 1, txtNombre.Text)
' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 78, My.Computer.Name, "Minds Cliente", "Cambio de TipoOperacion CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text)
'FIN AUDITORIA
MessageBox.Show("Operaci<EFBFBD>n Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
classcom = New clsComplejo
'classcom.fdtDataSetTabla("spGridPais 0")
'Me.GridMaster.SetDataBinding(classcom.ds, "Tabla") 'Llena el grid
'MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case Is = "ELIMINAR"
If txtClave.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Numero del Tipo de Operacion ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'pnlBotones.Visible = False
strSQLComodin = "UPDATE tipooperacion SET ACTIVO = 0 where Id_TipoOperacion = " & txtClave.Text
classcom.sbInserta(strSQLComodin)
''AUDITORIA
'Dim ClassAud As New ClassMyUtils
'Dim varUser As Long
'Dim ClassComodin As New clsComplejo
''varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 79, 1, "Proceso Empleados VS Listas restringidas")
' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 79, My.Computer.Name, "Minds Cliente", "Baja de TipoOperacion CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text)
''FIN AUDITORIA
MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Select
BtnOk.Enabled = False
Dim SQL As String
Dim CLASSCATALOGOS As New ClassCatalogos
GridMaster.DataSource = Nothing
SQL = "SELECT Id_TipoOperacion CLAVE,NombreTipoOperacion NOMBRE,ACTIVO FROM TIPOOPERACION ORDER BY NombreTipoOperacion"
CLASSCATALOGOS.LlenaGrid(SQL, Me.GridMaster)
CLASSCATALOGOS.sbLimpiaControlesEsp(PnPais)
End Sub
Private Sub BtnConsulta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAgregar.Click
'If clsVaribles.lbDemo = True Then Exit Sub
txtClave.Enabled = True
txtClave.ReadOnly = True
txtClave.Text = ""
txtNombre.Text = ""
'txtNombreIngles.Text = ""
'cmbOrganismo.Text = ""
clsVaribles.varProceso = "Agregar"
BtnOk.Enabled = True
'txtClave.Enabled = True
'txtClave.Visible = False
txtNombre.Enabled = True
'Me.txtNombreIngles.Enabled = True
'Me.cmbOrganismo.Enabled = True
Me.chkActivo.Enabled = True
Me.chkActivo.Checked = False
Me.TXTAlias.Clear()
Me.TXTAlias.Enabled = True
txtNombre.Focus()
BtnEditar.Enabled = False
ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
End Sub
Private Sub BtnEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEditar.Click
' If clsVaribles.lbDemo = True Then Exit Sub
clsVaribles.varProceso = "Actualizar"
txtClave.Enabled = False
'txtClave.Visible = False
txtNombre.Enabled = True
'Me.txtNombreIngles.Enabled = True
'Me.cmbOrganismo.Enabled = True
TXTAlias.Enabled = True
Me.chkActivo.Enabled = True
BtnOk.Enabled = True
BtnEditar.Enabled = False
txtNombre.Focus()
ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
End Sub
Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
'If clsVaribles.lbDemo = True Then Exit Sub
Dim classcom As New clsComplejo
Dim strSQLComodin As String
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
Select Case UCase(clsVaribles.varProceso)
Case Is = "AGREGAR"
txtClave.Enabled = True
'VALIDACION DE CAMPOS
'If txtClave.Text = "" Then
' MessageBox.Show("Es Necesario Introducir el Numero del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Exit Sub
'End If
If txtNombre.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Nombre ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtNombre.Focus()
Exit Sub
End If
'If cmbOrganismo.Text = "" Then
' MessageBox.Show("Es Necesario Introducir el Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Exit Sub
'End If
strSQLComodin = "SELECT IdTipoOperacion FROM CAT_TIPOOPERACION WHERE TipoOperacion = '" & txtNombre.Text & "'"
If classcom.BuscaDatos(strSQLComodin) Then
MessageBox.Show("Este Nombre del Tipo de Operacion ya Existe en el Catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'strSQLComodin = "INSERT INTO CAT_TIPOOPERACION (IdTipoOperacion,TipoOperacion,aliasID,Activo) VALUES ("
'strSQLComodin = strSQLComodin & "'" & txtClave.Text & "','" & txtNombre.Text & "','" & TXTAlias.Text & "'," & Me.chkActivo.CheckState & ")"
'strSQLComodin = "INSERT INTO CAT_TIPOOPERACION (TipoOperacion,Clave,Activo) VALUES ("
'strSQLComodin = strSQLComodin & "'" & txtNombre.Text & "','" & TXTAlias.Text & "'," & Me.chkActivo.CheckState & ")"
strSQLComodin = "sp_CargarTipoOperacion NULL,'" & txtNombre.Text & "','" & TXTAlias.Text & "'," & chkActivo.CheckState
classcom.sbInserta(strSQLComodin)
'AUDITORIA
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 2, 1, " | Valores Nuevos: IdTipoOperacion: " & txtClave.Text & ", TipoOperacion = " & txtNombre.Text & ",Activo = " & Me.chkActivo.CheckState & ",aliasid = " & Me.TXTAlias.Text)
'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 77, My.Computer.Name, "Minds Cliente", "ALTA DE TipoOperacion CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text)
'FIN AUDITORIA
MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case Is = "ACTUALIZAR"
'VALIDACION DE CAMPOS
If txtClave.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Numero del Tipo de Operacion ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If txtNombre.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Nombre del Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtNombre.Focus()
Exit Sub
End If
'If cmbOrganismo.Text = "" Then
' MessageBox.Show("Es Necesario Introducir el Organismo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Exit Sub
'End If
clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 9," & txtClave.Text)
'pnlBotones.Visible = False
'strSQLComodin = "UPDATE cat_tipooperacion SET "
'strSQLComodin = strSQLComodin & " TipoOperacion = '" & txtNombre.Text & "',aliasid = '" & TXTAlias.Text & "',Activo = " & Me.chkActivo.CheckState
'strSQLComodin = strSQLComodin & " where IdTipoOperacion = '" & txtClave.Text & "'"
'strSQLComodin = "UPDATE cat_tipooperacion SET "
'strSQLComodin = strSQLComodin & " TipoOperacion = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState
'strSQLComodin = strSQLComodin & " where IdTipoOperacion = '" & txtClave.Text & "'"
strSQLComodin = "sp_CargarTipoOperacion " & txtClave.Text & ",'" & txtNombre.Text & "','" & TXTAlias.Text & "'," & chkActivo.CheckState
classcom.sbInserta(strSQLComodin)
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 78, 1, clsVaribles.lsValAnt & " | Valores Nuevos: IdTipoOperacion: " & txtClave.Text & ", TipoOperacion = " & txtNombre.Text & ",Activo = " & Me.chkActivo.CheckState & ",aliasid = " & Me.TXTAlias.Text)
'AUDITORIA
'Dim ClassAud As New ClassMyUtils
'Dim varUser As Long
'Dim ClassComodin As New clsComplejo
'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 78, My.Computer.Name, "Minds Cliente", "Cambio de TipoOperacion CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text)
'FIN AUDITORIA
MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
classcom = New clsComplejo
'classcom.fdtDataSetTabla("spGridPais 0")
'Me.GridMaster.SetDataBinding(classcom.ds, "Tabla") 'Llena el grid
'MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case Is = "ELIMINAR"
If txtClave.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Numero del Tipo de Operacion ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'pnlBotones.Visible = False
strSQLComodin = "UPDATE cat_tipooperacion SET ACTIVO = 0 where IdTipoOperacion = '" & txtClave.Text & "'"
classcom.sbInserta(strSQLComodin)
''AUDITORIA
'Dim ClassAud As New ClassMyUtils
'Dim varUser As Long
'Dim ClassComodin As New clsComplejo
''varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'")
'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 79, My.Computer.Name, "Minds Cliente", "Baja de TipoOperacion CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text)
''FIN AUDITORIA
MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Select
BtnOk.Enabled = False
Dim SQL As String
Dim CLASSCATALOGOS As New ClassCatalogos
GridMaster.DataSource = Nothing
'SQL = "SELECT IdTipoOperacion CLAVE,TipoOperacion NOMBRE,ACTIVO,aliasid ALIAS FROM CAT_TIPOOPERACION ORDER BY TipoOperacion"
'SQL = "SELECT IdTipoOperacion CLAVE,TipoOperacion NOMBRE,ACTIVO,' ' AS ALIAS FROM CAT_TIPOOPERACION ORDER BY TipoOperacion"
SQL = "sp_ConsultarTipoOperacion 0"
CLASSCATALOGOS.LlenaGrid(SQL, Me.GridMaster)
CLASSCATALOGOS.sbLimpiaControlesEsp(PnPais)
Call ajustarColumnas()
txtClave.Enabled = False
txtNombre.Enabled = False
TXTAlias.Enabled = False
chkActivo.Enabled = False
ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub ajustarColumnas()
For Each dc As C1.Win.C1TrueDBGrid.C1DisplayColumn In GridMaster.Splits(0).DisplayColumns
dc.AutoSize()
Next
End Sub
Private Sub Img_logoCabecera_Click(sender As Object, e As EventArgs) Handles Img_logoCabecera.Click
End Sub
End Class