Public Class FRMyMoneda Private Sub FRMyMoneda_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 = "Moneda" Me.PnPais.Visible = True DesHeader.Text = Me.Text 'If clsVaribles.lbDemo = True Then Exit Sub Classcom.sbLlenaCombo("select IDPAIS clave,PAISUS nombre from cat_pais", Me.cmbPais) cmbPais.SelectedIndex = -1 'LLENA GRID 'SQL = "SELECT IdMoneda CLAVE,Moneda NOMBRE,ACTIVO,isnull(ALIASID,'') ALIAS,isnull(IDPAIS,0) PAIS FROM cat_moneda ORDER BY Moneda" 'SQL = "SELECT IdMoneda CLAVE,Moneda NOMBRE,ACTIVO,isnull(ALIASID,'') ALIAS, 0 AS PAIS FROM cat_moneda ORDER BY Moneda" SQL = "sp_consultarmoneda " ClassCatalogos.LlenaGrid(SQL, Me.GridMaster) TXTAlias.Enabled = False txtNombre.Enabled = False chkActivo.Enabled = False cmbPais.Enabled = False ClassCatalogos.CambiaColorbloque2(BtnAgregar, 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() 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 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_moneda FROM moneda WHERE nombre = '" & txtNombre.Text & "'" If classcom.BuscaDatos(strSQLComodin) Then MessageBox.Show("Este Nombre de la Moneda ya Existe en el Catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If strSQLComodin = "INSERT INTO moneda (nombre,Id_Catalogo,Activo) VALUES (" strSQLComodin = strSQLComodin & "'" & txtNombre.Text & "',13," & Me.chkActivo.CheckState & ")" classcom.sbInserta(strSQLComodin) 'AUDITORIA 'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'") ClassAud.RT_Auditoria(clsVaribles.varUsuario, 31, 1, txtNombre.Text) ' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 31, My.Computer.Name, "Minds Cliente", "Alta de Moneda 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 Moneda ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If If txtNombre.Text = "" Then MessageBox.Show("Es Necesario Introducir el Nombre de la Moneda ", "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 Moneda SET " strSQLComodin = strSQLComodin & " nombre = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState strSQLComodin = strSQLComodin & " where id_moneda = " & 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, 33, 1, txtNombre.Text) ' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 33, My.Computer.Name, "Minds Cliente", "Cambio de Moneda 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 Moneda ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If 'pnlBotones.Visible = False strSQLComodin = "UPDATE moneda SET ACTIVO = 0 where id_moneda = " & 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, 33, 1, txtNombre.Text) ' ClassAud.RT_Auditoria(clsVaribles.varUsuario, 32, My.Computer.Name, "Minds Cliente", "Baja de Moneda 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_moneda CLAVE,NOMBRE NOMBRE,ACTIVO FROM moneda ORDER BY nombre" CLASSCATALOGOS.LlenaGrid(SQL, Me.GridMaster) CLASSCATALOGOS.sbLimpiaControlesEsp(PnPais) End Sub Private Sub BtnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAgregar.Click 'If clsVaribles.lbDemo = True Then Exit Sub 'pnlBotones.Visible = True txtClave.Enabled = True txtClave.ReadOnly = True txtClave.Text = "" txtNombre.Text = "" 'txtNombreIngles.Text = "" 'cmbOrganismo.Text = "" clsVaribles.varProceso = "Agregar" 'txtClave.Focus() BtnOk.Enabled = True Me.TXTAlias.Enabled = True Me.TXTAlias.Clear() Me.cmbPais.Enabled = True Me.cmbPais.SelectedIndex = -1 'txtClave.Enabled = True txtClave.Visible = True txtNombre.Enabled = True 'Me.txtNombreIngles.Enabled = True 'Me.cmbOrganismo.Enabled = True BtnEditar.Enabled = False Me.chkActivo.Enabled = True TXTAlias.Focus() cmbPais.Enabled = True cmbPais.Text = "" 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.cmbPais.Enabled = True Me.chkActivo.Enabled = True BtnOk.Enabled = True BtnEditar.Enabled = False TXTAlias.Focus() cmbPais.Enabled = True 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 ValorPais As Integer = 0 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.Information) txtNombre.Focus() Exit Sub End If 'If cmbPais.Text = "" Then ' MessageBox.Show("Es Necesario Introducir el Pais ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) ' Exit Sub 'End If strSQLComodin = "SELECT IdMoneda FROM CAT_moneda WHERE Nombre = '" & txtNombre.Text & "'" If classcom.BuscaDatos(strSQLComodin) Then MessageBox.Show("Este Nombre de la Moneda ya Existe en el Catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Exit Sub End If 'If cmbPais.SelectedValue = Nothing Then ' ValorPais = 0 'Else ' ValorPais = cmbPais.SelectedValue 'End If 'strSQLComodin = "INSERT INTO cat_moneda (Moneda,aliasID,Activo,idpais,idmoneda) VALUES (" 'strSQLComodin = strSQLComodin & "'" & txtNombre.Text & "','" & Me.TXTAlias.Text & "'," & Me.chkActivo.CheckState & "," & ValorPais & ",'" & txtClave.Text & "')" 'strSQLComodin = "INSERT INTO cat_moneda (Moneda,aliasID,Activo,idmoneda) VALUES (" 'strSQLComodin = strSQLComodin & "'" & txtNombre.Text & "','" & Me.TXTAlias.Text & "'," & Me.chkActivo.CheckState & "," & ValorPais & ",'" & txtClave.Text & "')" strSQLComodin = "sp_CargarMoneda " & "NULL,'" & txtNombre.Text.Trim & "','" & TXTAlias.Text.Trim & "','" & cmbPais.Text & "'," & chkActivo.Checked classcom.sbInserta(strSQLComodin) 'AUDITORIA ClassAud.RT_Auditoria(clsVaribles.varUsuario, 31, 1, " | Valores Nuevos: idmoneda: " & txtClave.Text & ", Moneda = " & txtNombre.Text & ",Activo = " & Me.chkActivo.CheckState & ",aliasid = " & Me.TXTAlias.Text & ", Pais: " & cmbPais.Text) 'FIN AUDITORIA MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Case Is = "ACTUALIZAR" 'VALIDACION DE CAMPOS ValorPais = cmbPais.SelectedValue If txtClave.Text = "" Then MessageBox.Show("Es Necesario Introducir el Numero de la Moneda ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) Exit Sub End If If txtNombre.Text = "" Then MessageBox.Show("Es Necesario Introducir el Nombre de la Moneda ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information) 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 'pnlBotones.Visible = False 'clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("sp_consultarmoneda " & txtClave.Text) 'strSQLComodin = "UPDATE cat_Moneda SET " 'strSQLComodin = strSQLComodin & " Moneda = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState & ",aliasid = '" & Me.TXTAlias.Text & "',idpais = " & ValorPais 'strSQLComodin = strSQLComodin & " where idmoneda = '" & txtClave.Text & "'" 'strSQLComodin = "UPDATE cat_Moneda SET " 'strSQLComodin = strSQLComodin & " NOMBRE = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState & "," 'strSQLComodin = strSQLComodin & " where idmoneda = " & txtClave.Text & "" strSQLComodin = "sp_CargarMoneda " & txtClave.Text & ",'" & txtNombre.Text.Trim & "','" & TXTAlias.Text.Trim & "','" & cmbPais.Text & "'," & chkActivo.Checked classcom.sbInserta(strSQLComodin) 'AUDITORIA 'pnlBotones.Visible = False ClassAud.RT_Auditoria(clsVaribles.varUsuario, 33, 1, clsVaribles.lsValAnt & " | Valores Nuevos: idmoneda: " & txtClave.Text & ", Moneda = " & txtNombre.Text & ",Activo = " & Me.chkActivo.CheckState & ",aliasid = " & Me.TXTAlias.Text & ", Pais: " & cmbPais.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 Moneda ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If 'pnlBotones.Visible = False strSQLComodin = "UPDATE moneda SET ACTIVO = 0 where id_moneda = " & 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, 32, My.Computer.Name, "Minds Cliente", "Baja de Moneda 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 IdMoneda CLAVE,Moneda NOMBRE,ACTIVO,ALIASID ALIAS,IDPAIS PAIS FROM cat_moneda ORDER BY Moneda" 'SQL = "SELECT IdMoneda CLAVE,Moneda NOMBRE,ACTIVO,ALIASID ALIAS,0 AS PAIS FROM cat_moneda ORDER BY Moneda" SQL = "sp_consultarmoneda " CLASSCATALOGOS.LlenaGrid(SQL, Me.GridMaster) txtClave.Text = "" TXTAlias.Text = "" txtNombre.Text = "" cmbPais.Text = "" cmbPais.SelectedIndex = -1 cmbPais.SelectedIndex = -1 cmbPais.Enabled = False chkActivo.Checked = False txtClave.Enabled = False TXTAlias.Enabled = False txtNombre.Enabled = False chkActivo.Enabled = False 'CLASSCATALOGOS.sbLimpiaControlesEsp(PnPais) 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 GridMaster_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridMaster.DoubleClick 'Recupero Datos del gird txtClave.Text = Me.GridMaster.Columns("CLAVE").Value txtNombre.Text = Me.GridMaster.Columns("Nombre").Value TXTAlias.Text = GridMaster.Columns("CLAVEMONEDA").Value cmbPais.Text = GridMaster.Columns("PAIS").Value chkActivo.Checked = GridMaster.Columns("ACTIVO").Value 'Me.TXTAlias.Text = Me.GridMaster.Columns("alias").Value 'Me.cmbPais.SelectedValue = Me.GridMaster.Columns("PAIS").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 'Hago una consulta ala base de datos para recuperar la clasificacion del pais txtClave.Visible = True txtClave.Enabled = False txtNombre.Enabled = False Me.TXTAlias.Enabled = False Me.cmbPais.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 'pnlBotones.Visible = False BtnEditar.Enabled = True ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1) End Sub End Class