Public Class FRMyActividad Private Sub FRMyActividad_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 'If clsVaribles.lbDemo = True Then Exit Sub PnPais.Visible = False Me.Text = "Actividades Económicas" Me.PnPais.Visible = True Label5.Text = Me.Text Me.BtnOk.Enabled = False Me.CMBRiesgo.Enabled = False SQL = "sp_ConsultaCatalogoRiesgo" Classcom.sbLlenaCombo(SQL, Me.CMBRiesgo) CMBRiesgo.SelectedIndex = -1 'If clsVaribles.lbDemo = True Then Exit Sub 'LLENA GRID 'SQL = "SELECT idactividadeconomica CLAVE,actividadeconomica NOMBRE,ACTIVO,aliasid Alias FROM cat_actividadeconomica ORDER BY actividadeconomica" SQL = "sp_consultaracteconomica " ClassCatalogos.LlenaGrid(SQL, Me.GridMaster) txtClave.Focus() Me.txtClave.Enabled = False Me.txtNombre.Enabled = False Me.TXTAlias.Enabled = False txtCalRiesgo.Enabled = False ClassCatalogos.CambiaColorbloque2(BtnConsulta, BtnEditar, BtnOk, BtnSalir) 'Classcom.fdtDataSet(SQL) End Sub 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 = True 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 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.txtNombreIngles.Text = Me.GridMaster.Columns("NOMBREUS").Value 'Me.cmbOrganismo.ValueMember = Me.C1TrueDBGrid1.Columns("Id_Organismo").Text 'Me.cmbOrganismo.SelectedValue = Me.GridMaster.Columns("Organismo").Value Me.chkActivo.Checked = Me.GridMaster.Columns("ACTIVO").Value Me.TXTAlias.Text = Me.GridMaster.Columns("alias").Value txtCalRiesgo.Text = GridMaster.Columns("PUNTAJERIESGO").Value CMBRiesgo.SelectedValue = Convert.ToInt32(GridMaster.Columns("CALRIESGO").Value) 'Hago una consulta ala base de datos para recuperar la clasificacion del pais txtClave.Visible = True txtClave.Enabled = False txtNombre.Enabled = False TXTAlias.Enabled = False 'Me.txtNombreIngles.Enabled = False 'Me.cmbOrganismo.Enabled = False Me.chkActivo.Enabled = False Dim SQL As String = "" 'SQL = fsDefineSQL("spGridPaisClasificacion ") 'clCmp1.fdtDataSetTabla(SQL) txtClave.Enabled = False BtnEditar.Enabled = True 'pnlBotones.Visible = False txtCalRiesgo.Enabled = False ClassCatalogos.CambiaColorbloque2(BtnConsulta, BtnEditar, BtnOk, BtnSalir) 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 la Clave de la Actividad ", "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_actividad FROM actividadeconomica WHERE Id_Actividad = " & txtClave.Text If classcom.BuscaDatos(strSQLComodin) Then MessageBox.Show("La Clave de la Actividad Economica ya Existe en el Catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If strSQLComodin = "SELECT id_actividad FROM actividadeconomica WHERE NOMBREACTIVIDAD = '" & txtNombre.Text & "'" If classcom.BuscaDatos(strSQLComodin) Then MessageBox.Show("Este Nombre de la Actividad Economica ya Existe en el Catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If strSQLComodin = "INSERT INTO actividadeconomica (Id_Actividad,NOMBREACTIVIDAD,Id_Catalogo,Activo) VALUES (" strSQLComodin = strSQLComodin & txtClave.Text & ",'" & txtNombre.Text & "',4," & Me.chkActivo.CheckState & ")" classcom.sbInserta(strSQLComodin) 'AUDITORIA 'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'") ClassAud.RT_Auditoria(clsVaribles.varUsuario, 86, 1, txtNombre.Text) ' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 86, My.Computer.Name, "Minds Cliente", "ALTA DE ACTIVIDAD CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text) 'FIN AUDITORIA MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Case Is = "ACTUALIZAR" 'VALIDACION DE CAMPOS If txtClave.Text = "" Then MessageBox.Show("Es Necesario Introducir el Numero de la Actividad Economica ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If If txtNombre.Text = "" Then MessageBox.Show("Es Necesario Introducir el Nombre de la Actividad Economica ", "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 actividadeconomica SET " strSQLComodin = strSQLComodin & " nombreactividad = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState strSQLComodin = strSQLComodin & " where id_actividad = " & 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, 87, 1, txtNombre.Text) 'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 87, My.Computer.Name, "Minds Cliente", "CAMBIO DE ACTIVIDAD CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text) 'FIN AUDITORIA MessageBox.Show("Operació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 de la Actividad Economica ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If 'pnlBotones.Visible = False strSQLComodin = "UPDATE actividadeconomica SET ACTIVO = 0 where id_actividad = " & 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, 87, 1, txtNombre.Text) ' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 88, My.Computer.Name, "Minds Cliente", "BAJA DE ACTIVIDAD CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text) ''FIN AUDITORIA MessageBox.Show("Operación 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_actividad CLAVE,Nombreactividad NOMBRE,ACTIVO FROM actividadeconomica ORDER BY Nombreactividad" CLASSCATALOGOS.LlenaGrid(SQL, Me.GridMaster) CLASSCATALOGOS.sbLimpiaControlesEsp(PnPais) End Sub Private Sub txtClave_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtClave.KeyPress Dim classCom As New clsComplejo e.KeyChar = classCom.ValidaCampos("numeros", e.KeyChar) End Sub Private Sub txtClave_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtClave.TextChanged End Sub Private Sub BTConsulta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConsulta.Click 'pnlBotones.Visible = True 'If clsVaribles.lbDemo = True Then Exit Sub txtClave.Enabled = True txtClave.ReadOnly = False txtClave.Text = "" txtNombre.Text = "" TXTAlias.Text = "" 'txtNombreIngles.Text = "" 'cmbOrganismo.Text = "" clsVaribles.varProceso = "Agregar" txtClave.Focus() BtnOk.Enabled = True 'txtClave.Enabled = True txtClave.Visible = True txtNombre.Enabled = True TXTAlias.Enabled = True 'Me.txtNombreIngles.Enabled = True 'Me.cmbOrganismo.Enabled = True Me.chkActivo.Enabled = True chkActivo.Checked = False BtnEditar.Enabled = False txtCalRiesgo.Text = 0 txtCalRiesgo.Enabled = True ClassCatalogos.CambiaColorbloque2(BtnConsulta, BtnEditar, BtnOk, BtnSalir) End Sub 'Private Sub CambiaColorbloque() ' If BtnConsulta.Enabled Then ' BtnConsulta.BackColor = Color.DarkGray ' Else ' BtnConsulta.BackColor = Color.Black ' End If ' If BtnEditar.Enabled Then ' BtnEditar.BackColor = Color.DarkGray ' Else ' BtnEditar.BackColor = Color.Black ' End If ' If BtnOk.Enabled Then ' BtnOk.BackColor = Color.DarkGray ' Else ' BtnOk.BackColor = Color.Black ' End If ' If BtnSalir.Enabled Then ' BtnSalir.BackColor = Color.DarkGray ' Else ' BtnSalir.BackColor = Color.Black ' End If 'End Sub Private Sub BTEditar_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 TXTAlias.Enabled = True 'Me.txtNombreIngles.Enabled = True 'Me.cmbOrganismo.Enabled = True Me.chkActivo.Enabled = True BtnEditar.Enabled = False txtCalRiesgo.Enabled = True BtnOk.Enabled = True CMBRiesgo.Enabled = True txtNombre.Focus() ClassCatalogos.CambiaColorbloque2(BtnConsulta, BtnEditar, BtnOk, BtnSalir) End Sub Private Function ObtieneRiesgoValor(ByVal idParametro As Integer) As Integer Dim Classcom As New clsComplejo Dim ssql As String Dim Fila As DataRow ObtieneRiesgoValor = 0 ssql = "sp_ConsultaParametroRiesgo " & idParametro & " " Classcom = New clsComplejo Classcom.fdtDataSet(ssql) If Classcom.ds.Tables(0).Rows.Count <> 0 Then Fila = Classcom.ds.Tables(0).Rows(0) ObtieneRiesgoValor = Fila("valor").ToString End If End Function Private Sub BTOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click Dim classcom As New clsComplejo Dim strSQLComodin As String Dim ClassAud As New ClassMyUtils Dim varUser As Long Dim ClassComodin As New clsComplejo Dim riesgoValor As Integer Dim nRiesgo As Integer 'If clsVaribles.lbDemo = True Then Exit Sub 'If CMBRiesgo.SelectedValue = 1 Then ' nRiesgo = 10 'ElseIf CMBRiesgo.SelectedValue = 2 Then ' nRiesgo = 11 'ElseIf CMBRiesgo.SelectedValue = 3 Then ' nRiesgo = 12 'End If 'If CMBRiesgo.Text.Trim = "" Then ' MessageBox.Show("Seleccione un riesgo para la actividad ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) ' Exit Sub 'End If 'riesgoValor = ObtieneRiesgoValor(nRiesgo) Select Case UCase(clsVaribles.varProceso) Case Is = "AGREGAR" txtClave.Enabled = True 'VALIDACION DE CAMPOS If txtClave.Text = "" Then MessageBox.Show("Es Necesario Introducir la Clave de la Actividad ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) txtClave.Focus() 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 idactividadeconomica FROM cat_actividadeconomica WHERE actividadeconomica = '" & txtNombre.Text & "'" If classcom.BuscaDatos(strSQLComodin) Then MessageBox.Show("Este Nombre de la Actividad Economica ya Existe en el Catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) classcom.ds.Clear() Exit Sub End If strSQLComodin = "SELECT idactividadeconomica FROM cat_actividadeconomica WHERE IdActividadeconomica = '" & txtClave.Text & "'" If classcom.BuscaDatos(strSQLComodin) Then MessageBox.Show("La Clave de la Actividad Economica ya Existe en el Catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) classcom.ds.Clear() Exit Sub End If strSQLComodin = "SELECT idactividadeconomica FROM cat_actividadeconomica WHERE ALIASID = '" & TXTAlias.Text & "'" If classcom.BuscaDatos(strSQLComodin) Then MessageBox.Show("Este Alias de la Actividad Economica ya Existe en el Catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) classcom.ds.Clear() Exit Sub End If 'strSQLComodin = "INSERT INTO cat_actividadeconomica (IdActividadeconomica,actividadeconomica,Activo,aliasid) VALUES (" 'strSQLComodin = strSQLComodin & "'" & txtClave.Text & "','" & txtNombre.Text & "'," & Me.chkActivo.CheckState & ",'" & Me.TXTAlias.Text & "')" strSQLComodin = "sp_CargarActEconomica 0,'" & txtClave.Text & "','" & txtNombre.Text & "','" & TXTAlias.Text & "'," & CMBRiesgo.SelectedValue & "," & chkActivo.CheckState & ", " & Convert.ToInt32(txtCalRiesgo.Text) classcom.sbInserta(strSQLComodin) ClassAud.RT_Auditoria(clsVaribles.varUsuario, 86, 1, " | Valores Nuevos: actividadeconomica = " & txtNombre.Text & ",Activo = " & Me.chkActivo.CheckState & ",aliasid = " & Me.TXTAlias.Text) 'AUDITORIA 'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'") 'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 86, My.Computer.Name, "Minds Cliente", "ALTA DE ACTIVIDAD CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text) 'FIN AUDITORIA MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Case Is = "ACTUALIZAR" 'VALIDACION DE CAMPOS If txtClave.Text = "" Then MessageBox.Show("Es Necesario Introducir el Numero de la Actividad Economica ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If If txtNombre.Text = "" Then MessageBox.Show("Es Necesario Introducir el Nombre de la Actividad Economica ", "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 Dim liAud As Integer ' clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 7," & txtClave.Text) liAud = 4 'pnlBotones.Visible = False 'strSQLComodin = "UPDATE cat_actividadeconomica SET " 'strSQLComodin = strSQLComodin & " actividadeconomica = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState & ",aliasid = '" & Me.TXTAlias.Text & "'" 'strSQLComodin = strSQLComodin & " where idactividadeconomica = '" & txtClave.Text & "'" strSQLComodin = "sp_CargarActEconomica 1,'" & txtClave.Text & "','" & txtNombre.Text & "','" & TXTAlias.Text & "'," & CMBRiesgo.SelectedValue & "," & chkActivo.CheckState & ", " & Convert.ToInt32(txtCalRiesgo.Text) classcom.sbInserta(strSQLComodin) ClassAud.RT_Auditoria(clsVaribles.varUsuario, 87, 1, clsVaribles.lsValAnt & " | Valores Nuevos: actividadeconomica = " & 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, 87, My.Computer.Name, "Minds Cliente", "CAMBIO DE ACTIVIDAD CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text) 'FIN AUDITORIA MessageBox.Show("Operació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 de la Actividad Economica ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If 'pnlBotones.Visible = False strSQLComodin = "UPDATE cat_actividadeconomica SET ACTIVO = 0 where idactividadeconomica = '" & 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, 88, My.Computer.Name, "Minds Cliente", "BAJA DE ACTIVIDAD CLAVE = " & txtClave.Text & " NOMBRE = " & txtNombre.Text) ''FIN AUDITORIA MessageBox.Show("Operación 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 idactividadeconomica CLAVE,actividadeconomica NOMBRE,ACTIVO,aliasid Alias FROM cat_actividadeconomica ORDER BY actividadeconomica" SQL = "sp_consultaracteconomica " CLASSCATALOGOS.LlenaGrid(SQL, Me.GridMaster) CLASSCATALOGOS.sbLimpiaControlesEsp(PnPais) Me.txtClave.Enabled = False Me.txtNombre.Enabled = False Me.TXTAlias.Enabled = False txtCalRiesgo.Text = 0 txtCalRiesgo.Enabled = False chkActivo.Enabled = False CMBRiesgo.Enabled = False ClassCatalogos.CambiaColorbloque2(BtnConsulta, BtnEditar, BtnOk, BtnSalir) End Sub Private Sub cmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click Me.Close() End Sub Private Sub txtCalRiesgo_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtCalRiesgo.KeyPress If e.KeyChar.IsDigit(e.KeyChar) Or Asc(e.KeyChar) = 8 Then e.Handled = False Else e.Handled = True End If End Sub Private Sub txtCalRiesgo_Leave(sender As Object, e As System.EventArgs) Handles txtCalRiesgo.Leave txtCalRiesgo.Text = IIf(txtCalRiesgo.Text = "", 0, txtCalRiesgo.Text) End Sub Private Sub txtCalRiesgo_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtCalRiesgo.TextChanged End Sub End Class