client/Catalogos/Mantenimiento/frmActividadVulnerable.vb

161 lines
5.4 KiB
VB.net

Public Class frmActividadVulnerable
Private opcion As Boolean
Private idName As Integer
Private Sub frmActividadVulnerable_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Try
Iniciar()
ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Function Iniciar() As Boolean
Iniciar = False
Try
Limpiar()
llenarGrid()
DesHeader.Text = Me.Text
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Iniciar = True
End Function
Private Function Limpiar() As Boolean
Try
txtNombre.Enabled = False
txtNombre.Text = ""
chkActivo.Enabled = False
chkActivo.Checked = False
BtnOk.Enabled = False
BtnEditar.Enabled = False
opcion = False
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Function
Private Function llenarGrid() As Boolean
llenarGrid = False
Try
Dim ClassCatalogos As New ClassCatalogos
GridMaster.AllowUpdate = False
ClassCatalogos.LlenaGrid("select * from CAT_ACTIVIDADVULNERABLE", Me.GridMaster)
GridMaster.Splits(0).DisplayColumns(0).AutoSize()
GridMaster.Splits(0).DisplayColumns(1).AutoSize()
GridMaster.Splits(0).DisplayColumns(2).AutoSize()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
llenarGrid = True
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub BtnAgregar_Click(sender As System.Object, e As System.EventArgs) Handles BtnAgregar.Click
Limpiar()
habilitar()
ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
opcion = True
End Sub
Private Function habilitar() As Boolean
habilitar = False
Try
txtNombre.Enabled = True
chkActivo.Enabled = True
BtnOk.Enabled = True
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
habilitar = True
End Function
Private Sub GridMaster_DoubleClick(sender As System.Object, e As System.EventArgs) Handles GridMaster.DoubleClick
llenarDatos()
ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
End Sub
Private Function llenarDatos() As Boolean
llenarDatos = False
Try
idName = GridMaster.Columns(0).Value
txtNombre.Text = GridMaster.Columns(1).Value
chkActivo.Checked = GridMaster.Columns(2).Value
BtnEditar.Enabled = True
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
llenarDatos = True
End Function
Private Sub BtnEditar_Click(sender As System.Object, e As System.EventArgs) Handles BtnEditar.Click
opcion = False
habilitar()
ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
End Sub
Private Sub BtnOk_Click(sender As System.Object, e As System.EventArgs) Handles BtnOk.Click
Guardar()
ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, Button1)
End Sub
Private Function Guardar() As Boolean
Guardar = False
Dim cls As New clsComplejo
Dim ssql As String
Dim nombre As String
Dim chk As Integer
Dim classcom As New clsComplejo
Try
If ValidarDatos() Then
Dim strSQLComodin As String = "SELECT * FROM CAT_ACTIVIDADVULNERABLE WHERE actividad = '" & txtNombre.Text & "'"
If classcom.BuscaDatos(strSQLComodin) Then
MessageBox.Show("Este nombre de actividad vulnerable ya existe en el catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
classcom.ds.Clone()
Exit Function
End If
nombre = txtNombre.Text.Trim()
chk = chkActivo.CheckState
If opcion Then
ssql = "INSERT INTO CAT_ACTIVIDADVULNERABLE(ACTIVIDAD,ESTATUS) "
ssql += " VALUES ('" & nombre & "', " & chk & ")"
Else
ssql = "UPDATE CAT_ACTIVIDADVULNERABLE SET ACTIVIDAD ='" & nombre & "',"
ssql += "ESTATUS = " & chk & " WHERE IDACTIVIDAD =" & idName
End If
cls.sbGuardaModifica(ssql)
MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Limpiar()
llenarGrid()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Guardar = True
End Function
Private Function ValidarDatos() As Boolean
ValidarDatos = False
Try
If txtNombre.Text.Trim = "" Then
MessageBox.Show("Es Necesario Introducir el Nombre ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Function
End If
ValidarDatos = True
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Function
End Class