Public Class FRMyInstitucion Private Sub FRMyInstitucion_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 = "Instituciones Financieras" Me.PnPais.Visible = True DesHeader.Text = Me.Text 'If clsVaribles.lbDemo = True Then Exit Sub 'LLENA GRID SQL = "sp_ConsultarInstFinanciera " ClassCatalogos.LlenaGrid(SQL, Me.GridMaster) txtClave.Enabled = False txtNombre.Enabled = False TXTAlias.Enabled = False chkActivo.Enabled = False txtClave.Focus() ClassCatalogos.CambiaColorbloque2(BtnConsulta, BtnEditar, BtnOk, Button1) '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() 'btnAceptar.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 'btnAceptar.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 'btnAceptar.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 '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.chkActivo.Enabled = False 'Me.txtNombreIngles.Enabled = False 'Me.cmbOrganismo.Enabled = False Dim SQL As String = "" 'SQL = fsDefineSQL("spGridPaisClasificacion ") 'clCmp1.fdtDataSetTabla(SQL) txtClave.Enabled = False 'pnlBotones.Visible = False BtnEditar.Enabled = True ClassCatalogos.CambiaColorbloque2(BtnConsulta, 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 Clave de la Institucion ", "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_Intitucion FROM institucionfinanciera WHERE Id_Intitucion = " & txtClave.Text If classcom.BuscaDatos(strSQLComodin) Then MessageBox.Show("La clave de la Institucion Financiera ya Existe en el Catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If strSQLComodin = "INSERT INTO institucionfinanciera (Id_Intitucion,NombreInstitucion,Id_Catalogo,Activo) VALUES (" strSQLComodin = strSQLComodin & txtClave.Text & ",'" & txtNombre.Text & "',11," & Me.chkActivo.CheckState & ")" classcom.sbInserta(strSQLComodin) 'AUDITORIA 'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'") ClassAud.RT_Auditoria(clsVaribles.varUsuario, 5, 1, txtNombre.Text) ' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 89, My.Computer.Name, "Minds Cliente", "ALTA DE INSTITUCIONFINACIERA 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 Institucion Financiera ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If If txtNombre.Text = "" Then MessageBox.Show("Es Necesario Introducir el Nombre de la Institucion Financiera ", "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 institucionfinanciera SET " strSQLComodin = strSQLComodin & " NombreInstitucion = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState strSQLComodin = strSQLComodin & " where Id_Intitucion = " & 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, 15, 1, txtNombre.Text) ' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 90, My.Computer.Name, "Minds Cliente", "CAMBIO INSTITUCIONFINANCIERA 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 Institucion Financiera ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If 'pnlBotones.Visible = False strSQLComodin = "UPDATE institucionfinanciera SET ACTIVO = 0 where Id_Intitucion = " & 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, 15, 1, txtNombre.Text) ' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 91, My.Computer.Name, "Minds Cliente", "BAJA INSTITUCIONFINANCIERA 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_Intitucion CLAVE,NombreInstitucion NOMBRE,ACTIVO FROM institucionfinanciera ORDER BY NombreInstitucion" 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 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 Clave de la Institucion ", "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 IdInstitucionFinanciera FROM Cat_InstitucionFinanciera WHERE IdInstitucionFinanciera = '" & txtClave.Text & "'" If classcom.BuscaDatos(strSQLComodin) Then MessageBox.Show("La clave de la Institucion Financiera ya Existe en el Catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If strSQLComodin = "INSERT INTO Cat_InstitucionFinanciera (IdInstitucionFinanciera,InstitucionFinanciera,aliasid,Activo) VALUES (" strSQLComodin = strSQLComodin & "'" & txtClave.Text & "','" & txtNombre.Text & "','" & Me.txtalias.text & "'," & Me.chkActivo.CheckState & ")" classcom.sbInserta(strSQLComodin) 'AUDITORIA ClassAud.RT_Auditoria(clsVaribles.varUsuario, 5, 1, " |Valores Nuevos: IdInstitucionFinanciera: " & txtClave.Text & ", InstitucionFinanciera = " & txtNombre.Text & ",Activo = " & Me.chkActivo.CheckState & ",aliasid = " & Me.TXTAlias.Text) 'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'") 'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 89, My.Computer.Name, "Minds Cliente", "ALTA DE INSTITUCIONFINACIERA 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 Institucion Financiera ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If If txtNombre.Text = "" Then MessageBox.Show("Es Necesario Introducir el Nombre de la Institucion Financiera ", "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 ' clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 8," & txtClave.Text) 'pnlBotones.Visible = False strSQLComodin = "UPDATE Cat_InstitucionFinanciera SET " strSQLComodin = strSQLComodin & " InstitucionFinanciera = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState & ",aliasid = '" & Me.TXTAlias.Text & "'" strSQLComodin = strSQLComodin & " where IdInstitucionFinanciera = '" & txtClave.Text & "'" classcom.sbInserta(strSQLComodin) ClassAud.RT_Auditoria(clsVaribles.varUsuario, 15, 1, clsVaribles.lsValAnt & " | Valores Nuevos: IdInstitucionFinanciera: " & txtClave.Text & ", InstitucionFinanciera = " & 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, 90, My.Computer.Name, "Minds Cliente", "CAMBIO INSTITUCIONFINANCIERA 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 Institucion Financiera ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If 'pnlBotones.Visible = False strSQLComodin = "UPDATE Cat_InstitucionFinanciera SET ACTIVO = 0 where IdInstitucionFinanciera = '" & 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, 91, My.Computer.Name, "Minds Cliente", "BAJA INSTITUCIONFINANCIERA 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 IdInstitucionFinanciera CLAVE,InstitucionFinanciera NOMBRE,ACTIVO,aliasid ALIAS FROM Cat_InstitucionFinanciera ORDER BY InstitucionFinanciera" CLASSCATALOGOS.LlenaGrid(SQL, Me.GridMaster) CLASSCATALOGOS.sbLimpiaControlesEsp(PnPais) TXTAlias.Clear() ClassCatalogos.CambiaColorbloque2(BtnConsulta, 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 Me.chkActivo.Enabled = True Me.TXTAlias.Enabled = True BtnEditar.Enabled = False BtnOk.Enabled = True txtNombre.Focus() ClassCatalogos.CambiaColorbloque2(BtnConsulta, BtnEditar, BtnOk, Button1) End Sub Private Sub BtnConsulta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConsulta.Click 'If clsVaribles.lbDemo = True Then Exit Sub '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 Me.chkActivo.Checked = False TXTAlias.Enabled = True TXTAlias.Clear() BtnEditar.Enabled = False ClassCatalogos.CambiaColorbloque2(BtnConsulta, 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 End Class