564 lines
23 KiB
VB.net
564 lines
23 KiB
VB.net
|
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
|