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ó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ó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ó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